taktuk-3.7.7/000755 000765 000024 00000000000 13154522546 013663 5ustar00zebulonstaff000000 000000 taktuk-3.7.7/acinclude/000755 000765 000024 00000000000 13154522546 015612 5ustar00zebulonstaff000000 000000 taktuk-3.7.7/acinclude.m4000644 000765 000024 00000000336 13136570041 016047 0ustar00zebulonstaff000000 000000 dnl Define macros to check programs AC_DEFUN([PROG_POD2MAN], [ACX_PROG_PROG([POD2MAN],[pod2man])]) AC_DEFUN([PROG_POD2HTML], [ACX_PROG_PROG([POD2HTML],[pod2html])]) AC_DEFUN([PROG_PERL], [ACX_PROG_PROG([PERL],[perl])]) taktuk-3.7.7/aclocal.m4000644 000765 000024 00000122631 13136606237 015530 0ustar00zebulonstaff000000 000000 # generated automatically by aclocal 1.15.1 -*- Autoconf -*- # Copyright (C) 1996-2017 Free Software Foundation, Inc. # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. m4_ifndef([AC_CONFIG_MACRO_DIRS], [m4_defun([_AM_CONFIG_MACRO_DIRS], [])m4_defun([AC_CONFIG_MACRO_DIRS], [_AM_CONFIG_MACRO_DIRS($@)])]) m4_ifndef([AC_AUTOCONF_VERSION], [m4_copy([m4_PACKAGE_VERSION], [AC_AUTOCONF_VERSION])])dnl m4_if(m4_defn([AC_AUTOCONF_VERSION]), [2.69],, [m4_warning([this file was generated for autoconf 2.69. You have another version of autoconf. It may work, but is not guaranteed to. If you have problems, you may need to regenerate the build system entirely. To do so, use the procedure documented by the package, typically 'autoreconf'.])]) # Copyright (C) 2002-2017 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.15' 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.15.1], [], [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.15.1])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-2017 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # For projects using AC_CONFIG_AUX_DIR([foo]), Autoconf sets # $ac_aux_dir to '$srcdir/foo'. In other projects, it is set to # '$srcdir', '$srcdir/..', or '$srcdir/../..'. # # Of course, Automake must honor this variable whenever it calls a # tool from the auxiliary directory. The problem is that $srcdir (and # therefore $ac_aux_dir as well) can be either absolute or relative, # depending on how configure is run. This is pretty annoying, since # it makes $ac_aux_dir quite unusable in subdirectories: in the top # source directory, any form will work fine, but in subdirectories a # relative path needs to be adjusted first. # # $ac_aux_dir/missing # fails when called from a subdirectory if $ac_aux_dir is relative # $top_srcdir/$ac_aux_dir/missing # fails if $ac_aux_dir is absolute, # fails when called from a subdirectory in a VPATH build with # a relative $ac_aux_dir # # The reason of the latter failure is that $top_srcdir and $ac_aux_dir # are both prefixed by $srcdir. In an in-source build this is usually # harmless because $srcdir is '.', but things will broke when you # start a VPATH build or use an absolute $srcdir. # # So we could use something similar to $top_srcdir/$ac_aux_dir/missing, # iff we strip the leading $srcdir from $ac_aux_dir. That would be: # am_aux_dir='\$(top_srcdir)/'`expr "$ac_aux_dir" : "$srcdir//*\(.*\)"` # and then we would define $MISSING as # MISSING="\${SHELL} $am_aux_dir/missing" # This will work as long as MISSING is not called from configure, because # unfortunately $(top_srcdir) has no meaning in configure. # However there are other variables, like CC, which are often used in # configure, and could therefore not use this "fixed" $ac_aux_dir. # # Another solution, used here, is to always expand $ac_aux_dir to an # absolute PATH. The drawback is that using absolute paths prevent a # configured tree to be moved without reconfiguration. AC_DEFUN([AM_AUX_DIR_EXPAND], [AC_REQUIRE([AC_CONFIG_AUX_DIR_DEFAULT])dnl # Expand $ac_aux_dir to an absolute path. am_aux_dir=`cd "$ac_aux_dir" && pwd` ]) # AM_CONDITIONAL -*- Autoconf -*- # Copyright (C) 1997-2017 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-2017 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-2017 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # _AM_OUTPUT_DEPENDENCY_COMMANDS # ------------------------------ AC_DEFUN([_AM_OUTPUT_DEPENDENCY_COMMANDS], [{ # Older Autoconf quotes --file arguments for eval, but not when files # are listed without --file. Let's play safe and only enable the eval # if we detect the quoting. 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-2017 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This macro actually does too much. Some checks are only needed if # your package does certain things. But this isn't really a big deal. dnl Redefine AC_PROG_CC to automatically invoke _AM_PROG_CC_C_O. m4_define([AC_PROG_CC], m4_defn([AC_PROG_CC]) [_AM_PROG_CC_C_O ]) # AM_INIT_AUTOMAKE(PACKAGE, VERSION, [NO-DEFINE]) # AM_INIT_AUTOMAKE([OPTIONS]) # ----------------------------------------------- # The call with PACKAGE and VERSION arguments is the old style # call (pre autoconf-2.50), which is being phased out. PACKAGE # and VERSION should now be passed to AC_INIT and removed from # the call to AM_INIT_AUTOMAKE. # We support both call styles for the transition. After # the next Automake release, Autoconf can make the AC_INIT # arguments mandatory, and then we can depend on a new Autoconf # release and drop the old call support. AC_DEFUN([AM_INIT_AUTOMAKE], [AC_PREREQ([2.65])dnl dnl Autoconf wants to disallow AM_ names. We explicitly allow dnl the ones we care about. m4_pattern_allow([^AM_[A-Z]+FLAGS$])dnl AC_REQUIRE([AM_SET_CURRENT_AUTOMAKE_VERSION])dnl AC_REQUIRE([AC_PROG_INSTALL])dnl if test "`cd $srcdir && pwd`" != "`pwd`"; then # Use -I$(srcdir) only when $(srcdir) != ., so that make's output # is not polluted with repeated "-I." AC_SUBST([am__isrc], [' -I$(srcdir)'])_AM_SUBST_NOTMAKE([am__isrc])dnl # test to see if srcdir already configured if test -f $srcdir/config.status; then AC_MSG_ERROR([source directory already configured; run "make distclean" there first]) fi fi # test whether we have cygpath if test -z "$CYGPATH_W"; then if (cygpath --version) >/dev/null 2>/dev/null; then CYGPATH_W='cygpath -w' else CYGPATH_W=echo fi fi AC_SUBST([CYGPATH_W]) # Define the identity of the package. dnl Distinguish between old-style and new-style calls. m4_ifval([$2], [AC_DIAGNOSE([obsolete], [$0: two- and three-arguments forms are deprecated.]) m4_ifval([$3], [_AM_SET_OPTION([no-define])])dnl AC_SUBST([PACKAGE], [$1])dnl AC_SUBST([VERSION], [$2])], [_AM_SET_OPTIONS([$1])dnl dnl Diagnose old-style AC_INIT with new-style AM_AUTOMAKE_INIT. m4_if( m4_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 (and possibly the TAP driver). The # system "awk" is bad on some platforms. AC_REQUIRE([AC_PROG_AWK])dnl AC_REQUIRE([AC_PROG_MAKE_SET])dnl AC_REQUIRE([AM_SET_LEADING_DOT])dnl _AM_IF_OPTION([tar-ustar], [_AM_PROG_TAR([ustar])], [_AM_IF_OPTION([tar-pax], [_AM_PROG_TAR([pax])], [_AM_PROG_TAR([v7])])]) _AM_IF_OPTION([no-dependencies],, [AC_PROVIDE_IFELSE([AC_PROG_CC], [_AM_DEPENDENCIES([CC])], [m4_define([AC_PROG_CC], m4_defn([AC_PROG_CC])[_AM_DEPENDENCIES([CC])])])dnl AC_PROVIDE_IFELSE([AC_PROG_CXX], [_AM_DEPENDENCIES([CXX])], [m4_define([AC_PROG_CXX], m4_defn([AC_PROG_CXX])[_AM_DEPENDENCIES([CXX])])])dnl AC_PROVIDE_IFELSE([AC_PROG_OBJC], [_AM_DEPENDENCIES([OBJC])], [m4_define([AC_PROG_OBJC], m4_defn([AC_PROG_OBJC])[_AM_DEPENDENCIES([OBJC])])])dnl AC_PROVIDE_IFELSE([AC_PROG_OBJCXX], [_AM_DEPENDENCIES([OBJCXX])], [m4_define([AC_PROG_OBJCXX], m4_defn([AC_PROG_OBJCXX])[_AM_DEPENDENCIES([OBJCXX])])])dnl ]) AC_REQUIRE([AM_SILENT_RULES])dnl dnl The testsuite driver may need to know about EXEEXT, so add the dnl 'am__EXEEXT' conditional if _AM_COMPILER_EXEEXT was seen. This dnl macro is hooked onto _AC_COMPILER_EXEEXT early, see below. AC_CONFIG_COMMANDS_PRE(dnl [m4_provide_if([_AM_COMPILER_EXEEXT], [AM_CONDITIONAL([am__EXEEXT], [test -n "$EXEEXT"])])])dnl # POSIX will say in a future version that running "rm -f" with no argument # is OK; and we want to be able to make that assumption in our Makefile # recipes. So use an aggressive probe to check that the usage we want is # actually supported "in the wild" to an acceptable degree. # See automake bug#10828. # To make any issue more visible, cause the running configure to be aborted # by default if the 'rm' program in use doesn't match our expectations; the # user can still override this though. if rm -f && rm -fr && rm -rf; then : OK; else cat >&2 <<'END' Oops! Your 'rm' program seems unable to run without file operands specified on the command line, even when the '-f' option is present. This is contrary to the behaviour of most rm programs out there, and not conforming with the upcoming POSIX standard: Please tell bug-automake@gnu.org about your system, including the value of your $PATH and any error possibly output before this message. This can help us improve future automake versions. END if test x"$ACCEPT_INFERIOR_RM_PROGRAM" = x"yes"; then echo 'Configuration will proceed anyway, since you have set the' >&2 echo 'ACCEPT_INFERIOR_RM_PROGRAM variable to "yes"' >&2 echo >&2 else cat >&2 <<'END' Aborting the configuration process, to ensure you take notice of the issue. You can download and install GNU coreutils to get an 'rm' implementation that behaves properly: . If you want to complete the configuration process using your problematic 'rm' anyway, export the environment variable ACCEPT_INFERIOR_RM_PROGRAM to "yes", and re-run configure. END AC_MSG_ERROR([Your 'rm' program is bad, sorry.]) fi fi dnl The trailing newline in this macro's definition is deliberate, for dnl backward compatibility and to allow trailing 'dnl'-style comments dnl after the AM_INIT_AUTOMAKE invocation. See automake bug#16841. ]) dnl Hook into '_AC_COMPILER_EXEEXT' early to learn its expansion. Do not dnl add the conditional right here, as _AC_COMPILER_EXEEXT may be further dnl mangled by Autoconf and run in a shell conditional statement. m4_define([_AC_COMPILER_EXEEXT], m4_defn([_AC_COMPILER_EXEEXT])[m4_provide([_AM_COMPILER_EXEEXT])]) # When config.status generates a header, we must update the stamp-h file. # This file resides in the same directory as the config header # that is generated. The stamp files are numbered to have different names. # Autoconf calls _AC_AM_CONFIG_HEADER_HOOK (when defined) in the # loop where config.status creates the headers, so we can generate # our stamp files there. AC_DEFUN([_AC_AM_CONFIG_HEADER_HOOK], [# Compute $1's index in $config_headers. _am_arg=$1 _am_stamp_count=1 for _am_header in $config_headers :; do case $_am_header in $_am_arg | $_am_arg:* ) break ;; * ) _am_stamp_count=`expr $_am_stamp_count + 1` ;; esac done echo "timestamp for $_am_arg" >`AS_DIRNAME(["$_am_arg"])`/stamp-h[]$_am_stamp_count]) # Copyright (C) 2001-2017 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # AM_PROG_INSTALL_SH # ------------------ # Define $install_sh. AC_DEFUN([AM_PROG_INSTALL_SH], [AC_REQUIRE([AM_AUX_DIR_EXPAND])dnl if test x"${install_sh+set}" != xset; then case $am_aux_dir in *\ * | *\ *) install_sh="\${SHELL} '$am_aux_dir/install-sh'" ;; *) install_sh="\${SHELL} $am_aux_dir/install-sh" esac fi AC_SUBST([install_sh])]) # Copyright (C) 2003-2017 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])]) # Check to see how 'make' treats includes. -*- Autoconf -*- # Copyright (C) 2001-2017 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-2017 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # AM_MISSING_PROG(NAME, PROGRAM) # ------------------------------ AC_DEFUN([AM_MISSING_PROG], [AC_REQUIRE([AM_MISSING_HAS_RUN]) $1=${$1-"${am_missing_run}$2"} AC_SUBST($1)]) # AM_MISSING_HAS_RUN # ------------------ # Define MISSING if not defined so far and test if it is modern enough. # If it is, set am_missing_run to use it, otherwise, to nothing. AC_DEFUN([AM_MISSING_HAS_RUN], [AC_REQUIRE([AM_AUX_DIR_EXPAND])dnl AC_REQUIRE_AUX_FILE([missing])dnl if test x"${MISSING+set}" != xset; then 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 --is-lightweight"; then am_missing_run="$MISSING " else am_missing_run= AC_MSG_WARN(['missing' script is too old or missing]) fi ]) # Helper functions for option handling. -*- Autoconf -*- # Copyright (C) 2001-2017 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # _AM_MANGLE_OPTION(NAME) # ----------------------- AC_DEFUN([_AM_MANGLE_OPTION], [[_AM_OPTION_]m4_bpatsubst($1, [[^a-zA-Z0-9_]], [_])]) # _AM_SET_OPTION(NAME) # -------------------- # Set option NAME. Presently that only means defining a flag for this option. AC_DEFUN([_AM_SET_OPTION], [m4_define(_AM_MANGLE_OPTION([$1]), [1])]) # _AM_SET_OPTIONS(OPTIONS) # ------------------------ # OPTIONS is a space-separated list of Automake options. AC_DEFUN([_AM_SET_OPTIONS], [m4_foreach_w([_AM_Option], [$1], [_AM_SET_OPTION(_AM_Option)])]) # _AM_IF_OPTION(OPTION, IF-SET, [IF-NOT-SET]) # ------------------------------------------- # Execute IF-SET if OPTION is set, IF-NOT-SET otherwise. AC_DEFUN([_AM_IF_OPTION], [m4_ifset(_AM_MANGLE_OPTION([$1]), [$2], [$3])]) # Copyright (C) 1999-2017 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # _AM_PROG_CC_C_O # --------------- # Like AC_PROG_CC_C_O, but changed for automake. We rewrite AC_PROG_CC # to automatically call this. AC_DEFUN([_AM_PROG_CC_C_O], [AC_REQUIRE([AM_AUX_DIR_EXPAND])dnl AC_REQUIRE_AUX_FILE([compile])dnl AC_LANG_PUSH([C])dnl AC_CACHE_CHECK( [whether $CC understands -c and -o together], [am_cv_prog_cc_c_o], [AC_LANG_CONFTEST([AC_LANG_PROGRAM([])]) # Make sure it works both with $CC and with simple cc. # Following AC_PROG_CC_C_O, we do the test twice because some # compilers refuse to overwrite an existing .o file with -o, # though they will create one. am_cv_prog_cc_c_o=yes for am_i in 1 2; do if AM_RUN_LOG([$CC -c conftest.$ac_ext -o conftest2.$ac_objext]) \ && test -f conftest2.$ac_objext; then : OK else am_cv_prog_cc_c_o=no break fi done rm -f core conftest* unset am_i]) if test "$am_cv_prog_cc_c_o" != yes; then # Losing compiler, so override with the script. # FIXME: It is wrong to rewrite CC. # But if we don't then we get into trouble of one sort or another. # A longer-term fix would be to have automake use am__CC in this case, # and then we could set am__CC="\$(top_srcdir)/compile \$(CC)" CC="$am_aux_dir/compile $CC" fi AC_LANG_POP([C])]) # For backward compatibility. AC_DEFUN_ONCE([AM_PROG_CC_C_O], [AC_REQUIRE([AC_PROG_CC])]) # Copyright (C) 2001-2017 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # AM_RUN_LOG(COMMAND) # ------------------- # Run COMMAND, save the exit status in ac_status, and log it. # (This has been adapted from Autoconf's _AC_RUN_LOG macro.) AC_DEFUN([AM_RUN_LOG], [{ echo "$as_me:$LINENO: $1" >&AS_MESSAGE_LOG_FD ($1) >&AS_MESSAGE_LOG_FD 2>&AS_MESSAGE_LOG_FD ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&AS_MESSAGE_LOG_FD (exit $ac_status); }]) # Check to make sure that the build environment is sane. -*- Autoconf -*- # Copyright (C) 1996-2017 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # AM_SANITY_CHECK # --------------- AC_DEFUN([AM_SANITY_CHECK], [AC_MSG_CHECKING([whether build environment is sane]) # Reject unsafe characters in $srcdir or the absolute working directory # name. Accept space and tab only in the latter. am_lf=' ' case `pwd` in *[[\\\"\#\$\&\'\`$am_lf]]*) AC_MSG_ERROR([unsafe absolute working directory name]);; esac case $srcdir in *[[\\\"\#\$\&\'\`$am_lf\ \ ]]*) AC_MSG_ERROR([unsafe srcdir value: '$srcdir']);; esac # Do 'set' in a subshell so we don't clobber the current shell's # arguments. Must try -L first in case configure is actually a # symlink; some systems play weird games with the mod time of symlinks # (eg FreeBSD returns the mod time of the symlink's containing # directory). if ( am_has_slept=no for am_try in 1 2; do echo "timestamp, slept: $am_has_slept" > conftest.file set X `ls -Lt "$srcdir/configure" conftest.file 2> /dev/null` if test "$[*]" = "X"; then # -L didn't work. set X `ls -t "$srcdir/configure" conftest.file` fi if test "$[*]" != "X $srcdir/configure conftest.file" \ && test "$[*]" != "X conftest.file $srcdir/configure"; then # If neither matched, then we have a broken ls. This can happen # if, for instance, CONFIG_SHELL is bash and it inherits a # broken ls alias from the environment. This has actually # happened. Such a system could not be considered "sane". AC_MSG_ERROR([ls -t appears to fail. Make sure there is not a broken alias in your environment]) fi if test "$[2]" = conftest.file || test $am_try -eq 2; then break fi # Just in case. sleep 1 am_has_slept=yes done test "$[2]" = conftest.file ) then # Ok. : else AC_MSG_ERROR([newly created file is older than distributed files! Check your system clock]) fi AC_MSG_RESULT([yes]) # If we didn't sleep, we still need to ensure time stamps of config.status and # generated files are strictly newer. am_sleep_pid= if grep 'slept: no' conftest.file >/dev/null 2>&1; then ( sleep 1 ) & am_sleep_pid=$! fi AC_CONFIG_COMMANDS_PRE( [AC_MSG_CHECKING([that generated files are newer than configure]) if test -n "$am_sleep_pid"; then # Hide warnings about reused PIDs. wait $am_sleep_pid 2>/dev/null fi AC_MSG_RESULT([done])]) rm -f conftest.file ]) # Copyright (C) 2009-2017 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # AM_SILENT_RULES([DEFAULT]) # -------------------------- # Enable less verbose build rules; with the default set to DEFAULT # ("yes" being less verbose, "no" or empty being verbose). AC_DEFUN([AM_SILENT_RULES], [AC_ARG_ENABLE([silent-rules], [dnl AS_HELP_STRING( [--enable-silent-rules], [less verbose build output (undo: "make V=1")]) AS_HELP_STRING( [--disable-silent-rules], [verbose build output (undo: "make V=0")])dnl ]) case $enable_silent_rules in @%:@ ((( yes) AM_DEFAULT_VERBOSITY=0;; no) AM_DEFAULT_VERBOSITY=1;; *) AM_DEFAULT_VERBOSITY=m4_if([$1], [yes], [0], [1]);; esac dnl dnl A few 'make' implementations (e.g., NonStop OS and NextStep) dnl do not support nested variable expansions. dnl See automake bug#9928 and bug#10237. am_make=${MAKE-make} AC_CACHE_CHECK([whether $am_make supports nested variables], [am_cv_make_support_nested_variables], [if AS_ECHO([['TRUE=$(BAR$(V)) BAR0=false BAR1=true V=1 am__doit: @$(TRUE) .PHONY: am__doit']]) | $am_make -f - >/dev/null 2>&1; then am_cv_make_support_nested_variables=yes else am_cv_make_support_nested_variables=no fi]) if test $am_cv_make_support_nested_variables = yes; then dnl Using '$V' instead of '$(V)' breaks IRIX make. AM_V='$(V)' AM_DEFAULT_V='$(AM_DEFAULT_VERBOSITY)' else AM_V=$AM_DEFAULT_VERBOSITY AM_DEFAULT_V=$AM_DEFAULT_VERBOSITY fi AC_SUBST([AM_V])dnl AM_SUBST_NOTMAKE([AM_V])dnl AC_SUBST([AM_DEFAULT_V])dnl AM_SUBST_NOTMAKE([AM_DEFAULT_V])dnl AC_SUBST([AM_DEFAULT_VERBOSITY])dnl AM_BACKSLASH='\' AC_SUBST([AM_BACKSLASH])dnl _AM_SUBST_NOTMAKE([AM_BACKSLASH])dnl ]) # Copyright (C) 2001-2017 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-2017 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-2017 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # _AM_PROG_TAR(FORMAT) # -------------------- # Check how to create a tarball in format FORMAT. # FORMAT should be one of 'v7', 'ustar', or 'pax'. # # Substitute a variable $(am__tar) that is a command # writing to stdout a FORMAT-tarball containing the directory # $tardir. # tardir=directory && $(am__tar) > result.tar # # Substitute a variable $(am__untar) that extract such # a tarball read from stdin. # $(am__untar) < result.tar # AC_DEFUN([_AM_PROG_TAR], [# Always define AMTAR for backward compatibility. Yes, it's still used # in the wild :-( We should find a proper way to deprecate it ... AC_SUBST([AMTAR], ['$${TAR-tar}']) # We'll loop over all known methods to create a tar archive until one works. _am_tools='gnutar m4_if([$1], [ustar], [plaintar]) pax cpio none' m4_if([$1], [v7], [am__tar='$${TAR-tar} chof - "$$tardir"' am__untar='$${TAR-tar} xf -'], [m4_case([$1], [ustar], [# The POSIX 1988 'ustar' format is defined with fixed-size fields. # There is notably a 21 bits limit for the UID and the GID. In fact, # the 'pax' utility can hang on bigger UID/GID (see automake bug#8343 # and bug#13588). am_max_uid=2097151 # 2^21 - 1 am_max_gid=$am_max_uid # The $UID and $GID variables are not portable, so we need to resort # to the POSIX-mandated id(1) utility. Errors in the 'id' calls # below are definitely unexpected, so allow the users to see them # (that is, avoid stderr redirection). am_uid=`id -u || echo unknown` am_gid=`id -g || echo unknown` AC_MSG_CHECKING([whether UID '$am_uid' is supported by ustar format]) if test $am_uid -le $am_max_uid; then AC_MSG_RESULT([yes]) else AC_MSG_RESULT([no]) _am_tools=none fi AC_MSG_CHECKING([whether GID '$am_gid' is supported by ustar format]) if test $am_gid -le $am_max_gid; then AC_MSG_RESULT([yes]) else AC_MSG_RESULT([no]) _am_tools=none fi], [pax], [], [m4_fatal([Unknown tar format])]) AC_MSG_CHECKING([how to create a $1 tar archive]) # Go ahead even if we have the value already cached. We do so because we # need to set the values for the 'am__tar' and 'am__untar' variables. _am_tools=${am_cv_prog_tar_$1-$_am_tools} for _am_tool in $_am_tools; do case $_am_tool in gnutar) for _am_tar in tar gnutar gtar; do AM_RUN_LOG([$_am_tar --version]) && break done am__tar="$_am_tar --format=m4_if([$1], [pax], [posix], [$1]) -chf - "'"$$tardir"' am__tar_="$_am_tar --format=m4_if([$1], [pax], [posix], [$1]) -chf - "'"$tardir"' am__untar="$_am_tar -xf -" ;; plaintar) # Must skip GNU tar: if it does not support --format= it doesn't create # ustar tarball either. (tar --version) >/dev/null 2>&1 && continue am__tar='tar chf - "$$tardir"' am__tar_='tar chf - "$tardir"' am__untar='tar xf -' ;; pax) am__tar='pax -L -x $1 -w "$$tardir"' am__tar_='pax -L -x $1 -w "$tardir"' am__untar='pax -r' ;; cpio) am__tar='find "$$tardir" -print | cpio -o -H $1 -L' am__tar_='find "$tardir" -print | cpio -o -H $1 -L' am__untar='cpio -i -H $1 -d' ;; none) am__tar=false am__tar_=false am__untar=false ;; esac # If the value was cached, stop now. We just wanted to have am__tar # and am__untar set. test -n "${am_cv_prog_tar_$1}" && break # tar/untar a dummy directory, and stop if the command works. rm -rf conftest.dir mkdir conftest.dir echo GrepMe > conftest.dir/file AM_RUN_LOG([tardir=conftest.dir && eval $am__tar_ >conftest.tar]) rm -rf conftest.dir if test -s conftest.tar; then AM_RUN_LOG([$am__untar /dev/null 2>&1 && break fi done rm -rf conftest.dir AC_CACHE_VAL([am_cv_prog_tar_$1], [am_cv_prog_tar_$1=$_am_tool]) AC_MSG_RESULT([$am_cv_prog_tar_$1])]) AC_SUBST([am__tar]) AC_SUBST([am__untar]) ]) # _AM_PROG_TAR m4_include([acinclude/acx_prog.m4]) m4_include([acinclude/libtool.m4]) m4_include([acinclude/ltoptions.m4]) m4_include([acinclude/ltsugar.m4]) m4_include([acinclude/ltversion.m4]) m4_include([acinclude/lt~obsolete.m4]) m4_include([acinclude.m4]) taktuk-3.7.7/API-versions.txt000644 000765 000024 00000007250 13152252315 016677 0ustar00zebulonstaff000000 000000 This document summaries the API/ABI versions of the different component of TakTuk. It help package maintainer to declare proper dependencies. This document starts to document TakTuk components since version 3.6.3. +------------------------------------------------------------------------+ | taktuk | +------------------+---------------+----------------------+--------------+ | CmdLine | StateFlow | FdProto | NetProto | +-+--------+-------+-+-----+-------+-----+-----------+----+-----+----+---+ /|\ /|\ /|\ /|\ /|\ /|\ | /|\ o--------|---------- | | | | | | +---------------+ +------------------------+ +-----------+ | | | | TakTuk::Pilot | | TakTuk.pm | | libtaktuk | +----+ | +---------------+ +-------------+----------+ +-----------+ Network | | ControlPerl | | IOConstPerl | CommPerl | | CommC | | +-------------+-+ +---+---------+----+-----+ | API | ABI | | /|\ /|\ /|\ +--+--+--+--+ | | | | /|\ /|\ | \ | | | | +--------------+ +-------------+ +-------------+ +-----------+ | User prog | | User prog | | //User prog | |//User prog| | Script, ... | | Perl | | Perl | | C/C++/... | +--------------+ +-------------+ +-------------+ +-----------+ Modules list ============ taktuk Included in: 3.6.3 - 3.7.7 Description: main TakTuk program API-provides: CmdLine: Desc: Command line options Versions: 0: 3.6.3 1: 3.7 - 3.7.7 StateFlow: Desc: Constants and format of state flows Versions: 0: 3.6.3 1: 3.7 - 3.7.7 FdProto: Desc: Protocol in file descriptor communication between taktuk and communication libraries Versions: 0: 3.6.3 1: 3.7 - 3.7.7 NetProto: Desc: Protocol on the network between taktuk instances Versions: 0: 3.6.3 1: 3.7 - 3.7.7 API-depends: TakTuk.pm Included in: 3.6.3 - 3.7.7 Description: Perl functions and constants File automatically extracted from TakTuk script. Useful for a process run by TakTuk with another command than taktuk_perl (which automatically provides TakTuk.pm) and that wishes to communicate via TakTuk. Also useful outside TakTuk, for instance with TakTuk::Pilot for the constants of the 'state' flow. API-provides: CommPerl: Desc: Perl bindings for communication through TakTuk Versions: 0: 3.6.3 1: 3.7 - 3.7.7 IOConstPerl: Desc: Constants for send/recv error management and constants in the 'state' flow Versions: 0: 3.6.3 1: 3.7 - 3.7.7 API-depends: FdProto: 0 for 3.6.3 1 for 3.7 - 3.7.7 StateFlow: 0 for 3.6.3 1 for 3.7 - 3.7.7 TakTuk::Pilot Included in: 3.6.3 - 3.7.7 Description: Perl module to control TakTuk API-provides: ControlPerl: Desc: Perl interface to control a taktuk master process Versions: 0: 3.6.3 - 3.7.7 API-depends: CmdLine: call taktuk with options 0|1 for 3.6.3 - 3.7.7 libtaktuk Included in: 3.6.3 - 3.7.7 Description: C bindings for communications through TakTuk API-provides: CommC-API: Desc: C API Versions: 0: 3.6.3 1: 3.7 - 3.7.2 3: 3.7.4 - 3.7.7 Note: Due to bug in Debian package, do not use API version 2... CommC-ABI: library ABI Versions: 2: 3.6.3 - 3.7.1 3: 3.7.2 - 3.7.7 API-depends: FdProto: 0 for 3.6.3 1 for 3.7 - 3.7.7 taktuk-3.7.7/AUTHORS000644 000765 000024 00000001307 13136570041 014725 0ustar00zebulonstaff000000 000000 Taktuk version 3 is a complete rewrite of the Taktuk engine made by Guillaume Huard Previous versions of Taktuk have been written in C++ by Cyrille Martin The Taktuk concept and architecture is the result of the PhD thesis of Cyrille Martin The theoretical model of taktuk and its experimental validation have been published in the french journal TSI which bibtex entry is : @ARTICLE {MaRiHu2005, author={C. Martin and O. Richard and G. Huard}, journal={Techniques et sciences informatiques}, title={Dploiement adaptatif d'applications parallles}, volume=24, number=5, year=2005 } Other contributors to Taktuk include (by chronological order) : Olivier Richard, Johan Bourcier, Benoit Claudel taktuk-3.7.7/bootstrap000755 000765 000024 00000005670 13136570041 015627 0ustar00zebulonstaff000000 000000 #!/bin/sh # vim:ts=4:sw=4 # Calls autotools to build configure script and Makefile.in. # Generated automatically using bootstrapper 0.2.1 # http://bootstrapper.sourceforge.net/ # # Copyright (C) 2002 Anthony Ventimiglia # # This bootstrap script 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. # # # Calls proper programs to create configure script and Makefile.in files. # if run with the --clean option, bootstrap removes files it generates. To # clean all autogenerated files (eg: for cvs imports) first run # make distclean, then bootstrap --clean # see bootstrapper(1) for more infor set -e if test x"$1" = x"--help"; then echo "$0: automatic bootstrapping utility for GNU Autotools" echo " cleans up old autogenerated files and runs autoconf," echo " automake and aclocal on local directory" echo echo " --clean clean up auto-generated files without" echo " creating new scripts" echo exit 0 fi export ACLOCAL="aclocal" export AUTOCONF="autoconf" export AUTOHEADER="autoheader" export AUTOMAKE="automake" CONFIG_AUX_DIR="build-aux" #LIBTOOLIZE="/usr/bin/libtoolize --force" #LIBTOOLIZE_FILES="config.sub ltmain.sh config.guess" #LIBTOOLIZE="libtoolize --copy" #LIBTOOLIZE="glibtoolize --copy" CLEAN_BASE_DIRS="autom4te.cache" CLEAN_BASE_FILES="configure" CLEAN_BASE_FILES="$CLEAN_BASE_FILES aclocal.m4 acinclude/libtool.m4 acinclude/ltoptions.m4" CLEAN_BASE_FILES="$CLEAN_BASE_FILES acinclude/ltversion.m4 acinclude/lt~obsolete.m4 acinclude/ltsugar.m4" CLEAN_AUX_FILES="config.guess depcomp ltmain.sh missing config.sub install-sh" RM="rm -v" SUBDIRS="$(sed -e '/Makefile/s, \([^ ]*\)/\?Makefile,./\1,p;d' configure.ac)" if libtoolize --version 2>&1 >/dev/null; then export LIBTOOLIZE="libtoolize --force" else # for non GNU OS export LIBTOOLIZE="glibtoolize --force" fi # These are files created by configure, so we'll always clean them for i in $ALWAYS_CLEAN; do test -f $i && \ $RM $i done if test x"$1" = x"--clean"; then # #Clean Files left by previous bootstrap run # if test -n "$CONFIG_AUX_DIR"; then CONFIG_AUX_DIR="$CONFIG_AUX_DIR/" fi # Clean directories in base directory for cf in $CLEAN_BASE_DIRS; do if test -d $cf ; then $RM -r $cf else echo "Skipping non existing directory '$cf'" fi done #Clean Automake generated Makefile.in files for i in $SUBDIRS; do test -f $i/Makefile.in && \ $RM $i/Makefile.in done # Clean files in base directory for cf in $CLEAN_BASE_FILES; do if test -f $cf ; then $RM $cf else echo "Skipping non existing file '$cf'" fi done # Clean files in aux directory for cf in $CLEAN_AUX_FILES; do cf="$CONFIG_AUX_DIR$cf" if test -f $cf ; then $RM $cf else echo "Skipping non existing file '$cf'" fi done else set -x autoreconf -vi -Wall,no-cross,no-obsolete "$@" set +x fi taktuk-3.7.7/Bugs000644 000765 000024 00000000136 13136570041 014477 0ustar00zebulonstaff000000 000000 have a look at the section "BUGS" of the manual and at http://taktuk.gforge.inria.fr/Bugs.txt taktuk-3.7.7/build-aux/000755 000765 000024 00000000000 13154522546 015555 5ustar00zebulonstaff000000 000000 taktuk-3.7.7/C-Module/000755 000765 000024 00000000000 13154522546 015270 5ustar00zebulonstaff000000 000000 taktuk-3.7.7/ChangeLog000644 000765 000024 00000021031 13154454437 015435 0ustar00zebulonstaff000000 000000 3.7.7 - fixed a bug with -V option that prevented execution - fixed a perl warning with operator precedence - fixed 'network state' misbehaving when loosing a connection - fixed broken targeting system with inter-processes messages 3.7.6 - fixed perl warning with operator precedence (avoid spurious output) - fixed tests run 3.7.5 - fixed bug with setpgrp causing the raise of 'No such process' message 3.7.4 - added missing informations in manual page - added netproto information in TakTuk version - fixed improper synchronization between get command and wait reduce - fixed wrong behavior : gateways were the target of file transfers - fixed 'send_termination' not taken into account inbetween run and continue in TakTuk::Pilot - fixed minor connections cancellation issue - fixed 'taktuk' stream handling in TakTuk::Pilot - fixed improper reset of a TakTuk::Pilot when used with timeouts - added pid and create_session in TakTuk::Pilot 3.7.3 - add TAKTUK_VERSION_COMMC_API in taktuk.h so that software can be source compatible with different TakTuk versions - "make distcheck" works 3.7.2 - added peers_given fields in connector stream - added id as exec parameter, env info, and get info - added wait commands 3.7.1 - fixed a bug causing hangup on connection timeout when deploying on some peculiar platforms (such as grid5000) - fixed libtaktuk version information - fixed interoperability bug caused by behavior change in latest revision of the Term::ReadLine module. In particular, this fixes kanif bug that appeared along with the latest perl revision. - several other changes in the code are ongoing works that will serve in the upcoming 3.7.2 3.7 The following change makes TakTuk 3.7 incompatible with earlier revisions: - changed syntax of the -R option - removed the $to information from TakTuk::recv - changed C-interface TakTuk groups implied a deep modification of TakTuk scheduler: - added -G option for gateways handling - added TakTuk groups : - contexts for options - work-stealing confined in groups - new scheduler that balances load among groups - removed the limitation of message to a single simultaneous cummunicating process (this was anyway required to implement targets) - added target parameter for messages and some commands - added "message" command - messages to the root node are now outputed to the stream 'message' - fixed minor bugs - added -u option to let user limit the size of TakTuk internal write cache - made TatTuk insensitive to absence of Hostname package - added state event for file opening failure when sending - added state events for communication failures - added tests and doc related to new functionalities - fixed installation bug for Perl module - rewrote code handling processes termination. Should be cleaner. 3.6.3 - fix hostname ranges starting with 0, eg taktuk -m toto[0-4] - removed an error message during configure - make taktuk perl 5.6.1 friendly - add -I option to allow to specify the perl interprete to use - add -V option to allow to specify an alternate PATH environement 3.6.2 - added Perl modules in the installation process - fixed interpreter potential issue (potential hang but never encountered) - added TakTuk::Pilot module along with doc and test - fixed the 'quit' bug using more brutal means for termination - now it is possible to execute on node 0 (but broadcast still does not includes the originating node) - extended set expressions - added new environment variables TAKTUK_FATHER, TAKTUK_CHILD_MIN and TAKTUK_CHILD_MAX - changed the name of taktuk package to TakTuk - reorganized manual pages - fixed minor issues : norms compliance and doc typos 3.6.1 - fixed bug with -t : option didn't work properly - made work-stealing tunable - fixed issues with reduce mechanics : - no more locks with network state - network state can be synchronized - wrote some new tests - fixed connector suppression issue when timeouting - fixed interpreter termination problem 3.6 The following modification make TakTuk 3.6 incompatible with earlier versions - changed commands set: - grouped *_input and close commands into variants of input command - grouped network_state and resign into variants of network command - improved option command: new syntaxic form and now able to deploy nodes - changed internal information transport system: avoids some deadlock situations and should be more efficient - added network renumber and update to assign logical numbers to new nodes - added get function to perl communication interface - completely rewrote and changed C-interface - added -M option to prevent option inherintence - rewrote tests to make them human readable - added new tests (multithreaded, put/get) - made quit command usable in all parts of the tree - added new tests (dynamic) - actually made options set by environment propagate themselves - added new form of environment option setting (local setting) - stolen connectors use the connector command of the thief - added state information for files tranfer 3.5.2 - fixed a small bug related to files propagation 3.5.1 - new add command (do not use, still in development) - enhanced interpolation for filenames (now handles backquotes) - interpolation for machine names 3.5 - replaced output_template command by a special form of option command 3.4 - added error message when setting invalid environment variables - removed initial setpgrp which caused troubles in scripts - added -S option for 'on connection' connector files propagation - added shell environment variable interpolation on filenames (especially remote filenames) - replaced print_tree command by network_state - added put, get and output_template commands - fixed some bug in the C interface - extended C interface with three new lower level functions - fixed connector cancellation issues when connector forks 3.3 The following modifications make TakTuk 3.3 slightly incompatible with earlier revisions (3.2.5 and before). - moved 'initialization failed' notification from 'connector' to 'state' - changed the way 'state' behaves : reports event code - added synchronizer::event_msg function for use in templates - added notification when a connection is lost but TakTuk is not terminating - added $peer_position to keep track of position of failed connections - added $reply_date and $init_date to allow connections benchmarking - made TakTuk tolerant to unknown variables in templates - made TakTuk quit when the command interpreter is killed 3.2.5 - removed limitations on connection timeouts and self-propagation - added -z option: user can choose which parts are to be self propagated - removed $father_position and $depth variables for stream state - extended $position computation to reflect command line hierarchy 3.2.4 - uses time() instead of gettimeofday() when Time::HiRes is not available - fixed issues with errors reporting when slow responding hosts are timeouted - added $father_position and $depth variables for stream state 3.2.3 - added kill command - added resign command - process managed by groups by the kill command 3.2.2 - added version command - added $position variable for templates - added events for commands start/termination in the stream state - this is internal change only : restored fcntl calls instead of $^F stuff which might have cause troubles 3.2.1 - new variables $start_date and $stop_date for "status" stream - new stream "state" - changed the call to open in favor of the 2 arguments form (input files) - removed dependencies to POSIX, fcntl and Socket modules (no more use of them) - fixed hostnames ranges bug with lexicographic comparison - fixed version bug - added $failed variable to stream "connector" 3.2 - fixed bug with input given to already terminated commands (broken pipe were not handled) - replaced socketpairs calls with pipe calls because early commands termination can cause disconnections and possible loss of data - added parameters to the exec command (this roughly allows to timeout commands) - updated and check documentation 3.1 - changed taktuk commands parameters syntax (needs spaces to separate braces) - updated doc - Vince's additions (automatic tests scripts generation) - first (rough) implementation of -W option 3.0.3 (actually never published) - fixed commands parsing bug introduced in 3.0.2 - added -E option for escape character 3.0.2 - fixed -P bug of 3.0.1 - taktuk compiles and uses infinite timeouts if Time::HiRes is not installed - change in set specification syntax and internal integrity check on separators - environement variables are now usable in taktuk_perl filename 3.0.1 - added -l option to change login name on remote hosts 3.0 - first stable release taktuk-3.7.7/check_versions.in000755 000765 000024 00000016554 13136570041 017227 0ustar00zebulonstaff000000 000000 #!/usr/bin/perl use strict; ##################################################################### # Version managment package Versions; sub vcompare($$) { my $v1=shift; my $v2=shift; my @v1=split(/\./,$v1); my @v2=split(/\./,$v2); while(1) { my $s1=shift @v1; my $s2=shift @v2; if (!defined($s1)) { if (!defined($s2)) { return 0; } else { return -1; } } elsif (!defined($s2)) { return 1; } my $ret=$s1 <=> $s2; if ($ret) { return $ret; } next; } } sub new { my $this = shift; my $versions=shift; my $class = ref($this) || $this; my $self = { 'ranges'=>[] }; bless $self, $class; $self->_init(@_); $self->add_ranges($versions); return $self; } sub _init(%) { my $self=shift; if (@_) { my %extra = @_; @$self{keys %extra} = values %extra; } } sub add_ranges($$) { my $self=shift; my $versions=shift; my @versions=split(/\s*,\s*/, $versions); foreach my $v (@versions) { $self->add_range($v); } } sub add_range($$) { my $self=shift; my $versions=shift; my @versions=split(/\s*-\s*/, $versions); my $nb=scalar(@versions); if ($nb==0) { print STDERR "Empty version!\n"; } elsif ($nb==1) { push @{$self->{'ranges'}}, [$versions[0], $versions[0]]; } elsif ($nb==2) { if (vcompare($versions[0], $versions[1])>0) { print STDERR "Reverted versions ($versions)!\n"; push @{$self->{'ranges'}}, [$versions[1], $versions[0]]; } else { push @{$self->{'ranges'}}, [$versions[0], $versions[1]]; } } else { print STDERR "Invalid versions ($versions)!\n"; } } sub has_version($$) { my $self=shift; my $version=shift; foreach my $range (@{$self->{'ranges'}}) { if (vcompare($range->[0], $version)<=0 && vcompare($range->[1], $version)>=0) { #print STDERR "$version in $range->[0] - $range->[1]\n"; return 1; } #print STDERR "$version not in $range->[0] - $range->[1]\n"; } return 0; } ##################################################################### # Load data from file package Load; use strict; my $mode="init"; my $modules; my $module; my $API; my $versions; my $APIs; sub parse_versions($) { my $versions=shift; return new Versions($versions); } sub add_module($) { my $name=shift; $module={ 'name' => $name, }; $API=undef; $versions=undef; push @{$modules}, $module; } sub add_info_module($$) { my $kind=shift; my $value=shift; $module->{$kind}=$value; } sub add_API_provides($) { my $name=shift; $API={ 'name' => $name, }; $versions=undef; push @{$module->{"API-provides"}}, $API; if (defined($APIs->{$name})) { print STDERR "API $name provided in module ", $module->{'name'}, " is already provided in module ", $APIs->{$name}->{'module'}->{'name'}, "\n"; } else { $APIs->{$name}={ 'module' => $module, 'API' => $API, }; } } sub add_version($$) { my $version=shift; my $versions=shift; $versions={ 'version' => $version, 'versions' => $versions, }; push @{$API->{"versions"}}, $versions; } sub add_API_depends($) { my $name=shift; $API={ 'name' => $name, }; $versions=undef; push @{$module->{"API-depends"}}, $API; } sub add_version_depends($$) { my $version=shift; my $versions=shift; $versions={ 'version' => $version, 'versions' => $versions, }; push @{$API->{"versions"}}, $versions; } my $reg_versions="[0-9. -]+"; sub read_file($) { my $file=shift; open(FILE, '<', $file) or die "Cannot open $file: $!"; while () { chomp; s/\t/ /g; if ($mode eq "init") { if (/^=+$/) { $mode="module"; } next; } if ($mode eq "depver") { if (/^ ([0-9|]+) for ($reg_versions)$/) { add_version_depends($1, parse_versions($2)); } elsif (! /^ /) { $mode="API depends"; } else { print STDERR "Strange line $_\n"; } } if ($mode eq "API depends") { if (/^ ([^\s]+):.*$/) { add_API_depends($1); $mode = "depver"; } elsif (! /^ /) { $mode="module"; } } if ($mode eq "Versions") { if (/^ ([0-9]+): ($reg_versions)$/) { add_version($1, parse_versions($2)); } elsif (/^ (Versions:)$/) { $mode = "Versions"; } elsif (! /^ /) { $mode="API provides"; } else { print STDERR "Strange line $_\n"; } } if ($mode eq "API provides") { if (/^ ([^\s]+):.*$/) { add_API_provides($1); } elsif (/^ (Versions:)$/) { $mode = "Versions"; } elsif (! /^ /) { $mode="module"; } elsif (! /^ /) { print STDERR "Strange line $_\n"; } } if ($mode eq "module") { if (/^([^\s]+)$/) { add_module($1); } if (/^ Included in: ($reg_versions)$/) { add_info_module("included", parse_versions($1)); } if (/^ API-provides:$/) { $mode="API provides"; } if (/^ API-depends:$/) { $mode="API depends"; } } } close(FILE); return { 'modules' => $modules, 'APIs' => $APIs }; } ##################################################################### # Check datas package CheckVersions; my $err=0; sub check($$) { my $infos=shift; my $cur_version=shift; foreach my $module (@{$infos->{'modules'}}) { #print STDERR "$module->{name}\n"; if (! exists($module->{'included'})) { print STDERR "Module ", $module->{'name'}, ": no info about inclusion in TakTuk\n"; $err++; } elsif (! $module->{'included'}->has_version($cur_version)) { print STDERR "Module ", $module->{'name'}, ": not included in TakTuk ", $cur_version, "\n"; $err++; } foreach my $API (@{$module->{'API-provides'}}) { my $found=0; foreach my $version (@{$API->{'versions'}}) { if ($version->{'versions'}->has_version($cur_version)) { $found=1; last; } } if ($found==0) { print STDERR "Module ", $module->{'name'}, ": API provided ", $API->{'name'}, ": no version provided for TakTuk ", $cur_version, "\n"; $err++; } } foreach my $API (@{$module->{'API-depends'}}) { if (!exists($infos->{'APIs'}->{$API->{'name'}})) { print STDERR "Module ", $module->{'name'}, ": depends on unknown (not provided) API ", $API->{'name'}, "\n"; $err++; } my $found=0; foreach my $version (@{$API->{'versions'}}) { if ($version->{'versions'}->has_version($cur_version)) { $found=1; last; } } if ($found==0) { print STDERR "Module ", $module->{'name'}, ": requiring API ", $API->{'name'}, ": no version for TakTuk ", $cur_version, "\n"; $err++; } } } return $err; } ##################################################################### # Main program package main; #use Data::Dumper; use Getopt::Long; my $version="@TAKTUK_VERSION@"; my $file="@top_srcdir@/API-versions.txt"; my $result = GetOptions ("version=s" => \$version, "file=s" => \$file); if (not defined($version)) { print STDERR "--version VERSION_TO_CHECK must be given\n"; exit 1; } if (not defined($file)) { print STDERR "--file FILE_TO_CHECK must be given\n"; exit 1; } print STDERR "Checking component versions for TakTuk $version in $file\n"; my $infos=Load::read_file($file); #print Dumper($modules); my $err=CheckVersions::check($infos, $version); if ($err > 0) { print STDERR "$err error(s) found. Please, fix file $file\n"; exit 1; } exit 0; taktuk-3.7.7/configure000755 000765 000024 00001531475 13136606242 015606 0ustar00zebulonstaff000000 000000 #! /bin/sh # Guess values for system-dependent variables and create Makefiles. # Generated by GNU Autoconf 2.69 for taktuk 3.7.7. # # 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 $0: guillaume.huard@imag.fr about your system, including $0: any error possibly output before this message. Then $0: install a modern shell, or manually run the script $0: under such a shell if you do have one." fi exit 1 fi fi fi SHELL=${CONFIG_SHELL-/bin/sh} export SHELL # Unset more variables known to interfere with behavior of common tools. CLICOLOR_FORCE= GREP_OPTIONS= unset CLICOLOR_FORCE GREP_OPTIONS ## --------------------- ## ## M4sh Shell Functions. ## ## --------------------- ## # as_fn_unset VAR # --------------- # Portably unset VAR. as_fn_unset () { { eval $1=; unset $1;} } as_unset=as_fn_unset # as_fn_set_status STATUS # ----------------------- # Set $? to STATUS, without forking. as_fn_set_status () { return $1 } # as_fn_set_status # as_fn_exit STATUS # ----------------- # Exit the shell with STATUS, even in a "trap 0" or "set -e" context. as_fn_exit () { set +e as_fn_set_status $1 exit $1 } # as_fn_exit # as_fn_mkdir_p # ------------- # Create "$as_dir" as a directory, including parents if necessary. as_fn_mkdir_p () { case $as_dir in #( -*) as_dir=./$as_dir;; esac test -d "$as_dir" || eval $as_mkdir_p || { as_dirs= while :; do case $as_dir in #( *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( *) as_qdir=$as_dir;; esac as_dirs="'$as_qdir' $as_dirs" as_dir=`$as_dirname -- "$as_dir" || $as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$as_dir" : 'X\(//\)[^/]' \| \ X"$as_dir" : 'X\(//\)$' \| \ X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || $as_echo X"$as_dir" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'` test -d "$as_dir" && break done test -z "$as_dirs" || eval "mkdir $as_dirs" } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" } # as_fn_mkdir_p # as_fn_executable_p FILE # ----------------------- # Test if FILE is an executable regular file. as_fn_executable_p () { test -f "$1" && test -x "$1" } # as_fn_executable_p # as_fn_append VAR VALUE # ---------------------- # Append the text in VALUE to the end of the definition contained in VAR. Take # advantage of any shell optimizations that allow amortized linear growth over # repeated appends, instead of the typical quadratic growth present in naive # implementations. if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : eval 'as_fn_append () { eval $1+=\$2 }' else as_fn_append () { eval $1=\$$1\$2 } fi # as_fn_append # as_fn_arith ARG... # ------------------ # Perform arithmetic evaluation on the ARGs, and store the result in the # global $as_val. Take advantage of shells that can avoid forks. The arguments # must be portable across $(()) and expr. if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : eval 'as_fn_arith () { as_val=$(( $* )) }' else as_fn_arith () { as_val=`expr "$@" || test $? -eq 1` } fi # as_fn_arith # as_fn_error STATUS ERROR [LINENO LOG_FD] # ---------------------------------------- # Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are # provided, also output the error to LOG_FD, referencing LINENO. Then exit the # script with STATUS, using 1 if that was 0. as_fn_error () { as_status=$1; test $as_status -eq 0 && as_status=1 if test "$4"; then as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 fi $as_echo "$as_me: error: $2" >&2 as_fn_exit $as_status } # as_fn_error if expr a : '\(a\)' >/dev/null 2>&1 && test "X`expr 00001 : '.*\(...\)'`" = X001; then as_expr=expr else as_expr=false fi if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then as_basename=basename else as_basename=false fi if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then as_dirname=dirname else as_dirname=false fi as_me=`$as_basename -- "$0" || $as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ X"$0" : 'X\(//\)$' \| \ X"$0" : 'X\(/\)' \| . 2>/dev/null || $as_echo X/"$0" | sed '/^.*\/\([^/][^/]*\)\/*$/{ s//\1/ q } /^X\/\(\/\/\)$/{ s//\1/ q } /^X\/\(\/\).*/{ s//\1/ q } s/.*/./; q'` # Avoid depending upon Character Ranges. as_cr_letters='abcdefghijklmnopqrstuvwxyz' as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' as_cr_Letters=$as_cr_letters$as_cr_LETTERS as_cr_digits='0123456789' as_cr_alnum=$as_cr_Letters$as_cr_digits as_lineno_1=$LINENO as_lineno_1a=$LINENO as_lineno_2=$LINENO as_lineno_2a=$LINENO eval 'test "x$as_lineno_1'$as_run'" != "x$as_lineno_2'$as_run'" && test "x`expr $as_lineno_1'$as_run' + 1`" = "x$as_lineno_2'$as_run'"' || { # Blame Lee E. McMahon (1931-1989) for sed's syntax. :-) sed -n ' p /[$]LINENO/= ' <$as_myself | sed ' s/[$]LINENO.*/&-/ t lineno b :lineno N :loop s/[$]LINENO\([^'$as_cr_alnum'_].*\n\)\(.*\)/\2\1\2/ t loop s/-\n.*// ' >$as_me.lineno && chmod +x "$as_me.lineno" || { $as_echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2; as_fn_exit 1; } # If we had to re-execute with $CONFIG_SHELL, we're ensured to have # already done that, so ensure we don't try to do so again and fall # in an infinite loop. This has already happened in practice. _as_can_reexec=no; export _as_can_reexec # Don't try to exec as it changes $[0], causing all sort of problems # (the dirname of $[0] is not the place where we might find the # original and so on. Autoconf is especially sensitive to this). . "./$as_me.lineno" # Exit status is that of the last command. exit } ECHO_C= ECHO_N= ECHO_T= case `echo -n x` in #((((( -n*) case `echo 'xy\c'` in *c*) ECHO_T=' ';; # ECHO_T is single tab character. xy) ECHO_C='\c';; *) echo `echo ksh88 bug on AIX 6.1` > /dev/null ECHO_T=' ';; esac;; *) ECHO_N='-n';; esac rm -f conf$$ conf$$.exe conf$$.file if test -d conf$$.dir; then rm -f conf$$.dir/conf$$.file else rm -f conf$$.dir mkdir conf$$.dir 2>/dev/null fi if (echo >conf$$.file) 2>/dev/null; then if ln -s conf$$.file conf$$ 2>/dev/null; then as_ln_s='ln -s' # ... but there are two gotchas: # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. # In both cases, we have to default to `cp -pR'. ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || as_ln_s='cp -pR' elif ln conf$$.file conf$$ 2>/dev/null; then as_ln_s=ln else as_ln_s='cp -pR' fi else as_ln_s='cp -pR' fi rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file rmdir conf$$.dir 2>/dev/null if mkdir -p . 2>/dev/null; then as_mkdir_p='mkdir -p "$as_dir"' else test -d ./-p && rmdir ./-p as_mkdir_p=false fi as_test_x='test -x' as_executable_p=as_fn_executable_p # Sed expression to map a string onto a valid CPP name. as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" # Sed expression to map a string onto a valid variable name. as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" 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='taktuk' PACKAGE_TARNAME='taktuk' PACKAGE_VERSION='3.7.7' PACKAGE_STRING='taktuk 3.7.7' PACKAGE_BUGREPORT='guillaume.huard@imag.fr' PACKAGE_URL='' ac_unique_file="C-Module/taktuk.c" # 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 TAKTUK_VERSION_COMMC_ABI TAKTUK_VERSION_COMMC_API TAKTUK_VERSION_CONTROLPERL TAKTUK_VERSION_IOCONSTPERL TAKTUK_VERSION_COMMPERL TAKTUK_VERSION_NETPROTO TAKTUK_VERSION_FDPROTO TAKTUK_VERSION_STATEFLOW TAKTUK_VERSION_CMDLINE TAKTUK_VERSION VERSIONING_CFLAGS LD_VERSION_SCRIPT LIBOBJS TAKTUK_NOPERL_FALSE TAKTUK_NOPERL_TRUE PERL TAKTUK_GENDOC_HTML_FALSE TAKTUK_GENDOC_HTML_TRUE POD2HTML TAKTUK_GENDOC_MAN_FALSE TAKTUK_GENDOC_MAN_TRUE POD2MAN CPP LT_SYS_LIBRARY_PATH OTOOL64 OTOOL LIPO NMEDIT DSYMUTIL MANIFEST_TOOL RANLIB ac_ct_AR AR DLLTOOL OBJDUMP LN_S NM ac_ct_DUMPBIN DUMPBIN LD FGREP EGREP GREP SED LIBTOOL 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 AM_BACKSLASH AM_DEFAULT_VERBOSITY AM_DEFAULT_V AM_V 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_os target_vendor target_cpu target host_os host_vendor host_cpu host build_os build_vendor build_cpu build target_alias host_alias build_alias LIBS ECHO_T ECHO_N ECHO_C DEFS mandir localedir libdir psdir pdfdir dvidir htmldir infodir docdir oldincludedir includedir localstatedir sharedstatedir sysconfdir datadir datarootdir libexecdir sbindir bindir program_transform_name prefix exec_prefix PACKAGE_URL PACKAGE_BUGREPORT PACKAGE_STRING PACKAGE_VERSION PACKAGE_TARNAME PACKAGE_NAME PATH_SEPARATOR SHELL' ac_subst_files='' ac_user_opts=' enable_option_checking enable_silent_rules enable_dependency_tracking enable_shared enable_static with_pic enable_fast_install with_aix_soname with_gnu_ld with_sysroot enable_libtool_lock ' ac_precious_vars='build_alias host_alias target_alias CC CFLAGS LDFLAGS LIBS CPPFLAGS LT_SYS_LIBRARY_PATH CPP POD2MAN POD2HTML PERL' # 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 taktuk 3.7.7 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/taktuk] --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] --target=TARGET configure for building compilers for TARGET [HOST] _ACEOF fi if test -n "$ac_init_help"; then case $ac_init_help in short | recursive ) echo "Configuration of taktuk 3.7.7:";; esac cat <<\_ACEOF Optional Features: --disable-option-checking ignore unrecognized --enable/--with options --disable-FEATURE do not include FEATURE (same as --enable-FEATURE=no) --enable-FEATURE[=ARG] include FEATURE [ARG=yes] --enable-silent-rules less verbose build output (undo: "make V=1") --disable-silent-rules verbose build output (undo: "make V=0") --enable-dependency-tracking do not reject slow dependency extractors --disable-dependency-tracking speeds up one-time build --enable-shared[=PKGS] build shared libraries [default=yes] --enable-static[=PKGS] build static libraries [default=yes] --enable-fast-install[=PKGS] optimize for fast installation [default=yes] --disable-libtool-lock avoid locking (might break parallel builds) Optional Packages: --with-PACKAGE[=ARG] use PACKAGE [ARG=yes] --without-PACKAGE do not use PACKAGE (same as --with-PACKAGE=no) --with-pic[=PKGS] try to use only PIC/non-PIC objects [default=use both] --with-aix-soname=aix|svr4|both shared library versioning (aka "SONAME") variant to provide on AIX, [default=aix]. --with-gnu-ld assume the C compiler uses GNU ld [default=no] --with-sysroot[=DIR] Search for dependent libraries within DIR (or the compiler's sysroot if not specified). 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 LT_SYS_LIBRARY_PATH User-defined run-time library search path. CPP C preprocessor POD2MAN pod2man command POD2HTML pod2html command PERL perl command 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 taktuk configure 3.7.7 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_link LINENO # ----------------------- # Try to link conftest.$ac_ext, and return whether this succeeded. ac_fn_c_try_link () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack rm -f conftest.$ac_objext conftest$ac_exeext if { { ac_try="$ac_link" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_link") 2>conftest.err ac_status=$? if test -s conftest.err; then grep -v '^ *+' conftest.err >conftest.er1 cat conftest.er1 >&5 mv -f conftest.er1 conftest.err fi $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest$ac_exeext && { test "$cross_compiling" = yes || test -x conftest$ac_exeext }; then : ac_retval=0 else $as_echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_retval=1 fi # Delete the IPA/IPO (Inter Procedural Analysis/Optimization) information # created by the PGI compiler (conftest_ipa8_conftest.oo), as it would # interfere with the next link command; also delete a directory that is # left behind by Apple's compiler. We do this before executing the actions. rm -rf conftest.dSYM conftest_ipa8_conftest.oo eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno as_fn_set_status $ac_retval } # ac_fn_c_try_link # ac_fn_c_check_header_compile LINENO HEADER VAR INCLUDES # ------------------------------------------------------- # Tests whether HEADER exists and can be compiled using the include files in # INCLUDES, setting the cache variable VAR accordingly. ac_fn_c_check_header_compile () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 $as_echo_n "checking for $2... " >&6; } if eval \${$3+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 #include <$2> _ACEOF if ac_fn_c_try_compile "$LINENO"; then : eval "$3=yes" else eval "$3=no" fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi eval ac_res=\$$3 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 $as_echo "$ac_res" >&6; } eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno } # ac_fn_c_check_header_compile # ac_fn_c_try_cpp LINENO # ---------------------- # Try to preprocess conftest.$ac_ext, and return whether this succeeded. ac_fn_c_try_cpp () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack if { { ac_try="$ac_cpp conftest.$ac_ext" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_cpp conftest.$ac_ext") 2>conftest.err ac_status=$? if test -s conftest.err; then grep -v '^ *+' conftest.err >conftest.er1 cat conftest.er1 >&5 mv -f conftest.er1 conftest.err fi $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } > conftest.i && { test -z "$ac_c_preproc_warn_flag$ac_c_werror_flag" || test ! -s conftest.err }; then : ac_retval=0 else $as_echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_retval=1 fi eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno as_fn_set_status $ac_retval } # ac_fn_c_try_cpp # ac_fn_c_try_run LINENO # ---------------------- # Try to link conftest.$ac_ext, and return whether this succeeded. Assumes # that executables *can* be run. ac_fn_c_try_run () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack if { { ac_try="$ac_link" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_link") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && { ac_try='./conftest$ac_exeext' { { case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_try") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; }; then : ac_retval=0 else $as_echo "$as_me: program exited with status $ac_status" >&5 $as_echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_retval=$ac_status fi rm -rf conftest.dSYM conftest_ipa8_conftest.oo eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno as_fn_set_status $ac_retval } # ac_fn_c_try_run # ac_fn_c_check_func LINENO FUNC VAR # ---------------------------------- # Tests whether FUNC exists, setting the cache variable VAR accordingly ac_fn_c_check_func () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 $as_echo_n "checking for $2... " >&6; } if eval \${$3+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Define $2 to an innocuous variant, in case 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 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_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 guillaume.huard@imag.fr ## ## -------------------------------------- ##" ) | 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_check_type LINENO TYPE VAR INCLUDES # ------------------------------------------- # Tests whether TYPE exists after having included INCLUDES, setting cache # variable VAR accordingly. ac_fn_c_check_type () { 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 eval "$3=no" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 int main () { if (sizeof ($2)) return 0; ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 int main () { if (sizeof (($2))) return 0; ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : else eval "$3=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 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_type cat >config.log <<_ACEOF This file contains any messages produced by compilers while running configure, to aid debugging if configure makes a mistake. It was created by taktuk $as_me 3.7.7, 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 TAKTUK_VERSION=$PACKAGE_VERSION TAKTUK_VERSION_CMDLINE=1 TAKTUK_VERSION_STATEFLOW=1 TAKTUK_VERSION_FDPROTO=1 TAKTUK_VERSION_NETPROTO=1 TAKTUK_VERSION_COMMPERL=1 TAKTUK_VERSION_IOCONSTPERL=1 TAKTUK_VERSION_CONTROLPERL=0 TAKTUK_VERSION_COMMC_API=1 TAKTUK_VERSION_COMMC_ABI=3 ac_aux_dir= for ac_dir in build-aux "$srcdir"/build-aux; 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 build-aux \"$srcdir\"/build-aux" "$LINENO" 5 fi # These three variables are undocumented and unsupported, # and are intended to be withdrawn in a future Autoconf release. # They can cause serious problems if a builder's source tree is in a directory # whose full name contains unusual characters. ac_config_guess="$SHELL $ac_aux_dir/config.guess" # Please don't use this var. ac_config_sub="$SHELL $ac_aux_dir/config.sub" # Please don't use this var. ac_configure="$SHELL $ac_aux_dir/configure" # Please don't use this var. # Make sure we can run config.sub. $SHELL "$ac_aux_dir/config.sub" sun4 >/dev/null 2>&1 || as_fn_error $? "cannot run $SHELL $ac_aux_dir/config.sub" "$LINENO" 5 { $as_echo "$as_me:${as_lineno-$LINENO}: checking build system type" >&5 $as_echo_n "checking build system type... " >&6; } if ${ac_cv_build+:} false; then : $as_echo_n "(cached) " >&6 else ac_build_alias=$build_alias test "x$ac_build_alias" = x && ac_build_alias=`$SHELL "$ac_aux_dir/config.guess"` test "x$ac_build_alias" = x && as_fn_error $? "cannot guess build type; you must specify one" "$LINENO" 5 ac_cv_build=`$SHELL "$ac_aux_dir/config.sub" $ac_build_alias` || as_fn_error $? "$SHELL $ac_aux_dir/config.sub $ac_build_alias failed" "$LINENO" 5 fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_build" >&5 $as_echo "$ac_cv_build" >&6; } case $ac_cv_build in *-*-*) ;; *) as_fn_error $? "invalid value of canonical build" "$LINENO" 5;; esac build=$ac_cv_build ac_save_IFS=$IFS; IFS='-' set x $ac_cv_build shift build_cpu=$1 build_vendor=$2 shift; shift # Remember, the first character of IFS is used to create $*, # except with old shells: build_os=$* IFS=$ac_save_IFS case $build_os in *\ *) build_os=`echo "$build_os" | sed 's/ /-/g'`;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: checking host system type" >&5 $as_echo_n "checking host system type... " >&6; } if ${ac_cv_host+:} false; then : $as_echo_n "(cached) " >&6 else if test "x$host_alias" = x; then ac_cv_host=$ac_cv_build else ac_cv_host=`$SHELL "$ac_aux_dir/config.sub" $host_alias` || as_fn_error $? "$SHELL $ac_aux_dir/config.sub $host_alias failed" "$LINENO" 5 fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_host" >&5 $as_echo "$ac_cv_host" >&6; } case $ac_cv_host in *-*-*) ;; *) as_fn_error $? "invalid value of canonical host" "$LINENO" 5;; esac host=$ac_cv_host ac_save_IFS=$IFS; IFS='-' set x $ac_cv_host shift host_cpu=$1 host_vendor=$2 shift; shift # Remember, the first character of IFS is used to create $*, # except with old shells: host_os=$* IFS=$ac_save_IFS case $host_os in *\ *) host_os=`echo "$host_os" | sed 's/ /-/g'`;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: checking target system type" >&5 $as_echo_n "checking target system type... " >&6; } if ${ac_cv_target+:} false; then : $as_echo_n "(cached) " >&6 else if test "x$target_alias" = x; then ac_cv_target=$ac_cv_host else ac_cv_target=`$SHELL "$ac_aux_dir/config.sub" $target_alias` || as_fn_error $? "$SHELL $ac_aux_dir/config.sub $target_alias failed" "$LINENO" 5 fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_target" >&5 $as_echo "$ac_cv_target" >&6; } case $ac_cv_target in *-*-*) ;; *) as_fn_error $? "invalid value of canonical target" "$LINENO" 5;; esac target=$ac_cv_target ac_save_IFS=$IFS; IFS='-' set x $ac_cv_target shift target_cpu=$1 target_vendor=$2 shift; shift # Remember, the first character of IFS is used to create $*, # except with old shells: target_os=$* IFS=$ac_save_IFS case $target_os in *\ *) target_os=`echo "$target_os" | sed 's/ /-/g'`;; esac # The aliases save the names the user supplied, while $host etc. # will get canonicalized. test -n "$target_alias" && test "$program_prefix$program_suffix$program_transform_name" = \ NONENONEs,x,x, && program_prefix=${target_alias}- am__api_version='1.15' # 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 --is-lightweight"; then am_missing_run="$MISSING " else am_missing_run= { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: 'missing' script is too old or missing" >&5 $as_echo "$as_me: WARNING: 'missing' script is too old or missing" >&2;} fi if test x"${install_sh+set}" != xset; then case $am_aux_dir in *\ * | *\ *) install_sh="\${SHELL} '$am_aux_dir/install-sh'" ;; *) install_sh="\${SHELL} $am_aux_dir/install-sh" esac fi # Installed binaries are usually stripped using 'strip' when the user # run "make install-strip". However 'strip' might not be the right # tool to use in cross-compilation environments, therefore Automake # will honor the 'STRIP' environment variable to overrule this program. if test "$cross_compiling" != no; then if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}strip", so it can be a program name with args. set dummy ${ac_tool_prefix}strip; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_STRIP+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$STRIP"; then ac_cv_prog_STRIP="$STRIP" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_STRIP="${ac_tool_prefix}strip" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi STRIP=$ac_cv_prog_STRIP if test -n "$STRIP"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $STRIP" >&5 $as_echo "$STRIP" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_STRIP"; then ac_ct_STRIP=$STRIP # Extract the first word of "strip", so it can be a program name with args. set dummy strip; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_STRIP+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_STRIP"; then ac_cv_prog_ac_ct_STRIP="$ac_ct_STRIP" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_STRIP="strip" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_STRIP=$ac_cv_prog_ac_ct_STRIP if test -n "$ac_ct_STRIP"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_STRIP" >&5 $as_echo "$ac_ct_STRIP" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_STRIP" = x; then STRIP=":" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac STRIP=$ac_ct_STRIP fi else STRIP="$ac_cv_prog_STRIP" fi fi INSTALL_STRIP_PROGRAM="\$(install_sh) -c -s" { $as_echo "$as_me:${as_lineno-$LINENO}: checking for a thread-safe mkdir -p" >&5 $as_echo_n "checking for a thread-safe mkdir -p... " >&6; } if test -z "$MKDIR_P"; then if ${ac_cv_path_mkdir+:} false; then : $as_echo_n "(cached) " >&6 else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH$PATH_SEPARATOR/opt/sfw/bin do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_prog in mkdir gmkdir; do for ac_exec_ext in '' $ac_executable_extensions; do as_fn_executable_p "$as_dir/$ac_prog$ac_exec_ext" || continue case `"$as_dir/$ac_prog$ac_exec_ext" --version 2>&1` in #( 'mkdir (GNU coreutils) '* | \ 'mkdir (coreutils) '* | \ 'mkdir (fileutils) '4.1*) ac_cv_path_mkdir=$as_dir/$ac_prog$ac_exec_ext break 3;; esac done done done IFS=$as_save_IFS fi test -d ./--version && rmdir ./--version if test "${ac_cv_path_mkdir+set}" = set; then MKDIR_P="$ac_cv_path_mkdir -p" else # As a last resort, use the slow shell script. Don't cache a # value for MKDIR_P within a source directory, because that will # break other packages using the cache if that directory is # removed, or if the value is a relative name. MKDIR_P="$ac_install_sh -d" fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $MKDIR_P" >&5 $as_echo "$MKDIR_P" >&6; } for ac_prog in gawk mawk nawk awk do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_AWK+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$AWK"; then ac_cv_prog_AWK="$AWK" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_AWK="$ac_prog" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi AWK=$ac_cv_prog_AWK if test -n "$AWK"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $AWK" >&5 $as_echo "$AWK" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$AWK" && break done { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether ${MAKE-make} sets \$(MAKE)" >&5 $as_echo_n "checking whether ${MAKE-make} sets \$(MAKE)... " >&6; } set x ${MAKE-make} ac_make=`$as_echo "$2" | sed 's/+/p/g; s/[^a-zA-Z0-9_]/_/g'` if eval \${ac_cv_prog_make_${ac_make}_set+:} false; then : $as_echo_n "(cached) " >&6 else cat >conftest.make <<\_ACEOF SHELL = /bin/sh all: @echo '@@@%%%=$(MAKE)=@@@%%%' _ACEOF # GNU make sometimes prints "make[1]: Entering ...", which would confuse us. case `${MAKE-make} -f conftest.make 2>/dev/null` in *@@@%%%=?*=@@@%%%*) eval ac_cv_prog_make_${ac_make}_set=yes;; *) eval ac_cv_prog_make_${ac_make}_set=no;; esac rm -f conftest.make fi if eval test \$ac_cv_prog_make_${ac_make}_set = yes; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } SET_MAKE= else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } SET_MAKE="MAKE=${MAKE-make}" fi rm -rf .tst 2>/dev/null mkdir .tst 2>/dev/null if test -d .tst; then am__leading_dot=. else am__leading_dot=_ fi rmdir .tst 2>/dev/null # Check whether --enable-silent-rules was given. if test "${enable_silent_rules+set}" = set; then : enableval=$enable_silent_rules; fi case $enable_silent_rules in # ((( yes) AM_DEFAULT_VERBOSITY=0;; no) AM_DEFAULT_VERBOSITY=1;; *) AM_DEFAULT_VERBOSITY=1;; esac am_make=${MAKE-make} { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $am_make supports nested variables" >&5 $as_echo_n "checking whether $am_make supports nested variables... " >&6; } if ${am_cv_make_support_nested_variables+:} false; then : $as_echo_n "(cached) " >&6 else if $as_echo 'TRUE=$(BAR$(V)) BAR0=false BAR1=true V=1 am__doit: @$(TRUE) .PHONY: am__doit' | $am_make -f - >/dev/null 2>&1; then am_cv_make_support_nested_variables=yes else am_cv_make_support_nested_variables=no fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $am_cv_make_support_nested_variables" >&5 $as_echo "$am_cv_make_support_nested_variables" >&6; } if test $am_cv_make_support_nested_variables = yes; then AM_V='$(V)' AM_DEFAULT_V='$(AM_DEFAULT_VERBOSITY)' else AM_V=$AM_DEFAULT_VERBOSITY AM_DEFAULT_V=$AM_DEFAULT_VERBOSITY fi AM_BACKSLASH='\' if test "`cd $srcdir && pwd`" != "`pwd`"; then # Use -I$(srcdir) only when $(srcdir) != ., so that make's output # is not polluted with repeated "-I." am__isrc=' -I$(srcdir)' # test to see if srcdir already configured if test -f $srcdir/config.status; then as_fn_error $? "source directory already configured; run \"make distclean\" there first" "$LINENO" 5 fi fi # test whether we have cygpath if test -z "$CYGPATH_W"; then if (cygpath --version) >/dev/null 2>/dev/null; then CYGPATH_W='cygpath -w' else CYGPATH_W=echo fi fi # Define the identity of the package. PACKAGE='taktuk' VERSION='3.7.7' 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 (and possibly the TAP driver). The # system "awk" is bad on some platforms. # Always define AMTAR for backward compatibility. Yes, it's still used # in the wild :-( We should find a proper way to deprecate it ... AMTAR='$${TAR-tar}' # We'll loop over all known methods to create a tar archive until one works. _am_tools='gnutar pax cpio none' am__tar='$${TAR-tar} chof - "$$tardir"' am__untar='$${TAR-tar} xf -' # POSIX will say in a future version that running "rm -f" with no argument # is OK; and we want to be able to make that assumption in our Makefile # recipes. So use an aggressive probe to check that the usage we want is # actually supported "in the wild" to an acceptable degree. # See automake bug#10828. # To make any issue more visible, cause the running configure to be aborted # by default if the 'rm' program in use doesn't match our expectations; the # user can still override this though. if rm -f && rm -fr && rm -rf; then : OK; else cat >&2 <<'END' Oops! Your 'rm' program seems unable to run without file operands specified on the command line, even when the '-f' option is present. This is contrary to the behaviour of most rm programs out there, and not conforming with the upcoming POSIX standard: Please tell bug-automake@gnu.org about your system, including the value of your $PATH and any error possibly output before this message. This can help us improve future automake versions. END if test x"$ACCEPT_INFERIOR_RM_PROGRAM" = x"yes"; then echo 'Configuration will proceed anyway, since you have set the' >&2 echo 'ACCEPT_INFERIOR_RM_PROGRAM variable to "yes"' >&2 echo >&2 else cat >&2 <<'END' Aborting the configuration process, to ensure you take notice of the issue. You can download and install GNU coreutils to get an 'rm' implementation that behaves properly: . If you want to complete the configuration process using your problematic 'rm' anyway, export the environment variable ACCEPT_INFERIOR_RM_PROGRAM to "yes", and re-run configure. END as_fn_error $? "Your 'rm' program is bad, sorry." "$LINENO" 5 fi fi # Checks for programs. 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 ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $CC understands -c and -o together" >&5 $as_echo_n "checking whether $CC understands -c and -o together... " >&6; } if ${am_cv_prog_cc_c_o+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF # Make sure it works both with $CC and with simple cc. # Following AC_PROG_CC_C_O, we do the test twice because some # compilers refuse to overwrite an existing .o file with -o, # though they will create one. am_cv_prog_cc_c_o=yes for am_i in 1 2; do if { echo "$as_me:$LINENO: $CC -c conftest.$ac_ext -o conftest2.$ac_objext" >&5 ($CC -c conftest.$ac_ext -o conftest2.$ac_objext) >&5 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } \ && test -f conftest2.$ac_objext; then : OK else am_cv_prog_cc_c_o=no break fi done rm -f core conftest* unset am_i fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $am_cv_prog_cc_c_o" >&5 $as_echo "$am_cv_prog_cc_c_o" >&6; } if test "$am_cv_prog_cc_c_o" != yes; then # Losing compiler, so override with the script. # FIXME: It is wrong to rewrite CC. # But if we don't then we get into trouble of one sort or another. # A longer-term fix would be to have automake use am__CC in this case, # and then we could set am__CC="\$(top_srcdir)/compile \$(CC)" CC="$am_aux_dir/compile $CC" fi ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu 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 case `pwd` in *\ * | *\ *) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: Libtool does not cope well with whitespace in \`pwd\`" >&5 $as_echo "$as_me: WARNING: Libtool does not cope well with whitespace in \`pwd\`" >&2;} ;; esac macro_version='2.4.6' macro_revision='2.4.6' ltmain=$ac_aux_dir/ltmain.sh # Backslashify metacharacters that are still active within # double-quoted strings. sed_quote_subst='s/\(["`$\\]\)/\\\1/g' # Same as above, but do not quote variable references. double_quote_subst='s/\(["`\\]\)/\\\1/g' # Sed substitution to delay expansion of an escaped shell variable in a # double_quote_subst'ed string. delay_variable_subst='s/\\\\\\\\\\\$/\\\\\\$/g' # Sed substitution to delay expansion of an escaped single quote. delay_single_quote_subst='s/'\''/'\'\\\\\\\'\''/g' # Sed substitution to avoid accidental globbing in evaled expressions no_glob_subst='s/\*/\\\*/g' ECHO='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' ECHO=$ECHO$ECHO$ECHO$ECHO$ECHO ECHO=$ECHO$ECHO$ECHO$ECHO$ECHO$ECHO { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to print strings" >&5 $as_echo_n "checking how to print strings... " >&6; } # Test print first, because it will be a builtin if present. if test "X`( print -r -- -n ) 2>/dev/null`" = X-n && \ test "X`print -r -- $ECHO 2>/dev/null`" = "X$ECHO"; then ECHO='print -r --' elif test "X`printf %s $ECHO 2>/dev/null`" = "X$ECHO"; then ECHO='printf %s\n' else # Use this function as a fallback that always works. func_fallback_echo () { eval 'cat <<_LTECHO_EOF $1 _LTECHO_EOF' } ECHO='func_fallback_echo' fi # func_echo_all arg... # Invoke $ECHO with all args, space-separated. func_echo_all () { $ECHO "" } case $ECHO in printf*) { $as_echo "$as_me:${as_lineno-$LINENO}: result: printf" >&5 $as_echo "printf" >&6; } ;; print*) { $as_echo "$as_me:${as_lineno-$LINENO}: result: print -r" >&5 $as_echo "print -r" >&6; } ;; *) { $as_echo "$as_me:${as_lineno-$LINENO}: result: cat" >&5 $as_echo "cat" >&6; } ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: checking for a sed that does not truncate output" >&5 $as_echo_n "checking for a sed that does not truncate output... " >&6; } if ${ac_cv_path_SED+:} false; then : $as_echo_n "(cached) " >&6 else ac_script=s/aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa/bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb/ for ac_i in 1 2 3 4 5 6 7; do ac_script="$ac_script$as_nl$ac_script" done echo "$ac_script" 2>/dev/null | sed 99q >conftest.sed { ac_script=; unset ac_script;} if test -z "$SED"; then ac_path_SED_found=false # Loop through the user's path and test for each of PROGNAME-LIST as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_prog in sed gsed; do for ac_exec_ext in '' $ac_executable_extensions; do ac_path_SED="$as_dir/$ac_prog$ac_exec_ext" as_fn_executable_p "$ac_path_SED" || continue # Check for GNU ac_path_SED and select it if it is found. # Check for GNU $ac_path_SED case `"$ac_path_SED" --version 2>&1` in *GNU*) ac_cv_path_SED="$ac_path_SED" ac_path_SED_found=:;; *) ac_count=0 $as_echo_n 0123456789 >"conftest.in" while : do cat "conftest.in" "conftest.in" >"conftest.tmp" mv "conftest.tmp" "conftest.in" cp "conftest.in" "conftest.nl" $as_echo '' >> "conftest.nl" "$ac_path_SED" -f conftest.sed < "conftest.nl" >"conftest.out" 2>/dev/null || break diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break as_fn_arith $ac_count + 1 && ac_count=$as_val if test $ac_count -gt ${ac_path_SED_max-0}; then # Best one so far, save it but keep looking for a better one ac_cv_path_SED="$ac_path_SED" ac_path_SED_max=$ac_count fi # 10*(2^10) chars as input seems more than enough test $ac_count -gt 10 && break done rm -f conftest.in conftest.tmp conftest.nl conftest.out;; esac $ac_path_SED_found && break 3 done done done IFS=$as_save_IFS if test -z "$ac_cv_path_SED"; then as_fn_error $? "no acceptable sed could be found in \$PATH" "$LINENO" 5 fi else ac_cv_path_SED=$SED fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_SED" >&5 $as_echo "$ac_cv_path_SED" >&6; } SED="$ac_cv_path_SED" rm -f conftest.sed test -z "$SED" && SED=sed Xsed="$SED -e 1s/^X//" { $as_echo "$as_me:${as_lineno-$LINENO}: checking for grep that handles long lines and -e" >&5 $as_echo_n "checking for grep that handles long lines and -e... " >&6; } if ${ac_cv_path_GREP+:} false; then : $as_echo_n "(cached) " >&6 else if test -z "$GREP"; then ac_path_GREP_found=false # Loop through the user's path and test for each of PROGNAME-LIST as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_prog in grep ggrep; do for ac_exec_ext in '' $ac_executable_extensions; do ac_path_GREP="$as_dir/$ac_prog$ac_exec_ext" as_fn_executable_p "$ac_path_GREP" || continue # Check for GNU ac_path_GREP and select it if it is found. # Check for GNU $ac_path_GREP case `"$ac_path_GREP" --version 2>&1` in *GNU*) ac_cv_path_GREP="$ac_path_GREP" ac_path_GREP_found=:;; *) ac_count=0 $as_echo_n 0123456789 >"conftest.in" while : do cat "conftest.in" "conftest.in" >"conftest.tmp" mv "conftest.tmp" "conftest.in" cp "conftest.in" "conftest.nl" $as_echo 'GREP' >> "conftest.nl" "$ac_path_GREP" -e 'GREP$' -e '-(cannot match)-' < "conftest.nl" >"conftest.out" 2>/dev/null || break diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break as_fn_arith $ac_count + 1 && ac_count=$as_val if test $ac_count -gt ${ac_path_GREP_max-0}; then # Best one so far, save it but keep looking for a better one ac_cv_path_GREP="$ac_path_GREP" ac_path_GREP_max=$ac_count fi # 10*(2^10) chars as input seems more than enough test $ac_count -gt 10 && break done rm -f conftest.in conftest.tmp conftest.nl conftest.out;; esac $ac_path_GREP_found && break 3 done done done IFS=$as_save_IFS if test -z "$ac_cv_path_GREP"; then as_fn_error $? "no acceptable grep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5 fi else ac_cv_path_GREP=$GREP fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_GREP" >&5 $as_echo "$ac_cv_path_GREP" >&6; } GREP="$ac_cv_path_GREP" { $as_echo "$as_me:${as_lineno-$LINENO}: checking for egrep" >&5 $as_echo_n "checking for egrep... " >&6; } if ${ac_cv_path_EGREP+:} false; then : $as_echo_n "(cached) " >&6 else if echo a | $GREP -E '(a|b)' >/dev/null 2>&1 then ac_cv_path_EGREP="$GREP -E" else if test -z "$EGREP"; then ac_path_EGREP_found=false # Loop through the user's path and test for each of PROGNAME-LIST as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_prog in egrep; do for ac_exec_ext in '' $ac_executable_extensions; do ac_path_EGREP="$as_dir/$ac_prog$ac_exec_ext" as_fn_executable_p "$ac_path_EGREP" || continue # Check for GNU ac_path_EGREP and select it if it is found. # Check for GNU $ac_path_EGREP case `"$ac_path_EGREP" --version 2>&1` in *GNU*) ac_cv_path_EGREP="$ac_path_EGREP" ac_path_EGREP_found=:;; *) ac_count=0 $as_echo_n 0123456789 >"conftest.in" while : do cat "conftest.in" "conftest.in" >"conftest.tmp" mv "conftest.tmp" "conftest.in" cp "conftest.in" "conftest.nl" $as_echo 'EGREP' >> "conftest.nl" "$ac_path_EGREP" 'EGREP$' < "conftest.nl" >"conftest.out" 2>/dev/null || break diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break as_fn_arith $ac_count + 1 && ac_count=$as_val if test $ac_count -gt ${ac_path_EGREP_max-0}; then # Best one so far, save it but keep looking for a better one ac_cv_path_EGREP="$ac_path_EGREP" ac_path_EGREP_max=$ac_count fi # 10*(2^10) chars as input seems more than enough test $ac_count -gt 10 && break done rm -f conftest.in conftest.tmp conftest.nl conftest.out;; esac $ac_path_EGREP_found && break 3 done done done IFS=$as_save_IFS if test -z "$ac_cv_path_EGREP"; then as_fn_error $? "no acceptable egrep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5 fi else ac_cv_path_EGREP=$EGREP fi fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_EGREP" >&5 $as_echo "$ac_cv_path_EGREP" >&6; } EGREP="$ac_cv_path_EGREP" { $as_echo "$as_me:${as_lineno-$LINENO}: checking for fgrep" >&5 $as_echo_n "checking for fgrep... " >&6; } if ${ac_cv_path_FGREP+:} false; then : $as_echo_n "(cached) " >&6 else if echo 'ab*c' | $GREP -F 'ab*c' >/dev/null 2>&1 then ac_cv_path_FGREP="$GREP -F" else if test -z "$FGREP"; then ac_path_FGREP_found=false # Loop through the user's path and test for each of PROGNAME-LIST as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_prog in fgrep; do for ac_exec_ext in '' $ac_executable_extensions; do ac_path_FGREP="$as_dir/$ac_prog$ac_exec_ext" as_fn_executable_p "$ac_path_FGREP" || continue # Check for GNU ac_path_FGREP and select it if it is found. # Check for GNU $ac_path_FGREP case `"$ac_path_FGREP" --version 2>&1` in *GNU*) ac_cv_path_FGREP="$ac_path_FGREP" ac_path_FGREP_found=:;; *) ac_count=0 $as_echo_n 0123456789 >"conftest.in" while : do cat "conftest.in" "conftest.in" >"conftest.tmp" mv "conftest.tmp" "conftest.in" cp "conftest.in" "conftest.nl" $as_echo 'FGREP' >> "conftest.nl" "$ac_path_FGREP" FGREP < "conftest.nl" >"conftest.out" 2>/dev/null || break diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break as_fn_arith $ac_count + 1 && ac_count=$as_val if test $ac_count -gt ${ac_path_FGREP_max-0}; then # Best one so far, save it but keep looking for a better one ac_cv_path_FGREP="$ac_path_FGREP" ac_path_FGREP_max=$ac_count fi # 10*(2^10) chars as input seems more than enough test $ac_count -gt 10 && break done rm -f conftest.in conftest.tmp conftest.nl conftest.out;; esac $ac_path_FGREP_found && break 3 done done done IFS=$as_save_IFS if test -z "$ac_cv_path_FGREP"; then as_fn_error $? "no acceptable fgrep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5 fi else ac_cv_path_FGREP=$FGREP fi fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_FGREP" >&5 $as_echo "$ac_cv_path_FGREP" >&6; } FGREP="$ac_cv_path_FGREP" test -z "$GREP" && GREP=grep # Check whether --with-gnu-ld was given. if test "${with_gnu_ld+set}" = set; then : withval=$with_gnu_ld; test no = "$withval" || with_gnu_ld=yes else with_gnu_ld=no fi ac_prog=ld if test yes = "$GCC"; then # Check if gcc -print-prog-name=ld gives a path. { $as_echo "$as_me:${as_lineno-$LINENO}: checking for ld used by $CC" >&5 $as_echo_n "checking for ld used by $CC... " >&6; } case $host in *-*-mingw*) # gcc leaves a trailing carriage return, which upsets mingw ac_prog=`($CC -print-prog-name=ld) 2>&5 | tr -d '\015'` ;; *) ac_prog=`($CC -print-prog-name=ld) 2>&5` ;; esac case $ac_prog in # Accept absolute paths. [\\/]* | ?:[\\/]*) re_direlt='/[^/][^/]*/\.\./' # Canonicalize the pathname of ld ac_prog=`$ECHO "$ac_prog"| $SED 's%\\\\%/%g'` while $ECHO "$ac_prog" | $GREP "$re_direlt" > /dev/null 2>&1; do ac_prog=`$ECHO $ac_prog| $SED "s%$re_direlt%/%"` done test -z "$LD" && LD=$ac_prog ;; "") # If it fails, then pretend we aren't using GCC. ac_prog=ld ;; *) # If it is relative, then search for the first ld in PATH. with_gnu_ld=unknown ;; esac elif test yes = "$with_gnu_ld"; then { $as_echo "$as_me:${as_lineno-$LINENO}: checking for GNU ld" >&5 $as_echo_n "checking for GNU ld... " >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: checking for non-GNU ld" >&5 $as_echo_n "checking for non-GNU ld... " >&6; } fi if ${lt_cv_path_LD+:} false; then : $as_echo_n "(cached) " >&6 else if test -z "$LD"; then lt_save_ifs=$IFS; IFS=$PATH_SEPARATOR for ac_dir in $PATH; do IFS=$lt_save_ifs test -z "$ac_dir" && ac_dir=. if test -f "$ac_dir/$ac_prog" || test -f "$ac_dir/$ac_prog$ac_exeext"; then lt_cv_path_LD=$ac_dir/$ac_prog # Check to see if the program is GNU ld. I'd rather use --version, # but apparently some variants of GNU ld only accept -v. # Break only if it was the GNU/non-GNU ld that we prefer. case `"$lt_cv_path_LD" -v 2>&1 &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 # MSYS converts /dev/null to NUL, MinGW nm treats NUL as empty case $build_os in mingw*) lt_bad_file=conftest.nm/nofile ;; *) lt_bad_file=/dev/null ;; esac case `"$tmp_nm" -B $lt_bad_file 2>&1 | sed '1q'` in *$lt_bad_file* | *'Invalid file or object type'*) lt_cv_path_NM="$tmp_nm -B" break 2 ;; *) case `"$tmp_nm" -p /dev/null 2>&1 | sed '1q'` in */dev/null*) lt_cv_path_NM="$tmp_nm -p" break 2 ;; *) lt_cv_path_NM=${lt_cv_path_NM="$tmp_nm"} # keep the first match, but continue # so that we can try to find one that supports BSD flags ;; esac ;; esac fi done IFS=$lt_save_ifs done : ${lt_cv_path_NM=no} fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_path_NM" >&5 $as_echo "$lt_cv_path_NM" >&6; } if test no != "$lt_cv_path_NM"; then NM=$lt_cv_path_NM else # Didn't find any BSD compatible name lister, look for dumpbin. if test -n "$DUMPBIN"; then : # Let the user override the test. else if test -n "$ac_tool_prefix"; then for ac_prog in dumpbin "link -dump" do # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args. set dummy $ac_tool_prefix$ac_prog; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_DUMPBIN+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$DUMPBIN"; then ac_cv_prog_DUMPBIN="$DUMPBIN" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_DUMPBIN="$ac_tool_prefix$ac_prog" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi DUMPBIN=$ac_cv_prog_DUMPBIN if test -n "$DUMPBIN"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $DUMPBIN" >&5 $as_echo "$DUMPBIN" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$DUMPBIN" && break done fi if test -z "$DUMPBIN"; then ac_ct_DUMPBIN=$DUMPBIN for ac_prog in dumpbin "link -dump" do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_DUMPBIN+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_DUMPBIN"; then ac_cv_prog_ac_ct_DUMPBIN="$ac_ct_DUMPBIN" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_DUMPBIN="$ac_prog" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_DUMPBIN=$ac_cv_prog_ac_ct_DUMPBIN if test -n "$ac_ct_DUMPBIN"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_DUMPBIN" >&5 $as_echo "$ac_ct_DUMPBIN" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$ac_ct_DUMPBIN" && break done if test "x$ac_ct_DUMPBIN" = x; then DUMPBIN=":" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac DUMPBIN=$ac_ct_DUMPBIN fi fi case `$DUMPBIN -symbols -headers /dev/null 2>&1 | sed '1q'` in *COFF*) DUMPBIN="$DUMPBIN -symbols -headers" ;; *) DUMPBIN=: ;; esac fi if test : != "$DUMPBIN"; then NM=$DUMPBIN fi fi test -z "$NM" && NM=nm { $as_echo "$as_me:${as_lineno-$LINENO}: checking the name lister ($NM) interface" >&5 $as_echo_n "checking the name lister ($NM) interface... " >&6; } if ${lt_cv_nm_interface+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_nm_interface="BSD nm" echo "int some_variable = 0;" > conftest.$ac_ext (eval echo "\"\$as_me:$LINENO: $ac_compile\"" >&5) (eval "$ac_compile" 2>conftest.err) cat conftest.err >&5 (eval echo "\"\$as_me:$LINENO: $NM \\\"conftest.$ac_objext\\\"\"" >&5) (eval "$NM \"conftest.$ac_objext\"" 2>conftest.err > conftest.out) cat conftest.err >&5 (eval echo "\"\$as_me:$LINENO: output\"" >&5) cat conftest.out >&5 if $GREP 'External.*some_variable' conftest.out > /dev/null; then lt_cv_nm_interface="MS dumpbin" fi rm -f conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_nm_interface" >&5 $as_echo "$lt_cv_nm_interface" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether ln -s works" >&5 $as_echo_n "checking whether ln -s works... " >&6; } LN_S=$as_ln_s if test "$LN_S" = "ln -s"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no, using $LN_S" >&5 $as_echo "no, using $LN_S" >&6; } fi # find the maximum length of command line arguments { $as_echo "$as_me:${as_lineno-$LINENO}: checking the maximum length of command line arguments" >&5 $as_echo_n "checking the maximum length of command line arguments... " >&6; } if ${lt_cv_sys_max_cmd_len+:} false; then : $as_echo_n "(cached) " >&6 else i=0 teststring=ABCD case $build_os in msdosdjgpp*) # On DJGPP, this test can blow up pretty badly due to problems in libc # (any single argument exceeding 2000 bytes causes a buffer overrun # during glob expansion). Even if it were fixed, the result of this # check would be larger than it should be. lt_cv_sys_max_cmd_len=12288; # 12K is about right ;; gnu*) # Under GNU Hurd, this test is not required because there is # no limit to the length of command line arguments. # Libtool will interpret -1 as no limit whatsoever lt_cv_sys_max_cmd_len=-1; ;; cygwin* | mingw* | cegcc*) # On Win9x/ME, this test blows up -- it succeeds, but takes # about 5 minutes as the teststring grows exponentially. # Worse, since 9x/ME are not pre-emptively multitasking, # you end up with a "frozen" computer, even though with patience # the test eventually succeeds (with a max line length of 256k). # Instead, let's just punt: use the minimum linelength reported by # all of the supported platforms: 8192 (on NT/2K/XP). lt_cv_sys_max_cmd_len=8192; ;; mint*) # On MiNT this can take a long time and run out of memory. lt_cv_sys_max_cmd_len=8192; ;; amigaos*) # On AmigaOS with pdksh, this test takes hours, literally. # So we just punt and use a minimum line length of 8192. lt_cv_sys_max_cmd_len=8192; ;; bitrig* | darwin* | dragonfly* | freebsd* | netbsd* | openbsd*) # This has been around since 386BSD, at least. Likely further. if test -x /sbin/sysctl; then lt_cv_sys_max_cmd_len=`/sbin/sysctl -n kern.argmax` elif test -x /usr/sbin/sysctl; then lt_cv_sys_max_cmd_len=`/usr/sbin/sysctl -n kern.argmax` else lt_cv_sys_max_cmd_len=65536 # usable default for all BSDs fi # And add a safety zone lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 4` lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \* 3` ;; interix*) # We know the value 262144 and hardcode it with a safety zone (like BSD) lt_cv_sys_max_cmd_len=196608 ;; os2*) # The test takes a long time on OS/2. lt_cv_sys_max_cmd_len=8192 ;; osf*) # Dr. Hans Ekkehard Plesser reports seeing a kernel panic running configure # due to this test when exec_disable_arg_limit is 1 on Tru64. It is not # nice to cause kernel panics so lets avoid the loop below. # First set a reasonable default. lt_cv_sys_max_cmd_len=16384 # if test -x /sbin/sysconfig; then case `/sbin/sysconfig -q proc exec_disable_arg_limit` in *1*) lt_cv_sys_max_cmd_len=-1 ;; esac fi ;; sco3.2v5*) lt_cv_sys_max_cmd_len=102400 ;; sysv5* | sco5v6* | sysv4.2uw2*) kargmax=`grep ARG_MAX /etc/conf/cf.d/stune 2>/dev/null` if test -n "$kargmax"; then lt_cv_sys_max_cmd_len=`echo $kargmax | sed 's/.*[ ]//'` else lt_cv_sys_max_cmd_len=32768 fi ;; *) lt_cv_sys_max_cmd_len=`(getconf ARG_MAX) 2> /dev/null` if test -n "$lt_cv_sys_max_cmd_len" && \ test undefined != "$lt_cv_sys_max_cmd_len"; then lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 4` lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \* 3` else # Make teststring a little bigger before we do anything with it. # a 1K string should be a reasonable start. for i in 1 2 3 4 5 6 7 8; do teststring=$teststring$teststring done SHELL=${SHELL-${CONFIG_SHELL-/bin/sh}} # If test is not a shell built-in, we'll probably end up computing a # maximum length that is only half of the actual maximum length, but # we can't tell. while { test X`env echo "$teststring$teststring" 2>/dev/null` \ = "X$teststring$teststring"; } >/dev/null 2>&1 && test 17 != "$i" # 1/2 MB should be enough do i=`expr $i + 1` teststring=$teststring$teststring done # Only check the string length outside the loop. lt_cv_sys_max_cmd_len=`expr "X$teststring" : ".*" 2>&1` teststring= # Add a significant safety factor because C++ compilers can tack on # massive amounts of additional arguments before passing them to the # linker. It appears as though 1/2 is a usable value. lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 2` fi ;; esac fi if test -n "$lt_cv_sys_max_cmd_len"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_sys_max_cmd_len" >&5 $as_echo "$lt_cv_sys_max_cmd_len" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: none" >&5 $as_echo "none" >&6; } fi max_cmd_len=$lt_cv_sys_max_cmd_len : ${CP="cp -f"} : ${MV="mv -f"} : ${RM="rm -f"} if ( (MAIL=60; unset MAIL) || exit) >/dev/null 2>&1; then lt_unset=unset else lt_unset=false fi # test EBCDIC or ASCII case `echo X|tr X '\101'` in A) # ASCII based system # \n is not interpreted correctly by Solaris 8 /usr/ucb/tr lt_SP2NL='tr \040 \012' lt_NL2SP='tr \015\012 \040\040' ;; *) # EBCDIC based system lt_SP2NL='tr \100 \n' lt_NL2SP='tr \r\n \100\100' ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to convert $build file names to $host format" >&5 $as_echo_n "checking how to convert $build file names to $host format... " >&6; } if ${lt_cv_to_host_file_cmd+:} false; then : $as_echo_n "(cached) " >&6 else case $host in *-*-mingw* ) case $build in *-*-mingw* ) # actually msys lt_cv_to_host_file_cmd=func_convert_file_msys_to_w32 ;; *-*-cygwin* ) lt_cv_to_host_file_cmd=func_convert_file_cygwin_to_w32 ;; * ) # otherwise, assume *nix lt_cv_to_host_file_cmd=func_convert_file_nix_to_w32 ;; esac ;; *-*-cygwin* ) case $build in *-*-mingw* ) # actually msys lt_cv_to_host_file_cmd=func_convert_file_msys_to_cygwin ;; *-*-cygwin* ) lt_cv_to_host_file_cmd=func_convert_file_noop ;; * ) # otherwise, assume *nix lt_cv_to_host_file_cmd=func_convert_file_nix_to_cygwin ;; esac ;; * ) # unhandled hosts (and "normal" native builds) lt_cv_to_host_file_cmd=func_convert_file_noop ;; esac fi to_host_file_cmd=$lt_cv_to_host_file_cmd { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_to_host_file_cmd" >&5 $as_echo "$lt_cv_to_host_file_cmd" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to convert $build file names to toolchain format" >&5 $as_echo_n "checking how to convert $build file names to toolchain format... " >&6; } if ${lt_cv_to_tool_file_cmd+:} false; then : $as_echo_n "(cached) " >&6 else #assume ordinary cross tools, or native build. lt_cv_to_tool_file_cmd=func_convert_file_noop case $host in *-*-mingw* ) case $build in *-*-mingw* ) # actually msys lt_cv_to_tool_file_cmd=func_convert_file_msys_to_w32 ;; esac ;; esac fi to_tool_file_cmd=$lt_cv_to_tool_file_cmd { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_to_tool_file_cmd" >&5 $as_echo "$lt_cv_to_tool_file_cmd" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $LD option to reload object files" >&5 $as_echo_n "checking for $LD option to reload object files... " >&6; } if ${lt_cv_ld_reload_flag+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_ld_reload_flag='-r' fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_ld_reload_flag" >&5 $as_echo "$lt_cv_ld_reload_flag" >&6; } reload_flag=$lt_cv_ld_reload_flag case $reload_flag in "" | " "*) ;; *) reload_flag=" $reload_flag" ;; esac reload_cmds='$LD$reload_flag -o $output$reload_objs' case $host_os in cygwin* | mingw* | pw32* | cegcc*) if test yes != "$GCC"; then reload_cmds=false fi ;; darwin*) if test yes = "$GCC"; then reload_cmds='$LTCC $LTCFLAGS -nostdlib $wl-r -o $output$reload_objs' else reload_cmds='$LD$reload_flag -o $output$reload_objs' fi ;; esac if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}objdump", so it can be a program name with args. set dummy ${ac_tool_prefix}objdump; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_OBJDUMP+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$OBJDUMP"; then ac_cv_prog_OBJDUMP="$OBJDUMP" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_OBJDUMP="${ac_tool_prefix}objdump" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi OBJDUMP=$ac_cv_prog_OBJDUMP if test -n "$OBJDUMP"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $OBJDUMP" >&5 $as_echo "$OBJDUMP" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_OBJDUMP"; then ac_ct_OBJDUMP=$OBJDUMP # Extract the first word of "objdump", so it can be a program name with args. set dummy objdump; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_OBJDUMP+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_OBJDUMP"; then ac_cv_prog_ac_ct_OBJDUMP="$ac_ct_OBJDUMP" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_OBJDUMP="objdump" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_OBJDUMP=$ac_cv_prog_ac_ct_OBJDUMP if test -n "$ac_ct_OBJDUMP"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_OBJDUMP" >&5 $as_echo "$ac_ct_OBJDUMP" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_OBJDUMP" = x; then OBJDUMP="false" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac OBJDUMP=$ac_ct_OBJDUMP fi else OBJDUMP="$ac_cv_prog_OBJDUMP" fi test -z "$OBJDUMP" && OBJDUMP=objdump { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to recognize dependent libraries" >&5 $as_echo_n "checking how to recognize dependent libraries... " >&6; } if ${lt_cv_deplibs_check_method+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_file_magic_cmd='$MAGIC_CMD' lt_cv_file_magic_test_file= lt_cv_deplibs_check_method='unknown' # Need to set the preceding variable on all platforms that support # interlibrary dependencies. # 'none' -- dependencies not supported. # 'unknown' -- same as none, but documents that we really don't know. # 'pass_all' -- all dependencies passed with no checks. # 'test_compile' -- check by making test program. # 'file_magic [[regex]]' -- check by looking for files in library path # that responds to the $file_magic_cmd with a given extended regex. # If you have 'file' or equivalent on your system and you're not sure # whether 'pass_all' will *always* work, you probably want this one. case $host_os in aix[4-9]*) lt_cv_deplibs_check_method=pass_all ;; beos*) lt_cv_deplibs_check_method=pass_all ;; bsdi[45]*) lt_cv_deplibs_check_method='file_magic ELF [0-9][0-9]*-bit [ML]SB (shared object|dynamic lib)' lt_cv_file_magic_cmd='/usr/bin/file -L' lt_cv_file_magic_test_file=/shlib/libc.so ;; cygwin*) # func_win32_libid is a shell function defined in ltmain.sh lt_cv_deplibs_check_method='file_magic ^x86 archive import|^x86 DLL' lt_cv_file_magic_cmd='func_win32_libid' ;; mingw* | pw32*) # Base MSYS/MinGW do not provide the 'file' command needed by # func_win32_libid shell function, so use a weaker test based on 'objdump', # unless we find 'file', for example because we are cross-compiling. if ( file / ) >/dev/null 2>&1; then lt_cv_deplibs_check_method='file_magic ^x86 archive import|^x86 DLL' lt_cv_file_magic_cmd='func_win32_libid' else # Keep this pattern in sync with the one in func_win32_libid. lt_cv_deplibs_check_method='file_magic file format (pei*-i386(.*architecture: i386)?|pe-arm-wince|pe-x86-64)' lt_cv_file_magic_cmd='$OBJDUMP -f' fi ;; cegcc*) # use the weaker test based on 'objdump'. See mingw*. lt_cv_deplibs_check_method='file_magic file format pe-arm-.*little(.*architecture: arm)?' lt_cv_file_magic_cmd='$OBJDUMP -f' ;; darwin* | rhapsody*) lt_cv_deplibs_check_method=pass_all ;; freebsd* | dragonfly*) if echo __ELF__ | $CC -E - | $GREP __ELF__ > /dev/null; then case $host_cpu in i*86 ) # Not sure whether the presence of OpenBSD here was a mistake. # Let's accept both of them until this is cleared up. lt_cv_deplibs_check_method='file_magic (FreeBSD|OpenBSD|DragonFly)/i[3-9]86 (compact )?demand paged shared library' lt_cv_file_magic_cmd=/usr/bin/file lt_cv_file_magic_test_file=`echo /usr/lib/libc.so.*` ;; esac else lt_cv_deplibs_check_method=pass_all fi ;; haiku*) lt_cv_deplibs_check_method=pass_all ;; hpux10.20* | hpux11*) lt_cv_file_magic_cmd=/usr/bin/file case $host_cpu in ia64*) lt_cv_deplibs_check_method='file_magic (s[0-9][0-9][0-9]|ELF-[0-9][0-9]) shared object file - IA64' lt_cv_file_magic_test_file=/usr/lib/hpux32/libc.so ;; hppa*64*) lt_cv_deplibs_check_method='file_magic (s[0-9][0-9][0-9]|ELF[ -][0-9][0-9])(-bit)?( [LM]SB)? shared object( file)?[, -]* PA-RISC [0-9]\.[0-9]' lt_cv_file_magic_test_file=/usr/lib/pa20_64/libc.sl ;; *) lt_cv_deplibs_check_method='file_magic (s[0-9][0-9][0-9]|PA-RISC[0-9]\.[0-9]) shared library' lt_cv_file_magic_test_file=/usr/lib/libc.sl ;; esac ;; interix[3-9]*) # PIC code is broken on Interix 3.x, that's why |\.a not |_pic\.a here lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so|\.a)$' ;; irix5* | irix6* | nonstopux*) case $LD in *-32|*"-32 ") libmagic=32-bit;; *-n32|*"-n32 ") libmagic=N32;; *-64|*"-64 ") libmagic=64-bit;; *) libmagic=never-match;; esac lt_cv_deplibs_check_method=pass_all ;; # This must be glibc/ELF. linux* | k*bsd*-gnu | kopensolaris*-gnu | gnu*) lt_cv_deplibs_check_method=pass_all ;; netbsd*) if echo __ELF__ | $CC -E - | $GREP __ELF__ > /dev/null; then lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so\.[0-9]+\.[0-9]+|_pic\.a)$' else lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so|_pic\.a)$' fi ;; newos6*) lt_cv_deplibs_check_method='file_magic ELF [0-9][0-9]*-bit [ML]SB (executable|dynamic lib)' lt_cv_file_magic_cmd=/usr/bin/file lt_cv_file_magic_test_file=/usr/lib/libnls.so ;; *nto* | *qnx*) lt_cv_deplibs_check_method=pass_all ;; openbsd* | bitrig*) if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`"; then lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so\.[0-9]+\.[0-9]+|\.so|_pic\.a)$' else lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so\.[0-9]+\.[0-9]+|_pic\.a)$' fi ;; osf3* | osf4* | osf5*) lt_cv_deplibs_check_method=pass_all ;; rdos*) lt_cv_deplibs_check_method=pass_all ;; solaris*) lt_cv_deplibs_check_method=pass_all ;; sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX* | sysv4*uw2*) lt_cv_deplibs_check_method=pass_all ;; sysv4 | sysv4.3*) case $host_vendor in motorola) lt_cv_deplibs_check_method='file_magic ELF [0-9][0-9]*-bit [ML]SB (shared object|dynamic lib) M[0-9][0-9]* Version [0-9]' lt_cv_file_magic_test_file=`echo /usr/lib/libc.so*` ;; ncr) lt_cv_deplibs_check_method=pass_all ;; sequent) lt_cv_file_magic_cmd='/bin/file' lt_cv_deplibs_check_method='file_magic ELF [0-9][0-9]*-bit [LM]SB (shared object|dynamic lib )' ;; sni) lt_cv_file_magic_cmd='/bin/file' lt_cv_deplibs_check_method="file_magic ELF [0-9][0-9]*-bit [LM]SB dynamic lib" lt_cv_file_magic_test_file=/lib/libc.so ;; siemens) lt_cv_deplibs_check_method=pass_all ;; pc) lt_cv_deplibs_check_method=pass_all ;; esac ;; tpf*) lt_cv_deplibs_check_method=pass_all ;; os2*) lt_cv_deplibs_check_method=pass_all ;; esac fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_deplibs_check_method" >&5 $as_echo "$lt_cv_deplibs_check_method" >&6; } file_magic_glob= want_nocaseglob=no if test "$build" = "$host"; then case $host_os in mingw* | pw32*) if ( shopt | grep nocaseglob ) >/dev/null 2>&1; then want_nocaseglob=yes else file_magic_glob=`echo aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ | $SED -e "s/\(..\)/s\/[\1]\/[\1]\/g;/g"` fi ;; esac fi file_magic_cmd=$lt_cv_file_magic_cmd deplibs_check_method=$lt_cv_deplibs_check_method test -z "$deplibs_check_method" && deplibs_check_method=unknown if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}dlltool", so it can be a program name with args. set dummy ${ac_tool_prefix}dlltool; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_DLLTOOL+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$DLLTOOL"; then ac_cv_prog_DLLTOOL="$DLLTOOL" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_DLLTOOL="${ac_tool_prefix}dlltool" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi DLLTOOL=$ac_cv_prog_DLLTOOL if test -n "$DLLTOOL"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $DLLTOOL" >&5 $as_echo "$DLLTOOL" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_DLLTOOL"; then ac_ct_DLLTOOL=$DLLTOOL # Extract the first word of "dlltool", so it can be a program name with args. set dummy dlltool; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_DLLTOOL+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_DLLTOOL"; then ac_cv_prog_ac_ct_DLLTOOL="$ac_ct_DLLTOOL" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_DLLTOOL="dlltool" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_DLLTOOL=$ac_cv_prog_ac_ct_DLLTOOL if test -n "$ac_ct_DLLTOOL"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_DLLTOOL" >&5 $as_echo "$ac_ct_DLLTOOL" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_DLLTOOL" = x; then DLLTOOL="false" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac DLLTOOL=$ac_ct_DLLTOOL fi else DLLTOOL="$ac_cv_prog_DLLTOOL" fi test -z "$DLLTOOL" && DLLTOOL=dlltool { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to associate runtime and link libraries" >&5 $as_echo_n "checking how to associate runtime and link libraries... " >&6; } if ${lt_cv_sharedlib_from_linklib_cmd+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_sharedlib_from_linklib_cmd='unknown' case $host_os in cygwin* | mingw* | pw32* | cegcc*) # two different shell functions defined in ltmain.sh; # decide which one to use based on capabilities of $DLLTOOL case `$DLLTOOL --help 2>&1` in *--identify-strict*) lt_cv_sharedlib_from_linklib_cmd=func_cygming_dll_for_implib ;; *) lt_cv_sharedlib_from_linklib_cmd=func_cygming_dll_for_implib_fallback ;; esac ;; *) # fallback: assume linklib IS sharedlib lt_cv_sharedlib_from_linklib_cmd=$ECHO ;; esac fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_sharedlib_from_linklib_cmd" >&5 $as_echo "$lt_cv_sharedlib_from_linklib_cmd" >&6; } sharedlib_from_linklib_cmd=$lt_cv_sharedlib_from_linklib_cmd test -z "$sharedlib_from_linklib_cmd" && sharedlib_from_linklib_cmd=$ECHO if test -n "$ac_tool_prefix"; then for ac_prog in ar do # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args. set dummy $ac_tool_prefix$ac_prog; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_AR+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$AR"; then ac_cv_prog_AR="$AR" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_AR="$ac_tool_prefix$ac_prog" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi AR=$ac_cv_prog_AR if test -n "$AR"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $AR" >&5 $as_echo "$AR" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$AR" && break done fi if test -z "$AR"; then ac_ct_AR=$AR for ac_prog in ar do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_AR+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_AR"; then ac_cv_prog_ac_ct_AR="$ac_ct_AR" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_AR="$ac_prog" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_AR=$ac_cv_prog_ac_ct_AR if test -n "$ac_ct_AR"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_AR" >&5 $as_echo "$ac_ct_AR" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$ac_ct_AR" && break done if test "x$ac_ct_AR" = x; then AR="false" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac AR=$ac_ct_AR fi fi : ${AR=ar} : ${AR_FLAGS=cru} { $as_echo "$as_me:${as_lineno-$LINENO}: checking for archiver @FILE support" >&5 $as_echo_n "checking for archiver @FILE support... " >&6; } if ${lt_cv_ar_at_file+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_ar_at_file=no cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : echo conftest.$ac_objext > conftest.lst lt_ar_try='$AR $AR_FLAGS libconftest.a @conftest.lst >&5' { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$lt_ar_try\""; } >&5 (eval $lt_ar_try) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } if test 0 -eq "$ac_status"; then # Ensure the archiver fails upon bogus file names. rm -f conftest.$ac_objext libconftest.a { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$lt_ar_try\""; } >&5 (eval $lt_ar_try) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } if test 0 -ne "$ac_status"; then lt_cv_ar_at_file=@ fi fi rm -f conftest.* libconftest.a fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_ar_at_file" >&5 $as_echo "$lt_cv_ar_at_file" >&6; } if test no = "$lt_cv_ar_at_file"; then archiver_list_spec= else archiver_list_spec=$lt_cv_ar_at_file fi if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}strip", so it can be a program name with args. set dummy ${ac_tool_prefix}strip; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_STRIP+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$STRIP"; then ac_cv_prog_STRIP="$STRIP" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_STRIP="${ac_tool_prefix}strip" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi STRIP=$ac_cv_prog_STRIP if test -n "$STRIP"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $STRIP" >&5 $as_echo "$STRIP" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_STRIP"; then ac_ct_STRIP=$STRIP # Extract the first word of "strip", so it can be a program name with args. set dummy strip; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_STRIP+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_STRIP"; then ac_cv_prog_ac_ct_STRIP="$ac_ct_STRIP" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_STRIP="strip" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_STRIP=$ac_cv_prog_ac_ct_STRIP if test -n "$ac_ct_STRIP"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_STRIP" >&5 $as_echo "$ac_ct_STRIP" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_STRIP" = x; then STRIP=":" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac STRIP=$ac_ct_STRIP fi else STRIP="$ac_cv_prog_STRIP" fi test -z "$STRIP" && STRIP=: if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}ranlib", so it can be a program name with args. set dummy ${ac_tool_prefix}ranlib; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_RANLIB+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$RANLIB"; then ac_cv_prog_RANLIB="$RANLIB" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_RANLIB="${ac_tool_prefix}ranlib" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi RANLIB=$ac_cv_prog_RANLIB if test -n "$RANLIB"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $RANLIB" >&5 $as_echo "$RANLIB" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_RANLIB"; then ac_ct_RANLIB=$RANLIB # Extract the first word of "ranlib", so it can be a program name with args. set dummy ranlib; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_RANLIB+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_RANLIB"; then ac_cv_prog_ac_ct_RANLIB="$ac_ct_RANLIB" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_RANLIB="ranlib" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_RANLIB=$ac_cv_prog_ac_ct_RANLIB if test -n "$ac_ct_RANLIB"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_RANLIB" >&5 $as_echo "$ac_ct_RANLIB" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_RANLIB" = x; then RANLIB=":" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac RANLIB=$ac_ct_RANLIB fi else RANLIB="$ac_cv_prog_RANLIB" fi test -z "$RANLIB" && RANLIB=: # Determine commands to create old-style static archives. old_archive_cmds='$AR $AR_FLAGS $oldlib$oldobjs' old_postinstall_cmds='chmod 644 $oldlib' old_postuninstall_cmds= if test -n "$RANLIB"; then case $host_os in bitrig* | openbsd*) old_postinstall_cmds="$old_postinstall_cmds~\$RANLIB -t \$tool_oldlib" ;; *) old_postinstall_cmds="$old_postinstall_cmds~\$RANLIB \$tool_oldlib" ;; esac old_archive_cmds="$old_archive_cmds~\$RANLIB \$tool_oldlib" fi case $host_os in darwin*) lock_old_archive_extraction=yes ;; *) lock_old_archive_extraction=no ;; esac # If no C compiler was specified, use CC. LTCC=${LTCC-"$CC"} # If no C compiler flags were specified, use CFLAGS. LTCFLAGS=${LTCFLAGS-"$CFLAGS"} # Allow CC to be a program name with arguments. compiler=$CC # Check for command to grab the raw symbol name followed by C symbol from nm. { $as_echo "$as_me:${as_lineno-$LINENO}: checking command to parse $NM output from $compiler object" >&5 $as_echo_n "checking command to parse $NM output from $compiler object... " >&6; } if ${lt_cv_sys_global_symbol_pipe+:} false; then : $as_echo_n "(cached) " >&6 else # These are sane defaults that work on at least a few old systems. # [They come from Ultrix. What could be older than Ultrix?!! ;)] # Character class describing NM global symbol codes. symcode='[BCDEGRST]' # Regexp to match symbols that can be accessed directly from C. sympat='\([_A-Za-z][_A-Za-z0-9]*\)' # Define system-specific variables. case $host_os in aix*) symcode='[BCDT]' ;; cygwin* | mingw* | pw32* | cegcc*) symcode='[ABCDGISTW]' ;; hpux*) if test ia64 = "$host_cpu"; then symcode='[ABCDEGRST]' fi ;; irix* | nonstopux*) symcode='[BCDEGRST]' ;; osf*) symcode='[BCDEGQRST]' ;; solaris*) symcode='[BDRT]' ;; sco3.2v5*) symcode='[DT]' ;; sysv4.2uw2*) symcode='[DT]' ;; sysv5* | sco5v6* | unixware* | OpenUNIX*) symcode='[ABDT]' ;; sysv4) symcode='[DFNSTU]' ;; esac # If we're using GNU nm, then use its standard symbol codes. case `$NM -V 2>&1` in *GNU* | *'with BFD'*) symcode='[ABCDGIRSTW]' ;; esac if test "$lt_cv_nm_interface" = "MS dumpbin"; then # Gets list of data symbols to import. lt_cv_sys_global_symbol_to_import="sed -n -e 's/^I .* \(.*\)$/\1/p'" # Adjust the below global symbol transforms to fixup imported variables. lt_cdecl_hook=" -e 's/^I .* \(.*\)$/extern __declspec(dllimport) char \1;/p'" lt_c_name_hook=" -e 's/^I .* \(.*\)$/ {\"\1\", (void *) 0},/p'" lt_c_name_lib_hook="\ -e 's/^I .* \(lib.*\)$/ {\"\1\", (void *) 0},/p'\ -e 's/^I .* \(.*\)$/ {\"lib\1\", (void *) 0},/p'" else # Disable hooks by default. lt_cv_sys_global_symbol_to_import= lt_cdecl_hook= lt_c_name_hook= lt_c_name_lib_hook= fi # Transform an extracted symbol line into a proper C declaration. # Some systems (esp. on ia64) link data and code symbols differently, # so use this general approach. lt_cv_sys_global_symbol_to_cdecl="sed -n"\ $lt_cdecl_hook\ " -e 's/^T .* \(.*\)$/extern int \1();/p'"\ " -e 's/^$symcode$symcode* .* \(.*\)$/extern char \1;/p'" # Transform an extracted symbol line into symbol name and symbol address lt_cv_sys_global_symbol_to_c_name_address="sed -n"\ $lt_c_name_hook\ " -e 's/^: \(.*\) .*$/ {\"\1\", (void *) 0},/p'"\ " -e 's/^$symcode$symcode* .* \(.*\)$/ {\"\1\", (void *) \&\1},/p'" # Transform an extracted symbol line into symbol name with lib prefix and # symbol address. lt_cv_sys_global_symbol_to_c_name_address_lib_prefix="sed -n"\ $lt_c_name_lib_hook\ " -e 's/^: \(.*\) .*$/ {\"\1\", (void *) 0},/p'"\ " -e 's/^$symcode$symcode* .* \(lib.*\)$/ {\"\1\", (void *) \&\1},/p'"\ " -e 's/^$symcode$symcode* .* \(.*\)$/ {\"lib\1\", (void *) \&\1},/p'" # Handle CRLF in mingw tool chain opt_cr= case $build_os in mingw*) opt_cr=`$ECHO 'x\{0,1\}' | tr x '\015'` # option cr in regexp ;; esac # Try without a prefix underscore, then with it. for ac_symprfx in "" "_"; do # Transform symcode, sympat, and symprfx into a raw symbol and a C symbol. symxfrm="\\1 $ac_symprfx\\2 \\2" # Write the raw and C identifiers. if test "$lt_cv_nm_interface" = "MS dumpbin"; then # Fake it for dumpbin and say T for any non-static function, # D for any global variable and I for any imported variable. # Also find C++ and __fastcall symbols from MSVC++, # which start with @ or ?. lt_cv_sys_global_symbol_pipe="$AWK '"\ " {last_section=section; section=\$ 3};"\ " /^COFF SYMBOL TABLE/{for(i in hide) delete hide[i]};"\ " /Section length .*#relocs.*(pick any)/{hide[last_section]=1};"\ " /^ *Symbol name *: /{split(\$ 0,sn,\":\"); si=substr(sn[2],2)};"\ " /^ *Type *: code/{print \"T\",si,substr(si,length(prfx))};"\ " /^ *Type *: data/{print \"I\",si,substr(si,length(prfx))};"\ " \$ 0!~/External *\|/{next};"\ " / 0+ UNDEF /{next}; / UNDEF \([^|]\)*()/{next};"\ " {if(hide[section]) next};"\ " {f=\"D\"}; \$ 0~/\(\).*\|/{f=\"T\"};"\ " {split(\$ 0,a,/\||\r/); split(a[2],s)};"\ " s[1]~/^[@?]/{print f,s[1],s[1]; next};"\ " s[1]~prfx {split(s[1],t,\"@\"); print f,t[1],substr(t[1],length(prfx))}"\ " ' prfx=^$ac_symprfx" else lt_cv_sys_global_symbol_pipe="sed -n -e 's/^.*[ ]\($symcode$symcode*\)[ ][ ]*$ac_symprfx$sympat$opt_cr$/$symxfrm/p'" fi lt_cv_sys_global_symbol_pipe="$lt_cv_sys_global_symbol_pipe | sed '/ __gnu_lto/d'" # Check to see that the pipe works correctly. pipe_works=no rm -f conftest* cat > conftest.$ac_ext <<_LT_EOF #ifdef __cplusplus extern "C" { #endif char nm_test_var; void nm_test_func(void); void nm_test_func(void){} #ifdef __cplusplus } #endif int main(){nm_test_var='a';nm_test_func();return(0);} _LT_EOF if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5 (eval $ac_compile) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then # Now try to grab the symbols. nlist=conftest.nm if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$NM conftest.$ac_objext \| "$lt_cv_sys_global_symbol_pipe" \> $nlist\""; } >&5 (eval $NM conftest.$ac_objext \| "$lt_cv_sys_global_symbol_pipe" \> $nlist) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && test -s "$nlist"; then # Try sorting and uniquifying the output. if sort "$nlist" | uniq > "$nlist"T; then mv -f "$nlist"T "$nlist" else rm -f "$nlist"T fi # Make sure that we snagged all the symbols we need. if $GREP ' nm_test_var$' "$nlist" >/dev/null; then if $GREP ' nm_test_func$' "$nlist" >/dev/null; then cat <<_LT_EOF > conftest.$ac_ext /* Keep this code in sync between libtool.m4, ltmain, lt_system.h, and tests. */ #if defined _WIN32 || defined __CYGWIN__ || defined _WIN32_WCE /* DATA imports from DLLs on WIN32 can't be const, because runtime relocations are performed -- see ld's documentation on pseudo-relocs. */ # define LT_DLSYM_CONST #elif defined __osf__ /* This system does not cope well with relocations in const data. */ # define LT_DLSYM_CONST #else # define LT_DLSYM_CONST const #endif #ifdef __cplusplus extern "C" { #endif _LT_EOF # Now generate the symbol file. eval "$lt_cv_sys_global_symbol_to_cdecl"' < "$nlist" | $GREP -v main >> conftest.$ac_ext' cat <<_LT_EOF >> conftest.$ac_ext /* The mapping between symbol names and symbols. */ LT_DLSYM_CONST struct { const char *name; void *address; } lt__PROGRAM__LTX_preloaded_symbols[] = { { "@PROGRAM@", (void *) 0 }, _LT_EOF $SED "s/^$symcode$symcode* .* \(.*\)$/ {\"\1\", (void *) \&\1},/" < "$nlist" | $GREP -v main >> conftest.$ac_ext cat <<\_LT_EOF >> conftest.$ac_ext {0, (void *) 0} }; /* This works around a problem in FreeBSD linker */ #ifdef FREEBSD_WORKAROUND static const void *lt_preloaded_setup() { return lt__PROGRAM__LTX_preloaded_symbols; } #endif #ifdef __cplusplus } #endif _LT_EOF # Now try linking the two files. mv conftest.$ac_objext conftstm.$ac_objext lt_globsym_save_LIBS=$LIBS lt_globsym_save_CFLAGS=$CFLAGS LIBS=conftstm.$ac_objext CFLAGS="$CFLAGS$lt_prog_compiler_no_builtin_flag" if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_link\""; } >&5 (eval $ac_link) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && test -s conftest$ac_exeext; then pipe_works=yes fi LIBS=$lt_globsym_save_LIBS CFLAGS=$lt_globsym_save_CFLAGS else echo "cannot find nm_test_func in $nlist" >&5 fi else echo "cannot find nm_test_var in $nlist" >&5 fi else echo "cannot run $lt_cv_sys_global_symbol_pipe" >&5 fi else echo "$progname: failed program was:" >&5 cat conftest.$ac_ext >&5 fi rm -rf conftest* conftst* # Do not use the global_symbol_pipe unless it works. if test yes = "$pipe_works"; then break else lt_cv_sys_global_symbol_pipe= fi done fi if test -z "$lt_cv_sys_global_symbol_pipe"; then lt_cv_sys_global_symbol_to_cdecl= fi if test -z "$lt_cv_sys_global_symbol_pipe$lt_cv_sys_global_symbol_to_cdecl"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: failed" >&5 $as_echo "failed" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: ok" >&5 $as_echo "ok" >&6; } fi # Response file support. if test "$lt_cv_nm_interface" = "MS dumpbin"; then nm_file_list_spec='@' elif $NM --help 2>/dev/null | grep '[@]FILE' >/dev/null; then nm_file_list_spec='@' fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for sysroot" >&5 $as_echo_n "checking for sysroot... " >&6; } # Check whether --with-sysroot was given. if test "${with_sysroot+set}" = set; then : withval=$with_sysroot; else with_sysroot=no fi lt_sysroot= case $with_sysroot in #( yes) if test yes = "$GCC"; then lt_sysroot=`$CC --print-sysroot 2>/dev/null` fi ;; #( /*) lt_sysroot=`echo "$with_sysroot" | sed -e "$sed_quote_subst"` ;; #( no|'') ;; #( *) { $as_echo "$as_me:${as_lineno-$LINENO}: result: $with_sysroot" >&5 $as_echo "$with_sysroot" >&6; } as_fn_error $? "The sysroot must be an absolute path." "$LINENO" 5 ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: result: ${lt_sysroot:-no}" >&5 $as_echo "${lt_sysroot:-no}" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking for a working dd" >&5 $as_echo_n "checking for a working dd... " >&6; } if ${ac_cv_path_lt_DD+:} false; then : $as_echo_n "(cached) " >&6 else printf 0123456789abcdef0123456789abcdef >conftest.i cat conftest.i conftest.i >conftest2.i : ${lt_DD:=$DD} if test -z "$lt_DD"; then ac_path_lt_DD_found=false # Loop through the user's path and test for each of PROGNAME-LIST as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_prog in dd; do for ac_exec_ext in '' $ac_executable_extensions; do ac_path_lt_DD="$as_dir/$ac_prog$ac_exec_ext" as_fn_executable_p "$ac_path_lt_DD" || continue if "$ac_path_lt_DD" bs=32 count=1 conftest.out 2>/dev/null; then cmp -s conftest.i conftest.out \ && ac_cv_path_lt_DD="$ac_path_lt_DD" ac_path_lt_DD_found=: fi $ac_path_lt_DD_found && break 3 done done done IFS=$as_save_IFS if test -z "$ac_cv_path_lt_DD"; then : fi else ac_cv_path_lt_DD=$lt_DD fi rm -f conftest.i conftest2.i conftest.out fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_lt_DD" >&5 $as_echo "$ac_cv_path_lt_DD" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to truncate binary pipes" >&5 $as_echo_n "checking how to truncate binary pipes... " >&6; } if ${lt_cv_truncate_bin+:} false; then : $as_echo_n "(cached) " >&6 else printf 0123456789abcdef0123456789abcdef >conftest.i cat conftest.i conftest.i >conftest2.i lt_cv_truncate_bin= if "$ac_cv_path_lt_DD" bs=32 count=1 conftest.out 2>/dev/null; then cmp -s conftest.i conftest.out \ && lt_cv_truncate_bin="$ac_cv_path_lt_DD bs=4096 count=1" fi rm -f conftest.i conftest2.i conftest.out test -z "$lt_cv_truncate_bin" && lt_cv_truncate_bin="$SED -e 4q" fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_truncate_bin" >&5 $as_echo "$lt_cv_truncate_bin" >&6; } # Calculate cc_basename. Skip known compiler wrappers and cross-prefix. func_cc_basename () { for cc_temp in $*""; do case $cc_temp in compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; \-*) ;; *) break;; esac done func_cc_basename_result=`$ECHO "$cc_temp" | $SED "s%.*/%%; s%^$host_alias-%%"` } # Check whether --enable-libtool-lock was given. if test "${enable_libtool_lock+set}" = set; then : enableval=$enable_libtool_lock; fi test no = "$enable_libtool_lock" || enable_libtool_lock=yes # Some flags need to be propagated to the compiler or linker for good # libtool support. case $host in ia64-*-hpux*) # Find out what ABI is being produced by ac_compile, and set mode # options accordingly. echo 'int i;' > conftest.$ac_ext if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5 (eval $ac_compile) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then case `/usr/bin/file conftest.$ac_objext` in *ELF-32*) HPUX_IA64_MODE=32 ;; *ELF-64*) HPUX_IA64_MODE=64 ;; esac fi rm -rf conftest* ;; *-*-irix6*) # Find out what ABI is being produced by ac_compile, and set linker # options accordingly. echo '#line '$LINENO' "configure"' > conftest.$ac_ext if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5 (eval $ac_compile) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then if test yes = "$lt_cv_prog_gnu_ld"; then case `/usr/bin/file conftest.$ac_objext` in *32-bit*) LD="${LD-ld} -melf32bsmip" ;; *N32*) LD="${LD-ld} -melf32bmipn32" ;; *64-bit*) LD="${LD-ld} -melf64bmip" ;; esac else case `/usr/bin/file conftest.$ac_objext` in *32-bit*) LD="${LD-ld} -32" ;; *N32*) LD="${LD-ld} -n32" ;; *64-bit*) LD="${LD-ld} -64" ;; esac fi fi rm -rf conftest* ;; mips64*-*linux*) # Find out what ABI is being produced by ac_compile, and set linker # options accordingly. echo '#line '$LINENO' "configure"' > conftest.$ac_ext if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5 (eval $ac_compile) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then emul=elf case `/usr/bin/file conftest.$ac_objext` in *32-bit*) emul="${emul}32" ;; *64-bit*) emul="${emul}64" ;; esac case `/usr/bin/file conftest.$ac_objext` in *MSB*) emul="${emul}btsmip" ;; *LSB*) emul="${emul}ltsmip" ;; esac case `/usr/bin/file conftest.$ac_objext` in *N32*) emul="${emul}n32" ;; esac LD="${LD-ld} -m $emul" fi rm -rf conftest* ;; x86_64-*kfreebsd*-gnu|x86_64-*linux*|powerpc*-*linux*| \ s390*-*linux*|s390*-*tpf*|sparc*-*linux*) # Find out what ABI is being produced by ac_compile, and set linker # options accordingly. Note that the listed cases only cover the # situations where additional linker options are needed (such as when # doing 32-bit compilation for a host where ld defaults to 64-bit, or # vice versa); the common cases where no linker options are needed do # not appear in the list. echo 'int i;' > conftest.$ac_ext if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5 (eval $ac_compile) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then case `/usr/bin/file conftest.o` in *32-bit*) case $host in x86_64-*kfreebsd*-gnu) LD="${LD-ld} -m elf_i386_fbsd" ;; x86_64-*linux*) case `/usr/bin/file conftest.o` in *x86-64*) LD="${LD-ld} -m elf32_x86_64" ;; *) LD="${LD-ld} -m elf_i386" ;; esac ;; powerpc64le-*linux*) LD="${LD-ld} -m elf32lppclinux" ;; powerpc64-*linux*) LD="${LD-ld} -m elf32ppclinux" ;; s390x-*linux*) LD="${LD-ld} -m elf_s390" ;; sparc64-*linux*) LD="${LD-ld} -m elf32_sparc" ;; esac ;; *64-bit*) case $host in x86_64-*kfreebsd*-gnu) LD="${LD-ld} -m elf_x86_64_fbsd" ;; x86_64-*linux*) LD="${LD-ld} -m elf_x86_64" ;; powerpcle-*linux*) LD="${LD-ld} -m elf64lppc" ;; powerpc-*linux*) LD="${LD-ld} -m elf64ppc" ;; s390*-*linux*|s390*-*tpf*) LD="${LD-ld} -m elf64_s390" ;; sparc*-*linux*) LD="${LD-ld} -m elf64_sparc" ;; esac ;; esac fi rm -rf conftest* ;; *-*-sco3.2v5*) # On SCO OpenServer 5, we need -belf to get full-featured binaries. SAVE_CFLAGS=$CFLAGS CFLAGS="$CFLAGS -belf" { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the C compiler needs -belf" >&5 $as_echo_n "checking whether the C compiler needs -belf... " >&6; } if ${lt_cv_cc_needs_belf+:} false; then : $as_echo_n "(cached) " >&6 else ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : lt_cv_cc_needs_belf=yes else lt_cv_cc_needs_belf=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_cc_needs_belf" >&5 $as_echo "$lt_cv_cc_needs_belf" >&6; } if test yes != "$lt_cv_cc_needs_belf"; then # this is probably gcc 2.8.0, egcs 1.0 or newer; no need for -belf CFLAGS=$SAVE_CFLAGS fi ;; *-*solaris*) # Find out what ABI is being produced by ac_compile, and set linker # options accordingly. echo 'int i;' > conftest.$ac_ext if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5 (eval $ac_compile) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then case `/usr/bin/file conftest.o` in *64-bit*) case $lt_cv_prog_gnu_ld in yes*) case $host in i?86-*-solaris*|x86_64-*-solaris*) LD="${LD-ld} -m elf_x86_64" ;; sparc*-*-solaris*) LD="${LD-ld} -m elf64_sparc" ;; esac # GNU ld 2.21 introduced _sol2 emulations. Use them if available. if ${LD-ld} -V | grep _sol2 >/dev/null 2>&1; then LD=${LD-ld}_sol2 fi ;; *) if ${LD-ld} -64 -r -o conftest2.o conftest.o >/dev/null 2>&1; then LD="${LD-ld} -64" fi ;; esac ;; esac fi rm -rf conftest* ;; esac need_locks=$enable_libtool_lock if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}mt", so it can be a program name with args. set dummy ${ac_tool_prefix}mt; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_MANIFEST_TOOL+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$MANIFEST_TOOL"; then ac_cv_prog_MANIFEST_TOOL="$MANIFEST_TOOL" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_MANIFEST_TOOL="${ac_tool_prefix}mt" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi MANIFEST_TOOL=$ac_cv_prog_MANIFEST_TOOL if test -n "$MANIFEST_TOOL"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $MANIFEST_TOOL" >&5 $as_echo "$MANIFEST_TOOL" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_MANIFEST_TOOL"; then ac_ct_MANIFEST_TOOL=$MANIFEST_TOOL # Extract the first word of "mt", so it can be a program name with args. set dummy mt; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_MANIFEST_TOOL+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_MANIFEST_TOOL"; then ac_cv_prog_ac_ct_MANIFEST_TOOL="$ac_ct_MANIFEST_TOOL" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_MANIFEST_TOOL="mt" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_MANIFEST_TOOL=$ac_cv_prog_ac_ct_MANIFEST_TOOL if test -n "$ac_ct_MANIFEST_TOOL"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_MANIFEST_TOOL" >&5 $as_echo "$ac_ct_MANIFEST_TOOL" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_MANIFEST_TOOL" = x; then MANIFEST_TOOL=":" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac MANIFEST_TOOL=$ac_ct_MANIFEST_TOOL fi else MANIFEST_TOOL="$ac_cv_prog_MANIFEST_TOOL" fi test -z "$MANIFEST_TOOL" && MANIFEST_TOOL=mt { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $MANIFEST_TOOL is a manifest tool" >&5 $as_echo_n "checking if $MANIFEST_TOOL is a manifest tool... " >&6; } if ${lt_cv_path_mainfest_tool+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_path_mainfest_tool=no echo "$as_me:$LINENO: $MANIFEST_TOOL '-?'" >&5 $MANIFEST_TOOL '-?' 2>conftest.err > conftest.out cat conftest.err >&5 if $GREP 'Manifest Tool' conftest.out > /dev/null; then lt_cv_path_mainfest_tool=yes fi rm -f conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_path_mainfest_tool" >&5 $as_echo "$lt_cv_path_mainfest_tool" >&6; } if test yes != "$lt_cv_path_mainfest_tool"; then MANIFEST_TOOL=: fi case $host_os in rhapsody* | darwin*) if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}dsymutil", so it can be a program name with args. set dummy ${ac_tool_prefix}dsymutil; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_DSYMUTIL+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$DSYMUTIL"; then ac_cv_prog_DSYMUTIL="$DSYMUTIL" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_DSYMUTIL="${ac_tool_prefix}dsymutil" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi DSYMUTIL=$ac_cv_prog_DSYMUTIL if test -n "$DSYMUTIL"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $DSYMUTIL" >&5 $as_echo "$DSYMUTIL" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_DSYMUTIL"; then ac_ct_DSYMUTIL=$DSYMUTIL # Extract the first word of "dsymutil", so it can be a program name with args. set dummy dsymutil; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_DSYMUTIL+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_DSYMUTIL"; then ac_cv_prog_ac_ct_DSYMUTIL="$ac_ct_DSYMUTIL" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_DSYMUTIL="dsymutil" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_DSYMUTIL=$ac_cv_prog_ac_ct_DSYMUTIL if test -n "$ac_ct_DSYMUTIL"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_DSYMUTIL" >&5 $as_echo "$ac_ct_DSYMUTIL" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_DSYMUTIL" = x; then DSYMUTIL=":" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac DSYMUTIL=$ac_ct_DSYMUTIL fi else DSYMUTIL="$ac_cv_prog_DSYMUTIL" fi if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}nmedit", so it can be a program name with args. set dummy ${ac_tool_prefix}nmedit; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_NMEDIT+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$NMEDIT"; then ac_cv_prog_NMEDIT="$NMEDIT" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_NMEDIT="${ac_tool_prefix}nmedit" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi NMEDIT=$ac_cv_prog_NMEDIT if test -n "$NMEDIT"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $NMEDIT" >&5 $as_echo "$NMEDIT" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_NMEDIT"; then ac_ct_NMEDIT=$NMEDIT # Extract the first word of "nmedit", so it can be a program name with args. set dummy nmedit; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_NMEDIT+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_NMEDIT"; then ac_cv_prog_ac_ct_NMEDIT="$ac_ct_NMEDIT" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_NMEDIT="nmedit" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_NMEDIT=$ac_cv_prog_ac_ct_NMEDIT if test -n "$ac_ct_NMEDIT"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_NMEDIT" >&5 $as_echo "$ac_ct_NMEDIT" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_NMEDIT" = x; then NMEDIT=":" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac NMEDIT=$ac_ct_NMEDIT fi else NMEDIT="$ac_cv_prog_NMEDIT" fi if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}lipo", so it can be a program name with args. set dummy ${ac_tool_prefix}lipo; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_LIPO+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$LIPO"; then ac_cv_prog_LIPO="$LIPO" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_LIPO="${ac_tool_prefix}lipo" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi LIPO=$ac_cv_prog_LIPO if test -n "$LIPO"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $LIPO" >&5 $as_echo "$LIPO" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_LIPO"; then ac_ct_LIPO=$LIPO # Extract the first word of "lipo", so it can be a program name with args. set dummy lipo; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_LIPO+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_LIPO"; then ac_cv_prog_ac_ct_LIPO="$ac_ct_LIPO" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_LIPO="lipo" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_LIPO=$ac_cv_prog_ac_ct_LIPO if test -n "$ac_ct_LIPO"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_LIPO" >&5 $as_echo "$ac_ct_LIPO" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_LIPO" = x; then LIPO=":" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac LIPO=$ac_ct_LIPO fi else LIPO="$ac_cv_prog_LIPO" fi if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}otool", so it can be a program name with args. set dummy ${ac_tool_prefix}otool; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_OTOOL+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$OTOOL"; then ac_cv_prog_OTOOL="$OTOOL" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_OTOOL="${ac_tool_prefix}otool" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi OTOOL=$ac_cv_prog_OTOOL if test -n "$OTOOL"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $OTOOL" >&5 $as_echo "$OTOOL" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_OTOOL"; then ac_ct_OTOOL=$OTOOL # Extract the first word of "otool", so it can be a program name with args. set dummy otool; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_OTOOL+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_OTOOL"; then ac_cv_prog_ac_ct_OTOOL="$ac_ct_OTOOL" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_OTOOL="otool" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_OTOOL=$ac_cv_prog_ac_ct_OTOOL if test -n "$ac_ct_OTOOL"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_OTOOL" >&5 $as_echo "$ac_ct_OTOOL" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_OTOOL" = x; then OTOOL=":" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac OTOOL=$ac_ct_OTOOL fi else OTOOL="$ac_cv_prog_OTOOL" fi if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}otool64", so it can be a program name with args. set dummy ${ac_tool_prefix}otool64; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_OTOOL64+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$OTOOL64"; then ac_cv_prog_OTOOL64="$OTOOL64" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_OTOOL64="${ac_tool_prefix}otool64" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi OTOOL64=$ac_cv_prog_OTOOL64 if test -n "$OTOOL64"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $OTOOL64" >&5 $as_echo "$OTOOL64" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_OTOOL64"; then ac_ct_OTOOL64=$OTOOL64 # Extract the first word of "otool64", so it can be a program name with args. set dummy otool64; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_OTOOL64+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_OTOOL64"; then ac_cv_prog_ac_ct_OTOOL64="$ac_ct_OTOOL64" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_OTOOL64="otool64" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_OTOOL64=$ac_cv_prog_ac_ct_OTOOL64 if test -n "$ac_ct_OTOOL64"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_OTOOL64" >&5 $as_echo "$ac_ct_OTOOL64" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_OTOOL64" = x; then OTOOL64=":" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac OTOOL64=$ac_ct_OTOOL64 fi else OTOOL64="$ac_cv_prog_OTOOL64" fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for -single_module linker flag" >&5 $as_echo_n "checking for -single_module linker flag... " >&6; } if ${lt_cv_apple_cc_single_mod+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_apple_cc_single_mod=no if test -z "$LT_MULTI_MODULE"; then # By default we will add the -single_module flag. You can override # by either setting the environment variable LT_MULTI_MODULE # non-empty at configure time, or by adding -multi_module to the # link flags. rm -rf libconftest.dylib* echo "int foo(void){return 1;}" > conftest.c echo "$LTCC $LTCFLAGS $LDFLAGS -o libconftest.dylib \ -dynamiclib -Wl,-single_module conftest.c" >&5 $LTCC $LTCFLAGS $LDFLAGS -o libconftest.dylib \ -dynamiclib -Wl,-single_module conftest.c 2>conftest.err _lt_result=$? # If there is a non-empty error log, and "single_module" # appears in it, assume the flag caused a linker warning if test -s conftest.err && $GREP single_module conftest.err; then cat conftest.err >&5 # Otherwise, if the output was created with a 0 exit code from # the compiler, it worked. elif test -f libconftest.dylib && test 0 = "$_lt_result"; then lt_cv_apple_cc_single_mod=yes else cat conftest.err >&5 fi rm -rf libconftest.dylib* rm -f conftest.* fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_apple_cc_single_mod" >&5 $as_echo "$lt_cv_apple_cc_single_mod" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking for -exported_symbols_list linker flag" >&5 $as_echo_n "checking for -exported_symbols_list linker flag... " >&6; } if ${lt_cv_ld_exported_symbols_list+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_ld_exported_symbols_list=no save_LDFLAGS=$LDFLAGS echo "_main" > conftest.sym LDFLAGS="$LDFLAGS -Wl,-exported_symbols_list,conftest.sym" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : lt_cv_ld_exported_symbols_list=yes else lt_cv_ld_exported_symbols_list=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LDFLAGS=$save_LDFLAGS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_ld_exported_symbols_list" >&5 $as_echo "$lt_cv_ld_exported_symbols_list" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking for -force_load linker flag" >&5 $as_echo_n "checking for -force_load linker flag... " >&6; } if ${lt_cv_ld_force_load+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_ld_force_load=no cat > conftest.c << _LT_EOF int forced_loaded() { return 2;} _LT_EOF echo "$LTCC $LTCFLAGS -c -o conftest.o conftest.c" >&5 $LTCC $LTCFLAGS -c -o conftest.o conftest.c 2>&5 echo "$AR cru libconftest.a conftest.o" >&5 $AR cru libconftest.a conftest.o 2>&5 echo "$RANLIB libconftest.a" >&5 $RANLIB libconftest.a 2>&5 cat > conftest.c << _LT_EOF int main() { return 0;} _LT_EOF echo "$LTCC $LTCFLAGS $LDFLAGS -o conftest conftest.c -Wl,-force_load,./libconftest.a" >&5 $LTCC $LTCFLAGS $LDFLAGS -o conftest conftest.c -Wl,-force_load,./libconftest.a 2>conftest.err _lt_result=$? if test -s conftest.err && $GREP force_load conftest.err; then cat conftest.err >&5 elif test -f conftest && test 0 = "$_lt_result" && $GREP forced_load conftest >/dev/null 2>&1; then lt_cv_ld_force_load=yes else cat conftest.err >&5 fi rm -f conftest.err libconftest.a conftest conftest.c rm -rf conftest.dSYM fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_ld_force_load" >&5 $as_echo "$lt_cv_ld_force_load" >&6; } case $host_os in rhapsody* | darwin1.[012]) _lt_dar_allow_undefined='$wl-undefined ${wl}suppress' ;; darwin1.*) _lt_dar_allow_undefined='$wl-flat_namespace $wl-undefined ${wl}suppress' ;; darwin*) # darwin 5.x on # if running on 10.5 or later, the deployment target defaults # to the OS version, if on x86, and 10.4, the deployment # target defaults to 10.4. Don't you love it? case ${MACOSX_DEPLOYMENT_TARGET-10.0},$host in 10.0,*86*-darwin8*|10.0,*-darwin[91]*) _lt_dar_allow_undefined='$wl-undefined ${wl}dynamic_lookup' ;; 10.[012][,.]*) _lt_dar_allow_undefined='$wl-flat_namespace $wl-undefined ${wl}suppress' ;; 10.*) _lt_dar_allow_undefined='$wl-undefined ${wl}dynamic_lookup' ;; esac ;; esac if test yes = "$lt_cv_apple_cc_single_mod"; then _lt_dar_single_mod='$single_module' fi if test yes = "$lt_cv_ld_exported_symbols_list"; then _lt_dar_export_syms=' $wl-exported_symbols_list,$output_objdir/$libname-symbols.expsym' else _lt_dar_export_syms='~$NMEDIT -s $output_objdir/$libname-symbols.expsym $lib' fi if test : != "$DSYMUTIL" && test no = "$lt_cv_ld_force_load"; then _lt_dsymutil='~$DSYMUTIL $lib || :' else _lt_dsymutil= fi ;; esac # func_munge_path_list VARIABLE PATH # ----------------------------------- # VARIABLE is name of variable containing _space_ separated list of # directories to be munged by the contents of PATH, which is string # having a format: # "DIR[:DIR]:" # string "DIR[ DIR]" will be prepended to VARIABLE # ":DIR[:DIR]" # string "DIR[ DIR]" will be appended to VARIABLE # "DIRP[:DIRP]::[DIRA:]DIRA" # string "DIRP[ DIRP]" will be prepended to VARIABLE and string # "DIRA[ DIRA]" will be appended to VARIABLE # "DIR[:DIR]" # VARIABLE will be replaced by "DIR[ DIR]" func_munge_path_list () { case x$2 in x) ;; *:) eval $1=\"`$ECHO $2 | $SED 's/:/ /g'` \$$1\" ;; x:*) eval $1=\"\$$1 `$ECHO $2 | $SED 's/:/ /g'`\" ;; *::*) eval $1=\"\$$1\ `$ECHO $2 | $SED -e 's/.*:://' -e 's/:/ /g'`\" eval $1=\"`$ECHO $2 | $SED -e 's/::.*//' -e 's/:/ /g'`\ \$$1\" ;; *) eval $1=\"`$ECHO $2 | $SED 's/:/ /g'`\" ;; esac } ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to run the C preprocessor" >&5 $as_echo_n "checking how to run the C preprocessor... " >&6; } # On Suns, sometimes $CPP names a directory. if test -n "$CPP" && test -d "$CPP"; then CPP= fi if test -z "$CPP"; then if ${ac_cv_prog_CPP+:} false; then : $as_echo_n "(cached) " >&6 else # Double quotes because CPP needs to be expanded for CPP in "$CC -E" "$CC -E -traditional-cpp" "/lib/cpp" do ac_preproc_ok=false for ac_c_preproc_warn_flag in '' yes do # Use a header file that comes with gcc, so configuring glibc # with a fresh cross-compiler works. # Prefer 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 { $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 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 # Set options enable_dlopen=no enable_win32_dll=no # Check whether --enable-shared was given. if test "${enable_shared+set}" = set; then : enableval=$enable_shared; p=${PACKAGE-default} case $enableval in yes) enable_shared=yes ;; no) enable_shared=no ;; *) enable_shared=no # Look at the argument we got. We use all the common list separators. lt_save_ifs=$IFS; IFS=$IFS$PATH_SEPARATOR, for pkg in $enableval; do IFS=$lt_save_ifs if test "X$pkg" = "X$p"; then enable_shared=yes fi done IFS=$lt_save_ifs ;; esac else enable_shared=yes fi # Check whether --enable-static was given. if test "${enable_static+set}" = set; then : enableval=$enable_static; p=${PACKAGE-default} case $enableval in yes) enable_static=yes ;; no) enable_static=no ;; *) enable_static=no # Look at the argument we got. We use all the common list separators. lt_save_ifs=$IFS; IFS=$IFS$PATH_SEPARATOR, for pkg in $enableval; do IFS=$lt_save_ifs if test "X$pkg" = "X$p"; then enable_static=yes fi done IFS=$lt_save_ifs ;; esac else enable_static=yes fi # Check whether --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 # Check whether --enable-fast-install was given. if test "${enable_fast_install+set}" = set; then : enableval=$enable_fast_install; p=${PACKAGE-default} case $enableval in yes) enable_fast_install=yes ;; no) enable_fast_install=no ;; *) enable_fast_install=no # Look at the argument we got. We use all the common list separators. lt_save_ifs=$IFS; IFS=$IFS$PATH_SEPARATOR, for pkg in $enableval; do IFS=$lt_save_ifs if test "X$pkg" = "X$p"; then enable_fast_install=yes fi done IFS=$lt_save_ifs ;; esac else enable_fast_install=yes fi shared_archive_member_spec= case $host,$enable_shared in power*-*-aix[5-9]*,yes) { $as_echo "$as_me:${as_lineno-$LINENO}: checking which variant of shared library versioning to provide" >&5 $as_echo_n "checking which variant of shared library versioning to provide... " >&6; } # Check whether --with-aix-soname was given. if test "${with_aix_soname+set}" = set; then : withval=$with_aix_soname; case $withval in aix|svr4|both) ;; *) as_fn_error $? "Unknown argument to --with-aix-soname" "$LINENO" 5 ;; esac lt_cv_with_aix_soname=$with_aix_soname else if ${lt_cv_with_aix_soname+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_with_aix_soname=aix fi with_aix_soname=$lt_cv_with_aix_soname fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $with_aix_soname" >&5 $as_echo "$with_aix_soname" >&6; } if test aix != "$with_aix_soname"; then # For the AIX way of multilib, we name the shared archive member # based on the bitwidth used, traditionally 'shr.o' or 'shr_64.o', # and 'shr.imp' or 'shr_64.imp', respectively, for the Import File. # Even when GNU compilers ignore OBJECT_MODE but need '-maix64' flag, # the AIX toolchain works better with OBJECT_MODE set (default 32). if test 64 = "${OBJECT_MODE-32}"; then shared_archive_member_spec=shr_64 else shared_archive_member_spec=shr fi fi ;; *) with_aix_soname=aix ;; esac # This can be used to rebuild libtool when needed LIBTOOL_DEPS=$ltmain # Always use our own libtool. LIBTOOL='$(SHELL) $(top_builddir)/libtool' test -z "$LN_S" && LN_S="ln -s" if test -n "${ZSH_VERSION+set}"; then setopt NO_GLOB_SUBST fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for objdir" >&5 $as_echo_n "checking for objdir... " >&6; } if ${lt_cv_objdir+:} false; then : $as_echo_n "(cached) " >&6 else rm -f .libs 2>/dev/null mkdir .libs 2>/dev/null if test -d .libs; then lt_cv_objdir=.libs else # MS-DOS does not allow filenames that begin with a dot. lt_cv_objdir=_libs fi rmdir .libs 2>/dev/null fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_objdir" >&5 $as_echo "$lt_cv_objdir" >&6; } objdir=$lt_cv_objdir cat >>confdefs.h <<_ACEOF #define LT_OBJDIR "$lt_cv_objdir/" _ACEOF case $host_os in aix3*) # AIX sometimes has problems with the GCC collect2 program. For some # reason, if we set the COLLECT_NAMES environment variable, the problems # vanish in a puff of smoke. if test set != "${COLLECT_NAMES+set}"; then COLLECT_NAMES= export COLLECT_NAMES fi ;; esac # Global variables: ofile=libtool can_build_shared=yes # All known linkers require a '.a' archive for static linking (except MSVC, # which needs '.lib'). libext=a with_gnu_ld=$lt_cv_prog_gnu_ld old_CC=$CC old_CFLAGS=$CFLAGS # Set sane defaults for various variables test -z "$CC" && CC=cc test -z "$LTCC" && LTCC=$CC test -z "$LTCFLAGS" && LTCFLAGS=$CFLAGS test -z "$LD" && LD=ld test -z "$ac_objext" && ac_objext=o func_cc_basename $compiler cc_basename=$func_cc_basename_result # Only perform the check for file, if the check method requires it test -z "$MAGIC_CMD" && MAGIC_CMD=file case $deplibs_check_method in file_magic*) if test "$file_magic_cmd" = '$MAGIC_CMD'; then { $as_echo "$as_me:${as_lineno-$LINENO}: checking for ${ac_tool_prefix}file" >&5 $as_echo_n "checking for ${ac_tool_prefix}file... " >&6; } if ${lt_cv_path_MAGIC_CMD+:} false; then : $as_echo_n "(cached) " >&6 else case $MAGIC_CMD in [\\/*] | ?:[\\/]*) lt_cv_path_MAGIC_CMD=$MAGIC_CMD # Let the user override the test with a path. ;; *) lt_save_MAGIC_CMD=$MAGIC_CMD lt_save_ifs=$IFS; IFS=$PATH_SEPARATOR ac_dummy="/usr/bin$PATH_SEPARATOR$PATH" for ac_dir in $ac_dummy; do IFS=$lt_save_ifs test -z "$ac_dir" && ac_dir=. if test -f "$ac_dir/${ac_tool_prefix}file"; then lt_cv_path_MAGIC_CMD=$ac_dir/"${ac_tool_prefix}file" if test -n "$file_magic_test_file"; then case $deplibs_check_method in "file_magic "*) file_magic_regex=`expr "$deplibs_check_method" : "file_magic \(.*\)"` MAGIC_CMD=$lt_cv_path_MAGIC_CMD if eval $file_magic_cmd \$file_magic_test_file 2> /dev/null | $EGREP "$file_magic_regex" > /dev/null; then : else cat <<_LT_EOF 1>&2 *** Warning: the command libtool uses to detect shared libraries, *** $file_magic_cmd, produces output that libtool cannot recognize. *** The result is that libtool may fail to recognize shared libraries *** as such. This will affect the creation of libtool libraries that *** depend on shared libraries, but programs linked with such libtool *** libraries will work regardless of this problem. Nevertheless, you *** may want to report the problem to your system manager and/or to *** bug-libtool@gnu.org _LT_EOF fi ;; esac fi break fi done IFS=$lt_save_ifs MAGIC_CMD=$lt_save_MAGIC_CMD ;; esac fi MAGIC_CMD=$lt_cv_path_MAGIC_CMD if test -n "$MAGIC_CMD"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $MAGIC_CMD" >&5 $as_echo "$MAGIC_CMD" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test -z "$lt_cv_path_MAGIC_CMD"; then if test -n "$ac_tool_prefix"; then { $as_echo "$as_me:${as_lineno-$LINENO}: checking for file" >&5 $as_echo_n "checking for file... " >&6; } if ${lt_cv_path_MAGIC_CMD+:} false; then : $as_echo_n "(cached) " >&6 else case $MAGIC_CMD in [\\/*] | ?:[\\/]*) lt_cv_path_MAGIC_CMD=$MAGIC_CMD # Let the user override the test with a path. ;; *) lt_save_MAGIC_CMD=$MAGIC_CMD lt_save_ifs=$IFS; IFS=$PATH_SEPARATOR ac_dummy="/usr/bin$PATH_SEPARATOR$PATH" for ac_dir in $ac_dummy; do IFS=$lt_save_ifs test -z "$ac_dir" && ac_dir=. if test -f "$ac_dir/file"; then lt_cv_path_MAGIC_CMD=$ac_dir/"file" if test -n "$file_magic_test_file"; then case $deplibs_check_method in "file_magic "*) file_magic_regex=`expr "$deplibs_check_method" : "file_magic \(.*\)"` MAGIC_CMD=$lt_cv_path_MAGIC_CMD if eval $file_magic_cmd \$file_magic_test_file 2> /dev/null | $EGREP "$file_magic_regex" > /dev/null; then : else cat <<_LT_EOF 1>&2 *** Warning: the command libtool uses to detect shared libraries, *** $file_magic_cmd, produces output that libtool cannot recognize. *** The result is that libtool may fail to recognize shared libraries *** as such. This will affect the creation of libtool libraries that *** depend on shared libraries, but programs linked with such libtool *** libraries will work regardless of this problem. Nevertheless, you *** may want to report the problem to your system manager and/or to *** bug-libtool@gnu.org _LT_EOF fi ;; esac fi break fi done IFS=$lt_save_ifs MAGIC_CMD=$lt_save_MAGIC_CMD ;; esac fi MAGIC_CMD=$lt_cv_path_MAGIC_CMD if test -n "$MAGIC_CMD"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $MAGIC_CMD" >&5 $as_echo "$MAGIC_CMD" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi else MAGIC_CMD=: fi fi fi ;; esac # Use C for the default configuration in the libtool script lt_save_CC=$CC ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu # Source file extension for C test sources. ac_ext=c # Object file extension for compiled C test sources. objext=o objext=$objext # Code to be used in simple compile tests lt_simple_compile_test_code="int some_variable = 0;" # Code to be used in simple link tests lt_simple_link_test_code='int main(){return(0);}' # If no C compiler was specified, use CC. LTCC=${LTCC-"$CC"} # If no C compiler flags were specified, use CFLAGS. LTCFLAGS=${LTCFLAGS-"$CFLAGS"} # Allow CC to be a program name with arguments. compiler=$CC # Save the default compiler, since it gets overwritten when the other # tags are being tested, and _LT_TAGVAR(compiler, []) is a NOP. compiler_DEFAULT=$CC # save warnings/boilerplate of simple test code ac_outfile=conftest.$ac_objext echo "$lt_simple_compile_test_code" >conftest.$ac_ext eval "$ac_compile" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err _lt_compiler_boilerplate=`cat conftest.err` $RM conftest* ac_outfile=conftest.$ac_objext echo "$lt_simple_link_test_code" >conftest.$ac_ext eval "$ac_link" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err _lt_linker_boilerplate=`cat conftest.err` $RM -r conftest* ## CAVEAT EMPTOR: ## There is no encapsulation within the following macros, do not change ## the running order or otherwise move them around unless you know exactly ## what you are doing... if test -n "$compiler"; then lt_prog_compiler_no_builtin_flag= if test yes = "$GCC"; then case $cc_basename in nvcc*) lt_prog_compiler_no_builtin_flag=' -Xcompiler -fno-builtin' ;; *) lt_prog_compiler_no_builtin_flag=' -fno-builtin' ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler supports -fno-rtti -fno-exceptions" >&5 $as_echo_n "checking if $compiler supports -fno-rtti -fno-exceptions... " >&6; } if ${lt_cv_prog_compiler_rtti_exceptions+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_prog_compiler_rtti_exceptions=no ac_outfile=conftest.$ac_objext echo "$lt_simple_compile_test_code" > conftest.$ac_ext lt_compiler_flag="-fno-rtti -fno-exceptions" ## exclude from sc_useless_quotes_in_assignment # Insert the option either (1) after the last *FLAGS variable, or # (2) before a word containing "conftest.", or (3) at the end. # Note that $ac_compile itself does not contain backslashes and begins # with a dollar sign (not a hyphen), so the echo should work correctly. # The option is referenced via a variable to avoid confusing sed. lt_compile=`echo "$ac_compile" | $SED \ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \ -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \ -e 's:$: $lt_compiler_flag:'` (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5) (eval "$lt_compile" 2>conftest.err) ac_status=$? cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 if (exit $ac_status) && test -s "$ac_outfile"; then # The compiler can only warn and ignore the option if not recognized # So say no if there are warnings other than the usual output. $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' >conftest.exp $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 if test ! -s conftest.er2 || diff conftest.exp conftest.er2 >/dev/null; then lt_cv_prog_compiler_rtti_exceptions=yes fi fi $RM conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_rtti_exceptions" >&5 $as_echo "$lt_cv_prog_compiler_rtti_exceptions" >&6; } if test yes = "$lt_cv_prog_compiler_rtti_exceptions"; then lt_prog_compiler_no_builtin_flag="$lt_prog_compiler_no_builtin_flag -fno-rtti -fno-exceptions" else : fi fi lt_prog_compiler_wl= lt_prog_compiler_pic= lt_prog_compiler_static= if test yes = "$GCC"; then lt_prog_compiler_wl='-Wl,' lt_prog_compiler_static='-static' case $host_os in aix*) # All AIX code is PIC. if test ia64 = "$host_cpu"; then # AIX 5 now supports IA64 processor lt_prog_compiler_static='-Bstatic' fi lt_prog_compiler_pic='-fPIC' ;; amigaos*) case $host_cpu in powerpc) # see comment about AmigaOS4 .so support lt_prog_compiler_pic='-fPIC' ;; m68k) # FIXME: we need at least 68020 code to build shared libraries, but # adding the '-m68020' flag to GCC prevents building anything better, # like '-m68040'. lt_prog_compiler_pic='-m68020 -resident32 -malways-restore-a4' ;; esac ;; beos* | irix5* | irix6* | nonstopux* | osf3* | osf4* | osf5*) # PIC is the default for these OSes. ;; mingw* | cygwin* | pw32* | os2* | cegcc*) # This hack is so that the source file can tell whether it is being # built for inclusion in a dll (and should export symbols for example). # Although the cygwin gcc ignores -fPIC, still need this for old-style # (--disable-auto-import) libraries lt_prog_compiler_pic='-DDLL_EXPORT' case $host_os in os2*) lt_prog_compiler_static='$wl-static' ;; esac ;; darwin* | rhapsody*) # PIC is the default on this platform # Common symbols not allowed in MH_DYLIB files lt_prog_compiler_pic='-fno-common' ;; haiku*) # PIC is the default for Haiku. # The "-static" flag exists, but is broken. lt_prog_compiler_static= ;; hpux*) # PIC is the default for 64-bit PA HP-UX, but not for 32-bit # PA HP-UX. On IA64 HP-UX, PIC is the default but the pic flag # sets the default TLS model and affects inlining. case $host_cpu in hppa*64*) # +Z the default ;; *) lt_prog_compiler_pic='-fPIC' ;; esac ;; interix[3-9]*) # Interix 3.x gcc -fpic/-fPIC options generate broken code. # Instead, we relocate shared libraries at runtime. ;; msdosdjgpp*) # Just because we use GCC doesn't mean we suddenly get shared libraries # on systems that don't support them. lt_prog_compiler_can_build_shared=no enable_shared=no ;; *nto* | *qnx*) # QNX uses GNU C++, but need to define -shared option too, otherwise # it will coredump. lt_prog_compiler_pic='-fPIC -shared' ;; sysv4*MP*) if test -d /usr/nec; then lt_prog_compiler_pic=-Kconform_pic fi ;; *) lt_prog_compiler_pic='-fPIC' ;; esac case $cc_basename in nvcc*) # Cuda Compiler Driver 2.2 lt_prog_compiler_wl='-Xlinker ' if test -n "$lt_prog_compiler_pic"; then lt_prog_compiler_pic="-Xcompiler $lt_prog_compiler_pic" fi ;; esac else # PORTME Check for flag to pass linker flags through the system compiler. case $host_os in aix*) lt_prog_compiler_wl='-Wl,' if test ia64 = "$host_cpu"; then # AIX 5 now supports IA64 processor lt_prog_compiler_static='-Bstatic' else lt_prog_compiler_static='-bnso -bI:/lib/syscalls.exp' fi ;; darwin* | rhapsody*) # PIC is the default on this platform # Common symbols not allowed in MH_DYLIB files lt_prog_compiler_pic='-fno-common' case $cc_basename in nagfor*) # NAG Fortran compiler lt_prog_compiler_wl='-Wl,-Wl,,' lt_prog_compiler_pic='-PIC' lt_prog_compiler_static='-Bstatic' ;; esac ;; mingw* | cygwin* | pw32* | os2* | cegcc*) # This hack is so that the source file can tell whether it is being # built for inclusion in a dll (and should export symbols for example). lt_prog_compiler_pic='-DDLL_EXPORT' case $host_os in os2*) lt_prog_compiler_static='$wl-static' ;; esac ;; hpux9* | hpux10* | hpux11*) lt_prog_compiler_wl='-Wl,' # PIC is the default for IA64 HP-UX and 64-bit HP-UX, but # not for PA HP-UX. case $host_cpu in hppa*64*|ia64*) # +Z the default ;; *) lt_prog_compiler_pic='+Z' ;; esac # Is there a better lt_prog_compiler_static that works with the bundled CC? lt_prog_compiler_static='$wl-a ${wl}archive' ;; irix5* | irix6* | nonstopux*) lt_prog_compiler_wl='-Wl,' # PIC (with -KPIC) is the default. lt_prog_compiler_static='-non_shared' ;; linux* | k*bsd*-gnu | kopensolaris*-gnu | gnu*) case $cc_basename in # old Intel for x86_64, which still supported -KPIC. ecc*) lt_prog_compiler_wl='-Wl,' lt_prog_compiler_pic='-KPIC' lt_prog_compiler_static='-static' ;; # icc used to be incompatible with GCC. # ICC 10 doesn't accept -KPIC any more. icc* | ifort*) lt_prog_compiler_wl='-Wl,' lt_prog_compiler_pic='-fPIC' lt_prog_compiler_static='-static' ;; # Lahey Fortran 8.1. lf95*) lt_prog_compiler_wl='-Wl,' lt_prog_compiler_pic='--shared' lt_prog_compiler_static='--static' ;; nagfor*) # NAG Fortran compiler lt_prog_compiler_wl='-Wl,-Wl,,' lt_prog_compiler_pic='-PIC' lt_prog_compiler_static='-Bstatic' ;; tcc*) # Fabrice Bellard et al's Tiny C Compiler lt_prog_compiler_wl='-Wl,' lt_prog_compiler_pic='-fPIC' lt_prog_compiler_static='-static' ;; pgcc* | pgf77* | pgf90* | pgf95* | pgfortran*) # Portland Group compilers (*not* the Pentium gcc compiler, # which looks to be a dead project) lt_prog_compiler_wl='-Wl,' lt_prog_compiler_pic='-fpic' lt_prog_compiler_static='-Bstatic' ;; ccc*) lt_prog_compiler_wl='-Wl,' # All Alpha code is PIC. lt_prog_compiler_static='-non_shared' ;; xl* | bgxl* | bgf* | mpixl*) # IBM XL C 8.0/Fortran 10.1, 11.1 on PPC and BlueGene lt_prog_compiler_wl='-Wl,' lt_prog_compiler_pic='-qpic' lt_prog_compiler_static='-qstaticlink' ;; *) case `$CC -V 2>&1 | sed 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 that do not support PIC, -DPIC is meaningless: *djgpp*) lt_prog_compiler_pic= ;; *) lt_prog_compiler_pic="$lt_prog_compiler_pic -DPIC" ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $compiler option to produce PIC" >&5 $as_echo_n "checking for $compiler option to produce PIC... " >&6; } if ${lt_cv_prog_compiler_pic+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_prog_compiler_pic=$lt_prog_compiler_pic fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_pic" >&5 $as_echo "$lt_cv_prog_compiler_pic" >&6; } lt_prog_compiler_pic=$lt_cv_prog_compiler_pic # # Check to make sure the PIC flag actually works. # if test -n "$lt_prog_compiler_pic"; then { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler PIC flag $lt_prog_compiler_pic works" >&5 $as_echo_n "checking if $compiler PIC flag $lt_prog_compiler_pic works... " >&6; } if ${lt_cv_prog_compiler_pic_works+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_prog_compiler_pic_works=no ac_outfile=conftest.$ac_objext echo "$lt_simple_compile_test_code" > conftest.$ac_ext lt_compiler_flag="$lt_prog_compiler_pic -DPIC" ## exclude from sc_useless_quotes_in_assignment # Insert the option either (1) after the last *FLAGS variable, or # (2) before a word containing "conftest.", or (3) at the end. # Note that $ac_compile itself does not contain backslashes and begins # with a dollar sign (not a hyphen), so the echo should work correctly. # The option is referenced via a variable to avoid confusing sed. lt_compile=`echo "$ac_compile" | $SED \ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \ -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \ -e 's:$: $lt_compiler_flag:'` (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5) (eval "$lt_compile" 2>conftest.err) ac_status=$? cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 if (exit $ac_status) && test -s "$ac_outfile"; then # The compiler can only warn and ignore the option if not recognized # So say no if there are warnings other than the usual output. $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' >conftest.exp $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 if test ! -s conftest.er2 || diff conftest.exp conftest.er2 >/dev/null; then lt_cv_prog_compiler_pic_works=yes fi fi $RM conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_pic_works" >&5 $as_echo "$lt_cv_prog_compiler_pic_works" >&6; } if test yes = "$lt_cv_prog_compiler_pic_works"; then case $lt_prog_compiler_pic in "" | " "*) ;; *) lt_prog_compiler_pic=" $lt_prog_compiler_pic" ;; esac else lt_prog_compiler_pic= lt_prog_compiler_can_build_shared=no fi fi # # Check to make sure the static flag actually works. # wl=$lt_prog_compiler_wl eval lt_tmp_static_flag=\"$lt_prog_compiler_static\" { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler static flag $lt_tmp_static_flag works" >&5 $as_echo_n "checking if $compiler static flag $lt_tmp_static_flag works... " >&6; } if ${lt_cv_prog_compiler_static_works+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_prog_compiler_static_works=no save_LDFLAGS=$LDFLAGS LDFLAGS="$LDFLAGS $lt_tmp_static_flag" echo "$lt_simple_link_test_code" > conftest.$ac_ext if (eval $ac_link 2>conftest.err) && test -s conftest$ac_exeext; then # The linker can only warn and ignore the option if not recognized # So say no if there are warnings if test -s conftest.err; then # Append any errors to the config.log. cat conftest.err 1>&5 $ECHO "$_lt_linker_boilerplate" | $SED '/^$/d' > conftest.exp $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 if diff conftest.exp conftest.er2 >/dev/null; then lt_cv_prog_compiler_static_works=yes fi else lt_cv_prog_compiler_static_works=yes fi fi $RM -r conftest* LDFLAGS=$save_LDFLAGS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_static_works" >&5 $as_echo "$lt_cv_prog_compiler_static_works" >&6; } if test yes = "$lt_cv_prog_compiler_static_works"; then : else lt_prog_compiler_static= fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler supports -c -o file.$ac_objext" >&5 $as_echo_n "checking if $compiler supports -c -o file.$ac_objext... " >&6; } if ${lt_cv_prog_compiler_c_o+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_prog_compiler_c_o=no $RM -r conftest 2>/dev/null mkdir conftest cd conftest mkdir out echo "$lt_simple_compile_test_code" > conftest.$ac_ext lt_compiler_flag="-o out/conftest2.$ac_objext" # Insert the option either (1) after the last *FLAGS variable, or # (2) before a word containing "conftest.", or (3) at the end. # Note that $ac_compile itself does not contain backslashes and begins # with a dollar sign (not a hyphen), so the echo should work correctly. lt_compile=`echo "$ac_compile" | $SED \ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \ -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \ -e 's:$: $lt_compiler_flag:'` (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5) (eval "$lt_compile" 2>out/conftest.err) ac_status=$? cat out/conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 if (exit $ac_status) && test -s out/conftest2.$ac_objext then # The compiler can only warn and ignore the option if not recognized # So say no if there are warnings $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' > out/conftest.exp $SED '/^$/d; /^ *+/d' out/conftest.err >out/conftest.er2 if test ! -s out/conftest.er2 || diff out/conftest.exp out/conftest.er2 >/dev/null; then lt_cv_prog_compiler_c_o=yes fi fi chmod u+w . 2>&5 $RM conftest* # SGI C++ compiler will create directory out/ii_files/ for # template instantiation test -d out/ii_files && $RM out/ii_files/* && rmdir out/ii_files $RM out/* && rmdir out cd .. $RM -r conftest $RM conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_c_o" >&5 $as_echo "$lt_cv_prog_compiler_c_o" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler supports -c -o file.$ac_objext" >&5 $as_echo_n "checking if $compiler supports -c -o file.$ac_objext... " >&6; } if ${lt_cv_prog_compiler_c_o+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_prog_compiler_c_o=no $RM -r conftest 2>/dev/null mkdir conftest cd conftest mkdir out echo "$lt_simple_compile_test_code" > conftest.$ac_ext lt_compiler_flag="-o out/conftest2.$ac_objext" # Insert the option either (1) after the last *FLAGS variable, or # (2) before a word containing "conftest.", or (3) at the end. # Note that $ac_compile itself does not contain backslashes and begins # with a dollar sign (not a hyphen), so the echo should work correctly. lt_compile=`echo "$ac_compile" | $SED \ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \ -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \ -e 's:$: $lt_compiler_flag:'` (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5) (eval "$lt_compile" 2>out/conftest.err) ac_status=$? cat out/conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 if (exit $ac_status) && test -s out/conftest2.$ac_objext then # The compiler can only warn and ignore the option if not recognized # So say no if there are warnings $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' > out/conftest.exp $SED '/^$/d; /^ *+/d' out/conftest.err >out/conftest.er2 if test ! -s out/conftest.er2 || diff out/conftest.exp out/conftest.er2 >/dev/null; then lt_cv_prog_compiler_c_o=yes fi fi chmod u+w . 2>&5 $RM conftest* # SGI C++ compiler will create directory out/ii_files/ for # template instantiation test -d out/ii_files && $RM out/ii_files/* && rmdir out/ii_files $RM out/* && rmdir out cd .. $RM -r conftest $RM conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_c_o" >&5 $as_echo "$lt_cv_prog_compiler_c_o" >&6; } hard_links=nottested if test no = "$lt_cv_prog_compiler_c_o" && test no != "$need_locks"; then # do not overwrite the value of need_locks provided by the user { $as_echo "$as_me:${as_lineno-$LINENO}: checking if we can lock with hard links" >&5 $as_echo_n "checking if we can lock with hard links... " >&6; } hard_links=yes $RM conftest* ln conftest.a conftest.b 2>/dev/null && hard_links=no touch conftest.a ln conftest.a conftest.b 2>&5 || hard_links=no ln conftest.a conftest.b 2>/dev/null && hard_links=no { $as_echo "$as_me:${as_lineno-$LINENO}: result: $hard_links" >&5 $as_echo "$hard_links" >&6; } if test no = "$hard_links"; then { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: '$CC' does not support '-c -o', so 'make -j' may be unsafe" >&5 $as_echo "$as_me: WARNING: '$CC' does not support '-c -o', so 'make -j' may be unsafe" >&2;} need_locks=warn fi else need_locks=no fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the $compiler linker ($LD) supports shared libraries" >&5 $as_echo_n "checking whether the $compiler linker ($LD) supports shared libraries... " >&6; } runpath_var= allow_undefined_flag= always_export_symbols=no archive_cmds= archive_expsym_cmds= compiler_needs_object=no enable_shared_with_static_runtimes=no export_dynamic_flag_spec= export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' hardcode_automatic=no hardcode_direct=no hardcode_direct_absolute=no hardcode_libdir_flag_spec= hardcode_libdir_separator= hardcode_minus_L=no hardcode_shlibpath_var=unsupported inherit_rpath=no link_all_deplibs=unknown module_cmds= module_expsym_cmds= old_archive_from_new_cmds= old_archive_from_expsyms_cmds= thread_safe_flag_spec= whole_archive_flag_spec= # include_expsyms should be a list of space-separated symbols to be *always* # included in the symbol list include_expsyms= # exclude_expsyms can be an extended regexp of symbols to exclude # it will be wrapped by ' (' and ')$', so one must not match beginning or # end of line. Example: 'a|bc|.*d.*' will exclude the symbols 'a' and 'bc', # as well as any symbol that contains 'd'. exclude_expsyms='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' # Although _GLOBAL_OFFSET_TABLE_ is a valid symbol C name, most a.out # platforms (ab)use it in PIC code, but their linkers get confused if # the symbol is explicitly referenced. Since portable code cannot # rely on this symbol name, it's probably fine to never include it in # preloaded symbol tables. # Exclude shared library initialization/finalization symbols. extract_expsyms_cmds= case $host_os in cygwin* | mingw* | pw32* | cegcc*) # FIXME: the MSVC++ port hasn't been tested in a loooong time # When not using gcc, we currently assume that we are using # Microsoft Visual C++. if test yes != "$GCC"; then with_gnu_ld=no fi ;; interix*) # we just hope/assume this is gcc and not c89 (= MSVC++) with_gnu_ld=yes ;; openbsd* | bitrig*) with_gnu_ld=no ;; esac ld_shlibs=yes # On some targets, GNU ld is compatible enough with the native linker # that we're better off using the native interface for both. lt_use_gnu_ld_interface=no if test yes = "$with_gnu_ld"; then case $host_os in aix*) # The AIX port of GNU ld has always aspired to compatibility # with the native linker. However, as the warning in the GNU ld # block says, versions before 2.19.5* couldn't really create working # shared libraries, regardless of the interface used. case `$LD -v 2>&1` in *\ \(GNU\ Binutils\)\ 2.19.5*) ;; *\ \(GNU\ Binutils\)\ 2.[2-9]*) ;; *\ \(GNU\ Binutils\)\ [3-9]*) ;; *) lt_use_gnu_ld_interface=yes ;; esac ;; *) lt_use_gnu_ld_interface=yes ;; esac fi if test yes = "$lt_use_gnu_ld_interface"; then # If archive_cmds runs LD, not CC, wlarc should be empty wlarc='$wl' # Set some defaults for GNU ld with shared library support. These # are reset later if shared libraries are not supported. Putting them # here allows them to be overridden if necessary. runpath_var=LD_RUN_PATH hardcode_libdir_flag_spec='$wl-rpath $wl$libdir' export_dynamic_flag_spec='$wl--export-dynamic' # ancient GNU ld didn't support --whole-archive et. al. if $LD --help 2>&1 | $GREP 'no-whole-archive' > /dev/null; then whole_archive_flag_spec=$wlarc'--whole-archive$convenience '$wlarc'--no-whole-archive' else whole_archive_flag_spec= fi supports_anon_versioning=no case `$LD -v | $SED -e 's/(^)\+)\s\+//' 2>&1` in *GNU\ gold*) supports_anon_versioning=yes ;; *\ [01].* | *\ 2.[0-9].* | *\ 2.10.*) ;; # catch versions < 2.11 *\ 2.11.93.0.2\ *) supports_anon_versioning=yes ;; # RH7.3 ... *\ 2.11.92.0.12\ *) supports_anon_versioning=yes ;; # Mandrake 8.2 ... *\ 2.11.*) ;; # other 2.11 versions *) supports_anon_versioning=yes ;; esac # See if GNU ld supports shared libraries. case $host_os in aix[3-9]*) # On AIX/PPC, the GNU linker is very broken if test ia64 != "$host_cpu"; then ld_shlibs=no cat <<_LT_EOF 1>&2 *** Warning: the GNU linker, at least up to release 2.19, is reported *** to be unable to reliably create shared libraries on AIX. *** Therefore, libtool is disabling shared libraries support. If you *** really care for shared libraries, you may want to install binutils *** 2.20 or above, or modify your PATH so that a non-GNU linker is found. *** You will then need to restart the configuration process. _LT_EOF fi ;; amigaos*) case $host_cpu in powerpc) # see comment about AmigaOS4 .so support archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' archive_expsym_cmds='' ;; m68k) archive_cmds='$RM $output_objdir/a2ixlibrary.data~$ECHO "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$ECHO "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$ECHO "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$ECHO "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)' hardcode_libdir_flag_spec='-L$libdir' hardcode_minus_L=yes ;; esac ;; beos*) if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then allow_undefined_flag=unsupported # Joseph Beckenbach says some releases of gcc # support --undefined. This deserves some investigation. FIXME archive_cmds='$CC -nostart $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' else ld_shlibs=no fi ;; cygwin* | mingw* | pw32* | cegcc*) # _LT_TAGVAR(hardcode_libdir_flag_spec, ) is actually meaningless, # as there is no search path for DLLs. hardcode_libdir_flag_spec='-L$libdir' export_dynamic_flag_spec='$wl--export-all-symbols' allow_undefined_flag=unsupported always_export_symbols=no enable_shared_with_static_runtimes=yes export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[BCDGRS][ ]/s/.*[ ]\([^ ]*\)/\1 DATA/;s/^.*[ ]__nm__\([^ ]*\)[ ][^ ]*/\1 DATA/;/^I[ ]/d;/^[AITW][ ]/s/.* //'\'' | sort | uniq > $export_symbols' exclude_expsyms='[_]+GLOBAL_OFFSET_TABLE_|[_]+GLOBAL__[FID]_.*|[_]+head_[A-Za-z0-9_]+_dll|[A-Za-z0-9_]+_dll_iname' if $LD --help 2>&1 | $GREP 'auto-import' > /dev/null; then archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags -o $output_objdir/$soname $wl--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' # If the export-symbols file already is a .def file, use it as # is; otherwise, prepend EXPORTS... archive_expsym_cmds='if test DEF = "`$SED -n -e '\''s/^[ ]*//'\'' -e '\''/^\(;.*\)*$/d'\'' -e '\''s/^\(EXPORTS\|LIBRARY\)\([ ].*\)*$/DEF/p'\'' -e q $export_symbols`" ; then cp $export_symbols $output_objdir/$soname.def; else echo EXPORTS > $output_objdir/$soname.def; cat $export_symbols >> $output_objdir/$soname.def; fi~ $CC -shared $output_objdir/$soname.def $libobjs $deplibs $compiler_flags -o $output_objdir/$soname $wl--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' else ld_shlibs=no fi ;; haiku*) archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' link_all_deplibs=yes ;; os2*) hardcode_libdir_flag_spec='-L$libdir' hardcode_minus_L=yes allow_undefined_flag=unsupported shrext_cmds=.dll archive_cmds='$ECHO "LIBRARY ${soname%$shared_ext} INITINSTANCE TERMINSTANCE" > $output_objdir/$libname.def~ $ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~ $ECHO "DATA MULTIPLE NONSHARED" >> $output_objdir/$libname.def~ $ECHO EXPORTS >> $output_objdir/$libname.def~ emxexp $libobjs | $SED /"_DLL_InitTerm"/d >> $output_objdir/$libname.def~ $CC -Zdll -Zcrtdll -o $output_objdir/$soname $libobjs $deplibs $compiler_flags $output_objdir/$libname.def~ emximp -o $lib $output_objdir/$libname.def' archive_expsym_cmds='$ECHO "LIBRARY ${soname%$shared_ext} INITINSTANCE TERMINSTANCE" > $output_objdir/$libname.def~ $ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~ $ECHO "DATA MULTIPLE NONSHARED" >> $output_objdir/$libname.def~ $ECHO EXPORTS >> $output_objdir/$libname.def~ prefix_cmds="$SED"~ if test EXPORTS = "`$SED 1q $export_symbols`"; then prefix_cmds="$prefix_cmds -e 1d"; fi~ prefix_cmds="$prefix_cmds -e \"s/^\(.*\)$/_\1/g\""~ cat $export_symbols | $prefix_cmds >> $output_objdir/$libname.def~ $CC -Zdll -Zcrtdll -o $output_objdir/$soname $libobjs $deplibs $compiler_flags $output_objdir/$libname.def~ emximp -o $lib $output_objdir/$libname.def' old_archive_From_new_cmds='emximp -o $output_objdir/${libname}_dll.a $output_objdir/$libname.def' enable_shared_with_static_runtimes=yes ;; interix[3-9]*) hardcode_direct=no hardcode_shlibpath_var=no hardcode_libdir_flag_spec='$wl-rpath,$libdir' export_dynamic_flag_spec='$wl-E' # Hack: On Interix 3.x, we cannot compile PIC because of a broken gcc. # Instead, shared libraries are loaded at an image base (0x10000000 by # default) and relocated if they conflict, which is a slow very memory # consuming and fragmenting process. To avoid this, we pick a random, # 256 KiB-aligned image base between 0x50000000 and 0x6FFC0000 at link # time. Moving up from 0x10000000 also allows more sbrk(2) space. archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-h,$soname $wl--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib' archive_expsym_cmds='sed "s|^|_|" $export_symbols >$output_objdir/$soname.expsym~$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-h,$soname $wl--retain-symbols-file,$output_objdir/$soname.expsym $wl--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib' ;; gnu* | linux* | tpf* | k*bsd*-gnu | kopensolaris*-gnu) tmp_diet=no if test linux-dietlibc = "$host_os"; then case $cc_basename in diet\ *) tmp_diet=yes;; # linux-dietlibc with static linking (!diet-dyn) esac fi if $LD --help 2>&1 | $EGREP ': supported targets:.* elf' > /dev/null \ && test no = "$tmp_diet" then tmp_addflag=' $pic_flag' tmp_sharedflag='-shared' case $cc_basename,$host_cpu in pgcc*) # Portland Group C compiler whole_archive_flag_spec='$wl--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` $wl--no-whole-archive' tmp_addflag=' $pic_flag' ;; pgf77* | pgf90* | pgf95* | pgfortran*) # Portland Group f77 and f90 compilers whole_archive_flag_spec='$wl--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` $wl--no-whole-archive' tmp_addflag=' $pic_flag -Mnomain' ;; ecc*,ia64* | icc*,ia64*) # Intel C compiler on ia64 tmp_addflag=' -i_dynamic' ;; efc*,ia64* | ifort*,ia64*) # Intel Fortran compiler on ia64 tmp_addflag=' -i_dynamic -nofor_main' ;; ifc* | ifort*) # Intel Fortran compiler tmp_addflag=' -nofor_main' ;; lf95*) # Lahey Fortran 8.1 whole_archive_flag_spec= tmp_sharedflag='--shared' ;; nagfor*) # NAGFOR 5.3 tmp_sharedflag='-Wl,-shared' ;; 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 yes = "$supports_anon_versioning"; then archive_expsym_cmds='echo "{ global:" > $output_objdir/$libname.ver~ cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ echo "local: *; };" >> $output_objdir/$libname.ver~ $CC '"$tmp_sharedflag""$tmp_addflag"' $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-version-script $wl$output_objdir/$libname.ver -o $lib' fi case $cc_basename in tcc*) export_dynamic_flag_spec='-rdynamic' ;; xlf* | bgf* | bgxlf* | mpixlf*) # IBM XL Fortran 10.1 on PPC cannot create shared libs itself whole_archive_flag_spec='--whole-archive$convenience --no-whole-archive' hardcode_libdir_flag_spec='$wl-rpath $wl$libdir' archive_cmds='$LD -shared $libobjs $deplibs $linker_flags -soname $soname -o $lib' if test yes = "$supports_anon_versioning"; then archive_expsym_cmds='echo "{ global:" > $output_objdir/$libname.ver~ cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ echo "local: *; };" >> $output_objdir/$libname.ver~ $LD -shared $libobjs $deplibs $linker_flags -soname $soname -version-script $output_objdir/$libname.ver -o $lib' fi ;; esac else ld_shlibs=no fi ;; netbsd*) if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then archive_cmds='$LD -Bshareable $libobjs $deplibs $linker_flags -o $lib' wlarc= else archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' archive_expsym_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib' fi ;; solaris*) if $LD -v 2>&1 | $GREP 'BFD 2\.8' > /dev/null; then ld_shlibs=no cat <<_LT_EOF 1>&2 *** Warning: The releases 2.8.* of the GNU linker cannot reliably *** create shared libraries on Solaris systems. Therefore, libtool *** is disabling shared libraries support. We urge you to upgrade GNU *** binutils to release 2.9.1 or newer. Another option is to modify *** your PATH or compiler configuration so that the native linker is *** used, and then restart. _LT_EOF elif $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' archive_expsym_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib' else ld_shlibs=no fi ;; sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX*) case `$LD -v 2>&1` in *\ [01].* | *\ 2.[0-9].* | *\ 2.1[0-5].*) ld_shlibs=no cat <<_LT_EOF 1>&2 *** Warning: Releases of the GNU linker prior to 2.16.91.0.3 cannot *** reliably create shared libraries on SCO systems. Therefore, libtool *** is disabling shared libraries support. We urge you to upgrade GNU *** binutils to release 2.16.91.0.3 or newer. Another option is to modify *** your PATH or compiler configuration so that the native linker is *** used, and then restart. _LT_EOF ;; *) # For security reasons, it is highly recommended that you always # use absolute paths for naming shared libraries, and exclude the # DT_RUNPATH tag from executables and libraries. But doing so # requires that you compile everything twice, which is a pain. if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then hardcode_libdir_flag_spec='$wl-rpath $wl$libdir' archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' archive_expsym_cmds='$CC -shared $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib' else ld_shlibs=no fi ;; esac ;; sunos4*) archive_cmds='$LD -assert pure-text -Bshareable -o $lib $libobjs $deplibs $linker_flags' wlarc= hardcode_direct=yes hardcode_shlibpath_var=no ;; *) if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' archive_expsym_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib' else ld_shlibs=no fi ;; esac if test no = "$ld_shlibs"; then runpath_var= hardcode_libdir_flag_spec= export_dynamic_flag_spec= whole_archive_flag_spec= fi else # PORTME fill in a description of your system's linker (not GNU ld) case $host_os in aix3*) allow_undefined_flag=unsupported always_export_symbols=yes archive_expsym_cmds='$LD -o $output_objdir/$soname $libobjs $deplibs $linker_flags -bE:$export_symbols -T512 -H512 -bM:SRE~$AR $AR_FLAGS $lib $output_objdir/$soname' # Note: this linker hardcodes the directories in LIBPATH if there # are no directories specified by -L. hardcode_minus_L=yes if test yes = "$GCC" && test -z "$lt_prog_compiler_static"; then # Neither direct hardcoding nor static linking is supported with a # broken collect2. hardcode_direct=unsupported fi ;; aix[4-9]*) if test ia64 = "$host_cpu"; then # On IA64, the linker does run time linking by default, so we don't # have to do anything special. aix_use_runtimelinking=no exp_sym_flag='-Bexport' no_entry_flag= else # If we're using GNU nm, then we don't want the "-C" option. # -C means demangle to GNU nm, but means don't demangle to AIX nm. # Without the "-l" option, or with the "-B" option, AIX nm treats # weak defined symbols like other global defined symbols, whereas # GNU nm marks them as "W". # While the 'weak' keyword is ignored in the Export File, we need # it in the Import File for the 'aix-soname' feature, so we have # to replace the "-B" option with "-P" for AIX nm. if $NM -V 2>&1 | $GREP 'GNU' > /dev/null; then export_symbols_cmds='$NM -Bpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B") || (\$ 2 == "W")) && (substr(\$ 3,1,1) != ".")) { if (\$ 2 == "W") { print \$ 3 " weak" } else { print \$ 3 } } }'\'' | sort -u > $export_symbols' else export_symbols_cmds='`func_echo_all $NM | $SED -e '\''s/B\([^B]*\)$/P\1/'\''` -PCpgl $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B") || (\$ 2 == "W") || (\$ 2 == "V") || (\$ 2 == "Z")) && (substr(\$ 1,1,1) != ".")) { if ((\$ 2 == "W") || (\$ 2 == "V") || (\$ 2 == "Z")) { print \$ 1 " weak" } else { print \$ 1 } } }'\'' | sort -u > $export_symbols' fi aix_use_runtimelinking=no # Test if we are trying to use run time linking or normal # AIX style linking. If -brtl is somewhere in LDFLAGS, we # have runtime linking enabled, and use it for executables. # For shared libraries, we enable/disable runtime linking # depending on the kind of the shared library created - # when "with_aix_soname,aix_use_runtimelinking" is: # "aix,no" lib.a(lib.so.V) shared, rtl:no, for executables # "aix,yes" lib.so shared, rtl:yes, for executables # lib.a static archive # "both,no" lib.so.V(shr.o) shared, rtl:yes # lib.a(lib.so.V) shared, rtl:no, for executables # "both,yes" lib.so.V(shr.o) shared, rtl:yes, for executables # lib.a(lib.so.V) shared, rtl:no # "svr4,*" lib.so.V(shr.o) shared, rtl:yes, for executables # lib.a static archive case $host_os in aix4.[23]|aix4.[23].*|aix[5-9]*) for ld_flag in $LDFLAGS; do if (test x-brtl = "x$ld_flag" || test x-Wl,-brtl = "x$ld_flag"); then aix_use_runtimelinking=yes break fi done if test svr4,no = "$with_aix_soname,$aix_use_runtimelinking"; then # With aix-soname=svr4, we create the lib.so.V shared archives only, # so we don't have lib.a shared libs to link our executables. # We have to force runtime linking in this case. aix_use_runtimelinking=yes LDFLAGS="$LDFLAGS -Wl,-brtl" fi ;; esac exp_sym_flag='-bexport' no_entry_flag='-bnoentry' fi # When large executables or shared objects are built, AIX ld can # have problems creating the table of contents. If linking a library # or program results in "error TOC overflow" add -mminimal-toc to # CXXFLAGS/CFLAGS for g++/gcc. In the cases where that is not # enough to fix the problem, add -Wl,-bbigtoc to LDFLAGS. archive_cmds='' hardcode_direct=yes hardcode_direct_absolute=yes hardcode_libdir_separator=':' link_all_deplibs=yes file_list_spec='$wl-f,' case $with_aix_soname,$aix_use_runtimelinking in aix,*) ;; # traditional, no import file svr4,* | *,yes) # use import file # The Import File defines what to hardcode. hardcode_direct=no hardcode_direct_absolute=no ;; esac if test yes = "$GCC"; then case $host_os in aix4.[012]|aix4.[012].*) # We only want to do this on AIX 4.2 and lower, the check # below for broken collect2 doesn't work under 4.3+ collect2name=`$CC -print-prog-name=collect2` if test -f "$collect2name" && strings "$collect2name" | $GREP resolve_lib_name >/dev/null then # We have reworked collect2 : else # We have old collect2 hardcode_direct=unsupported # It fails to find uninstalled libraries when the uninstalled # path is not listed in the libpath. Setting hardcode_minus_L # to unsupported forces relinking hardcode_minus_L=yes hardcode_libdir_flag_spec='-L$libdir' hardcode_libdir_separator= fi ;; esac shared_flag='-shared' if test yes = "$aix_use_runtimelinking"; then shared_flag="$shared_flag "'$wl-G' fi # Need to ensure runtime linking is disabled for the traditional # shared library, or the linker may eventually find shared libraries # /with/ Import File - we do not want to mix them. shared_flag_aix='-shared' shared_flag_svr4='-shared $wl-G' else # not using gcc if test ia64 = "$host_cpu"; then # VisualAge C++, Version 5.5 for AIX 5L for IA-64, Beta 3 Release # chokes on -Wl,-G. The following line is correct: shared_flag='-G' else if test yes = "$aix_use_runtimelinking"; then shared_flag='$wl-G' else shared_flag='$wl-bM:SRE' fi shared_flag_aix='$wl-bM:SRE' shared_flag_svr4='$wl-G' fi fi export_dynamic_flag_spec='$wl-bexpall' # It seems that -bexpall does not export symbols beginning with # underscore (_), so it is better to generate a list of symbols to export. always_export_symbols=yes if test aix,yes = "$with_aix_soname,$aix_use_runtimelinking"; then # Warning - without using the other runtime loading flags (-brtl), # -berok will link without error, but may produce a broken library. allow_undefined_flag='-berok' # Determine the default libpath from the value encoded in an # empty executable. if test set = "${lt_cv_aix_libpath+set}"; then aix_libpath=$lt_cv_aix_libpath else if ${lt_cv_aix_libpath_+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : lt_aix_libpath_sed=' /Import File Strings/,/^$/ { /^0/ { s/^0 *\([^ ]*\) *$/\1/ p } }' lt_cv_aix_libpath_=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` # Check for a 64-bit object if we didn't find anything. if test -z "$lt_cv_aix_libpath_"; then lt_cv_aix_libpath_=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` fi fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext if test -z "$lt_cv_aix_libpath_"; then lt_cv_aix_libpath_=/usr/lib:/lib fi fi aix_libpath=$lt_cv_aix_libpath_ fi hardcode_libdir_flag_spec='$wl-blibpath:$libdir:'"$aix_libpath" archive_expsym_cmds='$CC -o $output_objdir/$soname $libobjs $deplibs $wl'$no_entry_flag' $compiler_flags `if test -n "$allow_undefined_flag"; then func_echo_all "$wl$allow_undefined_flag"; else :; fi` $wl'$exp_sym_flag:\$export_symbols' '$shared_flag else if test ia64 = "$host_cpu"; then hardcode_libdir_flag_spec='$wl-R $libdir:/usr/lib:/lib' allow_undefined_flag="-z nodefs" archive_expsym_cmds="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs '"\$wl$no_entry_flag"' $compiler_flags $wl$allow_undefined_flag '"\$wl$exp_sym_flag:\$export_symbols" else # Determine the default libpath from the value encoded in an # empty executable. if test set = "${lt_cv_aix_libpath+set}"; then aix_libpath=$lt_cv_aix_libpath else if ${lt_cv_aix_libpath_+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : lt_aix_libpath_sed=' /Import File Strings/,/^$/ { /^0/ { s/^0 *\([^ ]*\) *$/\1/ p } }' lt_cv_aix_libpath_=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` # Check for a 64-bit object if we didn't find anything. if test -z "$lt_cv_aix_libpath_"; then lt_cv_aix_libpath_=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` fi fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext if test -z "$lt_cv_aix_libpath_"; then lt_cv_aix_libpath_=/usr/lib:/lib fi fi aix_libpath=$lt_cv_aix_libpath_ fi hardcode_libdir_flag_spec='$wl-blibpath:$libdir:'"$aix_libpath" # Warning - without using the other run time loading flags, # -berok will link without error, but may produce a broken library. no_undefined_flag=' $wl-bernotok' allow_undefined_flag=' $wl-berok' if test yes = "$with_gnu_ld"; then # We only use this code for GNU lds that support --whole-archive. whole_archive_flag_spec='$wl--whole-archive$convenience $wl--no-whole-archive' else # Exported symbols can be pulled into shared objects from archives whole_archive_flag_spec='$convenience' fi archive_cmds_need_lc=yes archive_expsym_cmds='$RM -r $output_objdir/$realname.d~$MKDIR $output_objdir/$realname.d' # -brtl affects multiple linker settings, -berok does not and is overridden later compiler_flags_filtered='`func_echo_all "$compiler_flags " | $SED -e "s%-brtl\\([, ]\\)%-berok\\1%g"`' if test svr4 != "$with_aix_soname"; then # This is similar to how AIX traditionally builds its shared libraries. archive_expsym_cmds="$archive_expsym_cmds"'~$CC '$shared_flag_aix' -o $output_objdir/$realname.d/$soname $libobjs $deplibs $wl-bnoentry '$compiler_flags_filtered'$wl-bE:$export_symbols$allow_undefined_flag~$AR $AR_FLAGS $output_objdir/$libname$release.a $output_objdir/$realname.d/$soname' fi if test aix != "$with_aix_soname"; then archive_expsym_cmds="$archive_expsym_cmds"'~$CC '$shared_flag_svr4' -o $output_objdir/$realname.d/$shared_archive_member_spec.o $libobjs $deplibs $wl-bnoentry '$compiler_flags_filtered'$wl-bE:$export_symbols$allow_undefined_flag~$STRIP -e $output_objdir/$realname.d/$shared_archive_member_spec.o~( func_echo_all "#! $soname($shared_archive_member_spec.o)"; if test shr_64 = "$shared_archive_member_spec"; then func_echo_all "# 64"; else func_echo_all "# 32"; fi; cat $export_symbols ) > $output_objdir/$realname.d/$shared_archive_member_spec.imp~$AR $AR_FLAGS $output_objdir/$soname $output_objdir/$realname.d/$shared_archive_member_spec.o $output_objdir/$realname.d/$shared_archive_member_spec.imp' else # used by -dlpreopen to get the symbols archive_expsym_cmds="$archive_expsym_cmds"'~$MV $output_objdir/$realname.d/$soname $output_objdir' fi archive_expsym_cmds="$archive_expsym_cmds"'~$RM -r $output_objdir/$realname.d' fi fi ;; amigaos*) case $host_cpu in powerpc) # see comment about AmigaOS4 .so support archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' archive_expsym_cmds='' ;; m68k) archive_cmds='$RM $output_objdir/a2ixlibrary.data~$ECHO "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$ECHO "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$ECHO "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$ECHO "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)' hardcode_libdir_flag_spec='-L$libdir' hardcode_minus_L=yes ;; esac ;; bsdi[45]*) export_dynamic_flag_spec=-rdynamic ;; cygwin* | mingw* | pw32* | cegcc*) # When not using gcc, we currently assume that we are using # Microsoft Visual C++. # hardcode_libdir_flag_spec is actually meaningless, as there is # no search path for DLLs. case $cc_basename in cl*) # Native MSVC hardcode_libdir_flag_spec=' ' allow_undefined_flag=unsupported always_export_symbols=yes file_list_spec='@' # Tell ltmain to make .lib files, not .a files. libext=lib # Tell ltmain to make .dll files, not .so files. shrext_cmds=.dll # FIXME: Setting linknames here is a bad hack. archive_cmds='$CC -o $output_objdir/$soname $libobjs $compiler_flags $deplibs -Wl,-DLL,-IMPLIB:"$tool_output_objdir$libname.dll.lib"~linknames=' archive_expsym_cmds='if test DEF = "`$SED -n -e '\''s/^[ ]*//'\'' -e '\''/^\(;.*\)*$/d'\'' -e '\''s/^\(EXPORTS\|LIBRARY\)\([ ].*\)*$/DEF/p'\'' -e q $export_symbols`" ; then cp "$export_symbols" "$output_objdir/$soname.def"; echo "$tool_output_objdir$soname.def" > "$output_objdir/$soname.exp"; else $SED -e '\''s/^/-link -EXPORT:/'\'' < $export_symbols > $output_objdir/$soname.exp; fi~ $CC -o $tool_output_objdir$soname $libobjs $compiler_flags $deplibs "@$tool_output_objdir$soname.exp" -Wl,-DLL,-IMPLIB:"$tool_output_objdir$libname.dll.lib"~ linknames=' # The linker will not automatically build a static lib if we build a DLL. # _LT_TAGVAR(old_archive_from_new_cmds, )='true' enable_shared_with_static_runtimes=yes exclude_expsyms='_NULL_IMPORT_DESCRIPTOR|_IMPORT_DESCRIPTOR_.*' export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[BCDGRS][ ]/s/.*[ ]\([^ ]*\)/\1,DATA/'\'' | $SED -e '\''/^[AITW][ ]/s/.*[ ]//'\'' | sort | uniq > $export_symbols' # Don't use ranlib old_postinstall_cmds='chmod 644 $oldlib' postlink_cmds='lt_outputfile="@OUTPUT@"~ lt_tool_outputfile="@TOOL_OUTPUT@"~ case $lt_outputfile in *.exe|*.EXE) ;; *) lt_outputfile=$lt_outputfile.exe lt_tool_outputfile=$lt_tool_outputfile.exe ;; esac~ if test : != "$MANIFEST_TOOL" && test -f "$lt_outputfile.manifest"; then $MANIFEST_TOOL -manifest "$lt_tool_outputfile.manifest" -outputresource:"$lt_tool_outputfile" || exit 1; $RM "$lt_outputfile.manifest"; fi' ;; *) # Assume MSVC wrapper hardcode_libdir_flag_spec=' ' allow_undefined_flag=unsupported # Tell ltmain to make .lib files, not .a files. libext=lib # Tell ltmain to make .dll files, not .so files. shrext_cmds=.dll # FIXME: Setting linknames here is a bad hack. archive_cmds='$CC -o $lib $libobjs $compiler_flags `func_echo_all "$deplibs" | $SED '\''s/ -lc$//'\''` -link -dll~linknames=' # The linker will automatically build a .lib file if we build a DLL. old_archive_from_new_cmds='true' # FIXME: Should let the user specify the lib program. old_archive_cmds='lib -OUT:$oldlib$oldobjs$old_deplibs' enable_shared_with_static_runtimes=yes ;; esac ;; darwin* | rhapsody*) archive_cmds_need_lc=no hardcode_direct=no hardcode_automatic=yes hardcode_shlibpath_var=unsupported if test yes = "$lt_cv_ld_force_load"; then whole_archive_flag_spec='`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience $wl-force_load,$conv\"; done; func_echo_all \"$new_convenience\"`' else whole_archive_flag_spec='' fi link_all_deplibs=yes allow_undefined_flag=$_lt_dar_allow_undefined case $cc_basename in ifort*|nagfor*) _lt_dar_can_shared=yes ;; *) _lt_dar_can_shared=$GCC ;; esac if test yes = "$_lt_dar_can_shared"; then output_verbose_link_cmd=func_echo_all archive_cmds="\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring $_lt_dar_single_mod$_lt_dsymutil" module_cmds="\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags$_lt_dsymutil" archive_expsym_cmds="sed 's|^|_|' < \$export_symbols > \$output_objdir/\$libname-symbols.expsym~\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring $_lt_dar_single_mod$_lt_dar_export_syms$_lt_dsymutil" module_expsym_cmds="sed -e 's|^|_|' < \$export_symbols > \$output_objdir/\$libname-symbols.expsym~\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags$_lt_dar_export_syms$_lt_dsymutil" else ld_shlibs=no fi ;; dgux*) archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_libdir_flag_spec='-L$libdir' hardcode_shlibpath_var=no ;; # FreeBSD 2.2.[012] allows us to include c++rt0.o to get C++ constructor # support. Future versions do this automatically, but an explicit c++rt0.o # does not break anything, and helps significantly (at the cost of a little # extra space). freebsd2.2*) archive_cmds='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags /usr/lib/c++rt0.o' hardcode_libdir_flag_spec='-R$libdir' hardcode_direct=yes hardcode_shlibpath_var=no ;; # Unfortunately, older versions of FreeBSD 2 do not have this feature. freebsd2.*) archive_cmds='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' hardcode_direct=yes hardcode_minus_L=yes hardcode_shlibpath_var=no ;; # FreeBSD 3 and greater uses gcc -shared to do shared libraries. freebsd* | dragonfly*) archive_cmds='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' hardcode_libdir_flag_spec='-R$libdir' hardcode_direct=yes hardcode_shlibpath_var=no ;; hpux9*) if test yes = "$GCC"; then archive_cmds='$RM $output_objdir/$soname~$CC -shared $pic_flag $wl+b $wl$install_libdir -o $output_objdir/$soname $libobjs $deplibs $compiler_flags~test "x$output_objdir/$soname" = "x$lib" || mv $output_objdir/$soname $lib' else archive_cmds='$RM $output_objdir/$soname~$LD -b +b $install_libdir -o $output_objdir/$soname $libobjs $deplibs $linker_flags~test "x$output_objdir/$soname" = "x$lib" || mv $output_objdir/$soname $lib' fi hardcode_libdir_flag_spec='$wl+b $wl$libdir' hardcode_libdir_separator=: hardcode_direct=yes # hardcode_minus_L: Not really in the search PATH, # but as the default location of the library. hardcode_minus_L=yes export_dynamic_flag_spec='$wl-E' ;; hpux10*) if test yes,no = "$GCC,$with_gnu_ld"; then archive_cmds='$CC -shared $pic_flag $wl+h $wl$soname $wl+b $wl$install_libdir -o $lib $libobjs $deplibs $compiler_flags' else archive_cmds='$LD -b +h $soname +b $install_libdir -o $lib $libobjs $deplibs $linker_flags' fi if test no = "$with_gnu_ld"; then hardcode_libdir_flag_spec='$wl+b $wl$libdir' hardcode_libdir_separator=: hardcode_direct=yes hardcode_direct_absolute=yes export_dynamic_flag_spec='$wl-E' # hardcode_minus_L: Not really in the search PATH, # but as the default location of the library. hardcode_minus_L=yes fi ;; hpux11*) if test yes,no = "$GCC,$with_gnu_ld"; then case $host_cpu in hppa*64*) archive_cmds='$CC -shared $wl+h $wl$soname -o $lib $libobjs $deplibs $compiler_flags' ;; ia64*) archive_cmds='$CC -shared $pic_flag $wl+h $wl$soname $wl+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags' ;; *) archive_cmds='$CC -shared $pic_flag $wl+h $wl$soname $wl+b $wl$install_libdir -o $lib $libobjs $deplibs $compiler_flags' ;; esac else case $host_cpu in hppa*64*) archive_cmds='$CC -b $wl+h $wl$soname -o $lib $libobjs $deplibs $compiler_flags' ;; ia64*) archive_cmds='$CC -b $wl+h $wl$soname $wl+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags' ;; *) # Older versions of the 11.00 compiler do not understand -b yet # (HP92453-01 A.11.01.20 doesn't, HP92453-01 B.11.X.35175-35176.GP does) { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $CC understands -b" >&5 $as_echo_n "checking if $CC understands -b... " >&6; } if ${lt_cv_prog_compiler__b+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_prog_compiler__b=no save_LDFLAGS=$LDFLAGS LDFLAGS="$LDFLAGS -b" echo "$lt_simple_link_test_code" > conftest.$ac_ext if (eval $ac_link 2>conftest.err) && test -s conftest$ac_exeext; then # The linker can only warn and ignore the option if not recognized # So say no if there are warnings if test -s conftest.err; then # Append any errors to the config.log. cat conftest.err 1>&5 $ECHO "$_lt_linker_boilerplate" | $SED '/^$/d' > conftest.exp $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 if diff conftest.exp conftest.er2 >/dev/null; then lt_cv_prog_compiler__b=yes fi else lt_cv_prog_compiler__b=yes fi fi $RM -r conftest* LDFLAGS=$save_LDFLAGS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler__b" >&5 $as_echo "$lt_cv_prog_compiler__b" >&6; } if test yes = "$lt_cv_prog_compiler__b"; then archive_cmds='$CC -b $wl+h $wl$soname $wl+b $wl$install_libdir -o $lib $libobjs $deplibs $compiler_flags' else archive_cmds='$LD -b +h $soname +b $install_libdir -o $lib $libobjs $deplibs $linker_flags' fi ;; esac fi if test no = "$with_gnu_ld"; then hardcode_libdir_flag_spec='$wl+b $wl$libdir' hardcode_libdir_separator=: case $host_cpu in hppa*64*|ia64*) hardcode_direct=no hardcode_shlibpath_var=no ;; *) hardcode_direct=yes hardcode_direct_absolute=yes export_dynamic_flag_spec='$wl-E' # hardcode_minus_L: Not really in the search PATH, # but as the default location of the library. hardcode_minus_L=yes ;; esac fi ;; irix5* | irix6* | nonstopux*) if test yes = "$GCC"; then archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname `test -n "$verstring" && func_echo_all "$wl-set_version $wl$verstring"` $wl-update_registry $wl$output_objdir/so_locations -o $lib' # Try to use the -exported_symbol ld option, if it does not # work, assume that -exports_file does not work either and # implicitly export all symbols. # This should be the same for all languages, so no per-tag cache variable. { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the $host_os linker accepts -exported_symbol" >&5 $as_echo_n "checking whether the $host_os linker accepts -exported_symbol... " >&6; } if ${lt_cv_irix_exported_symbol+:} false; then : $as_echo_n "(cached) " >&6 else save_LDFLAGS=$LDFLAGS LDFLAGS="$LDFLAGS -shared $wl-exported_symbol ${wl}foo $wl-update_registry $wl/dev/null" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int foo (void) { return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : lt_cv_irix_exported_symbol=yes else lt_cv_irix_exported_symbol=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LDFLAGS=$save_LDFLAGS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_irix_exported_symbol" >&5 $as_echo "$lt_cv_irix_exported_symbol" >&6; } if test yes = "$lt_cv_irix_exported_symbol"; then archive_expsym_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname `test -n "$verstring" && func_echo_all "$wl-set_version $wl$verstring"` $wl-update_registry $wl$output_objdir/so_locations $wl-exports_file $wl$export_symbols -o $lib' fi else archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry $output_objdir/so_locations -o $lib' archive_expsym_cmds='$CC -shared $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry $output_objdir/so_locations -exports_file $export_symbols -o $lib' fi archive_cmds_need_lc='no' hardcode_libdir_flag_spec='$wl-rpath $wl$libdir' hardcode_libdir_separator=: inherit_rpath=yes link_all_deplibs=yes ;; linux*) case $cc_basename in tcc*) # Fabrice Bellard et al's Tiny C Compiler ld_shlibs=yes archive_cmds='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' ;; esac ;; netbsd*) if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then archive_cmds='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' # a.out else archive_cmds='$LD -shared -o $lib $libobjs $deplibs $linker_flags' # ELF fi hardcode_libdir_flag_spec='-R$libdir' hardcode_direct=yes hardcode_shlibpath_var=no ;; newsos6) archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_direct=yes hardcode_libdir_flag_spec='$wl-rpath $wl$libdir' hardcode_libdir_separator=: hardcode_shlibpath_var=no ;; *nto* | *qnx*) ;; openbsd* | bitrig*) if test -f /usr/libexec/ld.so; then hardcode_direct=yes hardcode_shlibpath_var=no hardcode_direct_absolute=yes if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`"; then archive_cmds='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags $wl-retain-symbols-file,$export_symbols' hardcode_libdir_flag_spec='$wl-rpath,$libdir' export_dynamic_flag_spec='$wl-E' else archive_cmds='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' hardcode_libdir_flag_spec='$wl-rpath,$libdir' fi else ld_shlibs=no fi ;; os2*) hardcode_libdir_flag_spec='-L$libdir' hardcode_minus_L=yes allow_undefined_flag=unsupported shrext_cmds=.dll archive_cmds='$ECHO "LIBRARY ${soname%$shared_ext} INITINSTANCE TERMINSTANCE" > $output_objdir/$libname.def~ $ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~ $ECHO "DATA MULTIPLE NONSHARED" >> $output_objdir/$libname.def~ $ECHO EXPORTS >> $output_objdir/$libname.def~ emxexp $libobjs | $SED /"_DLL_InitTerm"/d >> $output_objdir/$libname.def~ $CC -Zdll -Zcrtdll -o $output_objdir/$soname $libobjs $deplibs $compiler_flags $output_objdir/$libname.def~ emximp -o $lib $output_objdir/$libname.def' archive_expsym_cmds='$ECHO "LIBRARY ${soname%$shared_ext} INITINSTANCE TERMINSTANCE" > $output_objdir/$libname.def~ $ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~ $ECHO "DATA MULTIPLE NONSHARED" >> $output_objdir/$libname.def~ $ECHO EXPORTS >> $output_objdir/$libname.def~ prefix_cmds="$SED"~ if test EXPORTS = "`$SED 1q $export_symbols`"; then prefix_cmds="$prefix_cmds -e 1d"; fi~ prefix_cmds="$prefix_cmds -e \"s/^\(.*\)$/_\1/g\""~ cat $export_symbols | $prefix_cmds >> $output_objdir/$libname.def~ $CC -Zdll -Zcrtdll -o $output_objdir/$soname $libobjs $deplibs $compiler_flags $output_objdir/$libname.def~ emximp -o $lib $output_objdir/$libname.def' old_archive_From_new_cmds='emximp -o $output_objdir/${libname}_dll.a $output_objdir/$libname.def' enable_shared_with_static_runtimes=yes ;; osf3*) if test yes = "$GCC"; then allow_undefined_flag=' $wl-expect_unresolved $wl\*' archive_cmds='$CC -shared$allow_undefined_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname `test -n "$verstring" && func_echo_all "$wl-set_version $wl$verstring"` $wl-update_registry $wl$output_objdir/so_locations -o $lib' else allow_undefined_flag=' -expect_unresolved \*' archive_cmds='$CC -shared$allow_undefined_flag $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry $output_objdir/so_locations -o $lib' fi archive_cmds_need_lc='no' hardcode_libdir_flag_spec='$wl-rpath $wl$libdir' hardcode_libdir_separator=: ;; osf4* | osf5*) # as osf3* with the addition of -msym flag if test yes = "$GCC"; then allow_undefined_flag=' $wl-expect_unresolved $wl\*' archive_cmds='$CC -shared$allow_undefined_flag $pic_flag $libobjs $deplibs $compiler_flags $wl-msym $wl-soname $wl$soname `test -n "$verstring" && func_echo_all "$wl-set_version $wl$verstring"` $wl-update_registry $wl$output_objdir/so_locations -o $lib' hardcode_libdir_flag_spec='$wl-rpath $wl$libdir' else allow_undefined_flag=' -expect_unresolved \*' archive_cmds='$CC -shared$allow_undefined_flag $libobjs $deplibs $compiler_flags -msym -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry $output_objdir/so_locations -o $lib' archive_expsym_cmds='for i in `cat $export_symbols`; do printf "%s %s\\n" -exported_symbol "\$i" >> $lib.exp; done; printf "%s\\n" "-hidden">> $lib.exp~ $CC -shared$allow_undefined_flag $wl-input $wl$lib.exp $compiler_flags $libobjs $deplibs -soname $soname `test -n "$verstring" && $ECHO "-set_version $verstring"` -update_registry $output_objdir/so_locations -o $lib~$RM $lib.exp' # Both c and cxx compiler support -rpath directly hardcode_libdir_flag_spec='-rpath $libdir' fi archive_cmds_need_lc='no' hardcode_libdir_separator=: ;; solaris*) no_undefined_flag=' -z defs' if test yes = "$GCC"; then wlarc='$wl' archive_cmds='$CC -shared $pic_flag $wl-z ${wl}text $wl-h $wl$soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ $CC -shared $pic_flag $wl-z ${wl}text $wl-M $wl$lib.exp $wl-h $wl$soname -o $lib $libobjs $deplibs $compiler_flags~$RM $lib.exp' else case `$CC -V 2>&1` in *"Compilers 5.0"*) wlarc='' archive_cmds='$LD -G$allow_undefined_flag -h $soname -o $lib $libobjs $deplibs $linker_flags' archive_expsym_cmds='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ $LD -G$allow_undefined_flag -M $lib.exp -h $soname -o $lib $libobjs $deplibs $linker_flags~$RM $lib.exp' ;; *) wlarc='$wl' archive_cmds='$CC -G$allow_undefined_flag -h $soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ $CC -G$allow_undefined_flag -M $lib.exp -h $soname -o $lib $libobjs $deplibs $compiler_flags~$RM $lib.exp' ;; esac fi hardcode_libdir_flag_spec='-R$libdir' hardcode_shlibpath_var=no case $host_os in solaris2.[0-5] | solaris2.[0-5].*) ;; *) # The compiler driver will combine and reorder linker options, # but understands '-z linker_flag'. GCC discards it without '$wl', # but is careful enough not to reorder. # Supported since Solaris 2.6 (maybe 2.5.1?) if test yes = "$GCC"; then whole_archive_flag_spec='$wl-z ${wl}allextract$convenience $wl-z ${wl}defaultextract' else whole_archive_flag_spec='-z allextract$convenience -z defaultextract' fi ;; esac link_all_deplibs=yes ;; sunos4*) if test sequent = "$host_vendor"; then # Use $CC to link under sequent, because it throws in some extra .o # files that make .init and .fini sections work. archive_cmds='$CC -G $wl-h $soname -o $lib $libobjs $deplibs $compiler_flags' else archive_cmds='$LD -assert pure-text -Bstatic -o $lib $libobjs $deplibs $linker_flags' fi hardcode_libdir_flag_spec='-L$libdir' hardcode_direct=yes hardcode_minus_L=yes hardcode_shlibpath_var=no ;; sysv4) case $host_vendor in sni) archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_direct=yes # is this really true??? ;; siemens) ## LD is ld it makes a PLAMLIB ## CC just makes a GrossModule. archive_cmds='$LD -G -o $lib $libobjs $deplibs $linker_flags' reload_cmds='$CC -r -o $output$reload_objs' hardcode_direct=no ;; motorola) archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_direct=no #Motorola manual says yes, but my tests say they lie ;; esac runpath_var='LD_RUN_PATH' hardcode_shlibpath_var=no ;; sysv4.3*) archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_shlibpath_var=no export_dynamic_flag_spec='-Bexport' ;; sysv4*MP*) if test -d /usr/nec; then archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_shlibpath_var=no runpath_var=LD_RUN_PATH hardcode_runpath_var=yes ld_shlibs=yes fi ;; sysv4*uw2* | sysv5OpenUNIX* | sysv5UnixWare7.[01].[10]* | unixware7* | sco3.2v5.0.[024]*) no_undefined_flag='$wl-z,text' archive_cmds_need_lc=no hardcode_shlibpath_var=no runpath_var='LD_RUN_PATH' if test yes = "$GCC"; then archive_cmds='$CC -shared $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds='$CC -shared $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' else archive_cmds='$CC -G $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds='$CC -G $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' fi ;; sysv5* | sco3.2v5* | sco5v6*) # Note: We CANNOT use -z defs as we might desire, because we do not # link with -lc, and that would cause any symbols used from libc to # always be unresolved, which means just about no library would # ever link correctly. If we're not using GNU ld we use -z text # though, which does catch some bad symbols but isn't as heavy-handed # as -z defs. no_undefined_flag='$wl-z,text' allow_undefined_flag='$wl-z,nodefs' archive_cmds_need_lc=no hardcode_shlibpath_var=no hardcode_libdir_flag_spec='$wl-R,$libdir' hardcode_libdir_separator=':' link_all_deplibs=yes export_dynamic_flag_spec='$wl-Bexport' runpath_var='LD_RUN_PATH' if test yes = "$GCC"; then archive_cmds='$CC -shared $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds='$CC -shared $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' else archive_cmds='$CC -G $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds='$CC -G $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' fi ;; uts4*) archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_libdir_flag_spec='-L$libdir' hardcode_shlibpath_var=no ;; *) ld_shlibs=no ;; esac if test sni = "$host_vendor"; then case $host in sysv4 | sysv4.2uw2* | sysv4.3* | sysv5*) export_dynamic_flag_spec='$wl-Blargedynsym' ;; esac fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ld_shlibs" >&5 $as_echo "$ld_shlibs" >&6; } test no = "$ld_shlibs" && can_build_shared=no with_gnu_ld=$with_gnu_ld # # Do we need to explicitly link libc? # case "x$archive_cmds_need_lc" in x|xyes) # Assume -lc should be added archive_cmds_need_lc=yes if test yes,yes = "$GCC,$enable_shared"; then case $archive_cmds in *'~'*) # FIXME: we may have to deal with multi-command sequences. ;; '$CC '*) # Test whether the compiler implicitly links with -lc since on some # systems, -lgcc has to come before -lc. If gcc already passes -lc # to ld, don't add -lc before -lgcc. { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether -lc should be explicitly linked in" >&5 $as_echo_n "checking whether -lc should be explicitly linked in... " >&6; } if ${lt_cv_archive_cmds_need_lc+:} false; then : $as_echo_n "(cached) " >&6 else $RM conftest* echo "$lt_simple_compile_test_code" > conftest.$ac_ext if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5 (eval $ac_compile) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } 2>conftest.err; then soname=conftest lib=conftest libobjs=conftest.$ac_objext deplibs= wl=$lt_prog_compiler_wl pic_flag=$lt_prog_compiler_pic compiler_flags=-v linker_flags=-v verstring= output_objdir=. libname=conftest lt_save_allow_undefined_flag=$allow_undefined_flag allow_undefined_flag= if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$archive_cmds 2\>\&1 \| $GREP \" -lc \" \>/dev/null 2\>\&1\""; } >&5 (eval $archive_cmds 2\>\&1 \| $GREP \" -lc \" \>/dev/null 2\>\&1) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } then lt_cv_archive_cmds_need_lc=no else lt_cv_archive_cmds_need_lc=yes fi allow_undefined_flag=$lt_save_allow_undefined_flag else cat conftest.err 1>&5 fi $RM conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_archive_cmds_need_lc" >&5 $as_echo "$lt_cv_archive_cmds_need_lc" >&6; } archive_cmds_need_lc=$lt_cv_archive_cmds_need_lc ;; esac fi ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: checking dynamic linker characteristics" >&5 $as_echo_n "checking dynamic linker characteristics... " >&6; } if test yes = "$GCC"; then case $host_os in darwin*) lt_awk_arg='/^libraries:/,/LR/' ;; *) lt_awk_arg='/^libraries:/' ;; esac case $host_os in mingw* | cegcc*) lt_sed_strip_eq='s|=\([A-Za-z]:\)|\1|g' ;; *) lt_sed_strip_eq='s|=/|/|g' ;; esac lt_search_path_spec=`$CC -print-search-dirs | awk $lt_awk_arg | $SED -e "s/^libraries://" -e $lt_sed_strip_eq` case $lt_search_path_spec in *\;*) # if the path contains ";" then we assume it to be the separator # otherwise default to the standard path separator (i.e. ":") - it is # assumed that no part of a normal pathname contains ";" but that should # okay in the real world where ";" in dirpaths is itself problematic. lt_search_path_spec=`$ECHO "$lt_search_path_spec" | $SED 's/;/ /g'` ;; *) lt_search_path_spec=`$ECHO "$lt_search_path_spec" | $SED "s/$PATH_SEPARATOR/ /g"` ;; esac # Ok, now we have the path, separated by spaces, we can step through it # and add multilib dir if necessary... lt_tmp_lt_search_path_spec= lt_multi_os_dir=/`$CC $CPPFLAGS $CFLAGS $LDFLAGS -print-multi-os-directory 2>/dev/null` # ...but if some path component already ends with the multilib dir we assume # that all is fine and trust -print-search-dirs as is (GCC 4.2? or newer). case "$lt_multi_os_dir; $lt_search_path_spec " in "/; "* | "/.; "* | "/./; "* | *"$lt_multi_os_dir "* | *"$lt_multi_os_dir/ "*) lt_multi_os_dir= ;; esac for lt_sys_path in $lt_search_path_spec; do if test -d "$lt_sys_path$lt_multi_os_dir"; then lt_tmp_lt_search_path_spec="$lt_tmp_lt_search_path_spec $lt_sys_path$lt_multi_os_dir" elif test -n "$lt_multi_os_dir"; then test -d "$lt_sys_path" && \ lt_tmp_lt_search_path_spec="$lt_tmp_lt_search_path_spec $lt_sys_path" fi done lt_search_path_spec=`$ECHO "$lt_tmp_lt_search_path_spec" | awk ' BEGIN {RS = " "; FS = "/|\n";} { lt_foo = ""; lt_count = 0; for (lt_i = NF; lt_i > 0; lt_i--) { if ($lt_i != "" && $lt_i != ".") { if ($lt_i == "..") { lt_count++; } else { if (lt_count == 0) { lt_foo = "/" $lt_i lt_foo; } else { lt_count--; } } } } if (lt_foo != "") { lt_freq[lt_foo]++; } if (lt_freq[lt_foo] == 1) { print lt_foo; } }'` # AWK program above erroneously prepends '/' to C:/dos/paths # for these hosts. case $host_os in mingw* | cegcc*) lt_search_path_spec=`$ECHO "$lt_search_path_spec" |\ $SED 's|/\([A-Za-z]:\)|\1|g'` ;; esac sys_lib_search_path_spec=`$ECHO "$lt_search_path_spec" | $lt_NL2SP` else sys_lib_search_path_spec="/lib /usr/lib /usr/local/lib" fi library_names_spec= libname_spec='lib$name' soname_spec= shrext_cmds=.so postinstall_cmds= postuninstall_cmds= finish_cmds= finish_eval= shlibpath_var= shlibpath_overrides_runpath=unknown version_type=none dynamic_linker="$host_os ld.so" sys_lib_dlsearch_path_spec="/lib /usr/lib" need_lib_prefix=unknown hardcode_into_libs=no # when you set need_version to no, make sure it does not cause -set_version # flags to be left without arguments need_version=unknown case $host_os in aix3*) version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='$libname$release$shared_ext$versuffix $libname.a' shlibpath_var=LIBPATH # AIX 3 has no versioning support, so we append a major version to the name. soname_spec='$libname$release$shared_ext$major' ;; aix[4-9]*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no hardcode_into_libs=yes if test ia64 = "$host_cpu"; then # AIX 5 supports IA64 library_names_spec='$libname$release$shared_ext$major $libname$release$shared_ext$versuffix $libname$shared_ext' shlibpath_var=LD_LIBRARY_PATH else # With GCC up to 2.95.x, collect2 would create an import file # for dependence libraries. The import file would start with # the line '#! .'. This would cause the generated library to # depend on '.', always an invalid library. This was fixed in # development snapshots of GCC prior to 3.0. case $host_os in aix4 | aix4.[01] | aix4.[01].*) if { echo '#if __GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 97)' echo ' yes ' echo '#endif'; } | $CC -E - | $GREP yes > /dev/null; then : else can_build_shared=no fi ;; esac # Using Import Files as archive members, it is possible to support # filename-based versioning of shared library archives on AIX. While # this would work for both with and without runtime linking, it will # prevent static linking of such archives. So we do filename-based # shared library versioning with .so extension only, which is used # when both runtime linking and shared linking is enabled. # Unfortunately, runtime linking may impact performance, so we do # not want this to be the default eventually. Also, we use the # versioned .so libs for executables only if there is the -brtl # linker flag in LDFLAGS as well, or --with-aix-soname=svr4 only. # To allow for filename-based versioning support, we need to create # libNAME.so.V as an archive file, containing: # *) an Import File, referring to the versioned filename of the # archive as well as the shared archive member, telling the # bitwidth (32 or 64) of that shared object, and providing the # list of exported symbols of that shared object, eventually # decorated with the 'weak' keyword # *) the shared object with the F_LOADONLY flag set, to really avoid # it being seen by the linker. # At run time we better use the real file rather than another symlink, # but for link time we create the symlink libNAME.so -> libNAME.so.V case $with_aix_soname,$aix_use_runtimelinking in # AIX (on Power*) has no versioning support, so currently we cannot hardcode correct # soname into executable. Probably we can add versioning support to # collect2, so additional links can be useful in future. aix,yes) # traditional libtool dynamic_linker='AIX unversionable lib.so' # If using run time linking (on AIX 4.2 or later) use lib.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' ;; aix,no) # traditional AIX only dynamic_linker='AIX lib.a(lib.so.V)' # We preserve .a as extension for shared libraries through AIX4.2 # and later when we are not doing run time linking. library_names_spec='$libname$release.a $libname.a' soname_spec='$libname$release$shared_ext$major' ;; svr4,*) # full svr4 only dynamic_linker="AIX lib.so.V($shared_archive_member_spec.o)" library_names_spec='$libname$release$shared_ext$major $libname$shared_ext' # We do not specify a path in Import Files, so LIBPATH fires. shlibpath_overrides_runpath=yes ;; *,yes) # both, prefer svr4 dynamic_linker="AIX lib.so.V($shared_archive_member_spec.o), lib.a(lib.so.V)" library_names_spec='$libname$release$shared_ext$major $libname$shared_ext' # unpreferred sharedlib libNAME.a needs extra handling postinstall_cmds='test -n "$linkname" || linkname="$realname"~func_stripname "" ".so" "$linkname"~$install_shared_prog "$dir/$func_stripname_result.$libext" "$destdir/$func_stripname_result.$libext"~test -z "$tstripme" || test -z "$striplib" || $striplib "$destdir/$func_stripname_result.$libext"' postuninstall_cmds='for n in $library_names $old_library; do :; done~func_stripname "" ".so" "$n"~test "$func_stripname_result" = "$n" || func_append rmfiles " $odir/$func_stripname_result.$libext"' # We do not specify a path in Import Files, so LIBPATH fires. shlibpath_overrides_runpath=yes ;; *,no) # both, prefer aix dynamic_linker="AIX lib.a(lib.so.V), lib.so.V($shared_archive_member_spec.o)" library_names_spec='$libname$release.a $libname.a' soname_spec='$libname$release$shared_ext$major' # unpreferred sharedlib libNAME.so.V and symlink libNAME.so need extra handling postinstall_cmds='test -z "$dlname" || $install_shared_prog $dir/$dlname $destdir/$dlname~test -z "$tstripme" || test -z "$striplib" || $striplib $destdir/$dlname~test -n "$linkname" || linkname=$realname~func_stripname "" ".a" "$linkname"~(cd "$destdir" && $LN_S -f $dlname $func_stripname_result.so)' postuninstall_cmds='test -z "$dlname" || func_append rmfiles " $odir/$dlname"~for n in $old_library $library_names; do :; done~func_stripname "" ".a" "$n"~func_append rmfiles " $odir/$func_stripname_result.so"' ;; esac shlibpath_var=LIBPATH fi ;; amigaos*) case $host_cpu in powerpc) # Since July 2007 AmigaOS4 officially supports .so libraries. # When compiling the executable, add -use-dynld -Lsobjs: to the compileline. library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' ;; m68k) library_names_spec='$libname.ixlibrary $libname.a' # Create ${libname}_ixlibrary.a entries in /sys/libs. finish_eval='for lib in `ls $libdir/*.ixlibrary 2>/dev/null`; do libname=`func_echo_all "$lib" | $SED '\''s%^.*/\([^/]*\)\.ixlibrary$%\1%'\''`; $RM /sys/libs/${libname}_ixlibrary.a; $show "cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a"; cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a || exit 1; done' ;; esac ;; beos*) library_names_spec='$libname$shared_ext' dynamic_linker="$host_os ld.so" shlibpath_var=LIBRARY_PATH ;; bsdi[45]*) version_type=linux # correct to gnu/linux during the next big refactor need_version=no library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' soname_spec='$libname$release$shared_ext$major' finish_cmds='PATH="\$PATH:/sbin" ldconfig $libdir' shlibpath_var=LD_LIBRARY_PATH sys_lib_search_path_spec="/shlib /usr/lib /usr/X11/lib /usr/contrib/lib /lib /usr/local/lib" sys_lib_dlsearch_path_spec="/shlib /usr/lib /usr/local/lib" # the default ld.so.conf also contains /usr/contrib/lib and # /usr/X11R6/lib (/usr/X11 is a link to /usr/X11R6), but let us allow # libtool to hard-code these into programs ;; cygwin* | mingw* | pw32* | cegcc*) version_type=windows shrext_cmds=.dll need_version=no need_lib_prefix=no case $GCC,$cc_basename in yes,*) # gcc library_names_spec='$libname.dll.a' # DLL is installed to $(libdir)/../bin by postinstall_cmds postinstall_cmds='base_file=`basename \$file`~ dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\$base_file'\''i; echo \$dlname'\''`~ dldir=$destdir/`dirname \$dlpath`~ test -d \$dldir || mkdir -p \$dldir~ $install_prog $dir/$dlname \$dldir/$dlname~ chmod a+x \$dldir/$dlname~ if test -n '\''$stripme'\'' && test -n '\''$striplib'\''; then eval '\''$striplib \$dldir/$dlname'\'' || exit \$?; fi' postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~ dlpath=$dir/\$dldll~ $RM \$dlpath' shlibpath_overrides_runpath=yes case $host_os in cygwin*) # Cygwin DLLs use 'cyg' prefix rather than 'lib' soname_spec='`echo $libname | sed -e 's/^lib/cyg/'``echo $release | $SED -e 's/[.]/-/g'`$versuffix$shared_ext' sys_lib_search_path_spec="$sys_lib_search_path_spec /usr/lib/w32api" ;; mingw* | cegcc*) # MinGW DLLs use traditional 'lib' prefix soname_spec='$libname`echo $release | $SED -e 's/[.]/-/g'`$versuffix$shared_ext' ;; pw32*) # pw32 DLLs use 'pw' prefix rather than 'lib' library_names_spec='`echo $libname | sed -e 's/^lib/pw/'``echo $release | $SED -e 's/[.]/-/g'`$versuffix$shared_ext' ;; esac dynamic_linker='Win32 ld.exe' ;; *,cl*) # Native MSVC libname_spec='$name' soname_spec='$libname`echo $release | $SED -e 's/[.]/-/g'`$versuffix$shared_ext' library_names_spec='$libname.dll.lib' case $build_os in mingw*) sys_lib_search_path_spec= lt_save_ifs=$IFS IFS=';' for lt_path in $LIB do IFS=$lt_save_ifs # Let DOS variable expansion print the short 8.3 style file name. lt_path=`cd "$lt_path" 2>/dev/null && cmd //C "for %i in (".") do @echo %~si"` sys_lib_search_path_spec="$sys_lib_search_path_spec $lt_path" done IFS=$lt_save_ifs # Convert to MSYS style. sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | sed -e 's|\\\\|/|g' -e 's| \\([a-zA-Z]\\):| /\\1|g' -e 's|^ ||'` ;; cygwin*) # Convert to unix form, then to dos form, then back to unix form # but this time dos style (no spaces!) so that the unix form looks # like /cygdrive/c/PROGRA~1:/cygdr... sys_lib_search_path_spec=`cygpath --path --unix "$LIB"` sys_lib_search_path_spec=`cygpath --path --dos "$sys_lib_search_path_spec" 2>/dev/null` sys_lib_search_path_spec=`cygpath --path --unix "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"` ;; *) sys_lib_search_path_spec=$LIB if $ECHO "$sys_lib_search_path_spec" | $GREP ';[c-zC-Z]:/' >/dev/null; then # It is most probably a Windows format PATH. sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | $SED -e 's/;/ /g'` else sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"` fi # FIXME: find the short name or the path components, as spaces are # common. (e.g. "Program Files" -> "PROGRA~1") ;; esac # DLL is installed to $(libdir)/../bin by postinstall_cmds postinstall_cmds='base_file=`basename \$file`~ dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\$base_file'\''i; echo \$dlname'\''`~ dldir=$destdir/`dirname \$dlpath`~ test -d \$dldir || mkdir -p \$dldir~ $install_prog $dir/$dlname \$dldir/$dlname' postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~ dlpath=$dir/\$dldll~ $RM \$dlpath' shlibpath_overrides_runpath=yes dynamic_linker='Win32 link.exe' ;; *) # Assume MSVC wrapper library_names_spec='$libname`echo $release | $SED -e 's/[.]/-/g'`$versuffix$shared_ext $libname.lib' dynamic_linker='Win32 ld.exe' ;; esac # FIXME: first we should search . and the directory the executable is in shlibpath_var=PATH ;; darwin* | rhapsody*) dynamic_linker="$host_os dyld" version_type=darwin need_lib_prefix=no need_version=no library_names_spec='$libname$release$major$shared_ext $libname$shared_ext' soname_spec='$libname$release$major$shared_ext' shlibpath_overrides_runpath=yes shlibpath_var=DYLD_LIBRARY_PATH shrext_cmds='`test .$module = .yes && echo .so || echo .dylib`' sys_lib_search_path_spec="$sys_lib_search_path_spec /usr/local/lib" sys_lib_dlsearch_path_spec='/usr/local/lib /lib /usr/lib' ;; dgux*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' soname_spec='$libname$release$shared_ext$major' shlibpath_var=LD_LIBRARY_PATH ;; freebsd* | dragonfly*) # DragonFly does not have aout. When/if they implement a new # versioning mechanism, adjust this. if test -x /usr/bin/objformat; then objformat=`/usr/bin/objformat` else case $host_os in freebsd[23].*) objformat=aout ;; *) objformat=elf ;; esac fi version_type=freebsd-$objformat case $version_type in freebsd-elf*) library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' soname_spec='$libname$release$shared_ext$major' need_version=no need_lib_prefix=no ;; freebsd-*) library_names_spec='$libname$release$shared_ext$versuffix $libname$shared_ext$versuffix' need_version=yes ;; esac shlibpath_var=LD_LIBRARY_PATH case $host_os in freebsd2.*) shlibpath_overrides_runpath=yes ;; freebsd3.[01]* | freebsdelf3.[01]*) shlibpath_overrides_runpath=yes hardcode_into_libs=yes ;; freebsd3.[2-9]* | freebsdelf3.[2-9]* | \ freebsd4.[0-5] | freebsdelf4.[0-5] | freebsd4.1.1 | freebsdelf4.1.1) shlibpath_overrides_runpath=no hardcode_into_libs=yes ;; *) # from 4.6 on, and DragonFly shlibpath_overrides_runpath=yes hardcode_into_libs=yes ;; esac ;; haiku*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no dynamic_linker="$host_os runtime_loader" library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' soname_spec='$libname$release$shared_ext$major' shlibpath_var=LIBRARY_PATH shlibpath_overrides_runpath=no sys_lib_dlsearch_path_spec='/boot/home/config/lib /boot/common/lib /boot/system/lib' hardcode_into_libs=yes ;; hpux9* | hpux10* | hpux11*) # Give a soname corresponding to the major version so that dld.sl refuses to # link against other versions. version_type=sunos need_lib_prefix=no need_version=no case $host_cpu in ia64*) shrext_cmds='.so' hardcode_into_libs=yes dynamic_linker="$host_os dld.so" shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes # Unless +noenvvar is specified. library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' soname_spec='$libname$release$shared_ext$major' if test 32 = "$HPUX_IA64_MODE"; then sys_lib_search_path_spec="/usr/lib/hpux32 /usr/local/lib/hpux32 /usr/local/lib" sys_lib_dlsearch_path_spec=/usr/lib/hpux32 else sys_lib_search_path_spec="/usr/lib/hpux64 /usr/local/lib/hpux64" sys_lib_dlsearch_path_spec=/usr/lib/hpux64 fi ;; hppa*64*) shrext_cmds='.sl' hardcode_into_libs=yes dynamic_linker="$host_os dld.sl" shlibpath_var=LD_LIBRARY_PATH # How should we handle SHLIB_PATH shlibpath_overrides_runpath=yes # Unless +noenvvar is specified. library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' soname_spec='$libname$release$shared_ext$major' sys_lib_search_path_spec="/usr/lib/pa20_64 /usr/ccs/lib/pa20_64" sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec ;; *) shrext_cmds='.sl' dynamic_linker="$host_os dld.sl" shlibpath_var=SHLIB_PATH shlibpath_overrides_runpath=no # +s is required to enable SHLIB_PATH library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' soname_spec='$libname$release$shared_ext$major' ;; esac # HP-UX runs *really* slowly unless shared libraries are mode 555, ... postinstall_cmds='chmod 555 $lib' # or fails outright, so override atomically: install_override_mode=555 ;; interix[3-9]*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' soname_spec='$libname$release$shared_ext$major' dynamic_linker='Interix 3.x ld.so.1 (PE, like ELF)' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes ;; irix5* | irix6* | nonstopux*) case $host_os in nonstopux*) version_type=nonstopux ;; *) if test yes = "$lt_cv_prog_gnu_ld"; then version_type=linux # correct to gnu/linux during the next big refactor else version_type=irix fi ;; esac need_lib_prefix=no need_version=no soname_spec='$libname$release$shared_ext$major' library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$release$shared_ext $libname$shared_ext' case $host_os in irix5* | nonstopux*) libsuff= shlibsuff= ;; *) case $LD in # libtool.m4 will add one of these switches to LD *-32|*"-32 "|*-melf32bsmip|*"-melf32bsmip ") libsuff= shlibsuff= libmagic=32-bit;; *-n32|*"-n32 "|*-melf32bmipn32|*"-melf32bmipn32 ") libsuff=32 shlibsuff=N32 libmagic=N32;; *-64|*"-64 "|*-melf64bmip|*"-melf64bmip ") libsuff=64 shlibsuff=64 libmagic=64-bit;; *) libsuff= shlibsuff= libmagic=never-match;; esac ;; esac shlibpath_var=LD_LIBRARY${shlibsuff}_PATH shlibpath_overrides_runpath=no sys_lib_search_path_spec="/usr/lib$libsuff /lib$libsuff /usr/local/lib$libsuff" sys_lib_dlsearch_path_spec="/usr/lib$libsuff /lib$libsuff" hardcode_into_libs=yes ;; # No shared lib support for Linux oldld, aout, or coff. linux*oldld* | linux*aout* | linux*coff*) dynamic_linker=no ;; linux*android*) version_type=none # Android doesn't support versioned libraries. need_lib_prefix=no need_version=no library_names_spec='$libname$release$shared_ext' soname_spec='$libname$release$shared_ext' finish_cmds= shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes # This implies no fast_install, which is unacceptable. # Some rework will be needed to allow for fast_install # before this can be enabled. hardcode_into_libs=yes dynamic_linker='Android linker' # Don't embed -rpath directories since the linker doesn't support them. hardcode_libdir_flag_spec='-L$libdir' ;; # This must be glibc/ELF. linux* | k*bsd*-gnu | kopensolaris*-gnu | gnu*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' soname_spec='$libname$release$shared_ext$major' finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no # Some binutils ld are patched to set DT_RUNPATH if ${lt_cv_shlibpath_overrides_runpath+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_shlibpath_overrides_runpath=no save_LDFLAGS=$LDFLAGS save_libdir=$libdir eval "libdir=/foo; wl=\"$lt_prog_compiler_wl\"; \ LDFLAGS=\"\$LDFLAGS $hardcode_libdir_flag_spec\"" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : if ($OBJDUMP -p conftest$ac_exeext) 2>/dev/null | grep "RUNPATH.*$libdir" >/dev/null; then : lt_cv_shlibpath_overrides_runpath=yes fi fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LDFLAGS=$save_LDFLAGS libdir=$save_libdir fi shlibpath_overrides_runpath=$lt_cv_shlibpath_overrides_runpath # This implies no fast_install, which is unacceptable. # Some rework will be needed to allow for fast_install # before this can be enabled. hardcode_into_libs=yes # Ideally, we could use ldconfig to report *all* directores which are # searched for libraries, however this is still not possible. Aside from not # being certain /sbin/ldconfig is available, command # 'ldconfig -N -X -v | grep ^/' on 64bit Fedora does not report /usr/lib64, # even though it is searched at run-time. Try to do the best guess by # appending ld.so.conf contents (and includes) to the search path. if test -f /etc/ld.so.conf; then lt_ld_extra=`awk '/^include / { system(sprintf("cd /etc; cat %s 2>/dev/null", \$2)); skip = 1; } { if (!skip) print \$0; skip = 0; }' < /etc/ld.so.conf | $SED -e 's/#.*//;/^[ ]*hwcap[ ]/d;s/[:, ]/ /g;s/=[^=]*$//;s/=[^= ]* / /g;s/"//g;/^$/d' | tr '\n' ' '` sys_lib_dlsearch_path_spec="/lib /usr/lib $lt_ld_extra" fi # We used to test for /lib/ld.so.1 and disable shared libraries on # powerpc, because MkLinux only supported shared libraries with the # GNU dynamic linker. Since this was broken with cross compilers, # most powerpc-linux boxes support dynamic linking these days and # people can always --disable-shared, the test was removed, and we # assume the GNU/Linux dynamic linker is in use. dynamic_linker='GNU/Linux ld.so' ;; netbsd*) version_type=sunos need_lib_prefix=no need_version=no if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then library_names_spec='$libname$release$shared_ext$versuffix $libname$shared_ext$versuffix' finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir' dynamic_linker='NetBSD (a.out) ld.so' else library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' soname_spec='$libname$release$shared_ext$major' dynamic_linker='NetBSD ld.elf_so' fi shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes hardcode_into_libs=yes ;; newsos6) version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes ;; *nto* | *qnx*) version_type=qnx need_lib_prefix=no need_version=no library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' soname_spec='$libname$release$shared_ext$major' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes dynamic_linker='ldqnx.so' ;; openbsd* | bitrig*) version_type=sunos sys_lib_dlsearch_path_spec=/usr/lib need_lib_prefix=no if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`"; then need_version=no else need_version=yes fi library_names_spec='$libname$release$shared_ext$versuffix $libname$shared_ext$versuffix' finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes ;; os2*) libname_spec='$name' version_type=windows shrext_cmds=.dll need_version=no need_lib_prefix=no # OS/2 can only load a DLL with a base name of 8 characters or less. soname_spec='`test -n "$os2dllname" && libname="$os2dllname"; v=$($ECHO $release$versuffix | tr -d .-); n=$($ECHO $libname | cut -b -$((8 - ${#v})) | tr . _); $ECHO $n$v`$shared_ext' library_names_spec='${libname}_dll.$libext' dynamic_linker='OS/2 ld.exe' shlibpath_var=BEGINLIBPATH sys_lib_search_path_spec="/lib /usr/lib /usr/local/lib" sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec postinstall_cmds='base_file=`basename \$file`~ dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\$base_file'\''i; $ECHO \$dlname'\''`~ dldir=$destdir/`dirname \$dlpath`~ test -d \$dldir || mkdir -p \$dldir~ $install_prog $dir/$dlname \$dldir/$dlname~ chmod a+x \$dldir/$dlname~ if test -n '\''$stripme'\'' && test -n '\''$striplib'\''; then eval '\''$striplib \$dldir/$dlname'\'' || exit \$?; fi' postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; $ECHO \$dlname'\''`~ dlpath=$dir/\$dldll~ $RM \$dlpath' ;; osf3* | osf4* | osf5*) version_type=osf need_lib_prefix=no need_version=no soname_spec='$libname$release$shared_ext$major' library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' shlibpath_var=LD_LIBRARY_PATH sys_lib_search_path_spec="/usr/shlib /usr/ccs/lib /usr/lib/cmplrs/cc /usr/lib /usr/local/lib /var/shlib" sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec ;; rdos*) dynamic_linker=no ;; solaris*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' soname_spec='$libname$release$shared_ext$major' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes hardcode_into_libs=yes # ldd complains unless libraries are executable postinstall_cmds='chmod +x $lib' ;; sunos4*) version_type=sunos library_names_spec='$libname$release$shared_ext$versuffix $libname$shared_ext$versuffix' finish_cmds='PATH="\$PATH:/usr/etc" ldconfig $libdir' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes if test yes = "$with_gnu_ld"; then need_lib_prefix=no fi need_version=yes ;; sysv4 | sysv4.3*) version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' soname_spec='$libname$release$shared_ext$major' shlibpath_var=LD_LIBRARY_PATH case $host_vendor in sni) shlibpath_overrides_runpath=no need_lib_prefix=no runpath_var=LD_RUN_PATH ;; siemens) need_lib_prefix=no ;; motorola) need_lib_prefix=no need_version=no shlibpath_overrides_runpath=no sys_lib_search_path_spec='/lib /usr/lib /usr/ccs/lib' ;; esac ;; sysv4*MP*) if test -d /usr/nec; then version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='$libname$shared_ext.$versuffix $libname$shared_ext.$major $libname$shared_ext' soname_spec='$libname$shared_ext.$major' shlibpath_var=LD_LIBRARY_PATH fi ;; sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX* | sysv4*uw2*) version_type=sco need_lib_prefix=no need_version=no library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext $libname$shared_ext' soname_spec='$libname$release$shared_ext$major' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes hardcode_into_libs=yes if test yes = "$with_gnu_ld"; then sys_lib_search_path_spec='/usr/local/lib /usr/gnu/lib /usr/ccs/lib /usr/lib /lib' else sys_lib_search_path_spec='/usr/ccs/lib /usr/lib' case $host_os in sco3.2v5*) sys_lib_search_path_spec="$sys_lib_search_path_spec /lib" ;; esac fi sys_lib_dlsearch_path_spec='/usr/lib' ;; tpf*) # TPF is a cross-target only. Preferred cross-host = GNU/Linux. version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes ;; uts4*) version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' soname_spec='$libname$release$shared_ext$major' shlibpath_var=LD_LIBRARY_PATH ;; *) dynamic_linker=no ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: result: $dynamic_linker" >&5 $as_echo "$dynamic_linker" >&6; } test no = "$dynamic_linker" && can_build_shared=no variables_saved_for_relink="PATH $shlibpath_var $runpath_var" if test yes = "$GCC"; then variables_saved_for_relink="$variables_saved_for_relink GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH" fi if test set = "${lt_cv_sys_lib_search_path_spec+set}"; then sys_lib_search_path_spec=$lt_cv_sys_lib_search_path_spec fi if test set = "${lt_cv_sys_lib_dlsearch_path_spec+set}"; then sys_lib_dlsearch_path_spec=$lt_cv_sys_lib_dlsearch_path_spec fi # remember unaugmented sys_lib_dlsearch_path content for libtool script decls... configure_time_dlsearch_path=$sys_lib_dlsearch_path_spec # ... but it needs LT_SYS_LIBRARY_PATH munging for other configure-time code func_munge_path_list sys_lib_dlsearch_path_spec "$LT_SYS_LIBRARY_PATH" # to be used as default LT_SYS_LIBRARY_PATH value in generated libtool configure_time_lt_sys_library_path=$LT_SYS_LIBRARY_PATH { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to hardcode library paths into programs" >&5 $as_echo_n "checking how to hardcode library paths into programs... " >&6; } hardcode_action= if test -n "$hardcode_libdir_flag_spec" || test -n "$runpath_var" || test yes = "$hardcode_automatic"; then # We can hardcode non-existent directories. if test no != "$hardcode_direct" && # If the only mechanism to avoid hardcoding is shlibpath_var, we # have to relink, otherwise we might link with an installed library # when we should be linking with a yet-to-be-installed one ## test no != "$_LT_TAGVAR(hardcode_shlibpath_var, )" && test no != "$hardcode_minus_L"; then # Linking always hardcodes the temporary library directory. hardcode_action=relink else # We can link without hardcoding, and we can hardcode nonexisting dirs. hardcode_action=immediate fi else # We cannot hardcode anything, or else we can only hardcode existing # directories. hardcode_action=unsupported fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $hardcode_action" >&5 $as_echo "$hardcode_action" >&6; } if test relink = "$hardcode_action" || test yes = "$inherit_rpath"; then # Fast installation is not supported enable_fast_install=no elif test yes = "$shlibpath_overrides_runpath" || test no = "$enable_shared"; then # Fast installation is not necessary enable_fast_install=needless fi if test yes != "$enable_dlopen"; then enable_dlopen=unknown enable_dlopen_self=unknown enable_dlopen_self_static=unknown else lt_cv_dlopen=no lt_cv_dlopen_libs= case $host_os in beos*) lt_cv_dlopen=load_add_on lt_cv_dlopen_libs= lt_cv_dlopen_self=yes ;; mingw* | pw32* | cegcc*) lt_cv_dlopen=LoadLibrary lt_cv_dlopen_libs= ;; cygwin*) lt_cv_dlopen=dlopen lt_cv_dlopen_libs= ;; darwin*) # if libdl is installed we need to link against it { $as_echo "$as_me:${as_lineno-$LINENO}: checking for dlopen in -ldl" >&5 $as_echo_n "checking for dlopen in -ldl... " >&6; } if ${ac_cv_lib_dl_dlopen+:} false; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-ldl $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char dlopen (); int main () { return dlopen (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_dl_dlopen=yes else ac_cv_lib_dl_dlopen=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dl_dlopen" >&5 $as_echo "$ac_cv_lib_dl_dlopen" >&6; } if test "x$ac_cv_lib_dl_dlopen" = xyes; then : lt_cv_dlopen=dlopen lt_cv_dlopen_libs=-ldl else lt_cv_dlopen=dyld lt_cv_dlopen_libs= lt_cv_dlopen_self=yes fi ;; tpf*) # Don't try to run any link tests for TPF. We know it's impossible # because TPF is a cross-compiler, and we know how we open DSOs. lt_cv_dlopen=dlopen lt_cv_dlopen_libs= lt_cv_dlopen_self=no ;; *) ac_fn_c_check_func "$LINENO" "shl_load" "ac_cv_func_shl_load" if test "x$ac_cv_func_shl_load" = xyes; then : lt_cv_dlopen=shl_load else { $as_echo "$as_me:${as_lineno-$LINENO}: checking for shl_load in -ldld" >&5 $as_echo_n "checking for shl_load in -ldld... " >&6; } if ${ac_cv_lib_dld_shl_load+:} false; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-ldld $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char shl_load (); int main () { return shl_load (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_dld_shl_load=yes else ac_cv_lib_dld_shl_load=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dld_shl_load" >&5 $as_echo "$ac_cv_lib_dld_shl_load" >&6; } if test "x$ac_cv_lib_dld_shl_load" = xyes; then : lt_cv_dlopen=shl_load lt_cv_dlopen_libs=-ldld else ac_fn_c_check_func "$LINENO" "dlopen" "ac_cv_func_dlopen" if test "x$ac_cv_func_dlopen" = xyes; then : lt_cv_dlopen=dlopen else { $as_echo "$as_me:${as_lineno-$LINENO}: checking for dlopen in -ldl" >&5 $as_echo_n "checking for dlopen in -ldl... " >&6; } if ${ac_cv_lib_dl_dlopen+:} false; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-ldl $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char dlopen (); int main () { return dlopen (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_dl_dlopen=yes else ac_cv_lib_dl_dlopen=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dl_dlopen" >&5 $as_echo "$ac_cv_lib_dl_dlopen" >&6; } if test "x$ac_cv_lib_dl_dlopen" = xyes; then : lt_cv_dlopen=dlopen lt_cv_dlopen_libs=-ldl else { $as_echo "$as_me:${as_lineno-$LINENO}: checking for dlopen in -lsvld" >&5 $as_echo_n "checking for dlopen in -lsvld... " >&6; } if ${ac_cv_lib_svld_dlopen+:} false; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-lsvld $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char dlopen (); int main () { return dlopen (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_svld_dlopen=yes else ac_cv_lib_svld_dlopen=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_svld_dlopen" >&5 $as_echo "$ac_cv_lib_svld_dlopen" >&6; } if test "x$ac_cv_lib_svld_dlopen" = xyes; then : lt_cv_dlopen=dlopen lt_cv_dlopen_libs=-lsvld else { $as_echo "$as_me:${as_lineno-$LINENO}: checking for dld_link in -ldld" >&5 $as_echo_n "checking for dld_link in -ldld... " >&6; } if ${ac_cv_lib_dld_dld_link+:} false; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-ldld $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char dld_link (); int main () { return dld_link (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_dld_dld_link=yes else ac_cv_lib_dld_dld_link=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dld_dld_link" >&5 $as_echo "$ac_cv_lib_dld_dld_link" >&6; } if test "x$ac_cv_lib_dld_dld_link" = xyes; then : lt_cv_dlopen=dld_link lt_cv_dlopen_libs=-ldld fi fi fi fi fi fi ;; esac if test no = "$lt_cv_dlopen"; then enable_dlopen=no else enable_dlopen=yes fi case $lt_cv_dlopen in dlopen) save_CPPFLAGS=$CPPFLAGS test yes = "$ac_cv_header_dlfcn_h" && CPPFLAGS="$CPPFLAGS -DHAVE_DLFCN_H" save_LDFLAGS=$LDFLAGS wl=$lt_prog_compiler_wl eval LDFLAGS=\"\$LDFLAGS $export_dynamic_flag_spec\" save_LIBS=$LIBS LIBS="$lt_cv_dlopen_libs $LIBS" { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether a program can dlopen itself" >&5 $as_echo_n "checking whether a program can dlopen itself... " >&6; } if ${lt_cv_dlopen_self+:} false; then : $as_echo_n "(cached) " >&6 else if test yes = "$cross_compiling"; then : lt_cv_dlopen_self=cross else lt_dlunknown=0; lt_dlno_uscore=1; lt_dlneed_uscore=2 lt_status=$lt_dlunknown cat > conftest.$ac_ext <<_LT_EOF #line $LINENO "configure" #include "confdefs.h" #if HAVE_DLFCN_H #include #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 -fvisibility=hidden is used, assume the code has been annotated correspondingly for the symbols needed. */ #if defined __GNUC__ && (((__GNUC__ == 3) && (__GNUC_MINOR__ >= 3)) || (__GNUC__ > 3)) int fnord () __attribute__((visibility("default"))); #endif int fnord () { return 42; } int main () { void *self = dlopen (0, LT_DLGLOBAL|LT_DLLAZY_OR_NOW); int status = $lt_dlunknown; if (self) { if (dlsym (self,"fnord")) status = $lt_dlno_uscore; else { if (dlsym( self,"_fnord")) status = $lt_dlneed_uscore; else puts (dlerror ()); } /* dlclose (self); */ } else puts (dlerror ()); return status; } _LT_EOF if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_link\""; } >&5 (eval $ac_link) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && test -s "conftest$ac_exeext" 2>/dev/null; then (./conftest; exit; ) >&5 2>/dev/null lt_status=$? case x$lt_status in x$lt_dlno_uscore) lt_cv_dlopen_self=yes ;; x$lt_dlneed_uscore) lt_cv_dlopen_self=yes ;; x$lt_dlunknown|x*) lt_cv_dlopen_self=no ;; esac else : # compilation failed lt_cv_dlopen_self=no fi fi rm -fr conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_dlopen_self" >&5 $as_echo "$lt_cv_dlopen_self" >&6; } if test yes = "$lt_cv_dlopen_self"; then wl=$lt_prog_compiler_wl eval LDFLAGS=\"\$LDFLAGS $lt_prog_compiler_static\" { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether a statically linked program can dlopen itself" >&5 $as_echo_n "checking whether a statically linked program can dlopen itself... " >&6; } if ${lt_cv_dlopen_self_static+:} false; then : $as_echo_n "(cached) " >&6 else if test yes = "$cross_compiling"; then : lt_cv_dlopen_self_static=cross else lt_dlunknown=0; lt_dlno_uscore=1; lt_dlneed_uscore=2 lt_status=$lt_dlunknown cat > conftest.$ac_ext <<_LT_EOF #line $LINENO "configure" #include "confdefs.h" #if HAVE_DLFCN_H #include #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 -fvisibility=hidden is used, assume the code has been annotated correspondingly for the symbols needed. */ #if defined __GNUC__ && (((__GNUC__ == 3) && (__GNUC_MINOR__ >= 3)) || (__GNUC__ > 3)) int fnord () __attribute__((visibility("default"))); #endif int fnord () { return 42; } int main () { void *self = dlopen (0, LT_DLGLOBAL|LT_DLLAZY_OR_NOW); int status = $lt_dlunknown; if (self) { if (dlsym (self,"fnord")) status = $lt_dlno_uscore; else { if (dlsym( self,"_fnord")) status = $lt_dlneed_uscore; else puts (dlerror ()); } /* dlclose (self); */ } else puts (dlerror ()); return status; } _LT_EOF if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_link\""; } >&5 (eval $ac_link) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && test -s "conftest$ac_exeext" 2>/dev/null; then (./conftest; exit; ) >&5 2>/dev/null lt_status=$? case x$lt_status in x$lt_dlno_uscore) lt_cv_dlopen_self_static=yes ;; x$lt_dlneed_uscore) lt_cv_dlopen_self_static=yes ;; x$lt_dlunknown|x*) lt_cv_dlopen_self_static=no ;; esac else : # compilation failed lt_cv_dlopen_self_static=no fi fi rm -fr conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_dlopen_self_static" >&5 $as_echo "$lt_cv_dlopen_self_static" >&6; } fi CPPFLAGS=$save_CPPFLAGS LDFLAGS=$save_LDFLAGS LIBS=$save_LIBS ;; esac case $lt_cv_dlopen_self in yes|no) enable_dlopen_self=$lt_cv_dlopen_self ;; *) enable_dlopen_self=unknown ;; esac case $lt_cv_dlopen_self_static in yes|no) enable_dlopen_self_static=$lt_cv_dlopen_self_static ;; *) enable_dlopen_self_static=unknown ;; esac fi striplib= old_striplib= { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether stripping libraries is possible" >&5 $as_echo_n "checking whether stripping libraries is possible... " >&6; } if test -n "$STRIP" && $STRIP -V 2>&1 | $GREP "GNU strip" >/dev/null; then test -z "$old_striplib" && old_striplib="$STRIP --strip-debug" test -z "$striplib" && striplib="$STRIP --strip-unneeded" { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } else # FIXME - insert some real tests, host_os isn't really good enough case $host_os in darwin*) if test -n "$STRIP"; then striplib="$STRIP -x" old_striplib="$STRIP -S" { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi ;; *) { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } ;; esac fi # Report what library types will actually be built { $as_echo "$as_me:${as_lineno-$LINENO}: checking if libtool supports shared libraries" >&5 $as_echo_n "checking if libtool supports shared libraries... " >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: result: $can_build_shared" >&5 $as_echo "$can_build_shared" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether to build shared libraries" >&5 $as_echo_n "checking whether to build shared libraries... " >&6; } test no = "$can_build_shared" && enable_shared=no # On AIX, shared libraries and static libraries use the same namespace, and # are all built from PIC. case $host_os in aix3*) test yes = "$enable_shared" && enable_static=no if test -n "$RANLIB"; then archive_cmds="$archive_cmds~\$RANLIB \$lib" postinstall_cmds='$RANLIB $lib' fi ;; aix[4-9]*) if test ia64 != "$host_cpu"; then case $enable_shared,$with_aix_soname,$aix_use_runtimelinking in yes,aix,yes) ;; # shared object as lib.so file only yes,svr4,*) ;; # shared object as lib.so archive member only yes,*) enable_static=no ;; # shared object in lib.a archive as well esac fi ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: result: $enable_shared" >&5 $as_echo "$enable_shared" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether to build static libraries" >&5 $as_echo_n "checking whether to build static libraries... " >&6; } # Make sure either enable_shared or enable_static is yes. test yes = "$enable_shared" || enable_static=yes { $as_echo "$as_me:${as_lineno-$LINENO}: result: $enable_static" >&5 $as_echo "$enable_static" >&6; } 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 ac_config_commands="$ac_config_commands libtool" # Only expand once: GENDOC_MAN=YES # Extract the first word of "pod2man", so it can be a program name with args. set dummy pod2man; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_path_POD2MAN+:} false; then : $as_echo_n "(cached) " >&6 else case $POD2MAN in [\\/]* | ?:[\\/]*) ac_cv_path_POD2MAN="$POD2MAN" # Let the user override the test with a path. ;; *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_path_POD2MAN="$as_dir/$ac_word$ac_exec_ext" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS ;; esac fi POD2MAN=$ac_cv_path_POD2MAN if test -n "$POD2MAN"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $POD2MAN" >&5 $as_echo "$POD2MAN" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi have_pod2man=yes test "x$POD2MAN" = x && POD2MAN="false ...pod2man program required..." && have_pod2man=no if test $have_pod2man != yes; then { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: Disabling manpage generation : 'pod2man' program not available" >&5 $as_echo "$as_me: WARNING: Disabling manpage generation : 'pod2man' program not available" >&2;} GENDOC_MAN=NO fi if test "$GENDOC_MAN" = "YES"; then TAKTUK_GENDOC_MAN_TRUE= TAKTUK_GENDOC_MAN_FALSE='#' else TAKTUK_GENDOC_MAN_TRUE='#' TAKTUK_GENDOC_MAN_FALSE= fi GENDOC_HTML=YES # Extract the first word of "pod2html", so it can be a program name with args. set dummy pod2html; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_path_POD2HTML+:} false; then : $as_echo_n "(cached) " >&6 else case $POD2HTML in [\\/]* | ?:[\\/]*) ac_cv_path_POD2HTML="$POD2HTML" # Let the user override the test with a path. ;; *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_path_POD2HTML="$as_dir/$ac_word$ac_exec_ext" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS ;; esac fi POD2HTML=$ac_cv_path_POD2HTML if test -n "$POD2HTML"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $POD2HTML" >&5 $as_echo "$POD2HTML" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi have_pod2html=yes test "x$POD2HTML" = x && POD2HTML="false ...pod2html program required..." && have_pod2html=no if test $have_pod2html != yes; then { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: Disabling html generation : 'pod2html' program not available" >&5 $as_echo "$as_me: WARNING: Disabling html generation : 'pod2html' program not available" >&2;} GENDOC_HTML=NO fi if test "$GENDOC_HTML" = "YES"; then TAKTUK_GENDOC_HTML_TRUE= TAKTUK_GENDOC_HTML_FALSE='#' else TAKTUK_GENDOC_HTML_TRUE='#' TAKTUK_GENDOC_HTML_FALSE= fi # Extract the first word of "perl", so it can be a program name with args. set dummy perl; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_path_PERL+:} false; then : $as_echo_n "(cached) " >&6 else case $PERL in [\\/]* | ?:[\\/]*) ac_cv_path_PERL="$PERL" # Let the user override the test with a path. ;; *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_path_PERL="$as_dir/$ac_word$ac_exec_ext" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS ;; esac fi PERL=$ac_cv_path_PERL if test -n "$PERL"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $PERL" >&5 $as_echo "$PERL" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi have_perl=yes test "x$PERL" = x && PERL="false ...perl program required..." && have_perl=no if test "$have_perl" != "yes"; then TAKTUK_NOPERL_TRUE= TAKTUK_NOPERL_FALSE='#' else TAKTUK_NOPERL_TRUE='#' TAKTUK_NOPERL_FALSE= fi # Checks for libraries. # Checks for header files. for ac_header in arpa/inet.h do : ac_fn_c_check_header_mongrel "$LINENO" "arpa/inet.h" "ac_cv_header_arpa_inet_h" "$ac_includes_default" if test "x$ac_cv_header_arpa_inet_h" = xyes; then : cat >>confdefs.h <<_ACEOF #define HAVE_ARPA_INET_H 1 _ACEOF fi done # Checks for typedefs, structures, and compiler characteristics. { $as_echo "$as_me:${as_lineno-$LINENO}: checking for an ANSI C-conforming const" >&5 $as_echo_n "checking for an ANSI C-conforming const... " >&6; } if ${ac_cv_c_const+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { #ifndef __cplusplus /* Ultrix mips cc rejects this sort of thing. */ typedef int charset[2]; const charset cs = { 0, 0 }; /* SunOS 4.1.1 cc rejects this. */ char const *const *pcpcc; char **ppc; /* NEC SVR4.0.2 mips cc rejects this. */ struct point {int x, y;}; static struct point const zero = {0,0}; /* AIX XL C 1.02.0.0 rejects this. It does not let you subtract one const X* pointer from another in an arm of an if-expression whose if-part is not a constant expression */ const char *g = "string"; pcpcc = &g + (g ? g-g : 0); /* HPUX 7.0 cc rejects these. */ ++pcpcc; ppc = (char**) pcpcc; pcpcc = (char const *const *) ppc; { /* SCO 3.2v4 cc rejects this sort of thing. */ char tx; char *t = &tx; char const *s = 0 ? (char *) 0 : (char const *) 0; *t++ = 0; if (s) return 0; } { /* Someone thinks the Sun supposedly-ANSI compiler will reject this. */ int x[] = {25, 17}; const int *foo = &x[0]; ++foo; } { /* Sun SC1.0 ANSI compiler rejects this -- but not the above. */ typedef const int *iptr; iptr p = 0; ++p; } { /* AIX XL C 1.02.0.0 rejects this sort of thing, saying "k.c", line 2.27: 1506-025 (S) Operand must be a modifiable lvalue. */ struct s { int j; const int *ap[3]; } bx; struct s *b = &bx; b->j = 5; } { /* ULTRIX-32 V3.1 (Rev 9) vcc rejects this */ const int foo = 10; if (!foo) return 0; } return !cs[0] && !zero.x; #endif ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_cv_c_const=yes else ac_cv_c_const=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_c_const" >&5 $as_echo "$ac_cv_c_const" >&6; } if test $ac_cv_c_const = no; then $as_echo "#define const /**/" >>confdefs.h fi ac_fn_c_check_type "$LINENO" "size_t" "ac_cv_type_size_t" "$ac_includes_default" if test "x$ac_cv_type_size_t" = xyes; then : else cat >>confdefs.h <<_ACEOF #define size_t unsigned int _ACEOF fi # Checks for library functions. for ac_header in stdlib.h do : ac_fn_c_check_header_mongrel "$LINENO" "stdlib.h" "ac_cv_header_stdlib_h" "$ac_includes_default" if test "x$ac_cv_header_stdlib_h" = xyes; then : cat >>confdefs.h <<_ACEOF #define HAVE_STDLIB_H 1 _ACEOF fi done { $as_echo "$as_me:${as_lineno-$LINENO}: checking for GNU libc compatible malloc" >&5 $as_echo_n "checking for GNU libc compatible malloc... " >&6; } if ${ac_cv_func_malloc_0_nonnull+:} false; then : $as_echo_n "(cached) " >&6 else if test "$cross_compiling" = yes; then : ac_cv_func_malloc_0_nonnull=no else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #if defined STDC_HEADERS || defined HAVE_STDLIB_H # include #else char *malloc (); #endif int main () { return ! malloc (0); ; return 0; } _ACEOF if ac_fn_c_try_run "$LINENO"; then : ac_cv_func_malloc_0_nonnull=yes else ac_cv_func_malloc_0_nonnull=no fi rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ conftest.$ac_objext conftest.beam conftest.$ac_ext fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_func_malloc_0_nonnull" >&5 $as_echo "$ac_cv_func_malloc_0_nonnull" >&6; } if test $ac_cv_func_malloc_0_nonnull = yes; then : $as_echo "#define HAVE_MALLOC 1" >>confdefs.h else $as_echo "#define HAVE_MALLOC 0" >>confdefs.h case " $LIBOBJS " in *" malloc.$ac_objext "* ) ;; *) LIBOBJS="$LIBOBJS malloc.$ac_objext" ;; esac $as_echo "#define malloc rpl_malloc" >>confdefs.h fi # libtaktuk versioning when linked with GNU ld. LD_VERSION_SCRIPT= VERSIONING_CFLAGS= if $LD --version 2>/dev/null|grep -q GNU; then LD_VERSION_SCRIPT="-Wl,--version-script=\$(top_srcdir)/C-Module/libtaktuk.map" VERSIONING_CFLAGS="-DDO_VERSIONING" fi # Allow using these constants in files.in ac_config_files="$ac_config_files Makefile C-Module/Makefile tests/Makefile tests/options/Makefile tests/commands/Makefile tests/file_transfer/Makefile tests/comm/Makefile tests/comm_c/Makefile tests/dynamic/Makefile tests/real_peers/Makefile tests/pilot/Makefile tests/synchro/Makefile C-Module/taktuk.h taktuk.pc tests/functions.sh tests/options/arguments tests/options/arguments2 tests/options/arguments3" ac_config_files="$ac_config_files taktuk" ac_config_files="$ac_config_files check_versions" ac_config_files="$ac_config_files tests/create_test.pl" 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}' # Transform confdefs.h into DEFS. # Protect against shell expansion while executing Makefile rules. # Protect against Makefile macro expansion. # # If the first sed substitution is executed (which looks for macros that # take arguments), then branch to the quote section. Otherwise, # look for a macro that doesn't take arguments. ac_script=' :mline /\\$/{ N s,\\\n,, b mline } t clear :clear s/^[ ]*#[ ]*define[ ][ ]*\([^ (][^ (]*([^)]*)\)[ ]*\(.*\)/-D\1=\2/g t quote s/^[ ]*#[ ]*define[ ][ ]*\([^ ][^ ]*\)[ ]*\(.*\)/-D\1=\2/g t quote b any :quote s/[ `~#$^&*(){}\\|;'\''"<>?]/\\&/g s/\[/\\&/g s/\]/\\&/g s/\$/$$/g H :any ${ g s/^\n// s/\n/ /g p } ' DEFS=`sed -n "$ac_script" confdefs.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 "${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 "${TAKTUK_GENDOC_MAN_TRUE}" && test -z "${TAKTUK_GENDOC_MAN_FALSE}"; then as_fn_error $? "conditional \"TAKTUK_GENDOC_MAN\" was never defined. Usually this means the macro was only invoked conditionally." "$LINENO" 5 fi if test -z "${TAKTUK_GENDOC_HTML_TRUE}" && test -z "${TAKTUK_GENDOC_HTML_FALSE}"; then as_fn_error $? "conditional \"TAKTUK_GENDOC_HTML\" was never defined. Usually this means the macro was only invoked conditionally." "$LINENO" 5 fi if test -z "${TAKTUK_NOPERL_TRUE}" && test -z "${TAKTUK_NOPERL_FALSE}"; then as_fn_error $? "conditional \"TAKTUK_NOPERL\" 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 taktuk $as_me 3.7.7, 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 cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 # Files that config.status was made for. config_files="$ac_config_files" 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 Configuration files: $config_files 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="\\ taktuk config.status 3.7.7 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;; --he | --h | --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"`' shared_archive_member_spec='`$ECHO "$shared_archive_member_spec" | $SED "$delay_single_quote_subst"`' SHELL='`$ECHO "$SHELL" | $SED "$delay_single_quote_subst"`' ECHO='`$ECHO "$ECHO" | $SED "$delay_single_quote_subst"`' PATH_SEPARATOR='`$ECHO "$PATH_SEPARATOR" | $SED "$delay_single_quote_subst"`' host_alias='`$ECHO "$host_alias" | $SED "$delay_single_quote_subst"`' host='`$ECHO "$host" | $SED "$delay_single_quote_subst"`' host_os='`$ECHO "$host_os" | $SED "$delay_single_quote_subst"`' build_alias='`$ECHO "$build_alias" | $SED "$delay_single_quote_subst"`' build='`$ECHO "$build" | $SED "$delay_single_quote_subst"`' build_os='`$ECHO "$build_os" | $SED "$delay_single_quote_subst"`' SED='`$ECHO "$SED" | $SED "$delay_single_quote_subst"`' Xsed='`$ECHO "$Xsed" | $SED "$delay_single_quote_subst"`' GREP='`$ECHO "$GREP" | $SED "$delay_single_quote_subst"`' EGREP='`$ECHO "$EGREP" | $SED "$delay_single_quote_subst"`' FGREP='`$ECHO "$FGREP" | $SED "$delay_single_quote_subst"`' LD='`$ECHO "$LD" | $SED "$delay_single_quote_subst"`' NM='`$ECHO "$NM" | $SED "$delay_single_quote_subst"`' LN_S='`$ECHO "$LN_S" | $SED "$delay_single_quote_subst"`' max_cmd_len='`$ECHO "$max_cmd_len" | $SED "$delay_single_quote_subst"`' ac_objext='`$ECHO "$ac_objext" | $SED "$delay_single_quote_subst"`' exeext='`$ECHO "$exeext" | $SED "$delay_single_quote_subst"`' lt_unset='`$ECHO "$lt_unset" | $SED "$delay_single_quote_subst"`' lt_SP2NL='`$ECHO "$lt_SP2NL" | $SED "$delay_single_quote_subst"`' lt_NL2SP='`$ECHO "$lt_NL2SP" | $SED "$delay_single_quote_subst"`' lt_cv_to_host_file_cmd='`$ECHO "$lt_cv_to_host_file_cmd" | $SED "$delay_single_quote_subst"`' lt_cv_to_tool_file_cmd='`$ECHO "$lt_cv_to_tool_file_cmd" | $SED "$delay_single_quote_subst"`' reload_flag='`$ECHO "$reload_flag" | $SED "$delay_single_quote_subst"`' reload_cmds='`$ECHO "$reload_cmds" | $SED "$delay_single_quote_subst"`' OBJDUMP='`$ECHO "$OBJDUMP" | $SED "$delay_single_quote_subst"`' deplibs_check_method='`$ECHO "$deplibs_check_method" | $SED "$delay_single_quote_subst"`' file_magic_cmd='`$ECHO "$file_magic_cmd" | $SED "$delay_single_quote_subst"`' file_magic_glob='`$ECHO "$file_magic_glob" | $SED "$delay_single_quote_subst"`' want_nocaseglob='`$ECHO "$want_nocaseglob" | $SED "$delay_single_quote_subst"`' DLLTOOL='`$ECHO "$DLLTOOL" | $SED "$delay_single_quote_subst"`' sharedlib_from_linklib_cmd='`$ECHO "$sharedlib_from_linklib_cmd" | $SED "$delay_single_quote_subst"`' AR='`$ECHO "$AR" | $SED "$delay_single_quote_subst"`' AR_FLAGS='`$ECHO "$AR_FLAGS" | $SED "$delay_single_quote_subst"`' archiver_list_spec='`$ECHO "$archiver_list_spec" | $SED "$delay_single_quote_subst"`' STRIP='`$ECHO "$STRIP" | $SED "$delay_single_quote_subst"`' RANLIB='`$ECHO "$RANLIB" | $SED "$delay_single_quote_subst"`' old_postinstall_cmds='`$ECHO "$old_postinstall_cmds" | $SED "$delay_single_quote_subst"`' old_postuninstall_cmds='`$ECHO "$old_postuninstall_cmds" | $SED "$delay_single_quote_subst"`' old_archive_cmds='`$ECHO "$old_archive_cmds" | $SED "$delay_single_quote_subst"`' lock_old_archive_extraction='`$ECHO "$lock_old_archive_extraction" | $SED "$delay_single_quote_subst"`' CC='`$ECHO "$CC" | $SED "$delay_single_quote_subst"`' CFLAGS='`$ECHO "$CFLAGS" | $SED "$delay_single_quote_subst"`' compiler='`$ECHO "$compiler" | $SED "$delay_single_quote_subst"`' GCC='`$ECHO "$GCC" | $SED "$delay_single_quote_subst"`' lt_cv_sys_global_symbol_pipe='`$ECHO "$lt_cv_sys_global_symbol_pipe" | $SED "$delay_single_quote_subst"`' lt_cv_sys_global_symbol_to_cdecl='`$ECHO "$lt_cv_sys_global_symbol_to_cdecl" | $SED "$delay_single_quote_subst"`' lt_cv_sys_global_symbol_to_import='`$ECHO "$lt_cv_sys_global_symbol_to_import" | $SED "$delay_single_quote_subst"`' lt_cv_sys_global_symbol_to_c_name_address='`$ECHO "$lt_cv_sys_global_symbol_to_c_name_address" | $SED "$delay_single_quote_subst"`' lt_cv_sys_global_symbol_to_c_name_address_lib_prefix='`$ECHO "$lt_cv_sys_global_symbol_to_c_name_address_lib_prefix" | $SED "$delay_single_quote_subst"`' lt_cv_nm_interface='`$ECHO "$lt_cv_nm_interface" | $SED "$delay_single_quote_subst"`' nm_file_list_spec='`$ECHO "$nm_file_list_spec" | $SED "$delay_single_quote_subst"`' lt_sysroot='`$ECHO "$lt_sysroot" | $SED "$delay_single_quote_subst"`' lt_cv_truncate_bin='`$ECHO "$lt_cv_truncate_bin" | $SED "$delay_single_quote_subst"`' objdir='`$ECHO "$objdir" | $SED "$delay_single_quote_subst"`' MAGIC_CMD='`$ECHO "$MAGIC_CMD" | $SED "$delay_single_quote_subst"`' lt_prog_compiler_no_builtin_flag='`$ECHO "$lt_prog_compiler_no_builtin_flag" | $SED "$delay_single_quote_subst"`' lt_prog_compiler_pic='`$ECHO "$lt_prog_compiler_pic" | $SED "$delay_single_quote_subst"`' lt_prog_compiler_wl='`$ECHO "$lt_prog_compiler_wl" | $SED "$delay_single_quote_subst"`' lt_prog_compiler_static='`$ECHO "$lt_prog_compiler_static" | $SED "$delay_single_quote_subst"`' lt_cv_prog_compiler_c_o='`$ECHO "$lt_cv_prog_compiler_c_o" | $SED "$delay_single_quote_subst"`' need_locks='`$ECHO "$need_locks" | $SED "$delay_single_quote_subst"`' MANIFEST_TOOL='`$ECHO "$MANIFEST_TOOL" | $SED "$delay_single_quote_subst"`' DSYMUTIL='`$ECHO "$DSYMUTIL" | $SED "$delay_single_quote_subst"`' NMEDIT='`$ECHO "$NMEDIT" | $SED "$delay_single_quote_subst"`' LIPO='`$ECHO "$LIPO" | $SED "$delay_single_quote_subst"`' OTOOL='`$ECHO "$OTOOL" | $SED "$delay_single_quote_subst"`' OTOOL64='`$ECHO "$OTOOL64" | $SED "$delay_single_quote_subst"`' libext='`$ECHO "$libext" | $SED "$delay_single_quote_subst"`' shrext_cmds='`$ECHO "$shrext_cmds" | $SED "$delay_single_quote_subst"`' extract_expsyms_cmds='`$ECHO "$extract_expsyms_cmds" | $SED "$delay_single_quote_subst"`' archive_cmds_need_lc='`$ECHO "$archive_cmds_need_lc" | $SED "$delay_single_quote_subst"`' enable_shared_with_static_runtimes='`$ECHO "$enable_shared_with_static_runtimes" | $SED "$delay_single_quote_subst"`' export_dynamic_flag_spec='`$ECHO "$export_dynamic_flag_spec" | $SED "$delay_single_quote_subst"`' whole_archive_flag_spec='`$ECHO "$whole_archive_flag_spec" | $SED "$delay_single_quote_subst"`' compiler_needs_object='`$ECHO "$compiler_needs_object" | $SED "$delay_single_quote_subst"`' old_archive_from_new_cmds='`$ECHO "$old_archive_from_new_cmds" | $SED "$delay_single_quote_subst"`' old_archive_from_expsyms_cmds='`$ECHO "$old_archive_from_expsyms_cmds" | $SED "$delay_single_quote_subst"`' archive_cmds='`$ECHO "$archive_cmds" | $SED "$delay_single_quote_subst"`' archive_expsym_cmds='`$ECHO "$archive_expsym_cmds" | $SED "$delay_single_quote_subst"`' module_cmds='`$ECHO "$module_cmds" | $SED "$delay_single_quote_subst"`' module_expsym_cmds='`$ECHO "$module_expsym_cmds" | $SED "$delay_single_quote_subst"`' with_gnu_ld='`$ECHO "$with_gnu_ld" | $SED "$delay_single_quote_subst"`' allow_undefined_flag='`$ECHO "$allow_undefined_flag" | $SED "$delay_single_quote_subst"`' no_undefined_flag='`$ECHO "$no_undefined_flag" | $SED "$delay_single_quote_subst"`' hardcode_libdir_flag_spec='`$ECHO "$hardcode_libdir_flag_spec" | $SED "$delay_single_quote_subst"`' hardcode_libdir_separator='`$ECHO "$hardcode_libdir_separator" | $SED "$delay_single_quote_subst"`' hardcode_direct='`$ECHO "$hardcode_direct" | $SED "$delay_single_quote_subst"`' hardcode_direct_absolute='`$ECHO "$hardcode_direct_absolute" | $SED "$delay_single_quote_subst"`' hardcode_minus_L='`$ECHO "$hardcode_minus_L" | $SED "$delay_single_quote_subst"`' hardcode_shlibpath_var='`$ECHO "$hardcode_shlibpath_var" | $SED "$delay_single_quote_subst"`' hardcode_automatic='`$ECHO "$hardcode_automatic" | $SED "$delay_single_quote_subst"`' inherit_rpath='`$ECHO "$inherit_rpath" | $SED "$delay_single_quote_subst"`' link_all_deplibs='`$ECHO "$link_all_deplibs" | $SED "$delay_single_quote_subst"`' always_export_symbols='`$ECHO "$always_export_symbols" | $SED "$delay_single_quote_subst"`' export_symbols_cmds='`$ECHO "$export_symbols_cmds" | $SED "$delay_single_quote_subst"`' exclude_expsyms='`$ECHO "$exclude_expsyms" | $SED "$delay_single_quote_subst"`' include_expsyms='`$ECHO "$include_expsyms" | $SED "$delay_single_quote_subst"`' prelink_cmds='`$ECHO "$prelink_cmds" | $SED "$delay_single_quote_subst"`' postlink_cmds='`$ECHO "$postlink_cmds" | $SED "$delay_single_quote_subst"`' file_list_spec='`$ECHO "$file_list_spec" | $SED "$delay_single_quote_subst"`' variables_saved_for_relink='`$ECHO "$variables_saved_for_relink" | $SED "$delay_single_quote_subst"`' need_lib_prefix='`$ECHO "$need_lib_prefix" | $SED "$delay_single_quote_subst"`' need_version='`$ECHO "$need_version" | $SED "$delay_single_quote_subst"`' version_type='`$ECHO "$version_type" | $SED "$delay_single_quote_subst"`' runpath_var='`$ECHO "$runpath_var" | $SED "$delay_single_quote_subst"`' shlibpath_var='`$ECHO "$shlibpath_var" | $SED "$delay_single_quote_subst"`' shlibpath_overrides_runpath='`$ECHO "$shlibpath_overrides_runpath" | $SED "$delay_single_quote_subst"`' libname_spec='`$ECHO "$libname_spec" | $SED "$delay_single_quote_subst"`' library_names_spec='`$ECHO "$library_names_spec" | $SED "$delay_single_quote_subst"`' soname_spec='`$ECHO "$soname_spec" | $SED "$delay_single_quote_subst"`' install_override_mode='`$ECHO "$install_override_mode" | $SED "$delay_single_quote_subst"`' postinstall_cmds='`$ECHO "$postinstall_cmds" | $SED "$delay_single_quote_subst"`' postuninstall_cmds='`$ECHO "$postuninstall_cmds" | $SED "$delay_single_quote_subst"`' finish_cmds='`$ECHO "$finish_cmds" | $SED "$delay_single_quote_subst"`' finish_eval='`$ECHO "$finish_eval" | $SED "$delay_single_quote_subst"`' hardcode_into_libs='`$ECHO "$hardcode_into_libs" | $SED "$delay_single_quote_subst"`' sys_lib_search_path_spec='`$ECHO "$sys_lib_search_path_spec" | $SED "$delay_single_quote_subst"`' configure_time_dlsearch_path='`$ECHO "$configure_time_dlsearch_path" | $SED "$delay_single_quote_subst"`' configure_time_lt_sys_library_path='`$ECHO "$configure_time_lt_sys_library_path" | $SED "$delay_single_quote_subst"`' hardcode_action='`$ECHO "$hardcode_action" | $SED "$delay_single_quote_subst"`' enable_dlopen='`$ECHO "$enable_dlopen" | $SED "$delay_single_quote_subst"`' enable_dlopen_self='`$ECHO "$enable_dlopen_self" | $SED "$delay_single_quote_subst"`' enable_dlopen_self_static='`$ECHO "$enable_dlopen_self_static" | $SED "$delay_single_quote_subst"`' old_striplib='`$ECHO "$old_striplib" | $SED "$delay_single_quote_subst"`' striplib='`$ECHO "$striplib" | $SED "$delay_single_quote_subst"`' LTCC='$LTCC' LTCFLAGS='$LTCFLAGS' compiler='$compiler_DEFAULT' # A function that is used when there is no print builtin or printf. func_fallback_echo () { eval 'cat <<_LTECHO_EOF \$1 _LTECHO_EOF' } # Quote evaled strings. for var in SHELL \ ECHO \ PATH_SEPARATOR \ SED \ GREP \ EGREP \ FGREP \ LD \ NM \ LN_S \ lt_SP2NL \ lt_NL2SP \ reload_flag \ OBJDUMP \ deplibs_check_method \ file_magic_cmd \ file_magic_glob \ want_nocaseglob \ DLLTOOL \ sharedlib_from_linklib_cmd \ AR \ AR_FLAGS \ archiver_list_spec \ STRIP \ RANLIB \ CC \ CFLAGS \ compiler \ lt_cv_sys_global_symbol_pipe \ lt_cv_sys_global_symbol_to_cdecl \ lt_cv_sys_global_symbol_to_import \ lt_cv_sys_global_symbol_to_c_name_address \ lt_cv_sys_global_symbol_to_c_name_address_lib_prefix \ lt_cv_nm_interface \ nm_file_list_spec \ lt_cv_truncate_bin \ lt_prog_compiler_no_builtin_flag \ lt_prog_compiler_pic \ lt_prog_compiler_wl \ lt_prog_compiler_static \ lt_cv_prog_compiler_c_o \ need_locks \ MANIFEST_TOOL \ DSYMUTIL \ NMEDIT \ LIPO \ OTOOL \ OTOOL64 \ shrext_cmds \ export_dynamic_flag_spec \ whole_archive_flag_spec \ compiler_needs_object \ with_gnu_ld \ allow_undefined_flag \ no_undefined_flag \ hardcode_libdir_flag_spec \ hardcode_libdir_separator \ exclude_expsyms \ include_expsyms \ file_list_spec \ variables_saved_for_relink \ libname_spec \ library_names_spec \ soname_spec \ install_override_mode \ finish_eval \ old_striplib \ striplib; do case \`eval \\\\\$ECHO \\\\""\\\\\$\$var"\\\\"\` in *[\\\\\\\`\\"\\\$]*) eval "lt_\$var=\\\\\\"\\\`\\\$ECHO \\"\\\$\$var\\" | \\\$SED \\"\\\$sed_quote_subst\\"\\\`\\\\\\"" ## exclude from sc_prohibit_nested_quotes ;; *) eval "lt_\$var=\\\\\\"\\\$\$var\\\\\\"" ;; esac done # Double-quote double-evaled strings. for var in reload_cmds \ old_postinstall_cmds \ old_postuninstall_cmds \ old_archive_cmds \ extract_expsyms_cmds \ old_archive_from_new_cmds \ old_archive_from_expsyms_cmds \ archive_cmds \ archive_expsym_cmds \ module_cmds \ module_expsym_cmds \ export_symbols_cmds \ prelink_cmds \ postlink_cmds \ postinstall_cmds \ postuninstall_cmds \ finish_cmds \ sys_lib_search_path_spec \ configure_time_dlsearch_path \ configure_time_lt_sys_library_path; do case \`eval \\\\\$ECHO \\\\""\\\\\$\$var"\\\\"\` in *[\\\\\\\`\\"\\\$]*) eval "lt_\$var=\\\\\\"\\\`\\\$ECHO \\"\\\$\$var\\" | \\\$SED -e \\"\\\$double_quote_subst\\" -e \\"\\\$sed_quote_subst\\" -e \\"\\\$delay_variable_subst\\"\\\`\\\\\\"" ## exclude from sc_prohibit_nested_quotes ;; *) eval "lt_\$var=\\\\\\"\\\$\$var\\\\\\"" ;; esac done ac_aux_dir='$ac_aux_dir' # See if we are running on zsh, and set the options that allow our # commands through without removal of \ escapes INIT. if test -n "\${ZSH_VERSION+set}"; then setopt NO_GLOB_SUBST fi PACKAGE='$PACKAGE' VERSION='$VERSION' RM='$RM' ofile='$ofile' _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 # Handling of arguments. for ac_config_target in $ac_config_targets do case $ac_config_target in "depfiles") CONFIG_COMMANDS="$CONFIG_COMMANDS depfiles" ;; "libtool") CONFIG_COMMANDS="$CONFIG_COMMANDS libtool" ;; "Makefile") CONFIG_FILES="$CONFIG_FILES Makefile" ;; "C-Module/Makefile") CONFIG_FILES="$CONFIG_FILES C-Module/Makefile" ;; "tests/Makefile") CONFIG_FILES="$CONFIG_FILES tests/Makefile" ;; "tests/options/Makefile") CONFIG_FILES="$CONFIG_FILES tests/options/Makefile" ;; "tests/commands/Makefile") CONFIG_FILES="$CONFIG_FILES tests/commands/Makefile" ;; "tests/file_transfer/Makefile") CONFIG_FILES="$CONFIG_FILES tests/file_transfer/Makefile" ;; "tests/comm/Makefile") CONFIG_FILES="$CONFIG_FILES tests/comm/Makefile" ;; "tests/comm_c/Makefile") CONFIG_FILES="$CONFIG_FILES tests/comm_c/Makefile" ;; "tests/dynamic/Makefile") CONFIG_FILES="$CONFIG_FILES tests/dynamic/Makefile" ;; "tests/real_peers/Makefile") CONFIG_FILES="$CONFIG_FILES tests/real_peers/Makefile" ;; "tests/pilot/Makefile") CONFIG_FILES="$CONFIG_FILES tests/pilot/Makefile" ;; "tests/synchro/Makefile") CONFIG_FILES="$CONFIG_FILES tests/synchro/Makefile" ;; "C-Module/taktuk.h") CONFIG_FILES="$CONFIG_FILES C-Module/taktuk.h" ;; "taktuk.pc") CONFIG_FILES="$CONFIG_FILES taktuk.pc" ;; "tests/functions.sh") CONFIG_FILES="$CONFIG_FILES tests/functions.sh" ;; "tests/options/arguments") CONFIG_FILES="$CONFIG_FILES tests/options/arguments" ;; "tests/options/arguments2") CONFIG_FILES="$CONFIG_FILES tests/options/arguments2" ;; "tests/options/arguments3") CONFIG_FILES="$CONFIG_FILES tests/options/arguments3" ;; "taktuk") CONFIG_FILES="$CONFIG_FILES taktuk" ;; "check_versions") CONFIG_FILES="$CONFIG_FILES check_versions" ;; "tests/create_test.pl") CONFIG_FILES="$CONFIG_FILES tests/create_test.pl" ;; *) 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_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" eval set X " :F $CONFIG_FILES :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 ;; :C) { $as_echo "$as_me:${as_lineno-$LINENO}: executing $ac_file commands" >&5 $as_echo "$as_me: executing $ac_file commands" >&6;} ;; esac case $ac_file$ac_mode in "depfiles":C) test x"$AMDEP_TRUE" != x"" || { # Older Autoconf quotes --file arguments for eval, but not when files # are listed without --file. Let's play safe and only enable the eval # if we detect the quoting. 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 that allow our # commands through without removal of \ escapes. if test -n "${ZSH_VERSION+set}"; then setopt NO_GLOB_SUBST fi cfgfile=${ofile}T trap "$RM \"$cfgfile\"; exit 1" 1 2 15 $RM "$cfgfile" cat <<_LT_EOF >> "$cfgfile" #! $SHELL # Generated automatically by $as_me ($PACKAGE) $VERSION # Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`: # NOTE: Changes made to this file will be lost: look at ltmain.sh. # Provide generalized library-building support services. # Written by Gordon Matzigkeit, 1996 # Copyright (C) 2014 Free Software Foundation, Inc. # This is free software; see the source for copying conditions. There is NO # warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. # GNU Libtool is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of of the License, or # (at your option) any later version. # # As a special exception to the GNU General Public License, if you # distribute this file as part of a program or library that is built # using GNU Libtool, you may include this file under the same # distribution terms that you use for the rest of that program. # # GNU Libtool is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program. If not, see . # The names of the tagged configurations supported by this script. available_tags='' # Configured defaults for sys_lib_dlsearch_path munging. : \${LT_SYS_LIBRARY_PATH="$configure_time_lt_sys_library_path"} # ### BEGIN LIBTOOL CONFIG # Which release of libtool.m4 was used? macro_version=$macro_version macro_revision=$macro_revision # 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 # Shared archive member basename,for filename based shared library versioning on AIX. shared_archive_member_spec=$shared_archive_member_spec # Shell to use when invoking shell scripts. SHELL=$lt_SHELL # An echo program that protects backslashes. ECHO=$lt_ECHO # The PATH separator for the build system. PATH_SEPARATOR=$lt_PATH_SEPARATOR # The host system. host_alias=$host_alias host=$host host_os=$host_os # The build system. build_alias=$build_alias build=$build build_os=$build_os # A sed program that does not truncate output. SED=$lt_SED # Sed that helps us avoid accidentally triggering echo(1) options like -n. Xsed="\$SED -e 1s/^X//" # A grep program that handles long lines. GREP=$lt_GREP # An ERE matcher. EGREP=$lt_EGREP # A literal string matcher. FGREP=$lt_FGREP # A BSD- or MS-compatible name lister. NM=$lt_NM # Whether we need soft or hard links. LN_S=$lt_LN_S # What is the maximum length of a command? max_cmd_len=$max_cmd_len # Object file suffix (normally "o"). objext=$ac_objext # Executable file suffix (normally ""). exeext=$exeext # whether the shell understands "unset". lt_unset=$lt_unset # turn spaces into newlines. SP2NL=$lt_lt_SP2NL # turn newlines into spaces. NL2SP=$lt_lt_NL2SP # convert \$build file names to \$host format. to_host_file_cmd=$lt_cv_to_host_file_cmd # convert \$build files to toolchain format. to_tool_file_cmd=$lt_cv_to_tool_file_cmd # An object symbol dumper. OBJDUMP=$lt_OBJDUMP # Method to check whether dependent libraries are shared objects. deplibs_check_method=$lt_deplibs_check_method # Command to use when deplibs_check_method = "file_magic". file_magic_cmd=$lt_file_magic_cmd # How to find potential files when deplibs_check_method = "file_magic". file_magic_glob=$lt_file_magic_glob # Find potential files using nocaseglob when deplibs_check_method = "file_magic". want_nocaseglob=$lt_want_nocaseglob # DLL creation program. DLLTOOL=$lt_DLLTOOL # Command to associate shared and link libraries. sharedlib_from_linklib_cmd=$lt_sharedlib_from_linklib_cmd # The archiver. AR=$lt_AR # Flags to create an archive. AR_FLAGS=$lt_AR_FLAGS # How to feed a file listing to the archiver. archiver_list_spec=$lt_archiver_list_spec # A symbol stripping program. STRIP=$lt_STRIP # Commands used to install an old-style archive. RANLIB=$lt_RANLIB old_postinstall_cmds=$lt_old_postinstall_cmds old_postuninstall_cmds=$lt_old_postuninstall_cmds # Whether to use a lock for old archive extraction. lock_old_archive_extraction=$lock_old_archive_extraction # A C compiler. LTCC=$lt_CC # LTCC compiler flags. LTCFLAGS=$lt_CFLAGS # Take the output of nm and produce a listing of raw symbols and C names. global_symbol_pipe=$lt_lt_cv_sys_global_symbol_pipe # Transform the output of nm in a proper C declaration. global_symbol_to_cdecl=$lt_lt_cv_sys_global_symbol_to_cdecl # Transform the output of nm into a list of symbols to manually relocate. global_symbol_to_import=$lt_lt_cv_sys_global_symbol_to_import # Transform the output of nm in a C name address pair. global_symbol_to_c_name_address=$lt_lt_cv_sys_global_symbol_to_c_name_address # Transform the output of nm in a C name address pair when lib prefix is needed. global_symbol_to_c_name_address_lib_prefix=$lt_lt_cv_sys_global_symbol_to_c_name_address_lib_prefix # The name lister interface. nm_interface=$lt_lt_cv_nm_interface # Specify filename containing input files for \$NM. nm_file_list_spec=$lt_nm_file_list_spec # The root where to search for dependent libraries,and where our libraries should be installed. lt_sysroot=$lt_sysroot # Command to truncate a binary pipe. lt_truncate_bin=$lt_lt_cv_truncate_bin # The name of the directory that contains temporary libtool files. objdir=$objdir # Used to examine libraries when file_magic_cmd begins with "file". MAGIC_CMD=$MAGIC_CMD # Must we lock files when doing compilation? need_locks=$lt_need_locks # Manifest tool. MANIFEST_TOOL=$lt_MANIFEST_TOOL # Tool to manipulate archived DWARF debug symbol files on Mac OS X. DSYMUTIL=$lt_DSYMUTIL # Tool to change global to local symbols on Mac OS X. NMEDIT=$lt_NMEDIT # Tool to manipulate fat objects and archives on Mac OS X. LIPO=$lt_LIPO # ldd/readelf like tool for Mach-O binaries on Mac OS X. OTOOL=$lt_OTOOL # ldd/readelf like tool for 64 bit Mach-O binaries on Mac OS X 10.4. OTOOL64=$lt_OTOOL64 # Old archive suffix (normally "a"). libext=$libext # Shared library suffix (normally ".so"). shrext_cmds=$lt_shrext_cmds # The commands to extract the exported symbol list from a shared archive. extract_expsyms_cmds=$lt_extract_expsyms_cmds # Variables whose values should be saved in libtool wrapper scripts and # restored at link time. variables_saved_for_relink=$lt_variables_saved_for_relink # Do we need the "lib" prefix for modules? need_lib_prefix=$need_lib_prefix # Do we need a version for libraries? need_version=$need_version # Library versioning type. version_type=$version_type # Shared library runtime path variable. runpath_var=$runpath_var # Shared library path variable. shlibpath_var=$shlibpath_var # Is shlibpath searched before the hard-coded library search path? shlibpath_overrides_runpath=$shlibpath_overrides_runpath # Format of library name prefix. libname_spec=$lt_libname_spec # List of archive names. First name is the real one, the rest are links. # The last name is the one that the linker finds with -lNAME library_names_spec=$lt_library_names_spec # The coded name of the library, if different from the real name. soname_spec=$lt_soname_spec # Permission mode override for installation of shared libraries. install_override_mode=$lt_install_override_mode # Command to use after installation of a shared archive. postinstall_cmds=$lt_postinstall_cmds # Command to use after uninstallation of a shared archive. postuninstall_cmds=$lt_postuninstall_cmds # Commands used to finish a libtool library installation in a directory. finish_cmds=$lt_finish_cmds # As "finish_cmds", except a single script fragment to be evaled but # not shown. finish_eval=$lt_finish_eval # Whether we should hardcode library paths into libraries. hardcode_into_libs=$hardcode_into_libs # Compile-time system search path for libraries. sys_lib_search_path_spec=$lt_sys_lib_search_path_spec # Detected run-time system search path for libraries. sys_lib_dlsearch_path_spec=$lt_configure_time_dlsearch_path # Explicit LT_SYS_LIBRARY_PATH set during ./configure time. configure_time_lt_sys_library_path=$lt_configure_time_lt_sys_library_path # Whether dlopen is supported. dlopen_support=$enable_dlopen # Whether dlopen of programs is supported. dlopen_self=$enable_dlopen_self # Whether dlopen of statically linked programs is supported. dlopen_self_static=$enable_dlopen_self_static # Commands to strip libraries. old_striplib=$lt_old_striplib striplib=$lt_striplib # The linker used to build libraries. LD=$lt_LD # How to create reloadable object files. reload_flag=$lt_reload_flag reload_cmds=$lt_reload_cmds # Commands used to build an old-style archive. old_archive_cmds=$lt_old_archive_cmds # A language specific compiler. CC=$lt_compiler # Is the compiler the GNU compiler? with_gcc=$GCC # 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 # ### END LIBTOOL CONFIG _LT_EOF cat <<'_LT_EOF' >> "$cfgfile" # ### BEGIN FUNCTIONS SHARED WITH CONFIGURE # func_munge_path_list VARIABLE PATH # ----------------------------------- # VARIABLE is name of variable containing _space_ separated list of # directories to be munged by the contents of PATH, which is string # having a format: # "DIR[:DIR]:" # string "DIR[ DIR]" will be prepended to VARIABLE # ":DIR[:DIR]" # string "DIR[ DIR]" will be appended to VARIABLE # "DIRP[:DIRP]::[DIRA:]DIRA" # string "DIRP[ DIRP]" will be prepended to VARIABLE and string # "DIRA[ DIRA]" will be appended to VARIABLE # "DIR[:DIR]" # VARIABLE will be replaced by "DIR[ DIR]" func_munge_path_list () { case x$2 in x) ;; *:) eval $1=\"`$ECHO $2 | $SED 's/:/ /g'` \$$1\" ;; x:*) eval $1=\"\$$1 `$ECHO $2 | $SED 's/:/ /g'`\" ;; *::*) eval $1=\"\$$1\ `$ECHO $2 | $SED -e 's/.*:://' -e 's/:/ /g'`\" eval $1=\"`$ECHO $2 | $SED -e 's/::.*//' -e 's/:/ /g'`\ \$$1\" ;; *) eval $1=\"`$ECHO $2 | $SED 's/:/ /g'`\" ;; esac } # Calculate cc_basename. Skip known compiler wrappers and cross-prefix. func_cc_basename () { for cc_temp in $*""; do case $cc_temp in compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; \-*) ;; *) break;; esac done func_cc_basename_result=`$ECHO "$cc_temp" | $SED "s%.*/%%; s%^$host_alias-%%"` } # ### END FUNCTIONS SHARED WITH CONFIGURE _LT_EOF case $host_os in aix3*) cat <<\_LT_EOF >> "$cfgfile" # AIX sometimes has problems with the GCC collect2 program. For some # reason, if we set the COLLECT_NAMES environment variable, the problems # vanish in a puff of smoke. if test set != "${COLLECT_NAMES+set}"; then COLLECT_NAMES= export COLLECT_NAMES fi _LT_EOF ;; esac ltmain=$ac_aux_dir/ltmain.sh # We use sed instead of cat because bash on DJGPP gets confused if # if finds mixed CR/LF and LF-only lines. Since sed operates in # text mode, it properly converts lines to CR/LF. This bash problem # is reportedly fixed, but why not run on old versions too? sed '$q' "$ltmain" >> "$cfgfile" \ || (rm -f "$cfgfile"; exit 1) mv -f "$cfgfile" "$ofile" || (rm -f "$ofile" && cp "$cfgfile" "$ofile" && rm -f "$cfgfile") chmod +x "$ofile" ;; "taktuk":F) chmod +x taktuk ;; "check_versions":F) chmod +x check_versions ;; "tests/create_test.pl":F) chmod +x tests/create_test.pl ;; 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 taktuk-3.7.7/configure.ac000644 000765 000024 00000011512 13136606227 016150 0ustar00zebulonstaff000000 000000 ############################################################################### # # # TakTuk, a middleware for adaptive large scale parallel remote executions # # deployment. Perl implementation, copyright(C) 2006 Guillaume Huard. # # # # 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 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, write to the Free Software # # Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA # # # # Contact: Guillaume.Huard@imag.fr # # Laboratoire LIG - ENSIMAG - Antenne de Montbonnot # # 51 avenue Jean Kuntzmann # # 38330 Montbonnot Saint Martin # # FRANCE # # # ############################################################################### # -*- Autoconf -*- # Process this file with autoconf to produce a configure script. AC_PREREQ(2.60) AC_INIT(taktuk, 3.7.7, guillaume.huard@imag.fr) TAKTUK_VERSION=$PACKAGE_VERSION TAKTUK_VERSION_CMDLINE=1 TAKTUK_VERSION_STATEFLOW=1 TAKTUK_VERSION_FDPROTO=1 TAKTUK_VERSION_NETPROTO=1 TAKTUK_VERSION_COMMPERL=1 TAKTUK_VERSION_IOCONSTPERL=1 TAKTUK_VERSION_CONTROLPERL=0 TAKTUK_VERSION_COMMC_API=1 TAKTUK_VERSION_COMMC_ABI=3 dnl AC_CONFIG_AUX_DIR: not before, not after dnl http://www.mail-archive.com/autoconf@gnu.org/msg07824.html AC_CONFIG_AUX_DIR([build-aux]) AC_CANONICAL_TARGET AC_CONFIG_SRCDIR([C-Module/taktuk.c]) AC_CONFIG_MACRO_DIR([acinclude]) AM_INIT_AUTOMAKE # Checks for programs. AC_PROG_CC AC_PROG_LIBTOOL GENDOC_MAN=YES PROG_POD2MAN if test $have_pod2man != yes; then AC_MSG_WARN([Disabling manpage generation : 'pod2man' program not available]) GENDOC_MAN=NO fi AM_CONDITIONAL(TAKTUK_GENDOC_MAN, test "$GENDOC_MAN" = "YES") GENDOC_HTML=YES PROG_POD2HTML if test $have_pod2html != yes; then AC_MSG_WARN([Disabling html generation : 'pod2html' program not available]) GENDOC_HTML=NO fi AM_CONDITIONAL(TAKTUK_GENDOC_HTML, test "$GENDOC_HTML" = "YES") PROG_PERL AM_CONDITIONAL(TAKTUK_NOPERL, test "$have_perl" != "yes") # Checks for libraries. # Checks for header files. AC_CHECK_HEADERS([arpa/inet.h]) # Checks for typedefs, structures, and compiler characteristics. AC_C_CONST AC_TYPE_SIZE_T # Checks for library functions. AC_FUNC_MALLOC # libtaktuk versioning when linked with GNU ld. LD_VERSION_SCRIPT= VERSIONING_CFLAGS= if $LD --version 2>/dev/null|grep -q GNU; then LD_VERSION_SCRIPT="-Wl,--version-script=\$(top_srcdir)/C-Module/libtaktuk.map" VERSIONING_CFLAGS="-DDO_VERSIONING" fi AC_SUBST(LD_VERSION_SCRIPT) AC_SUBST(VERSIONING_CFLAGS) # Allow using these constants in files.in AC_SUBST(TAKTUK_VERSION) AC_SUBST(TAKTUK_VERSION_CMDLINE) AC_SUBST(TAKTUK_VERSION_STATEFLOW) AC_SUBST(TAKTUK_VERSION_FDPROTO) AC_SUBST(TAKTUK_VERSION_NETPROTO) AC_SUBST(TAKTUK_VERSION_COMMPERL) AC_SUBST(TAKTUK_VERSION_IOCONSTPERL) AC_SUBST(TAKTUK_VERSION_CONTROLPERL) AC_SUBST(TAKTUK_VERSION_COMMC_API) AC_SUBST(TAKTUK_VERSION_COMMC_ABI) AC_CONFIG_FILES([ Makefile C-Module/Makefile tests/Makefile tests/options/Makefile tests/commands/Makefile tests/file_transfer/Makefile tests/comm/Makefile tests/comm_c/Makefile tests/dynamic/Makefile tests/real_peers/Makefile tests/pilot/Makefile tests/synchro/Makefile C-Module/taktuk.h taktuk.pc tests/functions.sh tests/options/arguments tests/options/arguments2 tests/options/arguments3 ]) AC_CONFIG_FILES( [taktuk], [chmod +x taktuk] ) AC_CONFIG_FILES( [check_versions], [chmod +x check_versions] ) AC_CONFIG_FILES( [tests/create_test.pl], [chmod +x tests/create_test.pl] ) AC_OUTPUT taktuk-3.7.7/COPYING000644 000765 000024 00000043133 13136570041 014713 0ustar00zebulonstaff000000 000000 GNU GENERAL PUBLIC LICENSE Version 2, June 1991 Copyright (C) 1989, 1991 Free Software Foundation, Inc. 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA Everyone is permitted to copy and distribute verbatim copies of this license document, but changing it is not allowed. Preamble The licenses for most software are designed to take away your freedom to share and change it. By contrast, the GNU General Public License is intended to guarantee your freedom to share and change free software--to make sure the software is free for all its users. This General Public License applies to most of the Free Software Foundation's software and to any other program whose authors commit to using it. (Some other Free Software Foundation software is covered by the GNU Library General Public License instead.) You can apply it to your programs, too. When we speak of free software, we are referring to freedom, not price. Our General Public Licenses are designed to make sure that you have the freedom to distribute copies of free software (and charge for this service if you wish), that you receive source code or can get it if you want it, that you can change the software or use pieces of it in new free programs; and that you know you can do these things. To protect your rights, we need to make restrictions that forbid anyone to deny you these rights or to ask you to surrender the rights. These restrictions translate to certain responsibilities for you if you distribute copies of the software, or if you modify it. For example, if you distribute copies of such a program, whether gratis or for a fee, you must give the recipients all the rights that you have. You must make sure that they, too, receive or can get the source code. And you must show them these terms so they know their rights. We protect your rights with two steps: (1) copyright the software, and (2) offer you this license which gives you legal permission to copy, distribute and/or modify the software. Also, for each author's protection and ours, we want to make certain that everyone understands that there is no warranty for this free software. If the software is modified by someone else and passed on, we want its recipients to know that what they have is not the original, so that any problems introduced by others will not reflect on the original authors' reputations. Finally, any free program is threatened constantly by software patents. We wish to avoid the danger that redistributors of a free program will individually obtain patent licenses, in effect making the program proprietary. To prevent this, we have made it clear that any patent must be licensed for everyone's free use or not licensed at all. The precise terms and conditions for copying, distribution and modification follow. GNU GENERAL PUBLIC LICENSE TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION 0. This License applies to any program or other work which contains a notice placed by the copyright holder saying it may be distributed under the terms of this General Public License. The "Program", below, refers to any such program or work, and a "work based on the Program" means either the Program or any derivative work under copyright law: that is to say, a work containing the Program or a portion of it, either verbatim or with modifications and/or translated into another language. (Hereinafter, translation is included without limitation in the term "modification".) Each licensee is addressed as "you". Activities other than copying, distribution and modification are not covered by this License; they are outside its scope. The act of running the Program is not restricted, and the output from the Program is covered only if its contents constitute a work based on the Program (independent of having been made by running the Program). Whether that is true depends on what the Program does. 1. You may copy and distribute verbatim copies of the Program's source code as you receive it, in any medium, provided that you conspicuously and appropriately publish on each copy an appropriate copyright notice and disclaimer of warranty; keep intact all the notices that refer to this License and to the absence of any warranty; and give any other recipients of the Program a copy of this License along with the Program. You may charge a fee for the physical act of transferring a copy, and you may at your option offer warranty protection in exchange for a fee. 2. You may modify your copy or copies of the Program or any portion of it, thus forming a work based on the Program, and copy and distribute such modifications or work under the terms of Section 1 above, provided that you also meet all of these conditions: a) You must cause the modified files to carry prominent notices stating that you changed the files and the date of any change. b) You must cause any work that you distribute or publish, that in whole or in part contains or is derived from the Program or any part thereof, to be licensed as a whole at no charge to all third parties under the terms of this License. c) If the modified program normally reads commands interactively when run, you must cause it, when started running for such interactive use in the most ordinary way, to print or display an announcement including an appropriate copyright notice and a notice that there is no warranty (or else, saying that you provide a warranty) and that users may redistribute the program under these conditions, and telling the user how to view a copy of this License. (Exception: if the Program itself is interactive but does not normally print such an announcement, your work based on the Program is not required to print an announcement.) These requirements apply to the modified work as a whole. If identifiable sections of that work are not derived from the Program, and can be reasonably considered independent and separate works in themselves, then this License, and its terms, do not apply to those sections when you distribute them as separate works. But when you distribute the same sections as part of a whole which is a work based on the Program, the distribution of the whole must be on the terms of this License, whose permissions for other licensees extend to the entire whole, and thus to each and every part regardless of who wrote it. Thus, it is not the intent of this section to claim rights or contest your rights to work written entirely by you; rather, the intent is to exercise the right to control the distribution of derivative or collective works based on the Program. In addition, mere aggregation of another work not based on the Program with the Program (or with a work based on the Program) on a volume of a storage or distribution medium does not bring the other work under the scope of this License. 3. You may copy and distribute the Program (or a work based on it, under Section 2) in object code or executable form under the terms of Sections 1 and 2 above provided that you also do one of the following: a) Accompany it with the complete corresponding machine-readable source code, which must be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, b) Accompany it with a written offer, valid for at least three years, to give any third party, for a charge no more than your cost of physically performing source distribution, a complete machine-readable copy of the corresponding source code, to be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, c) Accompany it with the information you received as to the offer to distribute corresponding source code. (This alternative is allowed only for noncommercial distribution and only if you received the program in object code or executable form with such an offer, in accord with Subsection b above.) The source code for a work means the preferred form of the work for making modifications to it. For an executable work, complete source code means all the source code for all modules it contains, plus any associated interface definition files, plus the scripts used to control compilation and installation of the executable. However, as a special exception, the source code distributed need not include anything that is normally distributed (in either source or binary form) with the major components (compiler, kernel, and so on) of the operating system on which the executable runs, unless that component itself accompanies the executable. If distribution of executable or object code is made by offering access to copy from a designated place, then offering equivalent access to copy the source code from the same place counts as distribution of the source code, even though third parties are not compelled to copy the source along with the object code. 4. You may not copy, modify, sublicense, or distribute the Program except as expressly provided under this License. Any attempt otherwise to copy, modify, sublicense or distribute the Program is void, and will automatically terminate your rights under this License. However, parties who have received copies, or rights, from you under this License will not have their licenses terminated so long as such parties remain in full compliance. 5. You are not required to accept this License, since you have not signed it. However, nothing else grants you permission to modify or distribute the Program or its derivative works. These actions are prohibited by law if you do not accept this License. Therefore, by modifying or distributing the Program (or any work based on the Program), you indicate your acceptance of this License to do so, and all its terms and conditions for copying, distributing or modifying the Program or works based on it. 6. Each time you redistribute the Program (or any work based on the Program), the recipient automatically receives a license from the original licensor to copy, distribute or modify the Program subject to these terms and conditions. You may not impose any further restrictions on the recipients' exercise of the rights granted herein. You are not responsible for enforcing compliance by third parties to this License. 7. If, as a consequence of a court judgment or allegation of patent infringement or for any other reason (not limited to patent issues), conditions are imposed on you (whether by court order, agreement or otherwise) that contradict the conditions of this License, they do not excuse you from the conditions of this License. If you cannot distribute so as to satisfy simultaneously your obligations under this License and any other pertinent obligations, then as a consequence you may not distribute the Program at all. For example, if a patent license would not permit royalty-free redistribution of the Program by all those who receive copies directly or indirectly through you, then the only way you could satisfy both it and this License would be to refrain entirely from distribution of the Program. If any portion of this section is held invalid or unenforceable under any particular circumstance, the balance of the section is intended to apply and the section as a whole is intended to apply in other circumstances. It is not the purpose of this section to induce you to infringe any patents or other property right claims or to contest validity of any such claims; this section has the sole purpose of protecting the integrity of the free software distribution system, which is implemented by public license practices. Many people have made generous contributions to the wide range of software distributed through that system in reliance on consistent application of that system; it is up to the author/donor to decide if he or she is willing to distribute software through any other system and a licensee cannot impose that choice. This section is intended to make thoroughly clear what is believed to be a consequence of the rest of this License. 8. If the distribution and/or use of the Program is restricted in certain countries either by patents or by copyrighted interfaces, the original copyright holder who places the Program under this License may add an explicit geographical distribution limitation excluding those countries, so that distribution is permitted only in or among countries not thus excluded. In such case, this License incorporates the limitation as if written in the body of this License. 9. The Free Software Foundation may publish revised and/or new versions of the General Public License from time to time. Such new versions will be similar in spirit to the present version, but may differ in detail to address new problems or concerns. Each version is given a distinguishing version number. If the Program specifies a version number of this License which applies to it and "any later version", you have the option of following the terms and conditions either of that version or of any later version published by the Free Software Foundation. If the Program does not specify a version number of this License, you may choose any version ever published by the Free Software Foundation. 10. If you wish to incorporate parts of the Program into other free programs whose distribution conditions are different, write to the author to ask for permission. For software which is copyrighted by the Free Software Foundation, write to the Free Software Foundation; we sometimes make exceptions for this. Our decision will be guided by the two goals of preserving the free status of all derivatives of our free software and of promoting the sharing and reuse of software generally. NO WARRANTY 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. END OF TERMS AND CONDITIONS How to Apply These Terms to Your New Programs If you develop a new program, and you want it to be of the greatest possible use to the public, the best way to achieve this is to make it free software which everyone can redistribute and change under these terms. To do so, attach the following notices to the program. It is safest to attach them to the start of each source file to most effectively convey the exclusion of warranty; and each file should have at least the "copyright" line and a pointer to where the full notice is found. Copyright (C) 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 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, write to the Free Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA Also add information on how to contact you by electronic and paper mail. If the program is interactive, make it output a short notice like this when it starts in an interactive mode: Gnomovision version 69, Copyright (C) year name of author Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'. This is free software, and you are welcome to redistribute it under certain conditions; type `show c' for details. The hypothetical commands `show w' and `show c' should show the appropriate parts of the General Public License. Of course, the commands you use may be called something other than `show w' and `show c'; they could even be mouse-clicks or menu items--whatever suits your program. You should also get your employer (if you work as a programmer) or your school, if any, to sign a "copyright disclaimer" for the program, if necessary. Here is a sample; alter the names: Yoyodyne, Inc., hereby disclaims all copyright interest in the program `Gnomovision' (which makes passes at compilers) written by James Hacker. , 1 April 1989 Ty Coon, President of Vice This General Public License does not permit incorporating your program into proprietary programs. If your program is a subroutine library, you may consider it more useful to permit linking proprietary applications with the library. If this is what you want to do, use the GNU Library General Public License instead of this License. taktuk-3.7.7/DISCLAIMER000644 000765 000024 00000004041 13136570041 015212 0ustar00zebulonstaff000000 000000 ############################################################################### # # # TakTuk, a middleware for adaptive large scale parallel remote executions # # deployment. Perl implementation, copyright(C) 2006 Guillaume Huard. # # # # 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 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, write to the Free Software # # Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA # # # # Contact: Guillaume.Huard@imag.fr # # Laboratoire LIG - ENSIMAG - Antenne de Montbonnot # # 51 avenue Jean Kuntzmann # # 38330 Montbonnot Saint Martin # # FRANCE # # # ############################################################################### taktuk-3.7.7/INSTALL000644 000765 000024 00000022432 13136570041 014710 0ustar00zebulonstaff000000 000000 Installation Instructions ************************* Copyright (C) 1994, 1995, 1996, 1999, 2000, 2001, 2002, 2004, 2005 Free Software Foundation, Inc. This file is free documentation; the Free Software Foundation gives unlimited permission to copy, distribute and modify it. Basic Installation ================== These are generic installation instructions. The `configure' shell script attempts to guess correct values for various system-dependent variables used during compilation. It uses those values to create a `Makefile' in each directory of the package. It may also create one or more `.h' files containing system-dependent definitions. Finally, it creates a shell script `config.status' that you can run in the future to recreate the current configuration, and a file `config.log' containing compiler output (useful mainly for debugging `configure'). It can also use an optional file (typically called `config.cache' and enabled with `--cache-file=config.cache' or simply `-C') that saves the results of its tests to speed up reconfiguring. (Caching is disabled by default to prevent problems with accidental use of stale cache files.) If you need to do unusual things to compile the package, please try to figure out how `configure' could check whether to do them, and mail diffs or instructions to the address given in the `README' so they can be considered for the next release. If you are using the cache, and at some point `config.cache' contains results you don't want to keep, you may remove or edit it. The file `configure.ac' (or `configure.in') is used to create `configure' by a program called `autoconf'. You only need `configure.ac' if you want to change it or regenerate `configure' using a newer version of `autoconf'. The simplest way to compile this package is: 1. `cd' to the directory containing the package's source code and type `./configure' to configure the package for your system. If you're using `csh' on an old version of System V, you might need to type `sh ./configure' instead to prevent `csh' from trying to execute `configure' itself. Running `configure' takes awhile. While running, it prints some messages telling which features it is checking for. 2. Type `make' to compile the package. 3. Optionally, type `make check' to run any self-tests that come with the package. 4. Type `make install' to install the programs and any data files and documentation. 5. You can remove the program binaries and object files from the source code directory by typing `make clean'. To also remove the files that `configure' created (so you can compile the package for a different kind of computer), type `make distclean'. There is also a `make maintainer-clean' target, but that is intended mainly for the package's developers. If you use it, you may have to get all sorts of other programs in order to regenerate files that came with the distribution. Compilers and Options ===================== Some systems require unusual options for compilation or linking that the `configure' script does not know about. Run `./configure --help' for details on some of the pertinent environment variables. You can give `configure' initial values for configuration parameters by setting variables in the command line or in the environment. Here is an example: ./configure CC=c89 CFLAGS=-O2 LIBS=-lposix *Note Defining Variables::, for more details. Compiling For Multiple Architectures ==================================== You can compile the package for more than one kind of computer at the same time, by placing the object files for each architecture in their own directory. To do this, you must use a version of `make' that supports the `VPATH' variable, such as GNU `make'. `cd' to the directory where you want the object files and executables to go and run the `configure' script. `configure' automatically checks for the source code in the directory that `configure' is in and in `..'. If you have to use a `make' that does not support the `VPATH' variable, you have to compile the package for one architecture at a time in the source code directory. After you have installed the package for one architecture, use `make distclean' before reconfiguring for another architecture. Installation Names ================== By default, `make install' installs the package's commands under `/usr/local/bin', include files under `/usr/local/include', etc. You can specify an installation prefix other than `/usr/local' by giving `configure' the option `--prefix=PREFIX'. You can specify separate installation prefixes for architecture-specific files and architecture-independent files. If you pass the option `--exec-prefix=PREFIX' to `configure', the package uses PREFIX as the prefix for installing programs and libraries. Documentation and other data files still use the regular prefix. In addition, if you use an unusual directory layout you can give options like `--bindir=DIR' to specify different values for particular kinds of files. Run `configure --help' for a list of the directories you can set and what kinds of files go in them. If the package supports it, you can cause programs to be installed with an extra prefix or suffix on their names by giving `configure' the option `--program-prefix=PREFIX' or `--program-suffix=SUFFIX'. Optional Features ================= Some packages pay attention to `--enable-FEATURE' options to `configure', where FEATURE indicates an optional part of the package. They may also pay attention to `--with-PACKAGE' options, where PACKAGE is something like `gnu-as' or `x' (for the X Window System). The `README' should mention any `--enable-' and `--with-' options that the package recognizes. For packages that use the X Window System, `configure' can usually find the X include and library files automatically, but if it doesn't, you can use the `configure' options `--x-includes=DIR' and `--x-libraries=DIR' to specify their locations. Specifying the System Type ========================== There may be some features `configure' cannot figure out automatically, but needs to determine by the type of machine the package will run on. Usually, assuming the package is built to be run on the _same_ architectures, `configure' can figure that out, but if it prints a message saying it cannot guess the machine type, give it the `--build=TYPE' option. TYPE can either be a short name for the system type, such as `sun4', or a canonical name which has the form: CPU-COMPANY-SYSTEM where SYSTEM can have one of these forms: OS KERNEL-OS See the file `config.sub' for the possible values of each field. If `config.sub' isn't included in this package, then this package doesn't need to know the machine type. If you are _building_ compiler tools for cross-compiling, you should use the option `--target=TYPE' to select the type of system they will produce code for. If you want to _use_ a cross compiler, that generates code for a platform different from the build platform, you should specify the "host" platform (i.e., that on which the generated programs will eventually be run) with `--host=TYPE'. Sharing Defaults ================ If you want to set default values for `configure' scripts to share, you can create a site shell script called `config.site' that gives default values for variables like `CC', `cache_file', and `prefix'. `configure' looks for `PREFIX/share/config.site' if it exists, then `PREFIX/etc/config.site' if it exists. Or, you can set the `CONFIG_SITE' environment variable to the location of the site script. A warning: not all `configure' scripts look for a site script. Defining Variables ================== Variables not defined in a site shell script can be set in the environment passed to `configure'. However, some packages may run configure again during the build, and the customized values of these variables may be lost. In order to avoid this problem, you should set them in the `configure' command line, using `VAR=value'. For example: ./configure CC=/usr/local2/bin/gcc causes the specified `gcc' to be used as the C compiler (unless it is overridden in the site shell script). Here is a another example: /bin/bash ./configure CONFIG_SHELL=/bin/bash Here the `CONFIG_SHELL=/bin/bash' operand causes subsequent configuration-related scripts to be executed by `/bin/bash'. `configure' Invocation ====================== `configure' recognizes the following options to control how it operates. `--help' `-h' Print a summary of the options to `configure', and exit. `--version' `-V' Print the version of Autoconf used to generate the `configure' script, and exit. `--cache-file=FILE' Enable the cache: use and save the results of the tests in FILE, traditionally `config.cache'. FILE defaults to `/dev/null' to disable caching. `--config-cache' `-C' Alias for `--cache-file=config.cache'. `--quiet' `--silent' `-q' Do not print messages saying which checks are being made. To suppress all normal output, redirect it to `/dev/null' (any error messages will still be shown). `--srcdir=DIR' Look for the package's source code in directory DIR. Usually `configure' can determine that directory automatically. `configure' also accepts some other, not widely useful, options. Run `configure --help' for more details. taktuk-3.7.7/Makefile.am000644 000765 000024 00000012042 13136570041 015707 0ustar00zebulonstaff000000 000000 ############################################################################### # # # TakTuk, a middleware for adaptive large scale parallel remote executions # # deployment. Perl implementation, copyright(C) 2006 Guillaume Huard. # # # # 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 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, write to the Free Software # # Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA # # # # Contact: Guillaume.Huard@imag.fr # # Laboratoire LIG - ENSIMAG - Antenne de Montbonnot # # 51 avenue Jean Kuntzmann # # 38330 Montbonnot Saint Martin # # FRANCE # # # ############################################################################### .PHONY: commit clean_doc # flags to aclocal if Makefile rules trigger it ACLOCAL_AMFLAGS=-I acinclude PERL_MODULES=Perl-Module/lib/TakTuk.pm Perl-Module/lib/TakTuk/Select.pm PERL_MODULES_FILES= Perl-Module/Makefile.PL Perl-Module/MANIFEST.SKIP \ Perl-Module/lib/TakTuk/Pilot.pm DISCLAIMER all-am: $(PERL_MODULES) taktuk-light modules_make docdir = ${datadir}/doc pkgdocdir = ${docdir}/@PACKAGE@ htmldocdir = ${pkgdocdir}/html pkgconfigdir = $(libdir)/pkgconfig dist_bin_SCRIPTS = taktuk pkgconfig_DATA= taktuk.pc pkgdoc_DATA= COPYING AUTHORS README NEWS ChangeLog SUBDIRS=C-Module . tests if TAKTUK_GENDOC_HTML nodist_htmldoc_DATA=taktuk.html taktukcomm.html taktuk_module.html \ taktuk_pilot.html endif if TAKTUK_GENDOC_MAN nodist_man1_MANS=taktuk.1 nodist_man3_MANS=taktukcomm.3 endif if TAKTUK_NOPERL modules_make: install-exec-hook: @echo;echo WARNING: perl is required for taktuk execution; @ echo " and full installation"; else PERLSRC=@abs_top_srcdir@/Perl-Module Perl-Module/Makefile: Perl-Module/Makefile.PL Perl-Module/lib/TakTuk.pm Perl-Module/lib/TakTuk/Select.pm set -e ; \ cd Perl-Module ; \ if [ ! -f Makefile.PL ] \ && [ -f $(PERLSRC)/Makefile.PL ]; then \ mkdir -p lib/TakTuk ;\ ln -s $(PERLSRC)/MANIFEST.SKIP . ; \ ln -s $(PERLSRC)/lib/TakTuk/Pilot.pm lib/TakTuk ; \ ln -s $(PERLSRC)/Makefile.PL . ; \ fi ;\ perl Makefile.PL PREFIX=${prefix} modules_make: Perl-Module/Makefile $(MAKE) -C Perl-Module install-exec-hook: Perl-Module/Makefile $(MAKE) -C Perl-Module install clean-local: Perl-Module/Makefile $(MAKE) -C Perl-Module distclean $(MAKE) clean-generic endif taktuk.1: taktuk.pod $(POD2MAN) --name=TAKTUK --section=1 \ --center="TakTuk Deployment Engine" $^ >$@ taktukcomm.3: taktukcomm.pod $(POD2MAN) --name=TAKTUK --section=3 \ --center="TakTuk Library Functions Manual" $^ >$@ taktuk.html taktukcomm.html taktuk_module.html: %.html: %.pod $(POD2HTML) --title="TakTuk" $^ >$@ $(RM) pod2htmd.tmp pod2htmi.tmp taktuk_pilot.html: Perl-Module/lib/TakTuk/Pilot.pm $(POD2HTML) --title="TakTuk" $^ >$@ $(RM) pod2htmd.tmp pod2htmi.tmp CLEANFILES = taktuk-light taktuk-light: taktuk echo "#!/usr/bin/perl" >$@ sed -e "s/^ *//g;s/ */ /g;s/^ *#.*$$//g;/^$$/d" $^ >>$@ chmod u+x $@ CLEANFILES += $(PERL_MODULES) Perl-Module/lib/TakTuk.pm: taktuk DISCLAIMER taktuk_module.pod mkdir -p $(dir $@) cat $(filter %DISCLAIMER,$^) >$@ ./$(filter %taktuk,$^) -p TakTuk >>$@ cat $(filter %taktuk_module.pod,$^) >>$@ Perl-Module/lib/TakTuk/Select.pm: taktuk DISCLAIMER mkdir -p $(dir $@) cat $(filter %DISCLAIMER,$^) >$@ ./$(filter %taktuk,$^) -p TakTuk::Select >>$@ DISTCLEANFILES = $(nodist_htmldoc_DATA) $(nodist_man1_MANS) $(nodist_man3_MANS) CLEANFILES += $(PERL_MODULES) EXTRA_DIST = taktukcomm.pod taktuk.pod taktuk_module.pod \ $(PERL_MODULES_FILES) Bugs bootstrap API-versions.txt check_SCRIPTS=check_versions TESTS=$(check_SCRIPTS) # no uninstall check as ExtUtils::MakeMaker does not support uninstall distuninstallcheck: @: taktuk-3.7.7/Makefile.in000644 000765 000024 00000150655 13136606240 015736 0ustar00zebulonstaff000000 000000 # Makefile.in generated by automake 1.15.1 from Makefile.am. # @configure_input@ # Copyright (C) 1994-2017 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@ ############################################################################### # # # TakTuk, a middleware for adaptive large scale parallel remote executions # # deployment. Perl implementation, copyright(C) 2006 Guillaume Huard. # # # # 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 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, write to the Free Software # # Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA # # # # Contact: Guillaume.Huard@imag.fr # # Laboratoire LIG - ENSIMAG - Antenne de Montbonnot # # 51 avenue Jean Kuntzmann # # 38330 Montbonnot Saint Martin # # FRANCE # # # ############################################################################### VPATH = @srcdir@ am__is_gnu_make = { \ if test -z '$(MAKELEVEL)'; then \ false; \ elif test -n '$(MAKE_HOST)'; then \ true; \ elif test -n '$(MAKE_VERSION)' && test -n '$(CURDIR)'; then \ true; \ else \ false; \ fi; \ } am__make_running_with_option = \ case $${target_option-} in \ ?) ;; \ *) echo "am__make_running_with_option: internal error: invalid" \ "target option '$${target_option-}' specified" >&2; \ exit 1;; \ esac; \ has_opt=no; \ sane_makeflags=$$MAKEFLAGS; \ if $(am__is_gnu_make); then \ sane_makeflags=$$MFLAGS; \ else \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ bs=\\; \ sane_makeflags=`printf '%s\n' "$$MAKEFLAGS" \ | sed "s/$$bs$$bs[$$bs $$bs ]*//g"`;; \ esac; \ fi; \ skip_next=no; \ strip_trailopt () \ { \ flg=`printf '%s\n' "$$flg" | sed "s/$$1.*$$//"`; \ }; \ for flg in $$sane_makeflags; do \ test $$skip_next = yes && { skip_next=no; continue; }; \ case $$flg in \ *=*|--*) continue;; \ -*I) strip_trailopt 'I'; skip_next=yes;; \ -*I?*) strip_trailopt 'I';; \ -*O) strip_trailopt 'O'; skip_next=yes;; \ -*O?*) strip_trailopt 'O';; \ -*l) strip_trailopt 'l'; skip_next=yes;; \ -*l?*) strip_trailopt 'l';; \ -[dEDm]) skip_next=yes;; \ -[JT]) skip_next=yes;; \ esac; \ case $$flg in \ *$$target_option*) has_opt=yes; break;; \ esac; \ done; \ test $$has_opt = yes am__make_dryrun = (target_option=n; $(am__make_running_with_option)) am__make_keepgoing = (target_option=k; $(am__make_running_with_option)) pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ target_triplet = @target@ subdir = . ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/acinclude/acx_prog.m4 \ $(top_srcdir)/acinclude/libtool.m4 \ $(top_srcdir)/acinclude/ltoptions.m4 \ $(top_srcdir)/acinclude/ltsugar.m4 \ $(top_srcdir)/acinclude/ltversion.m4 \ $(top_srcdir)/acinclude/lt~obsolete.m4 \ $(top_srcdir)/acinclude.m4 $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) DIST_COMMON = $(srcdir)/Makefile.am $(top_srcdir)/configure \ $(am__configure_deps) $(dist_bin_SCRIPTS) $(am__DIST_COMMON) am__CONFIG_DISTCLEAN_FILES = config.status config.cache config.log \ configure.lineno config.status.lineno mkinstalldirs = $(install_sh) -d CONFIG_CLEAN_FILES = taktuk.pc taktuk check_versions 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)$(bindir)" "$(DESTDIR)$(man1dir)" \ "$(DESTDIR)$(man3dir)" "$(DESTDIR)$(htmldocdir)" \ "$(DESTDIR)$(pkgconfigdir)" "$(DESTDIR)$(pkgdocdir)" SCRIPTS = $(dist_bin_SCRIPTS) AM_V_P = $(am__v_P_@AM_V@) am__v_P_ = $(am__v_P_@AM_DEFAULT_V@) am__v_P_0 = false am__v_P_1 = : AM_V_GEN = $(am__v_GEN_@AM_V@) am__v_GEN_ = $(am__v_GEN_@AM_DEFAULT_V@) am__v_GEN_0 = @echo " GEN " $@; am__v_GEN_1 = AM_V_at = $(am__v_at_@AM_V@) am__v_at_ = $(am__v_at_@AM_DEFAULT_V@) am__v_at_0 = @ am__v_at_1 = SOURCES = DIST_SOURCES = RECURSIVE_TARGETS = all-recursive check-recursive cscopelist-recursive \ ctags-recursive dvi-recursive html-recursive info-recursive \ install-data-recursive install-dvi-recursive \ install-exec-recursive install-html-recursive \ install-info-recursive install-pdf-recursive \ install-ps-recursive install-recursive installcheck-recursive \ installdirs-recursive pdf-recursive ps-recursive \ tags-recursive uninstall-recursive am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac man1dir = $(mandir)/man1 man3dir = $(mandir)/man3 NROFF = nroff MANS = $(nodist_man1_MANS) $(nodist_man3_MANS) DATA = $(nodist_htmldoc_DATA) $(pkgconfig_DATA) $(pkgdoc_DATA) RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \ distclean-recursive maintainer-clean-recursive am__recursive_targets = \ $(RECURSIVE_TARGETS) \ $(RECURSIVE_CLEAN_TARGETS) \ $(am__extra_recursive_targets) AM_RECURSIVE_TARGETS = $(am__recursive_targets:-recursive=) TAGS CTAGS \ cscope check recheck distdir dist dist-all distcheck am__tagged_files = $(HEADERS) $(SOURCES) $(TAGS_FILES) $(LISP) # Read a list of newline-separated strings from the standard input, # and print each of them once, without duplicates. Input order is # *not* preserved. am__uniquify_input = $(AWK) '\ BEGIN { nonempty = 0; } \ { items[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in items) print i; }; } \ ' # Make sure the list of sources is unique. This is necessary because, # e.g., the same source file might be shared among _SOURCES variables # for different programs/libraries. am__define_uniq_tagged_files = \ list='$(am__tagged_files)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | $(am__uniquify_input)` ETAGS = etags CTAGS = ctags CSCOPE = cscope am__tty_colors_dummy = \ mgn= red= grn= lgn= blu= brg= std=; \ am__color_tests=no am__tty_colors = { \ $(am__tty_colors_dummy); \ if test "X$(AM_COLOR_TESTS)" = Xno; then \ am__color_tests=no; \ elif test "X$(AM_COLOR_TESTS)" = Xalways; then \ am__color_tests=yes; \ elif test "X$$TERM" != Xdumb && { test -t 1; } 2>/dev/null; then \ am__color_tests=yes; \ fi; \ if test $$am__color_tests = yes; then \ red=''; \ grn=''; \ lgn=''; \ blu=''; \ mgn=''; \ brg=''; \ std=''; \ fi; \ } am__recheck_rx = ^[ ]*:recheck:[ ]* am__global_test_result_rx = ^[ ]*:global-test-result:[ ]* am__copy_in_global_log_rx = ^[ ]*:copy-in-global-log:[ ]* # A command that, given a newline-separated list of test names on the # standard input, print the name of the tests that are to be re-run # upon "make recheck". am__list_recheck_tests = $(AWK) '{ \ recheck = 1; \ while ((rc = (getline line < ($$0 ".trs"))) != 0) \ { \ if (rc < 0) \ { \ if ((getline line2 < ($$0 ".log")) < 0) \ recheck = 0; \ break; \ } \ else if (line ~ /$(am__recheck_rx)[nN][Oo]/) \ { \ recheck = 0; \ break; \ } \ else if (line ~ /$(am__recheck_rx)[yY][eE][sS]/) \ { \ break; \ } \ }; \ if (recheck) \ print $$0; \ close ($$0 ".trs"); \ close ($$0 ".log"); \ }' # A command that, given a newline-separated list of test names on the # standard input, create the global log from their .trs and .log files. am__create_global_log = $(AWK) ' \ function fatal(msg) \ { \ print "fatal: making $@: " msg | "cat >&2"; \ exit 1; \ } \ function rst_section(header) \ { \ print header; \ len = length(header); \ for (i = 1; i <= len; i = i + 1) \ printf "="; \ printf "\n\n"; \ } \ { \ copy_in_global_log = 1; \ global_test_result = "RUN"; \ while ((rc = (getline line < ($$0 ".trs"))) != 0) \ { \ if (rc < 0) \ fatal("failed to read from " $$0 ".trs"); \ if (line ~ /$(am__global_test_result_rx)/) \ { \ sub("$(am__global_test_result_rx)", "", line); \ sub("[ ]*$$", "", line); \ global_test_result = line; \ } \ else if (line ~ /$(am__copy_in_global_log_rx)[nN][oO]/) \ copy_in_global_log = 0; \ }; \ if (copy_in_global_log) \ { \ rst_section(global_test_result ": " $$0); \ while ((rc = (getline line < ($$0 ".log"))) != 0) \ { \ if (rc < 0) \ fatal("failed to read from " $$0 ".log"); \ print line; \ }; \ printf "\n"; \ }; \ close ($$0 ".trs"); \ close ($$0 ".log"); \ }' # Restructured Text title. am__rst_title = { sed 's/.*/ & /;h;s/./=/g;p;x;s/ *$$//;p;g' && echo; } # Solaris 10 'make', and several other traditional 'make' implementations, # pass "-e" to $(SHELL), and POSIX 2008 even requires this. Work around it # by disabling -e (using the XSI extension "set +e") if it's set. am__sh_e_setup = case $$- in *e*) set +e;; esac # Default flags passed to test drivers. am__common_driver_flags = \ --color-tests "$$am__color_tests" \ --enable-hard-errors "$$am__enable_hard_errors" \ --expect-failure "$$am__expect_failure" # To be inserted before the command running the test. Creates the # directory for the log if needed. Stores in $dir the directory # containing $f, in $tst the test, in $log the log. Executes the # developer- defined test setup AM_TESTS_ENVIRONMENT (if any), and # passes TESTS_ENVIRONMENT. Set up options for the wrapper that # will run the test scripts (or their associated LOG_COMPILER, if # thy have one). am__check_pre = \ $(am__sh_e_setup); \ $(am__vpath_adj_setup) $(am__vpath_adj) \ $(am__tty_colors); \ srcdir=$(srcdir); export srcdir; \ case "$@" in \ */*) am__odir=`echo "./$@" | sed 's|/[^/]*$$||'`;; \ *) am__odir=.;; \ esac; \ test "x$$am__odir" = x"." || test -d "$$am__odir" \ || $(MKDIR_P) "$$am__odir" || exit $$?; \ if test -f "./$$f"; then dir=./; \ elif test -f "$$f"; then dir=; \ else dir="$(srcdir)/"; fi; \ tst=$$dir$$f; log='$@'; \ if test -n '$(DISABLE_HARD_ERRORS)'; then \ am__enable_hard_errors=no; \ else \ am__enable_hard_errors=yes; \ fi; \ case " $(XFAIL_TESTS) " in \ *[\ \ ]$$f[\ \ ]* | *[\ \ ]$$dir$$f[\ \ ]*) \ am__expect_failure=yes;; \ *) \ am__expect_failure=no;; \ esac; \ $(AM_TESTS_ENVIRONMENT) $(TESTS_ENVIRONMENT) # A shell command to get the names of the tests scripts with any registered # extension removed (i.e., equivalently, the names of the test logs, with # the '.log' extension removed). The result is saved in the shell variable # '$bases'. This honors runtime overriding of TESTS and TEST_LOGS. Sadly, # we cannot use something simpler, involving e.g., "$(TEST_LOGS:.log=)", # since that might cause problem with VPATH rewrites for suffix-less tests. # See also 'test-harness-vpath-rewrite.sh' and 'test-trs-basic.sh'. am__set_TESTS_bases = \ bases='$(TEST_LOGS)'; \ bases=`for i in $$bases; do echo $$i; done | sed 's/\.log$$//'`; \ bases=`echo $$bases` RECHECK_LOGS = $(TEST_LOGS) TEST_SUITE_LOG = test-suite.log TEST_EXTENSIONS = @EXEEXT@ .test LOG_DRIVER = $(SHELL) $(top_srcdir)/build-aux/test-driver LOG_COMPILE = $(LOG_COMPILER) $(AM_LOG_FLAGS) $(LOG_FLAGS) am__set_b = \ case '$@' in \ */*) \ case '$*' in \ */*) b='$*';; \ *) b=`echo '$@' | sed 's/\.log$$//'`; \ esac;; \ *) \ b='$*';; \ esac am__test_logs1 = $(TESTS:=.log) am__test_logs2 = $(am__test_logs1:@EXEEXT@.log=.log) TEST_LOGS = $(am__test_logs2:.test.log=.log) TEST_LOG_DRIVER = $(SHELL) $(top_srcdir)/build-aux/test-driver TEST_LOG_COMPILE = $(TEST_LOG_COMPILER) $(AM_TEST_LOG_FLAGS) \ $(TEST_LOG_FLAGS) DIST_SUBDIRS = $(SUBDIRS) am__DIST_COMMON = $(srcdir)/Makefile.in $(srcdir)/check_versions.in \ $(srcdir)/taktuk.in $(srcdir)/taktuk.pc.in \ $(top_srcdir)/build-aux/compile \ $(top_srcdir)/build-aux/config.guess \ $(top_srcdir)/build-aux/config.sub \ $(top_srcdir)/build-aux/install-sh \ $(top_srcdir)/build-aux/ltmain.sh \ $(top_srcdir)/build-aux/missing \ $(top_srcdir)/build-aux/test-driver AUTHORS COPYING ChangeLog \ INSTALL NEWS README TODO build-aux/compile \ build-aux/config.guess build-aux/config.sub build-aux/depcomp \ build-aux/install-sh build-aux/ltmain.sh build-aux/missing 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@ AM_DEFAULT_VERBOSITY = @AM_DEFAULT_VERBOSITY@ AR = @AR@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GREP = @GREP@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LD_VERSION_SCRIPT = @LD_VERSION_SCRIPT@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ LT_SYS_LIBRARY_PATH = @LT_SYS_LIBRARY_PATH@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PATH_SEPARATOR = @PATH_SEPARATOR@ PERL = @PERL@ POD2HTML = @POD2HTML@ POD2MAN = @POD2MAN@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ TAKTUK_VERSION = @TAKTUK_VERSION@ TAKTUK_VERSION_CMDLINE = @TAKTUK_VERSION_CMDLINE@ TAKTUK_VERSION_COMMC_ABI = @TAKTUK_VERSION_COMMC_ABI@ TAKTUK_VERSION_COMMC_API = @TAKTUK_VERSION_COMMC_API@ TAKTUK_VERSION_COMMPERL = @TAKTUK_VERSION_COMMPERL@ TAKTUK_VERSION_CONTROLPERL = @TAKTUK_VERSION_CONTROLPERL@ TAKTUK_VERSION_FDPROTO = @TAKTUK_VERSION_FDPROTO@ TAKTUK_VERSION_IOCONSTPERL = @TAKTUK_VERSION_IOCONSTPERL@ TAKTUK_VERSION_NETPROTO = @TAKTUK_VERSION_NETPROTO@ TAKTUK_VERSION_STATEFLOW = @TAKTUK_VERSION_STATEFLOW@ VERSION = @VERSION@ VERSIONING_CFLAGS = @VERSIONING_CFLAGS@ 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_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = ${datadir}/doc dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target = @target@ target_alias = @target_alias@ target_cpu = @target_cpu@ target_os = @target_os@ target_vendor = @target_vendor@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ # flags to aclocal if Makefile rules trigger it ACLOCAL_AMFLAGS = -I acinclude PERL_MODULES = Perl-Module/lib/TakTuk.pm Perl-Module/lib/TakTuk/Select.pm PERL_MODULES_FILES = Perl-Module/Makefile.PL Perl-Module/MANIFEST.SKIP \ Perl-Module/lib/TakTuk/Pilot.pm DISCLAIMER pkgdocdir = ${docdir}/@PACKAGE@ htmldocdir = ${pkgdocdir}/html pkgconfigdir = $(libdir)/pkgconfig dist_bin_SCRIPTS = taktuk pkgconfig_DATA = taktuk.pc pkgdoc_DATA = COPYING AUTHORS README NEWS ChangeLog SUBDIRS = C-Module . tests @TAKTUK_GENDOC_HTML_TRUE@nodist_htmldoc_DATA = taktuk.html taktukcomm.html taktuk_module.html \ @TAKTUK_GENDOC_HTML_TRUE@ taktuk_pilot.html @TAKTUK_GENDOC_MAN_TRUE@nodist_man1_MANS = taktuk.1 @TAKTUK_GENDOC_MAN_TRUE@nodist_man3_MANS = taktukcomm.3 @TAKTUK_NOPERL_FALSE@PERLSRC = @abs_top_srcdir@/Perl-Module CLEANFILES = taktuk-light $(PERL_MODULES) $(PERL_MODULES) DISTCLEANFILES = $(nodist_htmldoc_DATA) $(nodist_man1_MANS) $(nodist_man3_MANS) EXTRA_DIST = taktukcomm.pod taktuk.pod taktuk_module.pod \ $(PERL_MODULES_FILES) Bugs bootstrap API-versions.txt check_SCRIPTS = check_versions TESTS = $(check_SCRIPTS) all: all-recursive .SUFFIXES: .SUFFIXES: .log .test .test$(EXEEXT) .trs am--refresh: Makefile @: $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ echo ' cd $(srcdir) && $(AUTOMAKE) --gnu'; \ $(am__cd) $(srcdir) && $(AUTOMAKE) --gnu \ && exit 0; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu 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_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) $(SHELL) ./config.status --recheck $(top_srcdir)/configure: $(am__configure_deps) $(am__cd) $(srcdir) && $(AUTOCONF) $(ACLOCAL_M4): $(am__aclocal_m4_deps) $(am__cd) $(srcdir) && $(ACLOCAL) $(ACLOCAL_AMFLAGS) $(am__aclocal_m4_deps): taktuk.pc: $(top_builddir)/config.status $(srcdir)/taktuk.pc.in cd $(top_builddir) && $(SHELL) ./config.status $@ taktuk: $(top_builddir)/config.status $(srcdir)/taktuk.in cd $(top_builddir) && $(SHELL) ./config.status $@ check_versions: $(top_builddir)/config.status $(srcdir)/check_versions.in cd $(top_builddir) && $(SHELL) ./config.status $@ install-dist_binSCRIPTS: $(dist_bin_SCRIPTS) @$(NORMAL_INSTALL) @list='$(dist_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-dist_binSCRIPTS: @$(NORMAL_UNINSTALL) @list='$(dist_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-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs distclean-libtool: -rm -f libtool config.lt install-man1: $(nodist_man1_MANS) @$(NORMAL_INSTALL) @list1='$(nodist_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='$(nodist_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) install-man3: $(nodist_man3_MANS) @$(NORMAL_INSTALL) @list1='$(nodist_man3_MANS)'; \ list2=''; \ test -n "$(man3dir)" \ && test -n "`echo $$list1$$list2`" \ || exit 0; \ echo " $(MKDIR_P) '$(DESTDIR)$(man3dir)'"; \ $(MKDIR_P) "$(DESTDIR)$(man3dir)" || 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 '/\.3[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,^[^3][0-9a-z]*$$,3,;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)$(man3dir)/$$inst'"; \ $(INSTALL_DATA) "$$file" "$(DESTDIR)$(man3dir)/$$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)$(man3dir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(man3dir)" || exit $$?; }; \ done; } uninstall-man3: @$(NORMAL_UNINSTALL) @list='$(nodist_man3_MANS)'; test -n "$(man3dir)" || exit 0; \ files=`{ for i in $$list; do echo "$$i"; done; \ } | sed -e 's,.*/,,;h;s,.*\.,,;s,^[^3][0-9a-z]*$$,3,;x' \ -e 's,\.[0-9a-z]*$$,,;$(transform);G;s,\n,.,'`; \ dir='$(DESTDIR)$(man3dir)'; $(am__uninstall_files_from_dir) install-nodist_htmldocDATA: $(nodist_htmldoc_DATA) @$(NORMAL_INSTALL) @list='$(nodist_htmldoc_DATA)'; test -n "$(htmldocdir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(htmldocdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(htmldocdir)" || 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)$(htmldocdir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(htmldocdir)" || exit $$?; \ done uninstall-nodist_htmldocDATA: @$(NORMAL_UNINSTALL) @list='$(nodist_htmldoc_DATA)'; test -n "$(htmldocdir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(htmldocdir)'; $(am__uninstall_files_from_dir) install-pkgconfigDATA: $(pkgconfig_DATA) @$(NORMAL_INSTALL) @list='$(pkgconfig_DATA)'; test -n "$(pkgconfigdir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(pkgconfigdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(pkgconfigdir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(pkgconfigdir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(pkgconfigdir)" || exit $$?; \ done uninstall-pkgconfigDATA: @$(NORMAL_UNINSTALL) @list='$(pkgconfig_DATA)'; test -n "$(pkgconfigdir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(pkgconfigdir)'; $(am__uninstall_files_from_dir) install-pkgdocDATA: $(pkgdoc_DATA) @$(NORMAL_INSTALL) @list='$(pkgdoc_DATA)'; test -n "$(pkgdocdir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(pkgdocdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(pkgdocdir)" || 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)$(pkgdocdir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(pkgdocdir)" || exit $$?; \ done uninstall-pkgdocDATA: @$(NORMAL_UNINSTALL) @list='$(pkgdoc_DATA)'; test -n "$(pkgdocdir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(pkgdocdir)'; $(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. $(am__recursive_targets): @fail=; \ if $(am__make_keepgoing); then \ failcom='fail=yes'; \ else \ failcom='exit 1'; \ fi; \ dot_seen=no; \ target=`echo $@ | sed s/-recursive//`; \ case "$@" in \ distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \ *) list='$(SUBDIRS)' ;; \ esac; \ for subdir in $$list; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ dot_seen=yes; \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done; \ if test "$$dot_seen" = "no"; then \ $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \ fi; test -z "$$fail" ID: $(am__tagged_files) $(am__define_uniq_tagged_files); mkid -fID $$unique tags: tags-recursive TAGS: tags tags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files) set x; \ here=`pwd`; \ if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \ include_option=--etags-include; \ empty_fix=.; \ else \ include_option=--include; \ empty_fix=; \ fi; \ list='$(SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ test ! -f $$subdir/TAGS || \ set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \ fi; \ done; \ $(am__define_uniq_tagged_files); \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: ctags-recursive CTAGS: ctags ctags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files) $(am__define_uniq_tagged_files); \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" cscope: cscope.files test ! -s cscope.files \ || $(CSCOPE) -b -q $(AM_CSCOPEFLAGS) $(CSCOPEFLAGS) -i cscope.files $(CSCOPE_ARGS) clean-cscope: -rm -f cscope.files cscope.files: clean-cscope cscopelist cscopelist: cscopelist-recursive cscopelist-am: $(am__tagged_files) list='$(am__tagged_files)'; \ case "$(srcdir)" in \ [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \ *) sdir=$(subdir)/$(srcdir) ;; \ esac; \ for i in $$list; do \ if test -f "$$i"; then \ echo "$(subdir)/$$i"; \ else \ echo "$$sdir/$$i"; \ fi; \ done >> $(top_builddir)/cscope.files distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags -rm -f cscope.out cscope.in.out cscope.po.out cscope.files # Recover from deleted '.trs' file; this should ensure that # "rm -f foo.log; make foo.trs" re-run 'foo.test', and re-create # both 'foo.log' and 'foo.trs'. Break the recipe in two subshells # to avoid problems with "make -n". .log.trs: rm -f $< $@ $(MAKE) $(AM_MAKEFLAGS) $< # Leading 'am--fnord' is there to ensure the list of targets does not # expand to empty, as could happen e.g. with make check TESTS=''. am--fnord $(TEST_LOGS) $(TEST_LOGS:.log=.trs): $(am__force_recheck) am--force-recheck: @: $(TEST_SUITE_LOG): $(TEST_LOGS) @$(am__set_TESTS_bases); \ am__f_ok () { test -f "$$1" && test -r "$$1"; }; \ redo_bases=`for i in $$bases; do \ am__f_ok $$i.trs && am__f_ok $$i.log || echo $$i; \ done`; \ if test -n "$$redo_bases"; then \ redo_logs=`for i in $$redo_bases; do echo $$i.log; done`; \ redo_results=`for i in $$redo_bases; do echo $$i.trs; done`; \ if $(am__make_dryrun); then :; else \ rm -f $$redo_logs && rm -f $$redo_results || exit 1; \ fi; \ fi; \ if test -n "$$am__remaking_logs"; then \ echo "fatal: making $(TEST_SUITE_LOG): possible infinite" \ "recursion detected" >&2; \ elif test -n "$$redo_logs"; then \ am__remaking_logs=yes $(MAKE) $(AM_MAKEFLAGS) $$redo_logs; \ fi; \ if $(am__make_dryrun); then :; else \ st=0; \ errmsg="fatal: making $(TEST_SUITE_LOG): failed to create"; \ for i in $$redo_bases; do \ test -f $$i.trs && test -r $$i.trs \ || { echo "$$errmsg $$i.trs" >&2; st=1; }; \ test -f $$i.log && test -r $$i.log \ || { echo "$$errmsg $$i.log" >&2; st=1; }; \ done; \ test $$st -eq 0 || exit 1; \ fi @$(am__sh_e_setup); $(am__tty_colors); $(am__set_TESTS_bases); \ ws='[ ]'; \ results=`for b in $$bases; do echo $$b.trs; done`; \ test -n "$$results" || results=/dev/null; \ all=` grep "^$$ws*:test-result:" $$results | wc -l`; \ pass=` grep "^$$ws*:test-result:$$ws*PASS" $$results | wc -l`; \ fail=` grep "^$$ws*:test-result:$$ws*FAIL" $$results | wc -l`; \ skip=` grep "^$$ws*:test-result:$$ws*SKIP" $$results | wc -l`; \ xfail=`grep "^$$ws*:test-result:$$ws*XFAIL" $$results | wc -l`; \ xpass=`grep "^$$ws*:test-result:$$ws*XPASS" $$results | wc -l`; \ error=`grep "^$$ws*:test-result:$$ws*ERROR" $$results | wc -l`; \ if test `expr $$fail + $$xpass + $$error` -eq 0; then \ success=true; \ else \ success=false; \ fi; \ br='==================='; br=$$br$$br$$br$$br; \ result_count () \ { \ if test x"$$1" = x"--maybe-color"; then \ maybe_colorize=yes; \ elif test x"$$1" = x"--no-color"; then \ maybe_colorize=no; \ else \ echo "$@: invalid 'result_count' usage" >&2; exit 4; \ fi; \ shift; \ desc=$$1 count=$$2; \ if test $$maybe_colorize = yes && test $$count -gt 0; then \ color_start=$$3 color_end=$$std; \ else \ color_start= color_end=; \ fi; \ echo "$${color_start}# $$desc $$count$${color_end}"; \ }; \ create_testsuite_report () \ { \ result_count $$1 "TOTAL:" $$all "$$brg"; \ result_count $$1 "PASS: " $$pass "$$grn"; \ result_count $$1 "SKIP: " $$skip "$$blu"; \ result_count $$1 "XFAIL:" $$xfail "$$lgn"; \ result_count $$1 "FAIL: " $$fail "$$red"; \ result_count $$1 "XPASS:" $$xpass "$$red"; \ result_count $$1 "ERROR:" $$error "$$mgn"; \ }; \ { \ echo "$(PACKAGE_STRING): $(subdir)/$(TEST_SUITE_LOG)" | \ $(am__rst_title); \ create_testsuite_report --no-color; \ echo; \ echo ".. contents:: :depth: 2"; \ echo; \ for b in $$bases; do echo $$b; done \ | $(am__create_global_log); \ } >$(TEST_SUITE_LOG).tmp || exit 1; \ mv $(TEST_SUITE_LOG).tmp $(TEST_SUITE_LOG); \ if $$success; then \ col="$$grn"; \ else \ col="$$red"; \ test x"$$VERBOSE" = x || cat $(TEST_SUITE_LOG); \ fi; \ echo "$${col}$$br$${std}"; \ echo "$${col}Testsuite summary for $(PACKAGE_STRING)$${std}"; \ echo "$${col}$$br$${std}"; \ create_testsuite_report --maybe-color; \ echo "$$col$$br$$std"; \ if $$success; then :; else \ echo "$${col}See $(subdir)/$(TEST_SUITE_LOG)$${std}"; \ if test -n "$(PACKAGE_BUGREPORT)"; then \ echo "$${col}Please report to $(PACKAGE_BUGREPORT)$${std}"; \ fi; \ echo "$$col$$br$$std"; \ fi; \ $$success || exit 1 check-TESTS: @list='$(RECHECK_LOGS)'; test -z "$$list" || rm -f $$list @list='$(RECHECK_LOGS:.log=.trs)'; test -z "$$list" || rm -f $$list @test -z "$(TEST_SUITE_LOG)" || rm -f $(TEST_SUITE_LOG) @set +e; $(am__set_TESTS_bases); \ log_list=`for i in $$bases; do echo $$i.log; done`; \ trs_list=`for i in $$bases; do echo $$i.trs; done`; \ log_list=`echo $$log_list`; trs_list=`echo $$trs_list`; \ $(MAKE) $(AM_MAKEFLAGS) $(TEST_SUITE_LOG) TEST_LOGS="$$log_list"; \ exit $$?; recheck: all $(check_SCRIPTS) @test -z "$(TEST_SUITE_LOG)" || rm -f $(TEST_SUITE_LOG) @set +e; $(am__set_TESTS_bases); \ bases=`for i in $$bases; do echo $$i; done \ | $(am__list_recheck_tests)` || exit 1; \ log_list=`for i in $$bases; do echo $$i.log; done`; \ log_list=`echo $$log_list`; \ $(MAKE) $(AM_MAKEFLAGS) $(TEST_SUITE_LOG) \ am__force_recheck=am--force-recheck \ TEST_LOGS="$$log_list"; \ exit $$? check_versions.log: check_versions @p='check_versions'; \ b='check_versions'; \ $(am__check_pre) $(LOG_DRIVER) --test-name "$$f" \ --log-file $$b.log --trs-file $$b.trs \ $(am__common_driver_flags) $(AM_LOG_DRIVER_FLAGS) $(LOG_DRIVER_FLAGS) -- $(LOG_COMPILE) \ "$$tst" $(AM_TESTS_FD_REDIRECT) .test.log: @p='$<'; \ $(am__set_b); \ $(am__check_pre) $(TEST_LOG_DRIVER) --test-name "$$f" \ --log-file $$b.log --trs-file $$b.trs \ $(am__common_driver_flags) $(AM_TEST_LOG_DRIVER_FLAGS) $(TEST_LOG_DRIVER_FLAGS) -- $(TEST_LOG_COMPILE) \ "$$tst" $(AM_TESTS_FD_REDIRECT) @am__EXEEXT_TRUE@.test$(EXEEXT).log: @am__EXEEXT_TRUE@ @p='$<'; \ @am__EXEEXT_TRUE@ $(am__set_b); \ @am__EXEEXT_TRUE@ $(am__check_pre) $(TEST_LOG_DRIVER) --test-name "$$f" \ @am__EXEEXT_TRUE@ --log-file $$b.log --trs-file $$b.trs \ @am__EXEEXT_TRUE@ $(am__common_driver_flags) $(AM_TEST_LOG_DRIVER_FLAGS) $(TEST_LOG_DRIVER_FLAGS) -- $(TEST_LOG_COMPILE) \ @am__EXEEXT_TRUE@ "$$tst" $(AM_TESTS_FD_REDIRECT) 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) | eval GZIP= gzip $(GZIP_ENV) -c >$(distdir).tar.gz $(am__post_remove_distdir) dist-bzip2: distdir tardir=$(distdir) && $(am__tar) | BZIP2=$${BZIP2--9} bzip2 -c >$(distdir).tar.bz2 $(am__post_remove_distdir) dist-lzip: distdir tardir=$(distdir) && $(am__tar) | lzip -c $${LZIP_OPT--9} >$(distdir).tar.lz $(am__post_remove_distdir) dist-xz: distdir tardir=$(distdir) && $(am__tar) | XZ_OPT=$${XZ_OPT--e} xz -c >$(distdir).tar.xz $(am__post_remove_distdir) dist-tarZ: distdir @echo WARNING: "Support for distribution archives compressed with" \ "legacy program 'compress' is deprecated." >&2 @echo WARNING: "It will be removed altogether in Automake 2.0" >&2 tardir=$(distdir) && $(am__tar) | compress -c >$(distdir).tar.Z $(am__post_remove_distdir) dist-shar: distdir @echo WARNING: "Support for shar distribution archives is" \ "deprecated." >&2 @echo WARNING: "It will be removed altogether in Automake 2.0" >&2 shar $(distdir) | eval GZIP= gzip $(GZIP_ENV) -c >$(distdir).shar.gz $(am__post_remove_distdir) dist-zip: distdir -rm -f $(distdir).zip zip -rq $(distdir).zip $(distdir) $(am__post_remove_distdir) dist dist-all: $(MAKE) $(AM_MAKEFLAGS) $(DIST_TARGETS) am__post_remove_distdir='@:' $(am__post_remove_distdir) # This target untars the dist file and tries a VPATH configuration. Then # it guarantees that the distribution is self-contained by making another # tarfile. distcheck: dist case '$(DIST_ARCHIVES)' in \ *.tar.gz*) \ eval GZIP= gzip $(GZIP_ENV) -dc $(distdir).tar.gz | $(am__untar) ;;\ *.tar.bz2*) \ bzip2 -dc $(distdir).tar.bz2 | $(am__untar) ;;\ *.tar.lz*) \ lzip -dc $(distdir).tar.lz | $(am__untar) ;;\ *.tar.xz*) \ xz -dc $(distdir).tar.xz | $(am__untar) ;;\ *.tar.Z*) \ uncompress -c $(distdir).tar.Z | $(am__untar) ;;\ *.shar.gz*) \ eval GZIP= gzip $(GZIP_ENV) -dc $(distdir).shar.gz | unshar ;;\ *.zip*) \ unzip $(distdir).zip ;;\ esac chmod -R a-w $(distdir) chmod u+w $(distdir) mkdir $(distdir)/_build $(distdir)/_build/sub $(distdir)/_inst chmod a-w $(distdir) test -d $(distdir)/_build || exit 0; \ dc_install_base=`$(am__cd) $(distdir)/_inst && pwd | sed -e 's,^[^:\\/]:[\\/],/,'` \ && dc_destdir="$${TMPDIR-/tmp}/am-dc-$$$$/" \ && am__cwd=`pwd` \ && $(am__cd) $(distdir)/_build/sub \ && ../../configure \ $(AM_DISTCHECK_CONFIGURE_FLAGS) \ $(DISTCHECK_CONFIGURE_FLAGS) \ --srcdir=../.. --prefix="$$dc_install_base" \ && $(MAKE) $(AM_MAKEFLAGS) \ && $(MAKE) $(AM_MAKEFLAGS) 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' 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 $(MAKE) $(AM_MAKEFLAGS) $(check_SCRIPTS) $(MAKE) $(AM_MAKEFLAGS) check-TESTS check: check-recursive all-am: Makefile $(SCRIPTS) $(MANS) $(DATA) installdirs: installdirs-recursive installdirs-am: for dir in "$(DESTDIR)$(bindir)" "$(DESTDIR)$(man1dir)" "$(DESTDIR)$(man3dir)" "$(DESTDIR)$(htmldocdir)" "$(DESTDIR)$(pkgconfigdir)" "$(DESTDIR)$(pkgdocdir)"; 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: -test -z "$(TEST_LOGS)" || rm -f $(TEST_LOGS) -test -z "$(TEST_LOGS:.log=.trs)" || rm -f $(TEST_LOGS:.log=.trs) -test -z "$(TEST_SUITE_LOG)" || rm -f $(TEST_SUITE_LOG) clean-generic: -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." @TAKTUK_NOPERL_TRUE@clean-local: clean: clean-recursive clean-am: clean-generic clean-libtool clean-local 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-man install-nodist_htmldocDATA \ install-pkgconfigDATA install-pkgdocDATA install-dvi: install-dvi-recursive install-dvi-am: install-exec-am: install-dist_binSCRIPTS @$(NORMAL_INSTALL) $(MAKE) $(AM_MAKEFLAGS) install-exec-hook install-html: install-html-recursive install-html-am: install-info: install-info-recursive install-info-am: install-man: install-man1 install-man3 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-dist_binSCRIPTS uninstall-man \ uninstall-nodist_htmldocDATA uninstall-pkgconfigDATA \ uninstall-pkgdocDATA uninstall-man: uninstall-man1 uninstall-man3 .MAKE: $(am__recursive_targets) check-am install-am install-exec-am \ install-strip .PHONY: $(am__recursive_targets) CTAGS GTAGS TAGS all all-am \ am--refresh check check-TESTS check-am clean clean-cscope \ clean-generic clean-libtool clean-local cscope cscopelist-am \ ctags ctags-am 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-dist_binSCRIPTS install-dvi \ install-dvi-am install-exec install-exec-am install-exec-hook \ install-html install-html-am install-info install-info-am \ install-man install-man1 install-man3 \ install-nodist_htmldocDATA install-pdf install-pdf-am \ install-pkgconfigDATA install-pkgdocDATA install-ps \ install-ps-am install-strip installcheck installcheck-am \ installdirs installdirs-am maintainer-clean \ maintainer-clean-generic mostlyclean mostlyclean-generic \ mostlyclean-libtool pdf pdf-am ps ps-am recheck tags tags-am \ uninstall uninstall-am uninstall-dist_binSCRIPTS uninstall-man \ uninstall-man1 uninstall-man3 uninstall-nodist_htmldocDATA \ uninstall-pkgconfigDATA uninstall-pkgdocDATA .PRECIOUS: Makefile .PHONY: commit clean_doc all-am: $(PERL_MODULES) taktuk-light modules_make @TAKTUK_NOPERL_TRUE@modules_make: @TAKTUK_NOPERL_TRUE@install-exec-hook: @TAKTUK_NOPERL_TRUE@ @echo;echo WARNING: perl is required for taktuk execution; @TAKTUK_NOPERL_TRUE@ @ echo " and full installation"; @TAKTUK_NOPERL_FALSE@Perl-Module/Makefile: Perl-Module/Makefile.PL Perl-Module/lib/TakTuk.pm Perl-Module/lib/TakTuk/Select.pm @TAKTUK_NOPERL_FALSE@ set -e ; \ @TAKTUK_NOPERL_FALSE@ cd Perl-Module ; \ @TAKTUK_NOPERL_FALSE@ if [ ! -f Makefile.PL ] \ @TAKTUK_NOPERL_FALSE@ && [ -f $(PERLSRC)/Makefile.PL ]; then \ @TAKTUK_NOPERL_FALSE@ mkdir -p lib/TakTuk ;\ @TAKTUK_NOPERL_FALSE@ ln -s $(PERLSRC)/MANIFEST.SKIP . ; \ @TAKTUK_NOPERL_FALSE@ ln -s $(PERLSRC)/lib/TakTuk/Pilot.pm lib/TakTuk ; \ @TAKTUK_NOPERL_FALSE@ ln -s $(PERLSRC)/Makefile.PL . ; \ @TAKTUK_NOPERL_FALSE@ fi ;\ @TAKTUK_NOPERL_FALSE@ perl Makefile.PL PREFIX=${prefix} @TAKTUK_NOPERL_FALSE@modules_make: Perl-Module/Makefile @TAKTUK_NOPERL_FALSE@ $(MAKE) -C Perl-Module @TAKTUK_NOPERL_FALSE@install-exec-hook: Perl-Module/Makefile @TAKTUK_NOPERL_FALSE@ $(MAKE) -C Perl-Module install @TAKTUK_NOPERL_FALSE@clean-local: Perl-Module/Makefile @TAKTUK_NOPERL_FALSE@ $(MAKE) -C Perl-Module distclean @TAKTUK_NOPERL_FALSE@ $(MAKE) clean-generic taktuk.1: taktuk.pod $(POD2MAN) --name=TAKTUK --section=1 \ --center="TakTuk Deployment Engine" $^ >$@ taktukcomm.3: taktukcomm.pod $(POD2MAN) --name=TAKTUK --section=3 \ --center="TakTuk Library Functions Manual" $^ >$@ taktuk.html taktukcomm.html taktuk_module.html: %.html: %.pod $(POD2HTML) --title="TakTuk" $^ >$@ $(RM) pod2htmd.tmp pod2htmi.tmp taktuk_pilot.html: Perl-Module/lib/TakTuk/Pilot.pm $(POD2HTML) --title="TakTuk" $^ >$@ $(RM) pod2htmd.tmp pod2htmi.tmp taktuk-light: taktuk echo "#!/usr/bin/perl" >$@ sed -e "s/^ *//g;s/ */ /g;s/^ *#.*$$//g;/^$$/d" $^ >>$@ chmod u+x $@ Perl-Module/lib/TakTuk.pm: taktuk DISCLAIMER taktuk_module.pod mkdir -p $(dir $@) cat $(filter %DISCLAIMER,$^) >$@ ./$(filter %taktuk,$^) -p TakTuk >>$@ cat $(filter %taktuk_module.pod,$^) >>$@ Perl-Module/lib/TakTuk/Select.pm: taktuk DISCLAIMER mkdir -p $(dir $@) cat $(filter %DISCLAIMER,$^) >$@ ./$(filter %taktuk,$^) -p TakTuk::Select >>$@ # no uninstall check as ExtUtils::MakeMaker does not support uninstall distuninstallcheck: @: # 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: taktuk-3.7.7/NEWS000644 000765 000024 00000006421 13136570041 014356 0ustar00zebulonstaff000000 000000 15/03/2012 TakTuk appear as a base tool for Grid5000/FutureGrid in the ANL MCS Technical Memo 326, "Supporting Experimental Computer Science". 19/02/2010 Taktuk 3.7.2 introduces 'wait' commands which are actual synchronization mechanisms for commands execution in various parts of the deployment network. 19/11/2009 TakTuk 3.7 brings new major features : deployment groups, gateways, targets and 'message' stream. These features are especially important on one hand in heterogeneous grids contexts and on the other hand to facilitate out-of-band communications. Some changes imply that TakTuk 3.7 is not compatible with earlier versions (see ChangeLog for more details). 12/06/2009 TakTuk presented at the HPDC international conference : B. Claudel, G. Huard, and O. Richard. Taktuk, adaptive deployment of remote executions. Proceedings of the International Symposium on High Performance Distributed Computing (HPDC), June 2009. 26/11/2008 3.6.2 brings minor bugfixes any many small enhancements that should help users and programmers that rely on TakTuk 27/06/2008 Long time no see... 3.6.1 release finally fixes several remaining bugs from 3.6. These bugs were mostly related to timeouts and termination. 27/11/2007 3.6 release. Changed some commands that makes TakTuk 3.6 slightly incompatible with earlier version. This has impact on kanif: 1.1.1 and earlier do not work with TakTuk 3.6 12/10/2007 3.5 version with small changes in some commands (causing very light incompatibilities, only with version 3.4). 10/10/2007 The 3.4 release introduce significant improvements in TakTuk with files transfer capabilities (both connector files and data files). One command changed name (print_tree), potentially causing light incompatibilities. 19/09/2007 3.3 release. Change some stuff in streams that makes TakTuk 3.3 slightly incompatible with earlier version. This has impact on kanif: 1.0.2 and earlier do not work with TakTuk 3.3 05/09/2007 3.2.5 release. Better link beetween command line and logical numbering. less limitations. 03/07/2007 3.2.3 release. Added last stuff needed for kanif tool : signals and interactive connections management. 20/06/2007 3.2.2 release. No major changes : little fix of a previous mistake (fcntl) and added 'state' stream to help external programs to monitor taktuk. 15/06/2007 Long time, no news... Current stable version is now 3.2 that contains minor syntaxic changes (hence the second number increment). Release of the 3.2.1 is planned for today. Some small evolutionary changes and bugfixes. No ascending compatibility issue with 3.2. 13/02/2007 Release of the 3.0.2 fixing minor bugs of 3.0.1 02/02/2007 Release of the 3.0.1 minor revision which adds the -l option to TakTuk 26/01/2007 Release of the 3.0, the first public stable version. 01/12/2006 TakTuk has now been used successfully in a real large scale situation (over 800 heterogeneous processors). The release of the 3.0 is not far away. 03/08/2006 Release of the 3.0-perl-beta6 version, Now taktuk support point-to-point communications. Still internal to ID laboratory. 24/07/2006 Release of the 3.0-perl-beta4 version (first stable enough version for actual use). Still internal to ID laboratory 05/12/2005 Creation of the repository containing the first prototype of Taktuk 3 Repository still internal to ID laboratory taktuk-3.7.7/Perl-Module/000755 000765 000024 00000000000 13154522546 016010 5ustar00zebulonstaff000000 000000 taktuk-3.7.7/README000644 000765 000024 00000002734 13136570041 014542 0ustar00zebulonstaff000000 000000 TakTuk - a tool for large scale remote execution deployment DESCRIPTION: TakTuk is a tool for broadcasting the remote execution of one ore more command to a set of one or more distant machines. TakTuk combines local parallelization (using concurrent deployment processes) and work distribution (using an adaptive work-stealing algorithm) to achieve both scalability and efficiency. TakTuk is especially suited to interactive tasks involving several distant machines and parallel remote executions. This is the case of clusters administration and parallel program debugging. See taktuk(1) for a detailled description and more examples. TakTuk also provides a basic communication layer to programs it executes. This communication layer uses the communication infrastructure set up by TakTuk during its deployment. It is available both for the Perl and the C langages and is described in taktukcomm(3). For a quick introduction to the world of TakTuk, the file "sample_session.txt" included with this distribution contains the output of a small toy session of various commands execution using TakTuk. AUTHORS: The original concept of TakTuk has been proposed by Cyrille Martin in his PhD thesis. People involved in this work include Jacques Briat, Olivier Richard, Thierry Gautier and Guillaume Huard. The author of the perl version and current maintainer of the package is Guillaume Huard. COPYRIGHT: TakTuk is provided under the terms of the GNU General Public License version 2 or later. taktuk-3.7.7/taktuk000755 000765 000024 00000666156 13154522546 015140 0ustar00zebulonstaff000000 000000 #!/usr/bin/perl -w ############################################################################### # # # TakTuk, a middleware for adaptive large scale parallel remote executions # # deployment. Perl implementation, copyright(C) 2006 Guillaume Huard. # # # # 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 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, write to the Free Software # # Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA # # # # Contact: Guillaume.Huard@imag.fr # # Laboratoire LIG - ENSIMAG - Antenne de Montbonnot # # 51 avenue Jean Kuntzmann # # 38330 Montbonnot Saint Martin # # FRANCE # # # ############################################################################### ############################################################################ ### THIS IS TAKTUK ### ### In-code documentation is mostly made of comments that goes along ### ### with the following prototypes ### ### THE ORDER OF PRESENTATION IS ONLY LEXICOGRAPHIC, NO OTHER LOGIC ### ### (except for the package settings which is placed first) ### ### If you are looking for a good starting point, looking at the code of ### ### the package main seems a proper idea ### ############################################################################ ############################################################################ ### CAUTION ### ### Even if the mechanics of taktuk looks able to work using a directed ### ### acyclic graph as logical network, synchronization and messages ### ### heavily rely on the fact that it is only a tree ### ############################################################################ # Some default settings for readline (otherwise painful to set) $ENV{PERL_RL}=" o=0"; # I've got to ignore some signals that could kill TakTuk unexpectedly $SIG{PIPE} = 'IGNORE'; ############################################### ### SETTINGS ### ### simple constants definition, no ### ### implementation. ### ############################################### package settings; use constant FD => 0; use constant SOCKET => 1; use constant USE_SOCKETPAIR => 0; ############################################### ### PROTOTYPES ### ############################################### ############################################### ### ARGUMENTS ### ### argument line options parsing ### ############################################### package arguments; # Creates a terminal object for using readline sub initialize_terminal(); # Adds arguments to the internal command line # Only fetched arguments are parsed by this package # the values fetched may be opened filehandles to files that contain # arguments sub fetch_arguments(@); # Adds arguments line to the internal command line sub fetch_line($); # Undo the last issued call to get_next_stuff, use only this to undo # arguments getting sub restore_last_argument(); # Undo the last issued call to get_next_command, do not combine with # restore_last_argument sub restore_last_command(); # Sets the variable $current_command to the value of the next command # $arguments_ended is set to 1 if there are no more command sub get_next_command(); # Sets the variable $current_argument to the value of the next argument # $arguments_ended is set to 1 if there are no more arguments sub get_next_argument(); # Read new data from a given file descriptor into the associated buffer sub read_buffer_data($); # Remove a buffer that is no more used sub delete_buffer($); # Returns a pointer to the next relevant data (either an argument or a pointer # to a buffer filled with file data) sub get_data_buffer(); # Set the variable $current_stuff to the value of the next stuff in arguments # The parameter is a word separator used when reading arguments for a # file sub get_next_stuff($); # Returns the value of the next parameters # $arguments_ended is set to 1 if there are no more arguments sub get_parameters(); # Finds and skip the next command separator(s) # It should be at the beginning of upcoming data possibly after option # separators sub skip_command_separator(); # Closes any opened filehandle in the internal arguments list and sets # $arguments_ended to 1 sub terminate_arguments_parsing(); # These are routines that are registered with some of taktuk options # Adds a file (which name is given) containing arguments to fetched arguments sub args_file($); # Adds machine names contained in a file (which name is given) as new remote # peers to deploy sub machines_file($); # Adds a new remote peer which name is given. Also parses -[ and ]- imbrication sub machine($); # Adds a new remote peer which name is given. This peer will be treated as a # gateway : that means an unnumbered node that cannot be the destination of any # broadcast or multicast command. It match some kind of forward-only node. # Also parses -[ and ]- imbrication sub gateway($); # Changes the localhost name (as viewed by taktuk) sub localhost($); # Sets $general::root to 0 sub not_root(); # Prints default taktuk settings sub print_defaults(); # Prints the taktuk package exported by taktuk_perl and exits sub print_package($); # Prints TakTuk version sub print_version(); # Prints TakTuk version and exits sub print_version_quit(); # Performs registering of options accepted by taktuk and reading of environment sub init(); # Parses and handle all arguments that are options # I don't use GetOpt::Long because processing order is not ensured sub parse_options(); # Checks if separators sets overlap of include characters that might break # TakTuk command line parser sub check_separators_integrity(); # Begins a deployment group (contextualized options and confined work-stealing) sub begin_group(); # Ends a deployment group sub end_group(); # Changes the dynamicity in current group sub dynamic($); ############################################### ### COMMAND ### ### command forking with pipe redirections ### ############################################### package command; # Creates and bless a new command # Arguments might include hash keys : line, read, write, error, type # read, write and error are communication channels (fds) as viewed by the # command : in other words, taktuk itself writes into read and reads from write # and error # type might either be settings::FD or settings::SOCKET depending on the nature # of read and write sub new (%); # Forks a new process to execute the command line and redirects I/Os to the # command communication channels. The parameters tells if the new command # should change its process group or not. sub run ($); # Closes all opened communication channels for the command, waits for its # completion and return its exit status sub cleanup(); # Does a shutdown and checks the return value sub my_shutdown($$); # Closes one of the communication channels (read, write or error); sub close($); # Propagate command output upward to the deployment tree root # Arguments are : output type and message sub output($$); # Returns a string message associated with an event code sub event_msg($); ############################################### ### COMMUNICATOR ### ### communication server ### ############################################### package communicator; # Creates a pair of connected connectors sub create_channel(); # Initializes data structures for the communicator before it can be used sub init(); # Closes everything in the whole communicator sub cleanup(); # Returns a asked set of connections ('sources', 'sinks', 'local_commands',...) sub get_connections($); # Returns the root connector (firt source) sub get_root(); # Read pending data on a descriptor (second argument) of a connector (first # argument) and process all complete messages in the connector sub process_messages($$); # Calls the hanler for the given coded message (second argument) coming from a # given connector (first argument) sub process_message($$); # Prints output produced by a locally spawned command (root) or propagates it # to the root (other nodes) sub process_command_output($$); # Propagates the input got from an opened pipe according to this pipe's message sub process_pipe_output($$); # Enters into the main communicator loop sub run (); # Signify the communicator our wish to terminate the main loop sub terminate (); # Adds descriptors from a given connector or command communication channels to # descriptors that the communicator listen to sub add_descriptors($); # Removes a descriptor (second argument) belonging to a connector or command # (first argument) from the descriptors listened by the communicator sub remove_descriptor($$); # Removes a connector or command (first argument) from the communicator sub remove_cobidule($); # Returns true if no connectors are uninitialized sub no_pending_connectors(); # Adds a connector (initialized) to one of the connectors sets (sources, ...) sub add_connector($$); # This function should be called when a connector already added to the # communicator completes its initialization sub connector_initialized($); # Used internally by remove_xxx sub remove_from_set($); # Removes a previously added source connector sub remove_source($); # Removes a previously added interpreter connector sub remove_interpreter($); # Removes a previously added sink connector sub remove_sink($); # Removes a previously added control connector sub remove_control($); # Removes a previously added local command sub remove_local_command($); # Removes a previously added pipe input sub remove_pipe($); # Post to the engine a write that will be processed when possible. Arguments # are the same as in syswrite: filehandle, scalar, length and offset sub post_write($$@); # Post to the engine a close that will be processed after all pending writes if # any. Argument is the command which 'read' part is to be closed (actually this # function only applies to commands because they're the ones the user closes # explicitely). sub post_close($); # post some routine (second arg) to be called with third arg as argument when # the pending writes to the descriptor (first arg) will be completed sub post_termination($$$); # removes anything related to pending data for given descriptor sub cleanup_pending_stuff($); # performs a write attempts for pending data related to the given descriptor sub write_pending_stuff($); # flushes any pending writes, blocking if necessary sub flush_pending_stuff(); # helper function for command->{'read'} closing sub close_cobidule_read($); # Assign the given target number (second argument) to the given command sub assign_target($$); # Find the next unused target number sub find_next_target(); # Removes the target possibly assigned to the given command sub remove_target($); # Small function that returns and array of connectors given a target and a name # of connectors set sub get_target_set($$); ############################################### ### CONNECTOR ### ### external connector code (no self ### ### duplication) ### ############################################### package connector; # Creates an uninitialized connector # Arguments : might include fields used by command (especially 'line' that # will be used for most connector which are set up using an external command # such as "ssh taktuk"). # Extra fields specific to connectors include : arguments # This is a ref to an array of arguments that will be communicated to the # forked taktuk engine sub new (%); # Reads data from a given file descriptor that should be one of the connector # communication channels and store it to the connector buffer # If the connector is not initialized, this function also negociate the # initialization with the remote peer # If the descriptor match the error channel, the text is propagated to the root sub read_data ($); # To be called by synchronizer to send parameters to the remote host when the # connector has been initialized sub send_parameters(); # Returns the next available message or the empty string if none available sub get_message (); # Send a message to a remote peer # The argument is the unpacked coded message sub send_message($); # Either handle locally a message (second argument) or send it to the other # side of the connector depending on the value of prefix (first argument) sub route_file_part($$); # Copies a file or directory (second argument) to the destination (third # argument). The remote host will be determinated by the first argument # (prefix). Keeps files permissions. sub send_file($$$); # Returns a scalar packed form of the connector sub pack(); # Unpack a previously packed connector sub unpack($); # Cancels connection sub cancel(); ############################################### ### DIAGNOSTIC ### ### debug and error messages ### ############################################### package diagnostic; # Prints misc information for error diagnostic and debugging (root) # propagate the information upward (other nodes) # arguments : level, error type and additionnal message sub print_info($$$); # Various functions built on top of print_info # A system call just failed sub system (); # Debugging information sub debug ($); # Error sub error ($); # Warning sub warning ($); # Special sub special ($); ############################################### ### GENERAL ### ### Taktuk-wide settings ### ### This package contains both global ### ### settings and some functions that do not ### ### really fit elsewhere ### ############################################### package general; # Initializes the value of some global settings sub init(); # Tells if the current system supports the socketpair call sub has_socketpair(); # Creates a socketpair sub create_socketpair(); # Applies change to internal management if local node is a gateway sub apply_gateway_restrictions(); # Expand perl variables (from this package...) contained in a given string sub expand($%); # Opens a file and return a type glob to its descriptor sub open_file($); # Loads stuff from a file and return it sub load_file($); # Tries to figure out what's the filename of the taktuk executable and loads it # into $general::taktuk_code sub load_taktuk_code(); # Extract the taktuk package from the taktuk code and stores it into # $general::taktuk_package sub load_taktuk_package($); # Prints taktuk help sub print_help(); # Prints taktuk help and exit from the program sub print_help_quit(); # Decodes a host set into a list of host specifications sub decode_host_set($); # Returns the first iteration vector of the given host specification sub first_in_host($); # Increments a vector (first argument) related to the given host specification # and returns the carry if any (vector was the last element if carry is 1) sub increment_host_vector($$); # Returns the hostname associated with the iteration vector (first argument) # and given host specification sub host_vector_to_value($$); # Decodes a host set into an internal exclusion set structure sub decode_exclusion_set($); # Returns true if the given name (first argument) is in the exclusion set sub in_exclusion_set($$); # Adds a new remote host to deploy # Arguments are : the name of the host and the arguments to the taktuk command sub add_peer($$@); # Unbuffered print sub print($); # Prints in a pretty form a tree-like structure, arguments : prefix, tree sub print_tree($$); # Decode a string specifying a set of intervals and transforms it to an array # The second argument is an upper bound to use as + sub decode_set($$); # Encode an array of intervals into a compact string specification sub encode_set(@); ############################################### ### HANDLERS ### ### messages handlers definition ### ############################################### package handlers; # Associate a callback function (second argument) to a message code (first # argument) sub register_handler($$); # Replaces the callback function previously associated to a message code sub replace_handler($$); # Returns the callback function associated to a message code sub get_handler($); # All these handlers are callback functions for incoming messages # they all take three arguments : the message code, the connector from which # the message comes and the message body # Handler to use for message that need to wait for a particular event before # being processed (e.g. the ready state for broadcast). # Actually it should only be used by 'block_until_event' sub handler_blocked($$$); # Handler for reception of arguments for the taktuk command sub arguments($$$); # Handler for broadcasting a message contained in the body # (the message is processed by all the nodes except the local one) sub broadcast($$$); # handler that does nothing sub empty($$$); # Closes all read channel of local commands sub eof($$$); # Handler for timeouts on executions sub execute_timeout($); # Execute a command on the localnode redirecting all I/Os sub execute($$$); # helper function to be called at the end of file reception sub file_finalize($); # Receives a file send from a remote node sub file($$$); # Propagates the message to the root sub forward_up($$$); # Get a file from some hosts sub get($$$); # Gets some information from TakTuk sub get_info($$$); # Input to be delivered to each local command sub input($$$); # Sends a signal to local commands sub kill($$$); # Sends a message to another node sub message($$$); # Compute the logical number of each remote peer given the number of the # local node passed as argument. The total count is also passed as argument sub numbered($$$); # Output to be printed. Should only be processed on the root node (use # forward_up if necessary) sub output($$$); # Changes an option specification sub option($$$); # Fetch options line to TakTuk sub options($$$); # Opens and add as a new source of data a pipe-like file sub pipe($$$); # Tell local taktuk instance its position on the command line sub position($$$); # Put a file to some hosts sub put($$$); # Ask for termination of the local node sub quit($$$); # Inform local node of readiness of the remote peer (used by father usually) sub ready($$$); # Handler for a timeout on recv call sub recv_timeout($); # This type of reduce count the number of deployed taktuk intance and calls # the numbered sub once the count is completed sub reduce_count($$$$); # This type of reduce gather the tree structure of the deployed taktuk network # and calls print_tree on the root sub reduce_tree($$$$); # This type of reduce wait for the completion of local commands on all hosts # implied sub reduce_wait($$$$); # Auxiliary function intended to complete a waits by signaling the end of # some local command sub local_command_completed($); # General purpose reduce mechanics. Additional handlers are defined for each # type of reduce sub reduce($$$); sub reduce_status_analysis($); sub reduce_result($$$); # Check wether some reduces have completed or not. Should be called when a # connection is lost : no answer will come back from the connector but it might # have been the last waited sub check_ongoing_reduces($); # Give up ongoing connections and propagate the message through the other hosts sub resign($$$); # Sends the encapsuled message to the specified host(s) (logical number) sub send_to($$$); # Handler for broadcasting a message contained in the body # (the message is processed by all the nodes including the local one) sub spread($$$); # Steal request sub steal($$$); # Function that does nothing (process a given message) but is expected to be # strongly synchrnoized (as exec or send_to for instance) sub synchronize($$$); # Handler for reception of the taktuk code sub taktuk_code($$$); # Executes a perl interpreter already fetched with the taktuk package sub taktuk_perl($$$); # Numbering update failed on the current node sub update_failed($$$); # Wait the completion of local commands sub wait($$$); # Sent by recv to signal that a message is waited and possibly timeouted sub wait_message($$$); # Work in answer to a steal request sub work($$$); # register all the handlers sub init(); ############################################### ### MAIN ### ### main program ### ############################################### package main; # Returns the full command name if the first argument is the prefix of exactly # one of the following full commands names. Returns the prefix unchanged # otherwise. sub is_one_of($@); # Returns a packed string of execution attributes sub get_attributes(); # Translates a taktuk command line into internal message # returns a message or a connector (if the message has to wait) sub translate(); # Routine that waits the taktuk interpreter child and exits sub terminate_interpreter(); # Forks the process into # - a loop that process command line read from stdin # - a process connected via stdin/out to the other process and that will # eventually run the taktuk engine at the end of this function sub fork_taktuk_interpreter(); # Handle a taktuk command depending on local fork or not sub handle_message($); # Processes batch commands remaining as arguments after options parsing # including initial TakTuk configuration commands sub process_commands(); # This is the only package that contains raw code that will be the main # program for taktuk ############################################### ### OPTION ### ### options management ### ############################################### package option; # Clones the given scalar or ref to hash sub clone($); # Adds a new option to the list of recognized options # arguments are : short name, long name, type and ref # Types are the following # empty string means that the option is a boolean flag # i means integer argument value # f means floating point argument value # s means string argument value # ref is either a reference to a scalar (which is assigned the value of the # option argument) or a reference to a function (which is called when the # option is encountered and take the option value as argument if the option # type is not boolean # Optionally these arguments might be followed by a default value and a # transfer mode sub register($$$$@); # Changes the value of some option # parameters are the option name and the value sub set($$); # Remove the value of some option from current state # Does not change the affected ref in TakTuk but just removes the entry from # the current state thereby preventing its propagation to children nodes sub unset($); # Returns TakTuk configuration as a flat string for the command line and # an array of other TakTuk options sub get_config(); # Saves the current options context into an internal stack sub push_context(); # Restores the options context saved on the top of the internal stack sub pop_context(); # Reapplies the given option using the given internally stored value sub apply_option($$); use constant COMMAND_LINE => 0; use constant MESSAGE => 1; ############################################### ### TAKTUK::SELECT ### ### my own implementation of select object ### ############################################### package TakTuk::Select; # Creates an empty select object sub new(); # Adds a descriptor to the set listened by the select sub add($); # Removes a descriptor from the select set # Returns false if the descriptor is not in the set sub remove($); # select call # as in IO::Select, returns an array of three references to arrays sub select($$$$); # returns the array of registered handles sub handles(); ############################################### ### TAKTUK ### ### base protocol encoding ### ### This is also the exported package for ### ### external communication (which explains ### ### the name) ### ############################################### package TakTuk; # Turns autoflush on for the given filehandle sub no_flush($); # Unpacks stuff in a buffer begining by something packed # Returns a couple : the unpacked stuff and the remaining of the buffer sub unpack($); # Packs some string so that it can be unpacked when it begining is found into # a stream of bytes sub pack($); # Decode a previously coded message sub decode($); # Encode a message code and a message body into a single decodable string sub encode($$); # Same as CORE::syswrite with some error coping code sub syswrite($$); # Reads data from a given file descriptor and bufferizes it into a buffer # managed by the taktuk package sub read_data($); # Returns the next available message for the given descriptor or the empty # string if none available sub get_message($); # Find the next occurence of the required regexp (second argument) in the # buffer associated to descriptor (first argument) and returns it # Returns an empty string if the regexp do not match # \n is treated as a delimiter by this function and cannot be part of the # sequence sub find_sequence($$); # Returns the content of the buffer associated to a descriptor and empty it sub flush_buffer($); # Returns a textual description of any error that occured using send or recv sub error_msg($); # Sends a message to another node arguments are the node number and the message sub send(%); # Receive a message from another node under the form ($to, $from, $message) sub recv(%); # Waits for one of the given TakTuk messages. Returns its code and body sub wait_message(@); # Get some info from TakTuk sub get($); BEGIN { die "FATAL : Perl interpreter too old ($]), Taktuk require Perl >= 5.6.1\n" if ($] < 5.006001); } our $VERSION = "3.7.7"; our $VERSION_NETPROTO = 1; our $RELEASE = sprintf "%d", q$Rev: 580 $ =~ /(\d+)/g; # syscalls default granularity our $read_size = 32768; our $write_size = 32768; our $error = undef; # These are codes for available messages our $action="A"; our $wait="B"; our $id="C"; our $eof="D"; our $taktuk_perl="E"; our $gateway="F"; our $get="G"; our $invalid="H"; our $info="I"; our $command_send_to="J"; our $command_message="K"; our $option="N"; our $timeout="O"; our $put="P"; our $reduce_result="Q"; our $reduce="R"; our $spread="S"; our $taktuk_code="T"; our $update_failed="U"; our $options="V"; our $wait_message="W"; our $resign="X"; our $arguments="a"; our $broadcast="b"; our $down="d"; our $execute="e"; our $file="f"; our $get_info="g"; our $input="i"; our $kill="k"; our $message="m"; our $numbered="n"; our $output="o"; our $position="p"; our $quit="q"; our $ready="r"; our $steal="s"; our $send_to="t"; our $forward_up="u"; our $work="w"; our $synchronize="x"; our $pipe="z"; # Reduce types our $reduce_count = 'c'; our $reduce_tree = 't'; our $reduce_wait = 'w'; # State events use constant TAKTUK_READY => 0; use constant TAKTUK_NUMBERED => 1; use constant TAKTUK_TERMINATED => 2; use constant CONNECTION_FAILED => 3; use constant CONNECTION_INITIALIZED => 4; use constant CONNECTION_LOST => 5; use constant COMMAND_STARTED => 6; use constant COMMAND_FAILED => 7; use constant COMMAND_TERMINATED => 8; use constant UPDATE_FAILED => 9; use constant PIPE_STARTED => 10; use constant PIPE_FAILED => 11; use constant PIPE_TERMINATED => 12; use constant FILE_RECEPTION_STARTED =>13; use constant FILE_RECEPTION_FAILED =>14; use constant FILE_RECEPTION_TERMINATED =>15; use constant FILE_SEND_FAILED =>16; use constant INVALID_TARGET => 17; use constant NO_TARGET => 18; use constant MESSAGE_DELIVERED => 19; use constant INVALID_DESTINATION => 20; use constant UNAVAILABLE_DESTINATION => 21; use constant WAIT_COMPLETE => 22; use constant WAIT_REDUCE_COMPLETE => 23; ############################################### ### SCHEDULER ### ### dispatching of connectors execution ### ############################################### package scheduler; # starts a new scheduling group sub begin_group(); # terminates the current scheduling group sub end_group(); # sets the dynamic limit of the current scheduling group sub set_limit($); # Starts the deployment of a connector and add it to the communicator # the arguments are the connector and a ref to an array of its arguments sub deploy_connector($); # Depending on the current deployment state, deploys the connector, adds it to # the static list of pending connectors or adds it to the dynamic list # arguments are the connector command and a reference to an array containing # its arguments sub add_connector($); # Should be called upon completion of a connector initialization sub connector_initialized($); # Should be called upon failure of a connector initialization sub connector_failed($); # Returns true if the given group has reach its maximal dynamic arity sub at_limit($); # Depending on the current deployment state, deploys pending connectors, send # steal requests or does nothing sub schedule(); # Returns true if the scheduler has nothing to do sub is_idle(); # Sends any sendable work (connectors deployment) to the given peer (which # should have asked for it) returns the number of connectors sent sub send_work_to($); # Dispatchs a received stolen connector (propagates downward last) sub dispatch_work($); # Handles the arrival of a new steal request from a given connector (first # argument) using given parameters (second argument) sub theft_handler($$); # Send a steal request to father using the given parameter sub send_steal_request($); # Routine to cancel all undeployed connexions sub resign(); ############################################### ### STATS BUFFER ### ### storage of fixed size data buffers and ### ### computation of statistical information ### ############################################### package stats_buffer; # Creates a new data buffer of given size sub new($$); # Returns true if the buffer is empty sub is_empty($); # Adds a new value to the buffer sub add($$); # Computes the average of stored values sub average($); # Computes the minimum of stored values sub min($); # Computes the maximum of stored values sub max($); ############################################### ### SYNCHRONIZER ### ### enforcement of causal constraints ### ############################################### package synchronizer; # Checks if the current taktuk instance is ready # ready means : father is ready and I've nothing to do # this function also replace temporary handlers and flushes pending messages # when changing state from not ready to ready sub check_ready_state(); # Suspend the handling of some messages until the occurence of the given event # (first argument). Subsenquent calls to this function using the same event # have no effect until the occurence of the event. sub suspend_engine_until($@); # Should be called when a connector becomes initialized sub initialization_complete($); # Should be called when a connector fail to initialize sub initialization_failed($); # Should be called when a connector timeouts sub initialization_timeout($); # Blocks the set of messages (array argument) as long as the required event # (first argument) has not been dispatched sub block_until_event($@); # Dispatch an event sub dispatch_event($); # Adds a new message to the appropriate pending queue # Should only be used when its usual handler has been previously blocked by # 'block_until_event' # The message will be processed as usual at the next according 'dispatch_event' sub add_pending_message($$$); # Intialize messages synchronization depending on the numbering scheme sub setup_synchronization(); # Synchronize newly deployed connector after initial deployment sub synchronize_unnumbered_subnet(); # Should be called to block engine while waiting for completion of commands sub set_waiting(); ############################################### ### TIMER ### ### time accounting & timeouts management ### ############################################### package timer; # Returns current system time in seconds since Jan. 1, 1970 # Might be fractional and has the precision of gettimeofday (milliseconds) sub current_time(); # Adds a new callback function (second argument) to be called in the given # number of seconds (first argument, possibly fractional) # Returns a handle to the associated timer object. sub register($$); # Checks is some registered timers has expired and, in such a case, calls the # handler and removes the timer sub check_timeouts(); # Removes an unexpired timer sub unregister(); # Get the current lifetime of some timer sub gettime($); # Prints the internal info of some timer sub print($); ############################################### ### END OF PROTOTYPES ### ############################################### ############################################### ### GENERAL ### ############################################### package general; use strict; use bytes; our $has_hostname = eval("use Sys::Hostname;1")?1:0; our $af_unix; our $sock_stream; our $pf_unspec; our $has_socket = eval('use Socket; $af_unix=AF_UNIX; $sock_stream=SOCK_STREAM; $pf_unspec=PF_UNSPEC; 1')?1:0; our $connector_command; our $connector_timeout; our $connector_send_files; our $login_name; our $host; our $root=1; our $taktuk_command; our $perl_interpreter; our $path_value; our $self_propagate; our $taktuk_code = undef; our $taktuk_package = undef; our $template; our $redirect; our $current_position = 0; our $position = 0; our $numbering_update = 0; our %taktuk = (gateway=>0, rank=>-1, count=>-1, child_min=>-1, child_max=>-1, father=>-1); sub init() { if ($has_hostname) { $host = hostname(); chomp($host); } else { $host = "localhost"; } } sub has_socketpair() { return (settings::USE_SOCKETPAIR and $has_socket); } sub create_socketpair() { my ($fd1, $fd2); if (not socketpair($fd1, $fd2, $af_unix, $sock_stream, $pf_unspec)) { diagnostic::system; return (); } else { return ($fd1, $fd2); } } sub apply_gateway_restrictions() { if ($taktuk{gateway}) { foreach my $message ($TakTuk::execute, $TakTuk::eof, $TakTuk::file, $TakTuk::get, $TakTuk::input, $TakTuk::kill, $TakTuk::command_message, $TakTuk::put, $TakTuk::taktuk_perl) { handlers::replace_handler($message, \&handlers::empty); } } } sub expand($%) { my $string = shift; my $variables = ""; my %values = @_; foreach my $key (keys(%values)) { $variables .= "$key=$values{$key} &&"; } diagnostic::debug("Name $string"); $string = `$variables echo $string` if $string =~ m/[\$\`]/; chomp($string); diagnostic::debug("Expanded to $string"); return $string; } sub open_file($) { my $filename = shift; my $fd = undef; $filename = expand($filename); if ($filename and ($filename ne "-")) { if (not open $fd, $filename) { diagnostic::system; diagnostic::error("Trying to open $filename"); $fd = undef; } else { binmode($fd) or diagnostic::system; } } else { if ($main::interactive) { diagnostic::error("Cannot load STDIN in interactive mode"); } elsif (not $general::root) { diagnostic::error("Cannot load STDIN on a non root node"); } else { $fd = \*STDIN; } } return $fd; } sub load_file($) { my $filename = shift; my $fd = undef; my $new_data; my $end = 0; my $stuff=""; my $result; $fd = open_file($filename); return "" if (not defined($fd)); while (not $end) { $result = sysread($fd, $new_data, $TakTuk::read_size); (diagnostic::system and $result = 0) if not defined($result); if ($result > 0) { $stuff = $stuff.$new_data; } else { $end = 1; } } if ($fd != \*STDIN) { close $fd or diagnostic::system; } return $stuff; } sub load_taktuk_code() { if (not defined($taktuk_code)) { my $filename = $0; my $fd = undef; my $new_data; my $end = 0; my $result; if (not -r $filename) { $filename = `which $0`; } if ($filename) { if (not $fd = open_file($filename)) { diagnostic::error("Trying to open $filename"); return ""; } } else { diagnostic::error("Cannot find own taktuk executable"); return ""; } $taktuk_code = ""; while (not $end) { $result = sysread($fd, $new_data, $TakTuk::read_size); (diagnostic::system and $result = 0) if not defined($result); if ($result > 0) { # not really more efficient... #$new_data =~ s/^\s*//gmo; #$new_data =~ s/^\#.*$//gmo; $taktuk_code = $taktuk_code.$new_data; } else { $end = 1; } } close $fd or diagnostic::system; } } sub load_taktuk_package($) { my $package_name = shift; my $state = 0; my $last_pos; if (not defined($taktuk_package)) { load_taktuk_code; $taktuk_package = ""; my $last_pos = 0; while ($taktuk_code =~ /(?=package\s+([^;\s]*)\s*;\s*$)/gmi) { my $pos = pos($taktuk_code); $taktuk_package .= substr($taktuk_code,$last_pos, $pos - $last_pos) if $state; if ($1 eq $package_name) { $state = 1; } else { $state = 0; } $last_pos = $pos; } $taktuk_package .= substr($taktuk_code, $last_pos) if $state; $taktuk_package .= "1;\n"; } } sub print_help() { communicator::get_root->output('info', < : sends the command to all the peers of the set (see TakTuk manual for set specification syntax) broadcast : broadcasts TakTuk command to all the remote peers not including the node initiating the broadcast downcast : spreads TakTuk command to all the children of the node initiating the command (not including itself) exec [ command ] : executes the given shell command on the local node using optional execution parameters get [ src ] [ dest ] : copies some file from destination node(s) help : prints this help input [ data ] : sends input to all commands being executed locally input data [ data ] : same as input [ data ] input line [ data ] : same as input but adds a newline at the end of data input file [ filename ] : sends the content of a file as input input pipe [ filename ] : sends the content of a pipe-like file as input input close : closes stdin of all commands being executed locally kill : sends a signal to local commands processes groups (signal default to 15 if not given) network : prints the TakTuk deployment tree network state : same as network network cancel : cancels all ongoing connections network renumber : recomputes TakTuk logical numbering network update : updates TakTuk logical numbering if possible option name [ value ] : changes some TakTuk option on destination node(s) option [ line ] : gives TakTuk options line to destination node(s) put [ src ] [ dest ] : copies some local file to destination node(s) quit : quit TakTuk and shutdown its logical network synchronize : forces the following command to wait for deployment, numbering and preceding commands before executing taktuk_perl [ args ] : forks a perl interpreter on the local node aware of the taktuk package and communication routines (see manual for a description of the taktuk package which contains point-to-point communication routines). Similar in principle to 'exec perl args'. WARNING: due to limited parser, you have to give args (even if empty) and to use '--' to explicitely terminate switches if any version : prints TakTuk version Deployment options: -b, --begin-group : starts a new deployment group -c, --connector command : defines the connector commands used for following remote machines -d, --dynamic limit : turns dynamic mode on (work stealing) for all the following remote machines specifications. Uses limit as a maximal arity (0 = no limit). A negative value for limit turns dynamic mode off. Warning, currently it is a bad idea to use several -d options in the same deployment group (the resulting arity is not specified) -e, --end-group : ends a deployment group -f, --machines-file name : name is the name of a file that contains remote machines names (equivalent to several -m opions) -l, --login name : sets the login name for the following hosts -m, --machine name -[ -] : name is the name of a remote host to be deployed with its optional arguments between -[ and -] -s, --self-propagate : propagate the TakTuk executable through connectors (eliminates the need for a TakTuk installation on remote machines) -z, --dont-self-propagate: turns self propagation off -F, --args-file name : name is the name of a file that contains options -G, --gateway name : name is the name of a forward only remote host to be deployed. Arguments can be given as with -m -I, --perl-interpreter : the command to use as a perl interpreter (for auto propagation mode and taktuk_perl command) -L, --localhost name : sets the name of localhost as viewed by TakTuk -S, --send-files files : send files at connection for further connections -T, --taktuk-command com : com is the name of the TakTuk command that should be used for the following hosts -V, --path-value list : changes the PATH value on remote hosts Command line parsing options: -C, --command-separator : changes the set of characters considered as command separators set separators -E, --escape-character : defines an escape character that protects any character following character from TakTuk interpretation -O, --option-separator : changes the set of characters considered as option separators set separators I/O options: -o, --output-template : set an output template specification for one of the name=specification output streams (see man for details about templates). When giving only a name (without specification) this disables the stream -R, --output-redirect : sets an output redirection for one of the output name=filename streams (see man for details about output streams) Performance tuning options: -g, --time-granularity n : sets to n the maximal interval between timeouts checks (usually checks are made more often) -n, --no-numbering : disable taktuk nodes numbering, speed up deployment -t, --timeout time : sets the timeout for connectors (0 = no timeout) -u, --cache-limit n : sets a limit n to the size of pending write data. A negative value for n means no limit -w, --window number : sets initial window size to number (pipeline width) -W, --window-adaptation : sets the windows adaptation scheme to number number (0: no adaptation, 1: experimental algorithm) Miscellaneous options: -M, --my : makes the next option local (not inherited) -h, --help : prints this help -i, --interactive : forces interactive mode afer command line parsing -v, --version : prints TakTuk version and exits -P, --print-defaults : prints default settings Environment variables defined by TakTuk for commands execution (see man for details about variables that change TakTuk settings): TAKTUK_COUNT : total number of successfully deployed nodes TAKTUK_HOSTNAME : hostname of the local node as given to TakTuk TAKTUK_PIDS : pids list of commands executed by the local TakTuk TAKTUK_POSITION : host position on the command line TAKTUK_RANK : logical number of local node (in [1..TAKTUK_COUNT]) END_HELP } sub print_help_quit() { print_help; $main::terminate = 1; } sub decode_host_set($) { my $host_set = shift; my $full_set = []; $host_set = "" if not defined($host_set); while (length($host_set)) { $host_set =~ m/^((?:[^[,]*(?:\[[^]]*\])?)*)(?:,(.*))?$/o; my $host_entry = $1; $host_set = defined($2)?$2:""; if (length($host_entry)) { my $set; $set = []; diagnostic::debug("Host entry $host_entry"); while ($host_entry =~ s/^([^[]*)\[([^]]*)\](.*)$/$3/o) { my ($prefix, $set_spec) = ($1,$2); my $values; $values = []; push @$set, $prefix; foreach my $range (split /,/, $set_spec) { # I want to be sure to comply with magical auto increment $range =~ m/^([a-zA-Z]*\d*)(?:-([a-zA-Z]*\d*))?$/o; my ($min, $max) = ($1,$2); $max = $min if not defined($max); # This is complex but necessary to ensure the iteration # eventually terminates : I need to check that the iterator # will reach the upper bound although it might be # alphanumeric (i.e. no direct numeric comparison) if (not defined($min) or (length($min) > length($max)) or ((length($min) == length($max)) and ($min gt $max))) { diagnostic::error("Error in set spec"); exit 1; } else { push @$values, $min, $max; } } push @$set, $values; } push @$set, $host_entry; push @$full_set, $set if scalar(@$set); } } return $full_set; } sub first_in_host($) { my $host_spec = shift; my $range_mode = 0; my $result = []; foreach my $part (@$host_spec) { if ($range_mode) { push @$result, 0, $part->[0]; } $range_mode = not $range_mode; } return $result; } sub increment_host_vector($$) { my $vector = shift; my $vector_index = $#$vector - 1; my $host = shift; my $host_index = $#$host - 1; my $carry = 1; while ($carry and ($vector_index >= 0)) { my $position = $vector->[$vector_index]; my $value = $vector->[$vector_index+1]; my $range = $host->[$host_index]; if ($value eq $range->[$position+1]) { $position += 2; if ($position < $#$range) { $vector->[$vector_index] = $position; $vector->[$vector_index+1] = $range->[$position]; $carry = 0; } else { $vector->[$vector_index] = 0; $vector->[$vector_index+1] = $range->[0]; } } else { $value = "".$value; $value++; $vector->[$vector_index+1] = $value; $carry = 0; } $vector_index -= 2; $host_index -= 2; } return $carry; } sub host_vector_to_value($$) { my $vector = shift; my $vector_index = 1; my $host = shift; my $range_mode = 0; my $result = ""; foreach my $part (@$host) { if ($range_mode) { $result .= $vector->[$vector_index]; $vector_index += 2; } else { $result .= $part; } $range_mode = not $range_mode; } return $result; } sub decode_exclusion_set($) { my $set = decode_host_set(shift); my $hash = {}; foreach my $host_spec (@$set) { my $index = first_in_host($host_spec); my $carry; do { my $name = host_vector_to_value($index, $host_spec); $hash->{$name} = 1; $carry = increment_host_vector($index, $host_spec); } while (not $carry); } return $hash; } sub in_exclusion_set($$) { my $value = shift; my $set = shift; return exists($set->{$value}); } sub add_peer($$@) { my $actual_command; my $peer_name = shift; my $is_gateway = shift; my ($command_args, $message_args) = option::get_config; if ($self_propagate) { $actual_command = "echo $connector::connector_functional_string;". "exec $perl_interpreter -- - -r "; } else { $actual_command = "exec $taktuk_command -r "; } $actual_command .= "-n " if $taktuk{rank} > -1; $actual_command = $actual_command.$command_args." "; foreach my $element (@_) { $message_args = $message_args.TakTuk::pack($element); } # Traversal of hosts sets to create actual connectors $peer_name = expand($peer_name); my ($set, $exclusion) = split '/', $peer_name; $set = decode_host_set($set); $exclusion = decode_exclusion_set($exclusion); foreach my $host_spec (@$set) { my $index = first_in_host($host_spec); my $carry; do { my $value = host_vector_to_value($index, $host_spec); if (not in_exclusion_set($value, $exclusion)) { $current_position++; my $position_prefix = $position?$position.".":""; my $actual_peer_command = $actual_command." -L '$value'"; if (defined($path_value)) { $actual_peer_command = 'exec /bin/sh -c "PATH='.$path_value. ';export PATH;'.$actual_peer_command.'"'; } my $connector=connector::new( login => defined($login_name)?$login_name:"", peer => $value, taktuk => $actual_peer_command, arguments => $message_args, position => $position_prefix.$current_position, group => $scheduler::current_group, gateway => $is_gateway, propagate => $self_propagate, files => $connector_send_files, timeout => $connector_timeout); diagnostic::debug("New external connector command to $value:". " $connector->{line}"); scheduler::add_connector($connector); } $carry = increment_host_vector($index, $host_spec); } while (not $carry); } } sub print($) { my $message=shift; TakTuk::syswrite(\*STDOUT,$message) or diagnostic::system; } sub print_tree($$) { my $prefix = shift; my $data = shift; my $node = shift @$data; communicator::get_root->output('info',$prefix.$node."\n"); foreach my $subtree (@$data) { print_tree($prefix." ",$subtree); } } sub decode_set($$) { my $string = shift; my $upper_bound = shift; my @result = (); my $interval; my $i; ($interval,$string) = split /\//,$string,2; while (length($interval)) { my ($min, $plus, $max) = ($interval =~ m/^(\d+)(?:(\+)|-(\d+))?$/); my @replacement = (); my $state = 0; my $length = 0; return () if not defined($min); $i = $#result; if (not defined($max)) { if (defined($plus)) { $max = $upper_bound; } else { $max = $min; } } return () if ($min !~ /^\d+$/o) or ($max !~ /^\d+$/o) or ($min > $max); while (($i > -1) and ($max < $result[$i])) { $i--; $state = 1 - $state; } unshift(@replacement, $max) if not $state; while (($i > -1) and ($min <= $result[$i])) { $i--; $state = 1 - $state; $length++; } unshift(@replacement, $min) if not $state; $i++; splice @result, $i, $length, @replacement; if (defined($string)) { ($interval,$string) = split /\//,$string,2; } else { $interval = ""; } } for ($i=1; $i<$#result; $i+=2) { splice @result, $i, 2 while (($i<$#result) and ($result[$i]+1 == $result[$i+1])); } return @result; } sub encode_set(@) { my @set = @_; my $result = ""; while (scalar(@set)) { my $min = shift @set; my $max = shift @set; $result .= "/" if ($result); if (defined($max)) { if ($min eq $max) { $result .= "$min"; } else { $result .= "$min-$max"; } } else { $result .= "$min+"; } } return $result; } ############################################### ### OPTION ### ############################################### package option; use strict; use bytes; our $local_option=0; our %handler; our %long_name; our %short_name; our %type; our %transmission_mode; our $current_value = {}; our @current_config; our $current_config_outdated = 1; our @contexts = ( {} ); sub clone($) { my $scalar = shift; my $ref = ref($scalar); my $return_value; if ($ref eq 'HASH') { $return_value = {}; foreach my $key (keys(%$scalar)) { $return_value->{$key} = clone($scalar->{$key}); } } else { $return_value = $scalar; } return $return_value; } sub register($$$$@) { my $short = shift; my $long = shift; my $opt_type = shift; my $opt_handler = shift; $long_name{$short} = $long; $short_name{$long} = $short; $handler{$short} = $opt_handler; $type{$short} = $opt_type; if (scalar(@_)) { if (ref($opt_handler) eq 'CODE') { &$opt_handler(shift); } else { $$opt_handler = shift; $contexts[0]->{$short} = clone($$opt_handler); } if (scalar(@_)) { $transmission_mode{$short} = shift; } } } sub set($$) { my $name = shift; my $value = shift; my $key = undef; my $current_type; # Hash values with type for value following if ($type{$name} =~ m/^h(.)$/) { $current_type = $1; if ($value =~ m/^([^=]+)(?:=(.+))?$/) { $key = $1; $value = $2; } else { diagnostic::warning("Option $name needs a well formed key=value ". "pair ($value doesn't match)"); $value = ""; } } else { $current_type = $type{$name}; } # Check if value is well formed if (($current_type eq "i") and defined($value) and ($value !~ /^-?\d+$/o)) { diagnostic::warning("Option $name needs a numeric argument ". "($value doesn't match)"); } elsif (($current_type eq "f") and defined($value) and ($value !~ /^(?:\d+(?:\.\d*)?|\.\d+)$/o)) { diagnostic::warning("Option $name needs a floating point argument ". "($value doesn't match)"); } else { my $destination = $handler{$name}; if (defined($key)) { if (ref($destination) eq 'CODE') { # Not handled (see apply_option) diagnostic::error("NOT EXPECTED: Found option $name with ". "code handler and hash value (key=$key)"); &$destination($key, $value); } else { diagnostic::debug("Found option $name with scalar ". "handler and hash value (key=$key)"); $$destination->{$key} = $value; } } else { if (ref($destination) eq 'CODE') { diagnostic::debug("Found option $name with code handler and ". "scalar value ". $value); &$destination($value); } else { diagnostic::debug("Found option $name with scalar ". "handler and scalar value ". $value); $$destination = $value; } } if (not $local_option) { if (exists($transmission_mode{$name})) { if ($key) { $current_value->{$name} = {} if not exists $current_value->{$name}; $current_value->{$name}->{$key} = $value; } else { $current_value->{$name}=$value; } $current_config_outdated = 1; } } else { $local_option = 0; } } } sub unset($) { my $name = shift; my $ref = $handler{$name}; $current_config_outdated = 1; if (exists($contexts[$#contexts]->{$name}) and ($#contexts > 0)) { $current_value->{$name} = clone($contexts[$#contexts]->{$name}); $$ref = clone($current_value->{$name}); } else { delete $current_value->{$name}; $$ref = clone($contexts[0]->{$name}); } } sub get_config() { if ($current_config_outdated) { my $command_args = ""; my $message_args = ""; foreach my $key (keys(%$current_value)) { if (exists($transmission_mode{$key})) { if ($transmission_mode{$key} == COMMAND_LINE) { if (ref($current_value->{$key}) eq 'HASH') { foreach my $field (keys(%{$current_value->{$key}})) { $command_args.=" -$key$field"; $command_args.="=$current_value->{$key}->{$field}" if defined($current_value->{$key}->{$field}); } } else { $command_args.=" -$key"; $command_args.="$current_value->{$key}" if ($type{$key}); } } elsif ($transmission_mode{$key} == MESSAGE) { if (ref($current_value->{$key}) eq 'HASH') { foreach my $field (keys(%{$current_value->{$key}})) { $message_args.=TakTuk::pack("-$key"); $message_args.=TakTuk::pack("$field". (defined($current_value->{$key}->{$field})? "=$current_value->{$key}->{$field}":"")); } } else { $message_args.=TakTuk::pack("-$key"); $message_args.=TakTuk::pack($current_value->{$key}) if ($type{$key}); } } else { diagnostic::warning("Internal bug in get_config"); } } } diagnostic::debug("Config : $command_args | ".$message_args."\n"); @current_config = ($command_args, $message_args); $current_config_outdated = 0; } return @current_config; } sub push_context() { my $save = {}; $save = clone($current_value); push @contexts, $save; } sub pop_context() { my $restored_context = pop @contexts; foreach my $key (keys(%{$contexts[0]})) { if (exists($restored_context->{$key})) { apply_option($key, $restored_context->{$key}); } else { if (exists($current_value->{$key})) { apply_option($key, $contexts[0]->{$key}); } } } $current_value = $restored_context; } sub apply_option($$) { my $key = shift; my $value = shift; my $ref = $handler{$key}; if (ref($value) eq 'HASH') { # Here we assume that there are no hash-type options handled with a sub # (otherwise we would need some kind of reset routine because of the # meaning of default field) $$ref = clone($value); } else { set($key, $value); } } ############################################### ### TAKTUK::SELECT ### ############################################### package TakTuk::Select; use strict; use bytes; use constant EDESIS=>1; use constant EDESNF=>2; use constant EDESNS=>3; our @select_errors = ( "Descriptor already in set", "Didn't found descriptor to remove", "Descriptor not in set"); sub error_msg($) { my $error = shift; $error--; if ($error <= $#select_errors) { return $select_errors[$error]; } else { return "Unknown error"; } } sub new () { my $class = shift; my $data = { vector=>'', handles=>[] }; bless $data, $class; return $data; } sub add ($) { my $self = shift; my $handle = shift; if (vec($self->{vector}, fileno($handle), 1) == 0) { vec($self->{vector}, fileno($handle), 1) = 1; push @{$self->{handles}}, $handle; return 0; } else { return EDESIS; } } sub remove ($) { my $self = shift; my $handle = shift; my $i=0; my $handles_list = $self->{handles}; if (vec($self->{vector}, fileno($handle), 1) == 1) { vec($self->{vector}, fileno($handle), 1) = 0; while (($i <= $#$handles_list) and ($handles_list->[$i] != $handle)) { $i++; } if ($i <= $#$handles_list) { splice @$handles_list, $i, 1; return 0; } else { return EDESNF; } } else { return EDESNS; } } sub select ($$$$) { my $read_select = shift; my $write_select = shift; my $except_select = shift; my $timeout = shift; my $rin = defined($read_select)?$read_select->{vector}:undef; my $win = defined($write_select)?$write_select->{vector}:undef; my $ein = defined($except_select)?$except_select->{vector}:undef; my $rout; my $wout; my $eout; my ($nfound, $timeleft) = CORE::select($rout=$rin, $wout=$win, $eout=$ein, $timeout); if ($nfound == -1) { return (); } elsif ($nfound == 0) { return ([],[],[]); } else { my $read_set = []; my $write_set = []; my $except_set = []; my $handle; foreach $handle (@{$read_select->{handles}}) { push(@$read_set, $handle) if (vec($rout,fileno($handle),1) == 1); } foreach $handle (@{$write_select->{handles}}) { push(@$write_set, $handle) if (vec($wout,fileno($handle),1) == 1); } foreach $handle (@{$except_select->{handles}}) { push(@$except_set, $handle) if (vec($eout,fileno($handle),1) == 1); } return ($read_set, $write_set, $except_set); } } sub handles () { my $self=shift; return @{$self->{handles}}; } ############################################### ### ARGUMENTS ### ############################################### package arguments; use strict; use bytes; our $has_readline = eval("use Term::ReadLine;1")?1:0; our $terminal = undef; our $command_separator; our $option_separator; our $escape; use constant NONE => 0; use constant BUFFER => 1; use constant LINE => 2; use constant ARGUMENT => 3; our $arguments_ended = 1; our $again=0; our @arguments = (); our $current_argument = undef; our $current_command = undef; our $current_command_separators = undef; our $current_stuff = undef; our $current_separators = undef; our $current_separators_prefix = undef; our $is_first_argument = 0; our $unescaped_stuff = undef; our $options_ended=0; sub initialize_terminal() { if ($has_readline and -t \*STDIN and -t \*STDOUT) { $terminal = Term::ReadLine->new("TakTuk"); } } sub fetch_arguments(@) { if (scalar(@_)) { unshift @arguments, @_; $arguments_ended = 0; $options_ended = 0; } } sub fetch_line($) { my $line = shift; unshift @arguments, \$line; $arguments_ended = 0; $options_ended = 0; } sub restore_last_argument() { if ($again) { diagnostic::warning("Cannot restore an ungeted argument"); } else { $again = 1; } } sub restore_last_command() { if ($current_stuff) { $current_stuff = $current_command.$current_command_separators. $current_stuff; } else { $current_stuff = $current_command; $current_separators = $current_command_separators.$current_separators; } restore_last_argument if not $again; } sub get_next_command() { get_next_stuff($option_separator.$command_separator); # if command is read from arguments, it might still contain separators # these are harmfull when parsing commands if ($current_stuff =~ m/^(.*?)([$option_separator.$command_separator]+)(.*)$/g) { $current_command = $1; $current_command_separators = $2; $current_stuff = $3; restore_last_argument if length($current_stuff); } else { $current_command = $current_stuff; $current_command_separators = $current_separators; $current_stuff = ""; $current_separators = ""; } # restores command separator just in case option_separators overlap it if ($current_command_separators =~ m/[$command_separator]/) { $current_stuff = $current_command_separators.$current_stuff; $current_command_separators = ""; # conditional because of the first restoration of this function restore_last_argument if not $again; } diagnostic::debug("Command found : [$current_command]"); return $current_command; } sub get_next_argument() { get_next_stuff($option_separator); $current_argument = $current_stuff; diagnostic::debug("Argument found : [$current_argument]"); return $current_stuff; } our %buffer; our %end; sub read_buffer_data($) { my $argument = shift; my $old_pos = undef; my $new_data; my $result; if (defined($terminal) and ($argument == \*STDIN)) { $new_data = $terminal->readline(""); if (defined($new_data)) { $new_data .= "\n"; $result = length($new_data); } else { $result = 0; } } else { $result = sysread($argument,$new_data,$TakTuk::read_size); } $old_pos = pos($buffer{$argument}); (diagnostic::system and $result = 0) if not defined($result); if ($result) { $buffer{$argument} .= $new_data if $result; pos($buffer{$argument}) = $old_pos; } else { $end{$argument} = 1; CORE::close $argument if ($argument != \*STDIN); } return $result; } sub delete_buffer($) { my $argument = shift; diagnostic::warning("Bug") if not exists($end{$argument}); delete $buffer{$argument}; delete $end{$argument}; } sub get_data_buffer() { my $data = undef; my $data_type = NONE; my $args_remaining = 1; $args_remaining = 0 if not scalar(@arguments); while (not defined($data) and $args_remaining) { my $argument = $arguments[0]; if (ref($argument) eq 'GLOB') { if ($end{$argument}) { delete_buffer($argument); shift @arguments; $args_remaining = 0 if not scalar(@arguments); } else { $buffer{$argument} = "" if not exists($buffer{$argument}); read_buffer_data($argument) if not length($buffer{$argument}); if (length($buffer{$argument})) { $data = \$buffer{$argument}; $data_type = BUFFER; } } } elsif (ref($argument) eq 'SCALAR') { if (length($$argument)) { $data = $argument; $data_type = LINE; } else { shift @arguments; $args_remaining = 0 if not scalar(@arguments); } } else { $data = \$arguments[0]; $data_type = ARGUMENT; } } return ($data, $data_type); } sub get_next_stuff($) { my $separator = shift; my $done = 0; my $data = 1; my $data_type; if ($again) { $again = 0; } else { $current_stuff = ""; $current_separators = ""; $current_separators_prefix = ""; my $data_prefix = ""; while (not $done and defined($data)) { ($data, $data_type) = get_data_buffer; if (defined($data)) { if ($data_type == ARGUMENT) { $current_stuff = $$data; shift @arguments; $is_first_argument = 1; $done = 1; } else { $$data = $data_prefix.$$data if $data_prefix; $data_prefix = ""; my $regexp; my $escape_found = 1; if (defined($escape)) { $regexp = qr/([$separator$escape])/; } else { $regexp = qr/([$separator])/; } while ($escape_found) { $escape_found = 0; if ($$data =~ m/$regexp/g) { my $character = $1; if (defined($escape) and ($character eq $escape)) { if (pos($$data) >= length($$data)) { $data_prefix = substr $$data,length($$data)-1,1; $current_stuff .= substr $$data,0,length($$data)-1; $$data = ""; } else { $escape_found = 1; pos($$data) = pos($$data) + 1; } } else { my $position = pos($$data); $current_separators = $character; if ($$data =~ m/\G([$separator]+)/g) { # isolates and stores terminal separators $current_separators .= $1; $position = defined(pos($$data))? pos($$data):length($$data); } else { pos($$data) = $position; } $current_stuff .= substr $$data, 0, $position-length($current_separators); $$data = substr $$data, $position; if (length($current_stuff)) { $is_first_argument = 0; $done = 1; } else { $current_separators_prefix .= $current_separators; } } } else { $current_stuff .= $$data; $$data = ""; $done = 1 if $data_type == LINE; } } } } } $unescaped_stuff = $current_stuff; if (defined($escape)) { $current_stuff =~ s/$escape(.)/$1/g; } $arguments_ended = 1 if not length($current_stuff); } } sub get_parameters() { my $left_brace = undef; my $right_brace; my $parameters = ""; my $end_expression; get_next_stuff($option_separator); if (length($current_stuff) != 1) { if (length($current_stuff)) { diagnostic::error("TakTuk has changed: now commands parameters ". "should be separated from braces in $current_stuff"); } else { diagnostic::error("Missing brace in parameters"); } return undef; } $left_brace = $current_stuff; $right_brace = $left_brace; if ($left_brace =~ m/[({[]/) { $right_brace =~ tr/({[/)}]/; } my $separator = $option_separator.$command_separator; my $last_separators = ""; my $done = 0; get_next_stuff($separator); $current_separators_prefix =~ s/^[^$command_separator]+//; while (not $done) { if ($arguments_ended) { diagnostic::error("Missing closing brace or separator before ". "closing brace in $parameters"); return undef; } elsif (length($parameters) and ($unescaped_stuff eq $right_brace)) { my $remaining = $last_separators.$current_separators_prefix; $remaining =~ s/[^$command_separator]+$//; $parameters .= $remaining; if ($current_separators =~ /[$command_separator]/) { $current_stuff = $current_separators; $current_separators = ""; restore_last_argument; } $done = 1; } elsif (length($parameters) and $is_first_argument and ($unescaped_stuff =~ s/^$right_brace([$separator].*)$/$1/)) { $current_stuff = substr $current_stuff,1; restore_last_argument if ($current_stuff =~ /[^$option_separator]/); $done = 1; } else { $parameters .= $last_separators.$current_separators_prefix. $current_stuff; $last_separators = $current_separators; $last_separators = " " if not length($last_separators); get_next_stuff($separator); } } diagnostic::debug("Parameters found : [$parameters]"); return $parameters; } sub skip_command_separator() { my $done = 0; my $data; my $data_type = NONE; if ($again) { $data = \$current_stuff; } else { ($data, $data_type) = get_data_buffer; } while (not $done and not $arguments_ended) { if (defined($data)) { if ($$data =~ s/^[$option_separator]*[$command_separator]+[$option_separator]*//) { $done = 1; shift @arguments if (not length($$data) and ($data_type == ARGUMENT)); } else { if ($$data =~ m/^[$option_separator]*$/) { $$data = ""; shift @arguments if ($data_type == ARGUMENT); ($data, $data_type) = get_data_buffer; } else { diagnostic::warning("Missing command separator"); $done = 1; } } } else { $arguments_ended = 1; } } $again = 0 if not length($current_stuff); } sub terminate_arguments_parsing() { while (scalar(@arguments)) { my $argument = shift @arguments; CORE::close $argument if ref($argument) eq 'GLOB'; } $arguments_ended = 1; } sub args_file($) { my $file = shift; my $file_handle = undef; if (not ($file_handle = general::open_file($file))) { $main::terminate = 1; } else { fetch_arguments($file_handle); } } sub dont_self_propagate() { if ($general::self_propagate) { option::set("s", 0); } } sub machines_file($) { my $file = shift; my $file_handle = undef; if (not ($file_handle = general::open_file($file))) { $main::terminate = 1; } else { while (my $line = <$file_handle>) { my ($peer_name, $comment) = split /\s+/,$line,2; general::add_peer($peer_name, 0) if $peer_name; } CORE::close $file_handle if $file_handle != \*STDIN; } } my $is_gateway = 0; sub machine($) { my $peer = shift; my @peer_arguments=(); get_next_argument; if ($current_argument eq "-[") { my $count = 1; while ($count and !$arguments_ended) { get_next_argument; $count-- if ($current_argument eq "-]"); $count++ if ($current_argument eq "-["); push @peer_arguments, $current_argument; } if ($count) { diagnostic::error("Invalid -[ and -] imbrication"); exit(1); } else { pop @peer_arguments; } } else { restore_last_argument; } general::add_peer($peer, $is_gateway, @peer_arguments); $is_gateway = 0; } sub gateway($) { $is_gateway = 1; machine(shift); } sub localhost($) { my $hostname = shift; $general::host = $hostname; $ENV{TAKTUK_HOSTNAME} = $hostname; } sub not_root() { if ($general::root) { # as soon as I know I'm not root I need a source connector for # the diagnostic package to work my $connector = connector::new( write =>\*STDIN, read =>\*STDOUT, type =>settings::FD); # DO NOT CLOSE STDERR !!! # Actually some errors (such as error produced by connectors) use # STDERR to print a diagnostic message. # If I close STDERR, future forked connectors will redirect the # descriptor they know as STDERR wich is likely to have been reused by # some call to socketpair when creating the connector. # The result is that the connector is polluted by message which are not # conformant to the protocol. # This used to cause freeze in some parts of the taktuk deployment. #close(STDERR) or diagnostic::system; $connector->{remove_handler} = \&communicator::remove_source; communicator::add_connector($connector, 'sources'); $general::root = 0; } } sub print_defaults() { foreach my $key (keys(%long_name)) { if (not (ref($handler{$key}) eq 'CODE')) { my $name = $long_name{$key}; if ($type{$key} =~ m/^h.$/) { foreach my $field (keys(%${$handler{$key}})) { my $line = uc("TAKTUK_".$name."_".$field); my $value = defined(${$handler{$key}}->{$field})? ${$handler{$key}}->{$field}:""; $line =~ tr/-/_/; communicator::get_root->output('info', $line."=".$value."\n"); } } else { my $line = uc("TAKTUK_".$name); my $value = defined(${$handler{$key}})? ${$handler{$key}}:""; $line =~ tr/-/_/; communicator::get_root->output('info', $line."=".$value."\n"); } } } $main::terminate = 1; } sub print_package($) { my $package_name = shift; general::load_taktuk_package($package_name); communicator::get_root->output('info',$general::taktuk_package); $main::terminate = 1; } sub print_version() { communicator::get_root->output('info', "TakTuk version $TakTuk::VERSION ". "release $TakTuk::RELEASE netproto $TakTuk::VERSION_NETPROTO\n"); } sub print_version_quit() { print_version; $main::terminate = 1; } sub print_k() { my $source="A-Za-z0-9 ,.;:?!"; my $dest="M-Za-z0-9 ,.;:?!A-L"; my $line = <output('info', $line); $main::terminate = 1; } sub init() { option::register("B","worksteal-behavior","hs", \$scheduler::worksteal, { initial => 1, growth => '$last_given * 2', limit => '$available / 2' }, option::MESSAGE); option::register("C","command-separator","s", \$arguments::command_separator,',;\n',option::MESSAGE); option::register("D","debug","hi",\$diagnostic::package_level, { default=>2 },option::COMMAND_LINE); option::register("E","escape-character","s",\$arguments::escape,undef, option::MESSAGE); option::register("F","args-file","s",\&args_file); option::register("G","gateway","s",\&gateway); option::register("I","perl-interpreter","s",\$general::perl_interpreter, "perl",option::MESSAGE); option::register("L","localhost","s",\&localhost); option::register("M","my","",\$option::local_option); option::register("O","option-separator","s", \$arguments::option_separator,'\s',option::MESSAGE); option::register("P","print-defaults","",\&print_defaults); option::register("R","output-redirect","hs",\$general::redirect, { "default" => ">&=1", "taktuk" => ">&=2" }, option::MESSAGE); option::register("S","send-files","s",\$general::connector_send_files, "", option::MESSAGE); option::register("T","taktuk-command","s",\$general::taktuk_command, $0,option::MESSAGE); option::register("V","path-value","s",\$general::path_value, undef, option::MESSAGE); option::register("W","window-adaptation","i",\$scheduler::window_adaptation, 0,option::MESSAGE); option::register("b","begin-group","",\&begin_group); option::register("c","connector","s",\$general::connector_command, "ssh -o StrictHostKeyChecking=no -o BatchMode=yes", option::MESSAGE); option::register("d","dynamic","i",\&dynamic,0,option::MESSAGE); option::register("e","end-group","",\&end_group); option::register("f","machines-file","s",\&machines_file); option::register("g","time-granularity","f",\$communicator::select_timeout, 1, option::MESSAGE); option::register("h","help","",\&general::print_help_quit); option::register("i","interactive","",\$main::forced_interactive); option::register("k","cook","",\&arguments::print_k); option::register("l","login","s",\$general::login_name, undef, option::MESSAGE); option::register("m","machine","s",\&machine); option::register("n","no-numbering","",\$main::no_numbering,0, option::COMMAND_LINE); option::register("o","output-template","hs",\$general::template, { default => '"$host-$rank: $command ($pid): $type > $line\n"', connector => '"$host: $peer ($pid): $type > $line\n"', info => '"$line$eol"', state => '($line == TakTuk::CONNECTION_FAILED)?'. '"$host: $peer ($pid): $type > ".'. 'event_msg($line)."\n":undef', status => '"$host-$rank: $command ($pid): $type > ". "Exited with status $line\n"', # The following is only available when using POSIX package # (WIFEXITED($line)?"Exited with status ".WEXITSTATUS($line) # :(WIFSIGNALED($line)?"Signaled with signal ".WTERMSIG($line) # :(WIFSTOPPED($line)?"Stopped with signal ".WSTOPSIG($line) # :"")))."\n"', taktuk => '"[ TAKTUK $level_name ] $host (PID $pid) Line ". "$line_number ($package) Release $release\n$line\n"', message => '"$host-$rank: message from $from: $line\n"' }, option::MESSAGE); option::register("p","print-package","s",\&print_package); option::register("r","not-root","",\¬_root); option::register("s","self-propagate","",\$general::self_propagate, 0,option::MESSAGE); option::register("t","timeout","f",\$general::connector_timeout,0, option::MESSAGE); option::register("u","cache-limit","i",\$communicator::cache_limit, -1, option::MESSAGE); option::register("v","version","",\&print_version_quit); option::register("w","window","i",\$scheduler::window, 10, option::MESSAGE); option::register("z","dont-self-propagate","",\&dont_self_propagate); foreach my $full_name (keys(%ENV)) { my $variable; if ($full_name =~ m/^TAKTUK_(MY_)?(.+)$/) { $option::local_option = $1?1:0; $variable = $2; } else { undef($variable); } if (defined($variable)) { my $prefix; my $qualifier; $variable = lc($variable); $variable =~ m/^(.*?)(?:_([^_]+))?$/; ($prefix, $qualifier) = ($1, $2); $prefix =~ tr/_/-/; if (defined($qualifier)) { if (exists($short_name{$prefix})) { my $short = $short_name{$prefix}; option::set($short, "$qualifier=$ENV{$full_name}"); } else { $prefix .= "-$qualifier"; $qualifier = undef; } } if (not defined($qualifier)) { if (exists($short_name{$prefix})) { my $short = $short_name{$prefix}; option::set($short, $ENV{$full_name}); } else { diagnostic::warning("Unknown setting $full_name"); } } } $option::local_option = 0; } } sub parse_options() { get_next_argument(); while (not $options_ended) { if ($current_argument =~ s/^-//o) { my @names; if ($current_argument =~ s/^-(.*)$//o) { my $name = $1; if ($name) { my $short = $short_name{$name}; if (not defined($short)) { diagnostic::warning("Unknown long option $name"); general::print_help_quit if ($general::root); } else { $current_argument = $short; } } else { $options_ended = 1; } } while ($current_argument) { $current_argument =~ s/^(.)//o; my $name = $1; if (exists($type{$name})) { if ($type{$name}) { get_next_argument if not length $current_argument; if ($arguments_ended) { diagnostic::error("Missing argument") } else { option::set($name, $current_argument); } $current_argument = ""; } else { option::set($name, 1); } } else { diagnostic::warning("Unknown short option $name"); general::print_help_quit if ($general::root); } } get_next_argument; } else { # As a special case, the empty option might appear when using # custom option separator characters if (($current_argument =~ m/^\s*$/) and not $arguments_ended) { get_next_argument; } else { $options_ended=1; restore_last_argument if ($current_argument !~ m/^\s*$/); } } } check_separators_integrity(); } sub check_separators_integrity() { diagnostic::warning("Options and command separators intersect") if ($option_separator =~ m/[$command_separator]/) or ($command_separator =~ m/[$option_separator]/); my $chaine = "-/0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"; diagnostic::warning("Options or command separators contain one of :". "-/1-9a-zA-Z") if ($chaine =~ m/[$command_separator]/) or ($chaine =~ m/[$option_separator]/); } sub begin_group() { scheduler::begin_group; option::push_context; } sub end_group() { option::pop_context; scheduler::end_group; } sub dynamic($) { scheduler::set_limit(shift); } ############################################### ### DIAGNOSTIC ### ############################################### package diagnostic; use strict; use bytes; our $package_level; our $depth = 0; our $level=""; our $level_name=""; our $package=""; our $filename=""; our $line_number=""; our $special_enabled=0; sub print_info($$$) { $level = shift; $level_name = shift; ($package, $filename, $line_number) = caller(1); my $level_ok = defined($package_level->{$package})? $package_level->{$package}<=$level: $package_level->{default}<=$level; # depth is here to avoid infinite recursion when calling print_info from # the code executed by print_info (this is the case for instance when # debugging the send_message sub) $depth++; if ($level_ok and ($depth < 3)) { communicator::get_root->output('taktuk',shift); } $depth--; } sub system () { print_info(3,"ERROR : SYSTEM", "Error $!"); } sub debug ($) { print_info(1,"DEBUG", shift); } sub error ($) { print_info(3,"ERROR", shift); } sub warning ($) { print_info(2,"WARNING", shift); } sub special ($) { print_info(3, "SPECIAL", shift) if $special_enabled; } ############################################### ### TAKTUK ### ############################################### package TakTuk; use strict; use bytes; our %buffer; sub no_flush($) { my $new_fd = shift; binmode($new_fd); my $old_fd=select($new_fd); $|=1; select($old_fd); } sub unpack($) { my $buffer = shift; if (length($buffer) >= 4) { my $size; ($size) = CORE::unpack("N",$buffer); if (length($buffer) >= $size+4) { return (substr($buffer, 4, $size), substr($buffer, $size+4)); } else { return (undef, $buffer); } } else { return (undef, $buffer); } } sub pack($) { my $full_message = shift; my $size = length($full_message); return CORE::pack("N",$size).$full_message; } sub decode($) { my $message = shift; my $message_code = substr($message, 0, 1); my $body = substr($message, 1); return ($message_code, $body); } sub encode($$) { my $message = shift; my $body = shift; return ($message).($body); } sub syswrite ($$) { my $unrecoverable = 0; my $write_fd = shift; my $full_message = shift; my $result; my $total_expected = length($full_message); my $call_expected = $write_size; my $offset = 0; while ($total_expected and not $unrecoverable) { $call_expected = $total_expected if $call_expected > $total_expected; $result = CORE::syswrite($write_fd, $full_message, $call_expected, $offset); if ($result) { $total_expected -= $result; $offset += $result; } else { if ($!{EAGAIN}) { # In this case the ressource is temporarily unavailable # This happens on a heavily loaded system in which too many # writes are pending # Here there are two options : # 1) we sleep for some time loosing potential write # opportunities # 2) we make another try right now potentially overloading the # system # In any case the message server is blocked and it would be # better to find another solution #print STDERR "Delayed write ... $total_expected more to go"; #sleep 1; } else { # This is more serious, here we probably eventually end badly print STDERR "Unrecoverable write error\n"; $unrecoverable = 1; # I guess we should end up even more badly by killing any child # connector (to avoid partially deployed crashed instances) } } } if ($unrecoverable) { return undef; } else { return 1; } } sub read_data ($) { my $descriptor = shift; my $new_data; my $result = sysread($descriptor, $new_data, $read_size); return undef if not defined($result); if ($result and exists($buffer{$descriptor})) { $buffer{$descriptor} .= $new_data; } else { $buffer{$descriptor} = $new_data; } return $result; } sub get_message ($) { my $descriptor = shift; if (exists($buffer{$descriptor})) { my ($message, $new_buffer) = TakTuk::unpack($buffer{$descriptor}); if (defined($new_buffer)) { $buffer{$descriptor} = $new_buffer; } else { delete($buffer{$descriptor}); } if (defined($message)) { return $message; } else { return ""; } } else { return ""; } } sub find_sequence($$) { my $descriptor = shift; my $sequence = shift; my $found = undef; if (exists($buffer{$descriptor})) { my $position; $position = index($buffer{$descriptor},"\n"); while (($position >= 0) and not defined($found)) { my $string; $string = substr($buffer{$descriptor}, 0, $position); $buffer{$descriptor} = substr($buffer{$descriptor}, $position+1); if ($string =~ m/($sequence)/) { $found = $1; } else { $position = index($buffer{$descriptor},"\n"); } } } return defined($found)?$found:""; } sub flush_buffer($) { my $descriptor = shift; if (exists($buffer{$descriptor})) { my $result = $buffer{$descriptor}; delete($buffer{$descriptor}); return $result; } else { return ""; } } our $control_channel_read; our $control_channel_write; if ($ENV{TAKTUK_CONTROL_READ}) { open($control_channel_read, "<&=". $ENV{TAKTUK_CONTROL_READ}) or print("Error opening taktuk control channel : $!\n"); binmode($control_channel_read); } if ($ENV{TAKTUK_CONTROL_WRITE}) { open($control_channel_write, ">&=". $ENV{TAKTUK_CONTROL_WRITE}) or print("Error opening taktuk control channel : $!\n"); no_flush($control_channel_write); } use constant ESWRIT=>1; use constant EFCLSD=>2; use constant ESREAD=>3; use constant EARGTO=>4; use constant EARGBD=>5; use constant ETMOUT=>6; use constant EINVST=>7; use constant EINVAL=>8; use constant ENOERR=>9; our @taktuk_errors = ( '"TakTuk::syswrite failed, system message : $!"', '"TakTuk engine closed the communication channel"', '"sysread error, system message : $!"', '"field \"to\" not defined"', '"field \"body\" not defined"', '"timeouted"', '"invalid destination set specification"', '"invalid field required in get"', '"no error"' ); sub error_msg($) { my $error = shift; $error--; if ($error <= $#taktuk_errors) { return eval($taktuk_errors[$error]); } else { return "Unknown error"; } } sub send(%) { my %argument = @_; my $from = $ENV{TAKTUK_RANK}; my $target; if (not exists($argument{to})) { $error=EARGTO; return undef; } my $to = $argument{to}; if (not exists($argument{body})) { $error=EARGBD; return undef; } my $body = $argument{body}; if (not exists($argument{target})) { $target = "any"; } else { $target = $argument{target}; } my $full_message = TakTuk::encode($TakTuk::send_to, TakTuk::pack($to). TakTuk::encode($TakTuk::message, TakTuk::pack($target). TakTuk::pack($from). $body)); my $result = TakTuk::syswrite($control_channel_write, TakTuk::pack($full_message)); $error=ESWRIT if not $result; return $result?$result:undef; } sub recv(%) { my %argument = @_; my $result; my $message; # Notification of the recv to the server # Necessary in all cases as a timer should not be created if a message is # already there (we have to count waiters internally) if (exists($argument{timeout})) { $message = TakTuk::encode($TakTuk::wait_message, $argument{timeout}); } else { $message = $TakTuk::wait_message; } $result = TakTuk::syswrite($control_channel_write,TakTuk::pack($message)); if (not $result) { $error=ESWRIT; return (); } # Now we actually get the message my $message_code; ($message_code,$message) = wait_message($TakTuk::timeout,$TakTuk::message); if (defined($message_code)) { my $from; if ($message_code eq $TakTuk::timeout) { $error=ETMOUT; return (); } ($from, $message) = TakTuk::unpack($message); return ($from, $message); } else { return (); } } our @messages; sub wait_message(@) { my @codes = @_; my ($code, $body); my $result = 1; my $message; for (my $i=0; $i<$#messages; $i+=2) { foreach my $message_code (@codes) { if ($messages[$i] eq $message_code) { ($code, $body) = ($messages[$i], $messages[$i+1]); splice @messages, $i, 2; return ($code, $body); } } } while ($result) { $message = get_message($control_channel_read); while ($message) { ($code, $body) = TakTuk::decode($message); foreach my $message_code (@codes) { return ($code, $body) if ($message_code eq $code); } push @messages, $code, $body; $message = get_message($control_channel_read); } $result = read_data($control_channel_read); } if (defined($result)) { $error=EFCLSD; } else { $error=ESREAD; } return (); } sub get($) { my $result; my $message; # Infos query $message = TakTuk::encode($TakTuk::get_info, shift); $result = TakTuk::syswrite($control_channel_write,TakTuk::pack($message)); if (not $result) { $error=ESWRIT; return -1; } # Now we actually get the message my $message_code; ($message_code,$message) = wait_message($TakTuk::info,$TakTuk::invalid); if (defined($message_code)) { if ($message_code eq $TakTuk::invalid) { $error=EINVAL; return -1; } else { $error=ENOERR; } return $message; } else { return -1; } } ############################################### ### COMMAND ### ############################################### package command; use strict; use bytes; use Fcntl; sub new (%) { my $data = { @_ }; if (exists($data->{line}) and (exists($data->{read}) or exists($data->{write}) or exists($data->{error}) or exists($data->{type}))) { diagnostic::error("Command built from both a command line and fds"); } bless($data); return $data; } sub run ($) { my $self=shift; my $command=shift; my ($father_read,$father_write,$father_error); my ($child_read,$child_write,$child_error); # Creates communication channel undef($father_read); undef($father_write); undef($child_read); undef($child_write); if (general::has_socketpair) { ($father_read, $child_read) = general::create_socketpair(); return 0 unless defined($father_read) and defined($child_read); $father_write = $father_read; $child_write = $child_read; $self->{type} = settings::SOCKET; } else { if (not pipe($child_read, $father_read)) { diagnostic::system; return 0; } if (not pipe($father_write, $child_write)) { diagnostic::system; return 0; } $self->{type} = settings::FD; } undef($father_error); undef($child_error); if (not pipe($father_error,$child_error)) { diagnostic::system; return 0; } # Creates a control channel if this is a new command # Be sure to store the control side in a persistent place, otherwise # Perl frees it and closes the descriptors !!! my ($taktuk_side, $command_side); if ($command) { ($taktuk_side, $command_side) = communicator::create_channel; if (defined($command_side)) { $taktuk_side->{pending_messages} = 0; $taktuk_side->{remove_handler} = \&communicator::remove_control; communicator::add_connector($taktuk_side, 'control'); $self->{control} = $taktuk_side; } else { # Annoying, without control channel half of the functionnalities # are missing... diagnostic::error("Degradated mode (no control channel)"); } } # Fork a new process to execute the connector command $self->{start_date} = timer::current_time; my $pid; $pid = fork; if (not defined($pid)) { diagnostic::system; return 0; } $self->{pid} = $pid; $communicator::c_from_pid{$pid} = $self; if ($pid) { # father diagnostic::debug("New child with pid $pid created". " to execute $self->{line}"); CORE::close($child_read) or diagnostic::system; (CORE::close($child_write) or diagnostic::system) unless general::has_socketpair; CORE::close($child_error) or diagnostic::system; $self->{read} = $father_read; $self->{write} = $father_write; $self->{error} = $father_error; return $self; } else { # We create a new grp to be able to kill the command and its # subprocesses (if any) setpgrp(0,0) or diagnostic::system; # child if ($command) { # in this case, this is a command, we have to maintain control $ENV{TAKTUK_CONTROL_READ} = fileno($command_side->{write}); $ENV{TAKTUK_CONTROL_WRITE} = fileno($command_side->{read}); fcntl($command_side->{read}, F_SETFD, 0) or die $!; fcntl($command_side->{write}, F_SETFD, 0) or die $!; } CORE::close($father_read) or die $!; (CORE::close($father_write) or die $!) unless general::has_socketpair; CORE::close($father_error) or die $!; open(STDIN,"<&".fileno($child_read)) or die $!; open(STDOUT,">&".fileno($child_write)) or die $!; open(STDERR,">&".fileno($child_error)) or die $!; CORE::close($child_read) or die $!; CORE::close($child_error) or die $!; exec($self->{line}) or die "Exec failed : $!"; } } sub cleanup() { my $self = shift; foreach my $part ('read','write','error') { if (exists $self->{$part}) { #diagnostic::warning("$part still exists at connector termination"); #diagnostic::warning("Connector details ".join(' ', %$self)); $self->close($part); } } } sub my_shutdown($$) { my $fd = shift; my $how = shift; if (not shutdown($fd,$how)) { # Socket was already disconnected ? could be worse diagnostic::system if not $!{ENOTCONN}; } } sub close($) { my $self=shift; my $part=shift; if ($part eq 'error') { if (exists($self->{error})) { TakTuk::flush_buffer($self->{error}); CORE::close($self->{error}) or diagnostic::system; delete $self->{error}; } else { diagnostic::debug("Cannot close error : does not exists"); } } else { if (exists($self->{type}) and exists($self->{$part})) { if ($self->{type} == settings::FD) { TakTuk::flush_buffer($self->{write}) if $part eq 'write'; # here we close a simple fd (e.g. read or write from stdin/out) CORE::close($self->{$part}) or diagnostic::system; delete $self->{$part}; } elsif ($self->{type} == settings::SOCKET) { if ($part eq 'read') { # finished writing to read channel of child command my_shutdown($self->{read},1); delete $self->{read}; } elsif ($part eq 'write') { TakTuk::flush_buffer($self->{write}); # finished reading from write channel of child command my_shutdown($self->{write},0); delete $self->{write}; } else { diagnostic::warning("Invalid part for socket close"); } } else { diagnostic::warning("Unknown command type : BUG"); } } else { # We do not want of a warning if things come from several # successive eof diagnostic::warning("Closing a non existant command type or part") unless (exists($self->{type}) and ($part eq 'read')); } } } sub output($$) { my $self = shift; my $type = shift; my $message = shift; my $template; my $fd; if (exists($general::template->{$type})) { $template = $general::template->{$type}; } else { $template = $general::template->{default}; } if (exists($general::redirect->{$type})) { $fd = $general::redirect->{$type}; } else { $fd = $general::redirect->{default}; } if (defined($template)) { my $command = exists($self->{line})?$self->{line}:""; my $count = $general::taktuk{count}; my $filename = $diagnostic::filename; my $host = $general::host; my $level = $diagnostic::level; my $level_name = $diagnostic::level_name; my $line_number = $diagnostic::line_number; my $package = $diagnostic::package; my $peer = exists($self->{peer})?$self->{peer}:""; my $peers_given = exists($self->{given_list})?$self->{given_list}:""; my $peer_position = exists($self->{position})?$self->{position}:""; my $pid = exists($self->{pid})?$self->{pid}:$$; my $position = $general::position; my $rank = $general::taktuk{rank}; my $release = $TakTuk::RELEASE; my $version = $TakTuk::VERSION; my $netproto = $TakTuk::VERSION_NETPROTO; my $start_date = exists($self->{start_date})?$self->{start_date}:""; my $stop_date = exists($self->{stop_date})?$self->{stop_date}:""; my $reply_date = exists($self->{reply_date})?$self->{reply_date}:""; my $init_date = exists($self->{init_date})?$self->{init_date}:""; my $from = $handlers::from; my $line; my $eol; my $to_be_sent = ""; pos($message) = 0; while ($message =~ /\G([^\n]*)(\n|$)/go) { $line = $1; $eol = $2; if (length($line) or length($eol)) { my $result = eval("no strict 'vars'; $template"); $to_be_sent .= $result if defined($result) and length($result); } } if (length($to_be_sent)) { communicator::process_message($self, TakTuk::encode($TakTuk::forward_up, TakTuk::encode($TakTuk::output, TakTuk::pack($fd).$to_be_sent))); } } } our @event_messages = ( "TakTuk is ready", "TakTuk is numbered", "TakTuk is terminated", "Connection failed", "Connection initialized", "Connection lost", "Command started", "Command failed", "Command terminated", "Numbering update failed", "Pipe input started", "Pipe input failed", "Pipe input terminated", "File reception started", "File reception failed", "File reception terminated", "File send failed", "Invalid target", "No target", "Message delivered", "Invalid destination", "Destination not available anymore", "Local wait complete", "Wait of all instances complete" ); sub event_msg($) { my $event = shift; if (($event < 0) or ($event > $#event_messages)) { return "Unknown event code"; } else { return $event_messages[$event]; } } ############################################### ### CONNECTOR ### ############################################### package connector; use strict; use bytes; use File::Basename; our @ISA=qw(command); our $init_string="Taktuk initialization, version "; our $connector_functional_string="Taktuk connector functional"; # It is important to keep the temporal total order on state # as it will be used later our $pre_load=1; our $simple_connector=2; our $initialized=3; sub new (%) { my $data=command::new(@_, data_handler=>\&communicator::process_messages); return 0 if not $data; $data->{given} = []; $data->{last_given} = 0; $data->{count} = 0; $data->{pending_results} = {}; if (exists($data->{peer})) { if ($data->{propagate}) { $data->{state}=$pre_load; } else { $data->{state}=$simple_connector; } my $command_line = $general::connector_command; $command_line .= " -l $data->{login}" if ($data->{login}); $data->{line} = "$command_line $data->{peer} '$data->{taktuk}'"; } else { $data->{state} = $initialized; } bless($data); return $data; } sub read_data ($) { my $self = shift; my $descriptor = shift; my $result = TakTuk::read_data($descriptor); (diagnostic::system and $result = 0) if not defined($result); #diagnostic::debug("Data read @TakTuk::buffer"); my $write = undef; my $error = undef; $write = $self->{write} if exists $self->{write}; $error = $self->{error} if exists $self->{error}; if ($write and ($descriptor == $write)) { if (($result >0) and not $self->{timeouted}) { if ($self->{state} < $initialized) { my $argument = 0; $self->{reply_date} = timer::current_time unless exists($self->{reply_date}); if ($self->{state} == $pre_load) { if (length(TakTuk::find_sequence($descriptor, ".*$connector_functional_string"))) { $argument = 1; } } elsif ($self->{state} == $simple_connector) { my $sequence = TakTuk::find_sequence($descriptor, ".*$init_string"."[0-9]+[.0-9]*"); if (length($sequence)) { $argument = $sequence; $argument =~ s/.* (.*)$/$1/o; } } else { diagnostic::warning("Wrong connector state : ". $self->{state}); } if ($argument > 0) { my $connector_input = $self->{read}; if ($self->{state} < $simple_connector) { general::load_taktuk_code; communicator::post_write($connector_input, $general::taktuk_code) or diagnostic::system; } else { diagnostic::warning("Protocol versions do not match") if $argument != $TakTuk::VERSION_NETPROTO; } $self->{state} += 1; diagnostic::debug("Connector $self->{line} promoted to ". "state ".$self->{state}); synchronizer::initialization_complete($self) if ($self->{state} == $initialized); } } } } elsif ($error and ($descriptor == $error)) { if ($result >0) { my $new_data = TakTuk::flush_buffer($descriptor); $self->output('connector', $new_data); } } else { diagnostic::warning("Unknown descriptor"); } return $result; } sub send_parameters() { my $self = shift; if ($self->{propagate}) { general::load_taktuk_code; $self->send_message(TakTuk::encode($TakTuk::taktuk_code, $general::taktuk_code)); } $self->send_message(TakTuk::encode($TakTuk::position,"$self->{position}")); $self->send_message($TakTuk::gateway) if $self->{gateway}; if (length($self->{files})) { foreach my $transfer (split /,/,$self->{files}) { my ($source, $destination) = split /:/, $transfer; $self->send_file("", $source, $destination); } } my $arguments = $self->{arguments}; diagnostic::debug("Arguments : ".$arguments); $self->send_message(TakTuk::encode($TakTuk::arguments, $arguments)); } sub get_message () { my $self = shift; if ($self->{state} >= $initialized) { if (exists($self->{write})) { return TakTuk::get_message($self->{write}); } else { return ""; } } else { return ""; } } sub send_message($) { my $self = shift; my $write_fd = $self->{read}; my $message = shift; my $full_message = TakTuk::pack($message); if (not communicator::post_write($write_fd, $full_message)) { diagnostic::error("Error in send message [$full_message], error : $!"); } } sub route_file_part($$) { my $self = shift; my $prefix = shift; my $message = shift; if ($prefix) { $message = TakTuk::encode($prefix, $message); communicator::process_message($self, $message); } else { $self->send_message($message); } } sub send_file($$$) { my $self = shift; my $prefix = shift; my $source = shift; my $destination = shift; my $permissions; my $file = undef; my $result; my $type; $source = general::expand($source, position=>$general::position, host=>$general::host, rank=>$general::taktuk{rank}); if (-d $source) { $type = 1; $result = open($file,"cd $source && tar c . |"); } else { $type = 0; $result = open($file, $source); } if ($result) { my $read_result; my $buffer; my $message; binmode($file) or diagnostic::system; $permissions=(stat($source))[2] & 07777; $message = TakTuk::pack($general::position). TakTuk::pack($general::host). TakTuk::pack($general::taktuk{rank}). TakTuk::pack($type). TakTuk::pack($permissions). TakTuk::pack(basename($source)). $destination; $message = TakTuk::encode($TakTuk::file, $message); $self->route_file_part($prefix, $message); while ($read_result = sysread($file, $buffer, $TakTuk::read_size/2)) { $message = TakTuk::encode($TakTuk::file, TakTuk::pack($general::position).$buffer); $self->route_file_part($prefix, $message); } diagnostic::system if not defined($read_result); $message = TakTuk::encode($TakTuk::file, TakTuk::pack($general::position)); $self->route_file_part($prefix, $message); CORE::close($file) or diagnostic::system; } else { diagnostic::system; $self->output('state',TakTuk::FILE_SEND_FAILED); } } our @pack_fields = ('login', 'peer', 'taktuk', 'arguments', 'position', 'gateway', 'propagate', 'files', 'timeout'); sub pack() { my $self = shift; my $result = ""; foreach my $field (@pack_fields) { $result .= TakTuk::pack($self->{$field}); } return $result; } sub unpack($) { my $buffer = shift; my %data = (); foreach my $field (@pack_fields) { ($data{$field}, $buffer) = TakTuk::unpack($buffer); } my $connector = connector::new(%data); return ($connector, $buffer); } sub cancel() { my $connector = shift; # On some platforms (such as grid 5000) the connection processus has an # elevated status and cannot be killed. Thus, the safest method is to # disconnect the process from TakTuk before trying to kill it (possibly # without success). $connector->{canceled} = 1; communicator::remove_descriptor($connector, $connector->{write}) if exists($connector->{write}); communicator::remove_descriptor($connector, $connector->{error}) if exists($connector->{error}); # whe should also avoid to remove the connector a second time when reaping # the children if (exists($communicator::c_from_pid{$connector->{pid}})) { delete $communicator::c_from_pid{$connector->{pid}}; } CORE::kill -9, $connector->{pid}; } ############################################### ### COMMUNICATOR ### ############################################### package communicator; use strict; use bytes; use POSIX ":sys_wait_h"; use Errno; use Fcntl; our $sinks_number = 0; our $initialized_sinks_number = 0; our $target_number = 0; our $select; our $pending_writes_select; our $select_timeout; our $connections; our $end = 0; our %c_from_fd; our %c_from_target = (local_commands=>{}, control=>{}); our %c_from_pid; our %pending_writes; our $pending_writes_number = 0; our $pending_size = 0; our $cache_limit; our %pending_termination_handler; our %pending_termination_argument; # default connector to which it is only possible to write # (used by get_root as a last ressort, useful for diagnostic) our $default_root = connector::new( read => \*STDOUT, type => settings::FD); sub create_channel() { # Now I create the control channel my $communicator_read = undef; my $communicator_write = undef; my $control_read = undef; my $control_write = undef; my $type = undef; if (general::has_socketpair) { ($communicator_read, $control_read) = general::create_socketpair(); return () unless defined($communicator_read) and defined($control_read); $communicator_write = $communicator_read; $control_write = $control_read; $type = settings::SOCKET; } else { if (not pipe($communicator_read, $control_write) or not pipe($control_read, $communicator_write)) { diagnostic::system; return (); } $type = settings::FD; } # Probably redundant with what's done in add_connector, but doesn't harm TakTuk::no_flush($communicator_write); TakTuk::no_flush($control_write); my $communicator_connector = connector::new('read' =>$communicator_write, 'write' =>$communicator_read, 'type' =>$type); my $control_connector = connector::new('read' =>$control_write, 'write' =>$control_read, 'type' =>$type); return ($communicator_connector, $control_connector); } sub init() { $select = TakTuk::Select->new() or diagnostic::error("Select creation"); $pending_writes_select = TakTuk::Select->new() or diagnostic::error("Select creation"); $connections = {}; $connections->{sources} = []; $connections->{sinks} = []; $connections->{control} = []; $connections->{interpreter} = []; $connections->{local_commands} = []; $connections->{pipe} = []; $ENV{TAKTUK_HOSTNAME} = $general::host; } sub cleanup() { foreach my $connector (@{$connections->{sinks}}, @{$connections->{control}}) { $connector->cleanup; } } sub get_connections($) { my $set_name = shift; my $list = $connections->{$set_name}; return @$list; } sub get_root() { my $sources = $connections->{sources}; if (defined($sources) and scalar(@$sources)) { return $sources->[0]; } else { return $default_root; } } sub process_message($$) { my $connector = shift; my ($message, $body) = TakTuk::decode(shift); my $function = handlers::get_handler($message); if (defined($function)) { &$function($message, $connector, $body); } else { diagnostic::warning("Unknown message : $message (body: $body)"); } } sub process_messages($$) { my $connector = shift; my $descriptor = shift; my $result = $connector->read_data($descriptor); my $message = $connector->get_message; while ($message) { process_message($connector, $message); $message = $connector->get_message; } return $result; } sub process_command_output($$) { my $command = shift; my $descriptor = shift; my $buffer; my $read_result; $read_result = sysread($descriptor, $buffer, $TakTuk::read_size); (diagnostic::system and $read_result = 0) if not defined($read_result); if ($read_result > 0) { my $type; if (exists($command->{write}) and ($descriptor == $command->{write})) { $type = "output"; } else { $type = "error"; } $command->output($type, $buffer); } return $read_result; } sub process_pipe_output($$) { my $command = shift; my $descriptor = shift; my $buffer; my $read_result; if (not $end) { $read_result = sysread($descriptor, $buffer, $TakTuk::read_size); (diagnostic::system and $read_result = 0) if not defined($read_result); if ($read_result > 0) { process_message($command, TakTuk::encode($command->{message}, $buffer)); } return $read_result; } else { return 1; } } sub run() { my @select_result; my $sinks = $connections->{sinks}; my $local_commands = $connections->{local_commands}; while ((not $end) or scalar(@$sinks) or scalar(@$local_commands) or $pending_writes_number) { #diagnostic::debug("Select loop ($end, @$sinks, @$local_commands)"); if (($pending_size > $cache_limit) and ($cache_limit >= 0)) { # In this case, too much memory is occupied by pending write : we # stop any further reading until pending writes volume gets smaller @select_result = TakTuk::Select::select( undef,$pending_writes_select,undef,$select_timeout); } else { @select_result = TakTuk::Select::select( $select,$pending_writes_select,undef,$select_timeout); } if (scalar(@select_result)) { my ($read_set, $write_set, $exception_set) = @select_result; while (scalar(@$read_set)) { my $descriptor = shift @$read_set; my $cobidule = $c_from_fd{$descriptor}; if (exists($cobidule->{data_handler})) { my $handler = $cobidule->{data_handler}; my $result = &$handler($cobidule, $descriptor); remove_descriptor($cobidule, $descriptor) if (not $result); } else { diagnostic::error("Bug : connector has no data handler"); } } while (scalar(@$write_set)) { my $descriptor = shift @$write_set; write_pending_stuff($descriptor); } if (scalar(@$exception_set)) { diagnostic::warning("Unexpected exceptional fds : ". join(' ', @$exception_set)); } } else { # Here we might have been thrown out of select by a timeout # but we have to test for error conditions (just in case) if ($!{EBADF}) { my $error_msg="Selected an invalid descriptor ($!)... Very ". "bad\nRegistered handles = "; foreach my $handle ($select->handles) { $error_msg.="$handle (".fileno($handle).") " if defined(fileno($handle)); } diagnostic::error($error_msg); exit 1; } elsif ($!{EINTR}) { diagnostic::warning("Select exited because of a signal"); } elsif ($!{EINVAL}) { diagnostic::error("Invalid time limit for select"); } else { diagnostic::error("Unknown error"); } } timer::check_timeouts; # Time to reap children my $pid; while (($pid = waitpid -1, WNOHANG) > 0) { diagnostic::debug("Reaping $pid"); if (exists($c_from_pid{$pid})) { my $cobidule = $c_from_pid{$pid}; $cobidule->{status} = $?; $cobidule->{stop_date} = timer::current_time; # Removes the cobidule if done remove_cobidule($cobidule); delete $c_from_pid{$cobidule}; } } diagnostic::error("Waiting child, $!") unless defined($pid); } } sub terminate () { $end = 1; } sub add_descriptors($) { my $command = shift; my $error; if (exists($command->{write})) { $error = $select->add($command->{write}); diagnostic::warning(TakTuk::Select::error_msg($error)) if $error; $c_from_fd{$command->{write}} = $command; binmode($command->{write}) or diagnostic::system; } if (exists($command->{error})) { $error = $select->add($command->{error}); diagnostic::warning(TakTuk::Select::error_msg($error)) if $error; $c_from_fd{$command->{error}} = $command; binmode($command->{error}) or diagnostic::system; } } sub remove_descriptor($$) { my $cobidule = shift; my $descriptor = shift; my $type; diagnostic::debug("Removing $cobidule / $descriptor"); my $write = undef; my $error = undef; $write = $cobidule->{write} if exists $cobidule->{write}; $error = $cobidule->{error} if exists $cobidule->{error}; if (defined($descriptor)) { if (defined($write) and ($write == $descriptor)) { $type = 'write'; } elsif (defined($error) and ($error == $descriptor)) { $type = 'error'; } else { diagnostic::error("Invalid descriptor, serious BUG !"); } if (exists $c_from_fd{$descriptor}) { my $error = $select->remove($descriptor); diagnostic::warning(TakTuk::Select::error_msg($error)) if $error; delete $c_from_fd{$descriptor}; $cobidule->close($type); # Removes the cobidule if done remove_cobidule($cobidule); } else { diagnostic::warning("Descriptor not present in hash"); } } else { diagnostic::warning("Should not be called with undefined descriptor"); } } sub remove_cobidule($) { my $cobidule = shift; # To be removed, a cobidule should have both of its output channels closed # and should have somehow terminated if ((exists($cobidule->{canceled}) or exists($cobidule->{status}) or not exists($cobidule->{pid})) and not exists($cobidule->{write}) and not exists($cobidule->{error})) { diagnostic::debug("Removing cobidule $cobidule"); # While write and error channels should be automatically closed # and removed, this is not the case of the read channel (which # requires an explicit eof message). if (exists($cobidule->{read})) { my $read = $cobidule->{read}; cleanup_pending_stuff($read) if exists($pending_writes{$read}); $cobidule->close('read'); } my $found = remove_from_set($cobidule); diagnostic::warning("Connector to remove not found!") unless $found; if (exists($cobidule->{remove_handler})) { my $handler = $cobidule->{remove_handler}; &$handler($cobidule); } } } sub no_pending_connectors() { diagnostic::debug("Connectors situation, sinks_number : $sinks_number, ". "initialized : $initialized_sinks_number"); dagnostic::warning("More initialized than sinks") if ($sinks_number<$initialized_sinks_number); return $sinks_number == $initialized_sinks_number; } sub add_connector($$) { my $connector = shift; my $set_name = shift; my $set = $connections->{$set_name}; diagnostic::debug("Adding connector: ".join(' ',%$connector)); if (exists($connector->{read})) { TakTuk::no_flush($connector->{read}); # Non blocking flag is set here to avoid making non blocking the # default root which would make STDIN non blocking as side effect thus # making interactive mode unsuable fcntl($connector->{read}, F_SETFL, O_NONBLOCK) or diagnostic::system; } $connector->{set} = $set_name; add_descriptors($connector); push(@$set,$connector); $sinks_number++ if $set_name eq 'sinks'; } sub connector_initialized($) { my $connector = shift; $initialized_sinks_number++; } sub remove_from_set($) { my $cobidule = shift; my $set_name = $cobidule->{set}; my $set = $connections->{$set_name}; my $i = 0; $i++ while (($i <= $#$set) and ($set->[$i] != $cobidule)); if ($i <= $#$set) { splice @$set, $i, 1; diagnostic::debug("Cobidule $cobidule, ". ($cobidule->{line}?$cobidule->{line}." ":""). ($cobidule->{pid}?$cobidule->{pid}." ":""). "deleted from set $set_name at position $i"); return 1; } else { return 0; } } sub remove_source($) { my $connector = shift; if (not scalar(@{$connections->{sources}})) { # useless to do anything cleanly now as I lost connection # might change if some commands running have side effects # but even in this last case, its better to handle it through # usual synchronization because of resulting hanged zombies # general::print("Exiting after loosing my sources ($$)\n"); exit 1; } } sub remove_interpreter($) { my $connector = shift; if ($general::root) { process_message(get_root, $main::quit_message) unless $end; } else { diagnostic::warning("Lost interpreter connector in child (bug) !"); } } sub remove_sink($) { my $connector = shift; # Remove it first because synchronizer::initialization failed # checks for ready state $sinks_number--; if ($connector->{state} >= $connector::initialized) { if (not $communicator::end) { $connector->{given_list} = join(' ', map { $_->{peer}.":".$_->{position} } @{$connector->{given}}); $connector->output('state', TakTuk::CONNECTION_LOST); } $initialized_sinks_number--; } else { synchronizer::initialization_failed($connector); } # in any case, I've to check ongoing reduces to avoid blocking # current instance (e.g. in the case of the initial reduce_count) # For now reduces only propagate upward, so only sinks might change # a reduce result. handlers::check_ongoing_reduces($connector); } sub remove_control($) { my $connector = shift; # Nothing to do, the target removal is performed by remove_local_command } sub remove_local_command($) { my $command = shift; if (exists($command->{timers})) { my $timers = $command->{timers}; foreach my $timer (@$timers) { $timer->unregister if not $timer->{elapsed}; } } if (exists($command->{status})) { $command->output('status', $command->{status}) } else { diagnostic::warning("Some command terminated without status"); } $command->output('state', TakTuk::COMMAND_TERMINATED); communicator::remove_target($command); handlers::local_command_completed($command); } sub remove_pipe($) { my $command = shift; communicator::get_root->output('state', TakTuk::PIPE_TERMINATED); } sub post_write($$@) { my $file = shift; my $data = shift; my $length = scalar(@_)?shift:length($data); my $offset = scalar(@_)?shift:0; my $result = 1; (diagnostic::warning("Null length write") and return) if not $length; diagnostic::warning("Null file") if not $file; if (not exists($pending_writes{$file})) { $result = CORE::syswrite($file, $data, $length, $offset); if ($result) { $length -= $result; $offset += $result; } } if ((defined($result) and $length) or $!{EAGAIN}) { if (not exists($pending_writes{$file})) { $pending_writes{$file} = []; my $error = $pending_writes_select->add($file); diagnostic::warning(TakTuk::Select::error_msg($error)) if $error; } my $list = $pending_writes{$file}; push @$list, [ $file, $data, $length, $offset ]; $pending_writes_number++; $pending_size += $length; return 1; } else { diagnostic::system unless defined($result); return $result; } } sub post_close($) { my $cobidule = shift; if (exists($cobidule->{read})) { post_termination($cobidule->{read}, \&close_cobidule_read, $cobidule); } } sub post_termination($$$) { my $descriptor = shift; my $handler = shift; my $handler_arg = shift; if (exists($pending_writes{$descriptor})) { $pending_termination_handler{$descriptor} = $handler; $pending_termination_argument{$descriptor} = $handler_arg; } else { &$handler($handler_arg); } } sub cleanup_pending_stuff($) { my $descriptor = shift; if (exists($pending_writes{$descriptor})) { foreach my $length (@{$pending_writes{$descriptor}}) { $pending_size -= $length->[2]; } $pending_writes_number -= scalar(@{$pending_writes{$descriptor}}); $error = $pending_writes_select->remove($descriptor); diagnostic::warning(TakTuk::Select::error_msg($error)) if $error; delete($pending_writes{$descriptor}); if (exists($pending_termination_handler{$descriptor})) { my $handler = $pending_termination_handler{$descriptor}; my $argument = $pending_termination_argument{$descriptor}; &$handler($argument); delete($pending_termination_handler{$descriptor}); delete($pending_termination_argument{$descriptor}); } } } sub write_pending_stuff($) { my $descriptor = shift; if (exists($pending_writes{$descriptor})) { my $list = $pending_writes{$descriptor}; my $chunk = shift @$list; my ($file, $data, $length, $offset) = @$chunk; my $result; $result = CORE::syswrite($file, $data, $length, $offset); if ($result) { $length -= $result; $pending_size -= $result; $offset += $result; } if ((defined($result) and $length) or $!{EAGAIN}) { $chunk->[2] = $length; $chunk->[3] = $offset; unshift @$list, $chunk; } else { diagnostic::system unless defined($result); $pending_writes_number--; } if (not scalar(@$list)) { cleanup_pending_stuff($descriptor); } } } sub flush_pending_stuff() { while (scalar(keys(%pending_writes))) { foreach my $descriptor (keys(%pending_writes)) { write_pending_stuff($descriptor); } } } sub close_cobidule_read($) { my $cobidule = shift; if (exists($cobidule->{read})) { $cobidule->close('read'); } } sub assign_target($$) { my $command = shift; my $target = shift; my $command_from_target = $c_from_target{local_commands}; my $control_from_target = $c_from_target{control}; if (exists($command_from_target->{$target})) { my $second_command = $command_from_target->{$target}; diagnostic::warning("Target $target already assigned, overwriting") if not exists($second_command->{auto_target}); assign_target($second_command, find_next_target()); } $command->{target} = $target; $command->{control}->{target} = $target; $command_from_target->{$target} = $command; $control_from_target->{$target} = $command->{control}; } sub find_next_target() { my $command_from_target = $c_from_target{local_commands}; while (exists($command_from_target->{$target_number})) { $target_number++; } return $target_number++; } sub remove_target($) { my $command = shift; my $command_from_target = $c_from_target{local_commands}; my $control_from_target = $c_from_target{control}; my $target = $command->{target}; delete($command_from_target->{$target}); delete($control_from_target->{$target}); } sub get_target_set($$) { my $target = shift; my $set = shift; my @result = (); my @connections = get_connections($set); my $cobidule_from_target = $c_from_target{$set}; if ($target eq "all") { return @connections; } else { my @target_list = general::decode_set($target, $target_number - 1); while (scalar(@target_list)) { my $min = shift @target_list; my $max = shift @target_list; for (my $i=$min; $i <= $max; $i++) { if (exists ($cobidule_from_target->{$i})) { push @result, $cobidule_from_target->{$i}; } else { diagnostic::warning("Invalid target $i"); communicator::get_root->output('state', TakTuk::INVALID_TARGET); } } } if (not scalar(@result)) { diagnostic::warning("No target"); communicator::get_root->output('state', TakTuk::NO_TARGET); } return @result; } } ############################################### ### STATS_BUFFER ### ############################################### package stats_buffer; use strict; use bytes; sub new($$) { my $type = shift; my $depth = shift; my $data = { depth=>$depth, data=>[] }; bless ($data, $type); return $data; } sub is_empty($) { my $self = shift; return not scalar(@{$self->{data}}); } sub add($$) { my $self = shift; my $value = shift; my $data = $self->{data}; push @$data, $value; if ($#$data > $self->{depth}) { shift @$data; } } sub average($) { my $self = shift; my $average; my $data = $self->{data}; if (scalar(@$data)) { $average = 0; foreach my $value (@$data) { $average += $value; } return $average / scalar(@$data); } else { return undef; } } sub min($) { my $self = shift; my $data = $self->{data}; my $min; if (scalar(@$data)) { $min = $self->{data}[0]; foreach my $value (@$data) { $min = $value if $min > $value; } return $min; } else { return undef; } } sub max($) { my $self = shift; my $data = $self->{data}; my $max; if (scalar(@$data)) { $max = $self->{data}[0]; foreach my $value (@$data) { $max = $value if $max < $value; } return $max; } else { return undef; } } ############################################### ### SCHEDULER ### ############################################### package scheduler; use strict; use bytes; our $window; our $window_adaptation; # in progress our $undeployed_connectors = 0; our $current_window = 0; our $steal_request_sent = 0; our $worksteal; our @waiting_thieves = (); # stats our %stats = (connections=>stats_buffer->new(5), shifts=>stats_buffer->new(5)); our $last_time = undef; # adaptation our $threshold_low = 0.1; our $threshold_high = 0.2; our $max_increase = 1.5; # groups our @group = ( { static => [], dynamic => [], limit => 0, arity => 0 } ); our $current_group = 0; our $last_group = 0; our @groups_stack = (); sub begin_group() { my $limit = $group[$current_group]->{limit}; push @groups_stack, $current_group; push @group, { static => [], dynamic => [], limit => $limit, arity => 0 }; $current_group = $#group; } sub end_group() { $current_group = pop @groups_stack; } sub set_limit($) { $group[$current_group]->{limit} = shift; } sub deploy_connector($) { my $connector = shift; if ($connector->run(0)) { my $timer = timer->register($connector->{timeout}, \&synchronizer::initialization_timeout); $connector->{timer} = $timer; $timer->{connector} = $connector; $connector->{remove_handler} = \&communicator::remove_sink; communicator::add_connector($connector, 'sinks'); diagnostic::debug("Connector added : ".$connector->{line}); $group[$connector->{group}]->{arity}++; $current_window++; # The following will have any effect only when already ready # It is necessary when new deployments are initiated after the # very first setup and the initial propagation of ready state synchronizer::synchronize_unnumbered_subnet; } else { # Ok, there's probably too many forks # Old code that try to guess the proper fix # actually this end up in deployment failures when system is higly # loaded (in this case the test succeed, hum) # So I changed to a more basic solution #if ($current_window < 1) # { # # We're in a big trouble, I have to deploy but I cannot ... # # In this case I give up # diagnostic::error("Cannot deploy connector due to fork ". # "unavailability"); #} #else # { # diagnostic::warning("Delaying connector due to fork error"); # $window=$current_window; # scheduler::add_connector($command_line, $arguments); #} #diagnostic::warning("Delaying connector due to fork error"); #sleep 1; #scheduler::add_connector($connector); diagnostic::warning("Giving up connection to $connector->{peer}"); # I guess a better long term solution would be to send connector to # children when failure repeats on the local node } } sub add_connector($) { my $connector = shift; my $number = $connector->{group}; my $static = $group[$number]->{static}; my $dynamic = $group[$number]->{dynamic}; my $arity = $group[$number]->{arity}; my $limit = $group[$number]->{limit}; # I should test whether this accelerates or not now that group scheduling # is implemented (should be hindering in presence of groups) # If this is to be removed, should also initialize $last_group to -1 if (($current_window < $window) and not at_limit($group[$number])) { deploy_connector($connector); } else { if ($limit < 0) { push @$static, $connector; } else { push @$dynamic, $connector; } $undeployed_connectors++; } } sub connector_initialized($) { my $connector = shift; my $time = $connector->{init_date} - $connector->{start_date}; if ($window_adaptation) { my $threshold; my $current_time; my $shift = 0; $stats{connections}->add($time); # not used $threshold = $stats{connections}->min? $time/$stats{connections}->min - 1:0; $current_time = timer::current_time; if ($last_time) { $shift = $current_time - $last_time; $stats{shifts}->add($shift); } $last_time = $current_time; #diagnostic::warning("Connection time $time Shift $shift Min ". # ($stats{connections}->min?$stats{connections}->min:"undef"). # " Threshold $threshold Average shift ". # ($stats{shifts}->average?$stats{shifts}->average:"undef")); if ($threshold) { my $adapt = 0; my $old_window = $window; if (($threshold < $threshold_low) and $stats{shifts}->average) { my $max_window; $max_window = floor($window * $max_increase); $window = floor($stats{connections}->min / $stats{shifts}->average); $window = $max_window if $window > $max_window; } elsif ($threshold > $threshold_high) { $window -= floor($threshold*$window); } $window = 1 if $window < 1; diagnostic::debug("Window gone from $old_window to $window"); } } $current_window--; schedule; } sub connector_failed($) { my $connector = shift; $current_window--; $group[$connector->{group}]->{arity}--; schedule; } sub at_limit($) { my $group = shift; if (($group->{limit} > 0) and ($group->{arity} >= $group->{limit})) { return 1; } else { return 0; } } sub schedule() { my $deployed = 1; my $new_group = $last_group + 1; $new_group %= scalar(@group); while ($undeployed_connectors and ($deployed or ($new_group != $last_group)) and ($current_window < $window)) { my $group = $group[$new_group]; my $connector = undef; if (scalar(@{$group->{static}})) { $connector = shift @{$group->{static}}; } elsif (scalar(@{$group->{dynamic}}) and not at_limit($group)) { $connector = shift @{$group->{dynamic}}; } if (defined($connector)) { deploy_connector($connector); $undeployed_connectors--; $last_group = $new_group; $deployed = 1; } else { $deployed = 0; } $new_group++; $new_group %= scalar(@group); } $last_group = $new_group; # Voir si on a vraiment besoin du test sur $undeployed_connectors if (not $general::root and not $steal_request_sent and not at_limit($group[0]) and ($undeployed_connectors == 0) and ($current_window < $window)) { send_steal_request(""); diagnostic::debug("Steal request sent"); } else { diagnostic::debug("Nothing done in scheduler"); } } sub is_idle() { return $undeployed_connectors == 0; } sub send_work_to($) { my $thief = shift; my $group = $group[$thief->{group}]; my $work_to_give = scalar(@{$group->{dynamic}}); my $given=0; diagnostic::debug("Theft in group $thief->{group}, ". "dynamic connectors : ".scalar(@{$group->{dynamic}}). ", work to give : $work_to_give"); if ($work_to_give) { my $available = scalar(@{$group->{dynamic}}); my $last_given = $thief->{last_given}; my $limit = eval($worksteal->{limit}); my $to_give = 0; my $workpack=""; if ($last_given) { $to_give = eval($worksteal->{growth}); } else { $to_give = eval($worksteal->{initial}); } $to_give = $limit if $to_give > $limit; for ($given=0; $given < $to_give; $given++) { my $connector_to_deploy = shift @{$group->{dynamic}}; $workpack = $workpack.$connector_to_deploy->pack(); $undeployed_connectors--; push @{$thief->{given}}, $connector_to_deploy; } $thief->send_message(TakTuk::encode($TakTuk::work, $workpack)); diagnostic::debug("Work sent : ".$workpack); } return $given; } sub dispatch_work($) { my $workpack = shift; my $connector; while ($workpack) { ($connector, $workpack) = connector::unpack($workpack); $connector->{group} = 0; diagnostic::debug("Unpacked connector: $connector"); push @{$group[0]->{dynamic}}, $connector; $undeployed_connectors++; } # reset steal information $steal_request_sent = 0; # priority to local schedule (ASAP) schedule; my $satisfied = 1; while (scalar(@waiting_thieves) and $satisfied) { my $thief = shift @waiting_thieves; $satisfied = send_work_to($thief); unshift @waiting_thieves, $thief unless $satisfied; } send_steal_request("") unless $satisfied; } sub theft_handler($$) { my $connector = shift; my $parameters = shift; my $given = send_work_to($connector); push @waiting_thieves, $connector unless $given or $connector->{group}; if (scalar(@waiting_thieves) and not $general::root and not $steal_request_sent) { send_steal_request($parameters); diagnostic::debug("Forwarded steal request, parameters : $parameters"); } elsif (scalar(@waiting_thieves)) { if ($general::root) { diagnostic::debug("Cannot satisfy steal request : no more dynamic ". "work"); } elsif ($steal_request_sent) { diagnostic::debug("Request already sent"); } } } sub send_steal_request($) { my $parameters = shift; communicator::get_root->send_message( TakTuk::encode($TakTuk::steal, $parameters)); $steal_request_sent = 1; } sub resign() { foreach my $group (@group) { $group->{static} = []; $group->{dynamic} = []; } $undeployed_connectors = 0; } ############################################### ### TIMER ### ############################################### package timer; use strict; use bytes; our $has_timehires = eval("use Time::HiRes;1")?1:0; our @registered_timers; sub current_time() { if ($has_timehires) { my ($seconds, $micro) = Time::HiRes::gettimeofday(); return $seconds + $micro/1000000; } else { return time; } } sub register($$) { my $type = shift; my $timeout = shift; my $handler = shift; my $current = current_time; my $data = { 'handler'=>$handler, 'birth'=>$current, 'elapsed'=>0 }; bless($data, $type); if ($timeout) { $data->{timeout} = $current+$timeout; my $i=$#registered_timers; $i-- while (($i >= 0) and ($registered_timers[$i]->{timeout} > $data->{timeout})); splice @registered_timers, $i+1, 0, $data; } else { $data->{timeout} = 0; } diagnostic::debug("Registered new timer $data, ".$data->print. ", list = @registered_timers"); return $data; } sub check_timeouts() { my $current = current_time; while (scalar(@registered_timers) and ($registered_timers[0]->{timeout} <= $current)) { my $timer = shift @registered_timers; $timer->{elapsed} = 1; my $handler = $timer->{handler}; &$handler($timer); diagnostic::debug("Timeout handled for $timer, ".$timer->print); } } sub unregister() { my $timer = shift; if ($timer->{timeout}) { my $i=0; $i++ while (($i <= $#registered_timers) and ($registered_timers[$i] != $timer)); if ($i <= $#registered_timers) { splice @registered_timers, $i, 1; diagnostic::debug("Unregistered timer $timer, remaining ". "@registered_timers equals ". scalar(@registered_timers)); } else { diagnostic::warning("Unregistering didn't found timer $timer"); } } } sub gettime($) { my $current = current_time; my $timer = shift; return $current - $timer->{birth}; } sub print($) { my $current = current_time; my $timer = shift; return "Timer created at $timer->{birth} timeouting at ". "$timer->{timeout} current is $current"; } ############################################### ### SYNCHRONIZER ### ############################################### package synchronizer; use strict; use bytes; # messages constituting various engines our @diffusion_engine = ($TakTuk::broadcast, $TakTuk::spread); our @execution_engine = ($TakTuk::execute, $TakTuk::eof, $TakTuk::get, $TakTuk::input, $TakTuk::kill, $TakTuk::command_message, $TakTuk::put, $TakTuk::command_send_to, $TakTuk::taktuk_perl, $TakTuk::wait); our @internal_engine = ($TakTuk::message, $TakTuk::send_to); our @synchro_engine = ($TakTuk::synchronize, $TakTuk::quit); # states our @states; # ready state help variables our $father_is_ready=0; our %blocked; our %event_waited; sub init() { $states[TakTuk::WAIT_COMPLETE] = 1; $states[TakTuk::TAKTUK_NUMBERED] = 1; $states[TakTuk::TAKTUK_READY] = 1; } sub check_ready_state() { if (!$states[TakTuk::TAKTUK_READY]) { if ($father_is_ready && scheduler::is_idle && communicator::no_pending_connectors) { # The first network setup enforce complete synchronisation (all # commands are initially blocked until its completion), it must be # propagated # Afterward, nothing can be ensured as conflicting operation might # be concurrently started (e.g. a new connector by might be # added on root while a broadcast is initiated in a leaf) foreach my $connector (communicator::get_connections('sinks')) { $connector->send_message($TakTuk::ready); } dispatch_event(TakTuk::TAKTUK_READY); diagnostic::debug("I'm ready"); } else { diagnostic::debug("I'm not ready : father_is_ready = ". "$father_is_ready, is_idle = ". scheduler::is_idle.", no_pending_connector = ". communicator::no_pending_connectors); } } } sub suspend_engine_until($@) { my $event = shift; if ($states[$event]) { block_until_event($event, @_); } } sub initialization_complete($) { my $connector = shift; diagnostic::debug("Connector $connector->{line} initialized"); $connector->{init_date} = timer::current_time; $connector->{timer}->unregister; delete $connector->{timer}; communicator::connector_initialized($connector); scheduler::connector_initialized($connector); $connector->send_parameters; $connector->output('state', TakTuk::CONNECTION_INITIALIZED); # must be the last operation as it depends on ongoing deployments check_ready_state; } sub initialization_failed($) { my $connector = shift; if (exists($connector->{timer})) { $connector->{timer}->unregister; delete $connector->{timer}; } $connector->output('state', TakTuk::CONNECTION_FAILED); # Nothing to be done for communicator as this function should be called from # communicator::remove_sink scheduler::connector_failed($connector); # must be the last operation as it depends on ongoing deployments check_ready_state; # checking ongoing reduces is useless here as no reduce could have been # initiated before the ready state } sub initialization_timeout($) { my $timer = shift; my $connector = $timer->{connector}; delete $connector->{timer}; $connector->{timeouted} = 1; if ($connector->{state} >= $connector::initialized) { diagnostic::warning("Bug, timeouted an initialized connector"); } else { if (exists($connector->{read})) { communicator::cleanup_pending_stuff($connector->{read}); } $connector->output('connector', "timeouted"); $connector->cancel; } } sub block_until_event($@) { my $event = shift; my $handlers; my $pending; $states[$event] = 0; if (exists($blocked{$event})) { $handlers = $blocked{$event}->{handlers}; $pending = $blocked{$event}->{pending}; } else { $handlers = {}; $pending = []; $blocked{$event} = { handlers=>$handlers, pending=>$pending }; } foreach my $message (@_) { if (exists($event_waited{$message})) { diagnostic::warning("Multiple blocking for $message"); } else { $handlers->{$message} = handlers::get_handler($message); handlers::replace_handler($message, \&handlers::handler_blocked); $event_waited{$message} = $event; } } } sub dispatch_event($) { my $event = shift; if (not $states[$event]) { my $handlers = $blocked{$event}->{handlers}; my @pending_list = @{$blocked{$event}->{pending}}; communicator::get_root->output('state', $event); $states[$event] = 1; foreach my $message (keys(%$handlers)) { handlers::replace_handler($message, $handlers->{$message}); delete $event_waited{$message}; } general::apply_gateway_restrictions; # Immediately reset the blocked part of the event to be able to handle # it again when handling pending messages delete $blocked{$event}; while (scalar(@pending_list)) { my $message = shift @pending_list; my $connector = shift @pending_list; my $body = shift @pending_list; my $function = handlers::get_handler($message); &$function($message, $connector, $body); diagnostic::debug("Processing $message with body $body"); } } else { diagnostic::debug("Dispatching of $event with no effect"); } } sub add_pending_message($$$) { my $message = shift; my $connector = shift; my $body = shift; my $event = $event_waited{$message}; my $pending_list = $blocked{$event}->{pending}; push @$pending_list, $message, $connector, $body; } sub setup_synchronization() { if ($main::no_numbering) { if ($states[TakTuk::TAKTUK_READY]) { diagnostic::warning("Cannot synchronize an unnumbered ready ". "TakTuk"); } else { # in this case we just complete already suspended engine block_until_event(TakTuk::TAKTUK_READY, @synchro_engine); } } else { suspend_engine_until(TakTuk::TAKTUK_NUMBERED, @execution_engine, @internal_engine, @synchro_engine); } } sub synchronize_unnumbered_subnet() { suspend_engine_until(TakTuk::TAKTUK_READY, @diffusion_engine, @synchro_engine); } ############################################### ### HANDLERS ### ############################################### package handlers; use strict; use bytes; use Fcntl; our %handlers; sub register_handler($$) { my $message = shift; if (defined($handlers{$message})) { diagnostic::error("Handler already defined for $message"); } else { $handlers{$message} = shift; } } sub replace_handler($$) { my $message = shift; if (defined($handlers{$message})) { $handlers{$message} = shift; } else { diagnostic::error("Handler not defined for $message"); } } sub get_handler($) { my $message = shift; return $handlers{$message}; } sub handler_blocked($$$) { my $message = shift; my $connector = shift; my $body = shift; synchronizer::add_pending_message($message, $connector, $body); } sub arguments($$$) { my $message = shift; my $connector = shift; my $body = shift; my $element; my @arguments; while ($body) { ($element, $body) = TakTuk::unpack($body); push @arguments, $element; } # Now I've to handle all the stuff (just as in main) arguments::fetch_arguments(@arguments); arguments::parse_options; main::process_commands; # Useful especially for stealing if I've nothing to do scheduler::schedule; } sub broadcast($$$) { my $message = shift; my $connector = shift; my $body = shift; foreach my $other_connector (communicator::get_connections('sources'), communicator::get_connections('sinks')) { if ($other_connector != $connector) { diagnostic::debug("Spreading message to $other_connector"); $other_connector->send_message(TakTuk::encode( $TakTuk::spread, $body)); } } # this message should not be interpreted on the originating node # this is the behavior of spread which is sent to others # communicator::process_message($connector, $body); } sub down($$$) { my $message = shift; my $connector = shift; my $body = shift; my $root_connector = communicator::get_root; communicator::process_message($root_connector, $body); } sub empty($$$) { my $message = shift; my $connector = shift; my $body = shift; } sub eof($$$) { my $message = shift; my $connector = shift; my $body = shift; my $target; my @target_set; $target = $body; @target_set = communicator::get_target_set($target, 'local_commands'); foreach my $command (@target_set) { communicator::post_close($command); diagnostic::debug("Posted close inputs for command $command"); } } sub update_failed($$$) { my $message = shift; my $connector = shift; my $body = shift; communicator::get_root->output('state', TakTuk::UPDATE_FAILED) if ($general::taktuk{rank} < 0); synchronizer::dispatch_event(TakTuk::TAKTUK_NUMBERED) } sub execute_timeout($) { my $timer = shift; my $message_list = $timer->{messages}; diagnostic::debug("Timeout triggered for $timer->{command}->{line}"); $ENV{TAKTUK_PID} = $timer->{command}->{pid}; if (not length($message_list)) { CORE::kill -15, $timer->{command}->{pid}; } while (length($message_list)) { my ($message, $action); ($message, $message_list) = TakTuk::unpack($message_list); ($action, $message) = TakTuk::decode($message); if ($action eq $TakTuk::action) { communicator::process_message($timer->{command}->{control}, $message); } elsif ($action eq $TakTuk::kill) { CORE::kill -$message, $timer->{command}->{pid}; } else { diagnostic::error("Internal error : unknown timeout action"); } } } sub execute($$$) { my $message = shift; my $connector = shift; my $body = shift; my $target = undef; # More annoying than helpfull # diagnostic::warning("Execution has no effect on the root node, you ". # "probably forgot 'broadcast' when typing 'broadcast exec command'"); my ($attributes, $line) = TakTuk::unpack($body); my $timers = []; my $command = command::new(line=>$line, data_handler=>\&communicator::process_command_output, timers=>$timers); my $result; while (length($attributes)) { my $chunk; ($chunk, $attributes) = TakTuk::unpack($attributes); diagnostic::error("Internal error") if not defined $chunk; my ($type, $body) = TakTuk::decode($chunk); if ($type eq $TakTuk::id) { $target = $body; } elsif ($type eq $TakTuk::timeout) { my $timeout; ($timeout, $body) = TakTuk::unpack($body); diagnostic::error("Internal error") if not defined $timeout; my $timer = timer->register($timeout, \&execute_timeout); $timer->{command} = $command; $timer->{connector} = $connector; $timer->{messages} = $body; push @$timers, $timer; } else { diagnostic::error("Internal error"); } } $ENV{TAKTUK_PIDS} = join(' ', map("$_->{pid}", communicator::get_connections('local_commands'))); if (not defined($target)) { $target = communicator::find_next_target(); $command->{auto_target} = 1; } $ENV{TAKTUK_TARGET} = $target; if ($result = $command->run(1)) { $command->{remove_handler} = \&communicator::remove_local_command; communicator::add_connector($command, 'local_commands'); $command->output('state', TakTuk::COMMAND_STARTED); # Should be performed last because we need the 'control' part communicator::assign_target($command, $target); } else { diagnostic::warning("Giving up command $line"); $command->output('state', TakTuk::COMMAND_FAILED); } return $result; } our %filename; our %file_perms; our %file; sub file_finalize($) { my $position = shift; if (exists($file{$position})) { # we ignore the ECHLD error which match the case in which the open mode # is piped output and the child has terminated CORE::close($file{$position}) or (not $!{ECHLD} and diagnostic::system); chmod $file_perms{$position}, $filename{$position} or diagnostic::system; } } sub file($$$) { my $message = shift; my $connector = shift; my $body = shift; my $position; ($position, $body) = TakTuk::unpack($body); if (not exists($file{$position})) { my ($host, $rank, $type, $permissions, $source, $destination); ($host, $body) = TakTuk::unpack($body); ($rank, $body) = TakTuk::unpack($body); ($type, $body) = TakTuk::unpack($body); ($permissions, $body) = TakTuk::unpack($body); ($source, $body) = TakTuk::unpack($body); $destination = $body; my $result = undef; $destination = general::expand($destination, position=>$position, host=>$host, rank=>$rank); if ($type) { if (-d $destination) { if (-d "$destination/$source" or mkdir "$destination/$source") { $filename{$position} = "$destination/$source"; } else { diagnostic::system; } } elsif (mkdir $destination) { $filename{$position} = $destination; } else { diagnostic::system; } if (exists($filename{$position})) { $result = open($file{$position}, "| cd $filename{$position} && tar x"); } } else { if (-d $destination) { $filename{$position} = "$destination/$source"; } else { $filename{$position} = $destination; } $result = open($file{$position}, ">", $filename{$position}); } if (defined($result)) { binmode($file{$position}) or diagnostic::system; $file_perms{$position} = $permissions; fcntl($file{$position}, F_SETFL, O_NONBLOCK) or diagnostic::system; $connector->output('state',TakTuk::FILE_RECEPTION_STARTED); } else { diagnostic::system; $file{$position} = undef; $connector->output('state',TakTuk::FILE_RECEPTION_FAILED); } } else { if (not length($body)) { if (defined($file{$position})) { communicator::post_termination($file{$position}, \&file_finalize, $position); $connector->output('state', TakTuk::FILE_RECEPTION_TERMINATED); } else { diagnostic::warning("End file message but no descritor"); } delete($file{$position}) if exists($file{$position}); delete($file_perms{$position}) if exists($file_perms{$position}); delete($filename{$position}) if exists($filename{$position}); } else { if (defined($file{$position})) { communicator::post_write($file{$position},$body) or diagnostic::system; } else { diagnostic::warning("Undefined file descriptor for data"); } } } } sub forward_up($$$) { my $message = shift; my $connector = shift; my $body = shift; if ($general::root) { communicator::process_message($connector, $body); } else { foreach my $other_connector (communicator::get_connections('sources')) { $other_connector->send_message( TakTuk::encode($TakTuk::forward_up, $body)); } } } sub gateway($$$) { my $message = shift; my $connector = shift; my $body = shift; $general::taktuk{gateway} = 1; } sub get($$$) { my $message = shift; my $connector = shift; my $body = shift; my $put_prefix; my $get_prefix; ($get_prefix, $body) = TakTuk::unpack($body); $put_prefix=TakTuk::encode($TakTuk::send_to, TakTuk::pack($general::taktuk{rank})); communicator::process_message($connector, TakTuk::encode($get_prefix, TakTuk::encode($TakTuk::put, TakTuk::pack($put_prefix).$body))); } sub get_info($$$) { my $message = shift; my $connector = shift; my $body = shift; my $info = undef; if ($body eq "target") { $info = $connector->{target} if exists($connector->{target}); } else { $info = $general::taktuk{$body} if exists($general::taktuk{$body}); } if (defined($info)) { $connector->send_message(TakTuk::encode($TakTuk::info, $info)); } else { $connector->send_message($TakTuk::invalid); } } sub input($$$) { my $message = shift; my $connector = shift; my $body = shift; my $result; my $target; my @target_set; ($target, $body) = TakTuk::unpack($body); @target_set = communicator::get_target_set($target, 'local_commands'); foreach my $command (@target_set) { if (exists($command->{read})) { $result = communicator::post_write($command->{read}, $body); } else { $result = 1; } if (not $result) { if ($!{EPIPE}) { # Ok, a broken pipe, the remote command has left but I still # haven't cleaned the connector diagnostic::debug("Broken pipe when sending input"); } else { # Well, I don't know what to do in other cases diagnostic::system; } } } } sub kill($$$) { my $message = shift; my $connector = shift; my $body = shift; my $target; my @target_set; ($target, $body) = TakTuk::unpack($body); @target_set = communicator::get_target_set($target, 'local_commands'); foreach my $command (@target_set) { CORE::kill -$body, $command->{pid}; } } our $from; our $to; our @messages_pool; our @pending_recv; sub message($$$) { my $message = shift; my $connector = shift; my $body = shift; my $target; my @target_set = (); # For message handling, we always turn to the internal form $message = $TakTuk::message; ($target, $body) = TakTuk::unpack($body); diagnostic::debug("In message, target is $target, body is $body"); if ($target ne "output") { if ($target eq "any") { if (scalar(@pending_recv)) { push @target_set, shift @pending_recv; } else { push @messages_pool, TakTuk::encode($message, TakTuk::pack($target).$body); } } else { @target_set = communicator::get_target_set($target, 'control'); } foreach my $control (@target_set) { $control->send_message(TakTuk::encode($message, $body)); $control->{pending_messages}++; if (($control->{pending_messages} == 0) and exists($control->{timer})) { $control->{timer}->unregister if not $control->{timer}->{elapsed}; delete $control->{timer}; } } } else { my $root = communicator::get_root; ($from, $body) = TakTuk::unpack($body); $root->output('message', $body); } } sub numbered($$$) { my $message = shift; my $connector = shift; my $body = shift; my ($father_rank, $rank, $count, $update) = split / /,$body; my @connections = communicator::get_connections('sinks'); my $current = $rank; diagnostic::debug("Numbering from $rank, count = $count"); if ($general::taktuk{gateway}) { $general::taktuk{rank} = -1; $ENV{TAKTUK_RANK} = -1; } else { $general::taktuk{rank} = $rank; $ENV{TAKTUK_RANK} = $rank; # Pretend to my children that I'm my father $rank = $father_rank; $current++; } $general::taktuk{count} = $count; $ENV{TAKTUK_COUNT} = $count; $general::taktuk{father} = $father_rank; $ENV{TAKTUK_FATHER} = $father_rank; $general::taktuk{child_min} = $current; for (my $i=0; $i<=$#connections; $i++) { my $other_connector = $connections[$i]; if ($other_connector != $connector) { my $min = $current; my $max = $current + $other_connector->{count} - 1; if ($update and exists($other_connector->{min}) and (($min != $other_connector->{min}) or (($max != $other_connector->{max}) and ($i != $#connections)))) { communicator::get_root->output('state', TakTuk::UPDATE_FAILED); $min = $other_connector->{min}; $max = $other_connector->{max}; $other_connector->send_message(TakTuk::encode($TakTuk::spread, $TakTuk::update_failed)); } else { $other_connector->send_message(TakTuk::encode( $TakTuk::numbered,"$rank $min $count $update")); $other_connector->{min} = $min; $other_connector->{max} = $max; } $current = $max+1; } else { diagnostic::warning("Bug : numbered coming from a sink"); } } $general::taktuk{child_max} = $current-1; if ($general::taktuk{child_min} > $general::taktuk{child_max}) { $general::taktuk{child_min} = -1; $general::taktuk{child_max} = -1; } $ENV{TAKTUK_CHILD_MIN} = $general::taktuk{child_min}; $ENV{TAKTUK_CHILD_MAX} = $general::taktuk{child_max}; synchronizer::dispatch_event(TakTuk::TAKTUK_NUMBERED); } our %filehandles; sub output($$$) { my $message = shift; my $connector = shift; my $body = shift; if ($general::root) { my ($fd, $remaining) = TakTuk::unpack($body); if (not exists($filehandles{$fd})) { open ($filehandles{$fd}, $fd) or diagnostic::system; # Making the output on root non blocking seems more annoying than # helpful... # do not set non blocking output on low numbered fds in root # otherwise this unblocks the interpreter #my $can_unblock = 1; #$can_unblock = 0 if ($fd =~ m/^>&=([0-2])$/o and $general::root); #(fcntl($filehandles{$fd}, F_SETFL, O_NONBLOCK) # or diagnostic::system) if $can_unblock; } communicator::post_write($filehandles{$fd}, $remaining) or diagnostic::system; } else { diagnostic::warning("Output message received on non root node"); } } sub option($$$) { my $message = shift; my $connector = shift; my $body = shift; my ($name, $value) = split //,$body,2; diagnostic::debug("Setting $name to $value in $general::taktuk{rank}"); option::set($name, $value); } sub options($$$) { my $message = shift; my $connector = shift; my $body = shift; diagnostic::debug("Fetching [ $body ] as options line"); arguments::fetch_line($body); arguments::parse_options(); } sub pipe($$$) { my $message = shift; my $connector = shift; my $body = shift; my ($filename, $prefix) = TakTuk::unpack($body); my $fd = general::open_file($filename) or diagnostic::system; if ($fd) { my $command = command::new(write=>$fd, type=>settings::FD, data_handler=>\&communicator::process_pipe_output, message=>$prefix); $command->{remove_handler} = \&communicator::remove_pipe; communicator::add_connector($command, 'pipe'); communicator::get_root->output('state', TakTuk::PIPE_STARTED); } else { communicator::get_root->output('state', TakTuk::PIPE_FAILED); } } sub position($$$) { my $message = shift; my $connector = shift; my $body = shift; ($general::position) = $body; $ENV{TAKTUK_POSITION} = $body; } sub put($$$) { my $message = shift; my $connector = shift; my $body = shift; my $prefix; my $source; my $destination; ($prefix, $body) = TakTuk::unpack($body); ($source, $body) = TakTuk::unpack($body); ($destination, $body) = $body; diagnostic::debug("Calling send_file with $prefix, $source, ". "$destination from $general::taktuk{rank}"); $connector->send_file($prefix, $source, $destination); } sub quit($$$) { my $message = shift; my $connector = shift; my $body = shift; if (not $communicator::end) { handlers::eof($TakTuk::eof, $connector, "all"); communicator::terminate; foreach my $other_connector (communicator::get_connections('sinks')) { diagnostic::debug("Sending quit message to $other_connector"); $other_connector->send_message($TakTuk::quit); } } } sub ready($$$) { my $message = shift; my $connector = shift; my $body = shift; diagnostic::debug("Ready received"); $synchronizer::father_is_ready = 1; synchronizer::check_ready_state; } sub recv_timeout($) { my $timer = shift; my $i=0; $timer->{connector}->send_message($TakTuk::timeout); $timer->{connector}->{pending_messages}++; while ($i<=$#pending_recv) { if ($pending_recv[$i] == $timer->{connector}) { splice @pending_recv, $i, 1; } $i++; } } our %reduce_result; our %reduce_remaining; our %reduce_connector; our @reduce_pending; use constant REDUCE_INITIALIZATION => -1; use constant REDUCE_FINALIZATION => -2; our %reduce_handler = ($TakTuk::reduce_count => \&reduce_count, $TakTuk::reduce_tree => \&reduce_tree, $TakTuk::reduce_wait => \&reduce_wait); sub reduce_count ($$$$) { my $connector = shift; my $rank = shift; my $new_value = shift; my $data = shift; if ($rank == REDUCE_INITIALIZATION) { $general::numbering_update = $new_value?1:0; synchronizer::suspend_engine_until(TakTuk::TAKTUK_NUMBERED, @synchronizer::execution_engine, @synchronizer::internal_engine, @synchronizer::synchro_engine); if ($general::taktuk{gateway}) { return 0; } else { return 1; } } elsif ($rank == REDUCE_FINALIZATION) { if ($general::root) { # the root, numbered 0, is not counted as deployed $data--; numbered($TakTuk::numbered, communicator::get_root, "-1 0 $data $general::numbering_update"); return undef; } else { return $data; } } else { if (defined($new_value)) { $connector->{count} = $new_value; return $data + $new_value; } else { $connector->{count} = 0; return $data; } } } sub reduce_tree($$$$) { my $source_connector = shift; my $rank = shift; my $new_value = shift; my $data = shift; my $result; if ($rank == REDUCE_INITIALIZATION) { my $ready = $synchronizer::states[TakTuk::TAKTUK_READY] ? "ready":"busy"; my $rank = ($general::taktuk{rank} == -1) ? "X":$general::taktuk{rank}; $result = "['$general::host ($rank, $ready)'"; # This reduce is special and not synchronized with connectors... my @sinks = communicator::get_connections('sinks'); foreach my $connector (@sinks) { # propagate the reduce by ourselves for the others # bypass the usual gathering for uninitialized connectors if ($connector->{state} < $connector::initialized) { my $number = $connector->{$TakTuk::reduce_tree}; $reduce_result{$TakTuk::reduce_tree}->[$number] = ", ['connecting $connector->{peer}']"; delete $connector->{$TakTuk::reduce_tree}; $reduce_remaining{$TakTuk::reduce_tree}--; } else { $connector->send_message(TakTuk::encode($TakTuk::reduce, $TakTuk::reduce_tree)); } } } elsif ($rank == REDUCE_FINALIZATION) { if ($general::root) { eval('$new_value = '.$data."]"); general::print_tree("",$new_value); $result = undef; } else { $result = $data."]"; } } else { $result = $data.",".(defined($new_value) ? $new_value : "['lost connexion']"); } return $result; } our $waiting = 0; our $wait_target; our $wait_remaining; our @wait_set; sub reduce_wait($$$$) { my $connector = shift; my $rank = shift; my $new_value = shift; my $data = shift; if ($rank == REDUCE_INITIALIZATION) { if ($general::root) { synchronizer::suspend_engine_until(TakTuk::WAIT_COMPLETE, @synchronizer::diffusion_engine, @synchronizer::synchro_engine, @synchronizer::execution_engine); } if ($waiting) { # Here we trick the reduce mechanichs to make it wait for an # additional result. We will provide this result upon completion of # all local commands $reduce_remaining{$TakTuk::reduce_wait}++; } return ""; } elsif ($rank == REDUCE_FINALIZATION) { synchronizer::dispatch_event(TakTuk::WAIT_COMPLETE); if ($general::root) { $connector->output('state', TakTuk::WAIT_REDUCE_COMPLETE); return undef; } else { return ""; } } else { return ""; } } sub local_command_completed($) { my $command = shift; if ($waiting) { if ($wait_target eq "any") { $waiting--; } elsif ($wait_target eq "all") { $wait_remaining--; $waiting-- if $wait_remaining == 0; } else { my $i = 0; while (($i <= $#wait_set) and ($wait_set[$i] != $command)) { $i++; } if ($i <= $#wait_set) { splice @wait_set, $i, 1; } $waiting-- if not scalar(@wait_set); } if (not $waiting) { if (exists($reduce_connector{$TakTuk::reduce_wait})) { $reduce_remaining{$TakTuk::reduce_wait}--; reduce_status_analysis($TakTuk::reduce_wait); } else { synchronizer::dispatch_event(TakTuk::WAIT_COMPLETE); } } } } sub reduce($$$) { my $message = shift; my $connector = shift; my $body = shift; my @connectors = (communicator::get_connections('sources'), communicator::get_connections('sinks')); my $i; diagnostic::debug("Reduce in $general::taktuk{rank}"); my ($type,$value) = TakTuk::decode($body); if (not exists($reduce_connector{$type})) { diagnostic::error("Handler not defined for reduce $type") if not exists($reduce_handler{$type}); $reduce_connector{$type} = []; $reduce_connector{$type}->[0] = $connector; $reduce_remaining{$type} = 0; $reduce_result{$type} = []; $i = 0; foreach my $target (@connectors) { if ($target != $connector) { $i++; $reduce_connector{$type}->[$i] = $target; if (exists($target->{pending_results}->{$type})) { my $results = $target->{pending_results}->{$type}; $reduce_result{$type}->[$i] = shift @$results; delete($target->{pending_results}->{$type}) unless scalar(@$results); } else { $target->{$type} = $i; $reduce_remaining{$type}++; } } } my $handler = $reduce_handler{$type}; $reduce_result{$type}->[0] = &$handler($connector, REDUCE_INITIALIZATION, $value, undef); reduce_status_analysis($type); } else { push @reduce_pending, [ $message, $connector, $body ]; } } sub reduce_status_analysis($) { my $type = shift; if (exists($reduce_remaining{$type}) and ($reduce_remaining{$type} == 0)) { my $data = $reduce_result{$type}; my $handler = $reduce_handler{$type}; my $connector = $reduce_connector{$type}; my $result = $data->[0]; for (my $i=1; $i<=$#$data; $i++) { $result = &$handler($connector->[$i], $i, $data->[$i], $result); } $result = &$handler($connector->[0], REDUCE_FINALIZATION, undef, $result); if (defined($result)) { my $reply_connector = $connector->[0]; $reply_connector->send_message(TakTuk::encode( $TakTuk::reduce_result, TakTuk::encode($type, $result))); } delete $reduce_connector{$type}; delete $reduce_remaining{$type}; delete $reduce_result{$type}; if (scalar(@reduce_pending)) { my $next = pop @reduce_pending; reduce($next->[0], $next->[1], $next->[2]); } } } sub reduce_result($$$) { my $message = shift; my $connector = shift; my $body = shift; diagnostic::debug("Reduce result from $general::taktuk{rank}"); my ($type,$value) = TakTuk::decode($body); if (exists($connector->{$type})) { $reduce_result{$type}->[$connector->{$type}] = $value; $reduce_remaining{$type}--; delete $connector->{$type}; reduce_status_analysis($type); } else { $connector->{pending_results}->{$type} = [] unless exists($connector->{pending_results}->{$type}); push @{$connector->{pending_results}->{$type}}, $value; } } sub check_ongoing_reduces($) { my $connector = shift; foreach my $type (keys(%reduce_connector)) { if (exists($connector->{$type})) { $reduce_remaining{$type}--; $reduce_result{$type}->[$connector->{$type}] = undef; reduce_status_analysis($type); } } } sub resign($$$) { my $message = shift; my $connector = shift; my $body = shift; scheduler::resign; foreach my $other_connector (communicator::get_connections('sources'), communicator::get_connections('sinks')) { if ($other_connector != $connector) { if ($other_connector->{state} < $connector::initialized) { $other_connector->output('connector',"canceled"); $other_connector->cancel; } else { $other_connector->send_message($TakTuk::resign); } } } } sub send_to($$$) { my $message = shift; my $connector = shift; my $body = shift; my ($to, $remaining) = TakTuk::unpack($body); diagnostic::debug("Message to $to and I'm $general::taktuk{rank}"); my $new_message; my @destination_list = general::decode_set($to, $general::taktuk{count}); if (not scalar(@destination_list)) { diagnostic::error("Invalid set specification : $to"); communicator::get_root->output('state', TakTuk::INVALID_DESTINATION); } my @upward = (); my @downward = (); my $delivery = 0; my $min = shift @destination_list; my $max = shift @destination_list; my $local_min; if ($general::taktuk{gateway}) { $local_min = $general::taktuk{child_min}; } else { $local_min = $general::taktuk{rank}; } # propagation upward of low numbered destinations while (defined($min) and ($min < $local_min)) { if ($max >= $local_min) { push @upward, $min, $local_min-1; unshift @destination_list, $local_min, $max; } else { push @upward, $min, $max; } $min = shift @destination_list; $max = shift @destination_list; } # local delivering if (defined($min) and ($min == $general::taktuk{rank})) { $delivery = 1; if ($max == $general::taktuk{rank}) { $min = shift @destination_list; $max = shift @destination_list; } else { $min++; } } # propagation downward of destination within children interval my $i=0; my @sinks = communicator::get_connections('sinks'); while (defined($min) and ($min <= $general::taktuk{child_max})) { # propagation upward of high numbered destinations if ($max > $general::taktuk{child_max}) { push @upward, $general::taktuk{child_max}+1, $max; $max = $general::taktuk{child_max}; } # move on to the next involved connector while (($i <= $#sinks) and ($min > $sinks[$i]->{max})) { # flush any pending forwarding from the last iteration if (scalar(@downward)) { $new_message = TakTuk::encode($message, TakTuk::pack(general::encode_set(@downward)).$remaining); $sinks[$i]->send_message($new_message); @downward = (); } $i++; } # if some destination are out of range, isolate them if (($i <= $#sinks) and ($min < $sinks[$i]->{min}) and ($max >= $sinks[$i]->{min})) { unshift @destination_list, $sinks[$i]->{min}, $max; $max = $sinks[$i]->{min}-1; } # handle the case where no connector match for a downward destination if (($i > $#sinks) or ($min < $sinks[$i]->{min})) { # I got a small issue : some destinations are not available diagnostic::warning("Send problem, ". (($min != $max)?"$min-$max":"$min")." not available anymore"); communicator::get_root->output('state', TakTuk::UNAVAILABLE_DESTINATION); } # otherwise extract the slice matching connector range and add it the # the set that must be propagated else { if ($max > $sinks[$i]->{max}) { unshift @destination_list, $sinks[$i]->{max}+1, $max; $max = $sinks[$i]->{max}; } push @downward, $min, $max; } # proceed to the next interval $min = shift @destination_list; $max = shift @destination_list; } if (scalar(@downward)) { $new_message = TakTuk::encode($message, TakTuk::pack(general::encode_set(@downward)).$remaining); $sinks[$i]->send_message($new_message); } # propagation upward of high numbered destinations while (defined($min)) { push @upward, $min, $max; $min = shift @destination_list; $max = shift @destination_list; } if (scalar(@upward)) { if ($general::root) { diagnostic::warning("Send problem, ".general::encode_set(@upward). " is(are) invalid destination(s)"); } else { $new_message = TakTuk::encode($message, TakTuk::pack(general::encode_set(@upward)).$remaining); communicator::get_root->send_message($new_message); } } # actual local delivery if ($delivery) { diagnostic::debug("Delivered message"); communicator::get_root->output('state', TakTuk::MESSAGE_DELIVERED); communicator::process_message($connector, $remaining); } } sub spread($$$) { my $message = shift; my $connector = shift; my $body = shift; broadcast($message, $connector, $body); diagnostic::debug("Handling message locally"); communicator::process_message($connector, $body); } sub steal($$$) { my $message = shift; my $connector = shift; my $body = shift; diagnostic::debug("Steal request : $body, connector : $connector"); scheduler::theft_handler($connector, $body); synchronizer::check_ready_state; } sub synchronize($$$) { my $message = shift; my $connector = shift; my $body = shift; communicator::process_message($connector, $body); } sub taktuk_code($$$) { my $message = shift; my $connector = shift; my $body = shift; diagnostic::debug("Taktuk code received"); $general::taktuk_code = $body; } sub taktuk_perl($$$) { my $message = shift; my $connector = shift; my $body = shift; my ($options, $arguments, $filename, $attributes); ($attributes, $body) = TakTuk::unpack($body); if ($body =~ /(?:^|\s)--(?:$|\s)/) { ($options, $arguments) = split /(?:^|\s)--(?:$|\s)/,$body,2; $arguments = "" if not defined($arguments); } else { ($options, $arguments) = ("", $body); } ($filename, $arguments) = split /\s/, $arguments, 2; $filename = "" if not defined($filename); $arguments = "" if not defined($arguments); diagnostic::debug("Taktuk perl execution, options [$options], filename ". "[$filename], arguments [$arguments]"); my $command = execute($TakTuk::execute, $connector, TakTuk::pack($attributes). "$general::perl_interpreter $options -- - $arguments"); if ($command) { $command->{line} = "taktuk_perl"; $command->{line} .= " $body" if $body; general::load_taktuk_package('TakTuk'); communicator::post_write($command->{read}, "{") or diagnostic::system; communicator::post_write($command->{read}, $general::taktuk_package) or diagnostic::system; communicator::post_write($command->{read}, "}package main;") or diagnostic::system; if ($filename and ($filename ne "-")) { $filename = qx{echo "$filename"}; chomp($filename); communicator::post_write($command->{read}, general::load_file($filename)) or diagnostic::system; communicator::post_close($command); } } } sub wait($$$) { my $message = shift; my $connector = shift; my $body = shift; my $reduce; ($reduce, $wait_target) = TakTuk::unpack($body); if (not $reduce or not $general::root) { if (($wait_target eq "any") or ($wait_target eq "all")) { $wait_remaining = scalar(communicator::get_connections('local_commands')); $waiting++ if $wait_remaining; } else { @wait_set = communicator::get_target_set($wait_target, 'local_commands'); $waiting++ if scalar(@wait_set); } } if ($reduce) { reduce($TakTuk::reduce, $connector, $TakTuk::reduce_wait); } elsif ($waiting) { synchronizer::suspend_engine_until(TakTuk::WAIT_COMPLETE, @synchronizer::execution_engine, @synchronizer::synchro_engine); } else { synchronizer::dispatch_event(TakTuk::WAIT_COMPLETE); } } sub wait_message($$$) { my $message = shift; my $connector = shift; my $body = shift; # Notice that the following method works only beacause there is at most one # blocked recv per process (other processes match other connectors and the # recv is in mutual exclusion). $connector->{pending_messages}--; if ($connector->{pending_messages} < 0) { push @pending_recv, $connector; if (scalar(@messages_pool)) { my ($code, $remaining) = TakTuk::decode(shift @messages_pool); message($code, undef, $remaining); } } if (($connector->{pending_messages} < 0) and $body and ($body > 0)) { my $timer = timer->register($body,\&recv_timeout); $timer->{connector} = $connector; $connector->{timer} = $timer; } } sub work($$$) { my $message = shift; my $connector = shift; my $body = shift; diagnostic::debug("Work received : $body"); scheduler::dispatch_work($body); synchronizer::check_ready_state; } sub init() { handlers::register_handler($TakTuk::arguments, \&arguments); handlers::register_handler($TakTuk::broadcast, \&broadcast); handlers::register_handler($TakTuk::command_message, \&message); handlers::register_handler($TakTuk::command_send_to, \&send_to); handlers::register_handler($TakTuk::down, \&down); handlers::register_handler($TakTuk::eof, \&eof); handlers::register_handler($TakTuk::execute, \&execute); handlers::register_handler($TakTuk::file, \&file); handlers::register_handler($TakTuk::forward_up, \&forward_up); handlers::register_handler($TakTuk::gateway, \&gateway); handlers::register_handler($TakTuk::get, \&get); handlers::register_handler($TakTuk::get_info, \&get_info); handlers::register_handler($TakTuk::input, \&input); handlers::register_handler($TakTuk::kill, \&kill); handlers::register_handler($TakTuk::message, \&message); handlers::register_handler($TakTuk::numbered, \&numbered); handlers::register_handler($TakTuk::output, \&output); handlers::register_handler($TakTuk::option, \&option); handlers::register_handler($TakTuk::options, \&options); handlers::register_handler($TakTuk::pipe, \&pipe); handlers::register_handler($TakTuk::position, \&position); handlers::register_handler($TakTuk::put, \&put); handlers::register_handler($TakTuk::quit, \&quit); handlers::register_handler($TakTuk::ready, \&ready); handlers::register_handler($TakTuk::reduce, \&reduce); handlers::register_handler($TakTuk::reduce_result, \&reduce_result); handlers::register_handler($TakTuk::resign, \&resign); handlers::register_handler($TakTuk::send_to, \&send_to); handlers::register_handler($TakTuk::spread, \&spread); handlers::register_handler($TakTuk::steal, \&steal); handlers::register_handler($TakTuk::synchronize, \&synchronize); handlers::register_handler($TakTuk::taktuk_code, \&taktuk_code); handlers::register_handler($TakTuk::taktuk_perl, \&taktuk_perl); handlers::register_handler($TakTuk::update_failed, \&update_failed); handlers::register_handler($TakTuk::wait, \&wait); handlers::register_handler($TakTuk::wait_message, \&wait_message); handlers::register_handler($TakTuk::work, \&work); } ############################################### ### MAIN ### ############################################### package main; use strict; use bytes; our $taktuk_interpreter = undef; our $in_interpreter = 1; our $interactive = 0; our $forced_interactive = 0; our $no_numbering = 0; our $terminate = 0; our $quit_message = $TakTuk::quit; our $taktuk_side; our $interpreter_side; sub is_one_of($@) { my $prefix = shift; my $found = undef; my $number_found = 0; foreach my $fullname (@_) { if ($fullname =~ m/^$prefix/) { $found = $fullname; $number_found++; } } $prefix=$found if ($number_found == 1); return $prefix; } sub get_attributes() { my $attributes = ""; my $timeout_pack = ""; my $argument = arguments::get_next_argument; while ($argument =~ m/^[a-z]+$/o) { $argument = is_one_of($argument, qw(timeout action kill)); if ($argument eq "timeout") { my $value = arguments::get_next_argument; if (length($timeout_pack)) { $attributes .= TakTuk::pack($timeout_pack); $timeout_pack = ""; } $timeout_pack = TakTuk::encode($TakTuk::timeout, TakTuk::pack($value)); } elsif ($argument eq "action") { my ($message, $type, $data) = translate; if (length($timeout_pack)) { if (not $type) { $timeout_pack .= TakTuk::pack( TakTuk::encode($TakTuk::action, $message)) if defined($message); } else { diagnostic::warning("Invalid attribute action"); } } else { diagnostic::warning("Action requires timeout specification"); } } elsif ($argument eq "kill") { my $value = arguments::get_next_argument; if ($value =~ m/^\d+$/) { if (length($timeout_pack)) { $timeout_pack .= TakTuk::pack(TakTuk::encode($TakTuk::kill, $value)); } else { diagnostic::warning("Kill requires timeout specification"); } } else { diagnostic::error("Invalid signal number for kill"); } } elsif ($argument eq "target") { my $value = arguments::get_next_argument; $attributes .= TakTuk::pack(TakTuk::encode($TakTuk::id, $value)); } else { diagnostic::warning("Unknown option $argument for exec"); } $argument = arguments::get_next_argument; } $attributes .= TakTuk::pack($timeout_pack) if length($timeout_pack); arguments::restore_last_argument; diagnostic::debug("Exec attributes : $attributes"); return $attributes; } sub translate() { my $message = undef; my $type = ""; my $data = undef; my @commands = qw(broadcast downcast exec get help input kill message network option put synchronize taktuk_perl version quit wait); my $found=""; my $number_found=0; my $command; # because of e.g. help, should take commands separators into account $command = arguments::get_next_command; if (not $arguments_ended and ($command =~ m/^[a-z]+$/o)) { $command = is_one_of($command, @commands); } if ($arguments_ended) { } elsif ($command =~ m/^\s*$/o) { } elsif ($command =~ /^\d/) { ($message, $type, $data) = translate(); $message = TakTuk::encode($TakTuk::command_send_to, TakTuk::pack($command).$message) if (defined($message)); } elsif ($command eq "broadcast") { ($message, $type, $data) = translate(); $message = TakTuk::encode($TakTuk::broadcast, $message) if (defined($message)); } elsif ($command eq "downcast") { ($message, $type, $data) = translate(); $message = TakTuk::encode($TakTuk::down, TakTuk::encode( $TakTuk::broadcast, $message)) if (defined($message)); } elsif ($command eq "exec") { my $attributes = get_attributes; my $parameters = arguments::get_parameters; if (defined($parameters)) { $message = TakTuk::encode($TakTuk::execute, TakTuk::pack($attributes).$parameters); } else { $terminate = 1; } } elsif ($command eq "get") { my $source = arguments::get_parameters; my $destination = arguments::get_parameters; if (defined($source) and defined($destination)) { $message = ""; $type = $TakTuk::get; $data = [ $source, $destination ]; } else { $terminate = 1; } } elsif ($command eq "help") { general::print_help; } elsif (($command eq "input") or ($command eq "message")) { my @keywords; my $message_code; my $target; # because of close, should take commands separators into account my $name = arguments::get_next_command; if (defined($name) and ($name =~ m/^[a-z]+$/)) { $name = is_one_of($name, "target"); } if ($name eq "target") { $target = arguments::get_next_argument; $name = arguments::get_next_command; } else { $target = ($command eq "input") ? "all" : "any"; } if ($command eq "input") { @keywords = qw(close data file line pipe); $message_code = TakTuk::encode($TakTuk::input, TakTuk::pack($target)); } else { @keywords = qw(data file line pipe); $message_code = TakTuk::encode($TakTuk::command_message, TakTuk::pack($target).TakTuk::pack(0)); } if (defined($name) and ($name =~ m/^[a-z]+$/)) { $name = is_one_of($name, @keywords); } else { arguments::restore_last_command; $name = "data"; } if (($name eq "close") and ($command eq "input")) { $message = TakTuk::encode($TakTuk::eof, $target); } else { my $parameters = arguments::get_parameters; if (defined($parameters)) { if ($name eq "data") { $message = TakTuk::encode($message_code, $parameters); } elsif ($name eq "line") { $message = TakTuk::encode($message_code,$parameters."\n"); } elsif ($name eq "file") { $message = ""; $type = $TakTuk::file; $data = general::open_file($parameters); $message = $message_code if $data; } elsif ($name eq "pipe") { $message = ""; $type = $TakTuk::pipe; $data = $parameters; $message = $message_code; } else { diagnostic::warning("Unknown input type, ignoring command"); } } else { $terminate = 1; } } } elsif ($command eq "kill") { my $target; my $name = arguments::get_next_command; if (defined($name) and ($name =~ m/^[a-z]+$/)) { $name = is_one_of($name, "target"); } if ($name eq "target") { $target = arguments::get_next_command; $name = arguments::get_next_command; } else { $target = "all"; } if ($name) { $message = TakTuk::encode($TakTuk::kill, TakTuk::pack($target).$name); } else { $message = TakTuk::encode($TakTuk::kill, TakTuk::pack($target).15); } } elsif ($command eq "network") { my $subcommand = arguments::get_next_command; if (defined($subcommand) and ($subcommand =~ m/^[a-z]+$/)) { $subcommand = is_one_of($subcommand, qw(cancel state renumber update)); } if ($subcommand eq "cancel") { $message = $TakTuk::resign; } elsif (($subcommand eq "state") or ($subcommand eq "")) { if ($general::root) { $message = TakTuk::encode($TakTuk::reduce, $TakTuk::reduce_tree); } else { diagnostic::warning("Cannot print tree from non root node"); } } elsif ($subcommand eq "renumber") { if ($general::root) { $message = TakTuk::encode($TakTuk::spread, TakTuk::encode($TakTuk::reduce, $TakTuk::reduce_count)); } else { diagnostic::warning("Cannot renumber from non root node"); } } elsif ($subcommand eq "update") { if ($general::root) { $message = TakTuk::encode($TakTuk::spread, TakTuk::encode($TakTuk::reduce, $TakTuk::reduce_count.1)); } else { diagnostic::warning("Cannot update from non root node"); } } else { diagnostic::warning("Unknwon network command $subcommand"); } } elsif ($command eq "option") { my $name = arguments::get_next_argument; if (defined($name) and ($name =~ m/^[-a-z]+$/)) { my $parameters = arguments::get_parameters; if (defined($parameters)) { $name = $option::short_name{$name} if (length($name) > 1); $message = TakTuk::encode($TakTuk::option, $name.$parameters); } else { $terminate = 1; } } else { arguments::restore_last_argument; my $parameters = arguments::get_parameters; if (defined($parameters)) { $message = TakTuk::encode($TakTuk::options, $parameters); } else { $terminate = 1; } } } elsif ($command eq "put") { my $source = arguments::get_parameters; my $destination = arguments::get_parameters; if (defined($source) and defined($destination)) { $message = ""; $type = $TakTuk::put; $data = [ $source, $destination ]; } else { $terminate = 1; } } elsif ($command eq "quit") { $message = $quit_message; # Don't terminate here because the quit might be sent to some other node } elsif ($command eq "synchronize") { ($message, $type, $data) = translate(); $message = TakTuk::encode($TakTuk::synchronize, $message) if (defined($message)); } elsif ($command eq "taktuk_perl") { my $attributes = get_attributes; my $parameters = arguments::get_parameters; if (defined($parameters)) { $message = TakTuk::encode($TakTuk::taktuk_perl, TakTuk::pack($attributes).$parameters); } else { $terminate = 1; } } elsif ($command eq "version") { arguments::print_version; } elsif ($command eq "wait") { my $subcommand = arguments::get_next_command; my $reduce = 0; my $unknown = 0; my $target; if (defined($subcommand) and ($subcommand =~ m/^[a-z]+$/)) { $subcommand = is_one_of($subcommand, qw(reduce target)); } if ($subcommand eq "reduce") { if ($general::root) { # Wait all is not implemented directly as the spread of a # reduce to be sure successive wait commands are sequentialized # with other commands (because reduces are not suspended during # the wait, this could hang TakTuk) $reduce = 1; $message = TakTuk::encode($TakTuk::spread, $TakTuk::wait); $subcommand = arguments::get_next_command; if (defined($subcommand) and ($subcommand =~ m/^[a-z]+$/)) { $subcommand = is_one_of($subcommand, qw(target)); } } else { diagnostic::warning("Cannot wait reduce from non root node"); $message = ""; } } else { $message = $TakTuk::wait; } if ($subcommand eq "target") { $target = arguments::get_next_command; $message = TakTuk::encode($message, TakTuk::pack($reduce).$target); } else { diagnostic::warning("Expected 'target' instead of $subcommand"); $message = ""; } } else { diagnostic::error("Unknown command : $command"); } return ($message, $type, $data); } sub terminate_interpreter() { exit 0; } sub fork_taktuk_interpreter() { ($interpreter_side, $taktuk_side) = communicator::create_channel; $taktuk_interpreter = fork(); if (not defined($taktuk_interpreter)) { diagnostic::system; # I'm quite worried in this case. The fork interpreter is mandatory in # the root node diagnostic::error("FATAL : cannot continue without forked interpreter"); exit 1; } if (not $taktuk_interpreter) { $SIG{INT} = \&terminate_interpreter; if ($arguments::arguments_ended or $forced_interactive) { diagnostic::debug("Interactive mode"); if ($arguments::arguments_ended) { arguments::fetch_arguments(\*STDIN); } else { $interactive = 1; } } $taktuk_side->cleanup; communicator::cleanup; arguments::initialize_terminal; process_commands(); $interpreter_side->cleanup; exit 0; } else { # This one is not necessary as the node 0 does not execute anything # It will serve to detect interpreter termination $interpreter_side->cleanup; $taktuk_side->{remove_handler} = \&communicator::remove_interpreter; communicator::add_connector($taktuk_side, 'interpreter'); } } sub handle_message($) { my $message = shift; if (defined($taktuk_interpreter)) { $interpreter_side->send_message($message); communicator::flush_pending_stuff; } else { communicator::process_message(undef, $message); } } sub process_commands() { my $message; my $type; my $data; handle_message(TakTuk::encode($TakTuk::spread, TakTuk::encode($TakTuk::reduce, $TakTuk::reduce_count))) if (($general::root) and !$no_numbering); while (not $arguments::arguments_ended and not $terminate) { ($message, $type, $data) = translate(); #diagnostic::warning("Message $message type $type data $data"); arguments::skip_command_separator unless $arguments::arguments_ended; if (defined($message)) { if ($type eq $TakTuk::file) { my $result; my $partial_message; my $buffer; # I read half less than $TakTuk::read_size to minimize # the chances of having fragmented taktuk packets $result = sysread($data, $buffer, $TakTuk::read_size/2); while ($result) { $partial_message = TakTuk::encode($message, $buffer); diagnostic::debug("Message to send : $partial_message"); handle_message($partial_message); $result = sysread($data, $buffer, $TakTuk::read_size/2); } diagnostic::system if not defined($result); CORE::close($data) if ($data != \*STDIN); } elsif ($type eq $TakTuk::pipe) { my $new_message = TakTuk::encode($TakTuk::pipe, TakTuk::pack($data).$message); handle_message($new_message); } elsif (($type eq $TakTuk::put) or ($type eq $TakTuk::get)) { if ($message) { my $new_message = TakTuk::encode($type, TakTuk::pack( $message).TakTuk::pack($data->[0]).$data->[1]); handle_message($new_message); } else { diagnostic::warning("get/put require a destination ". "modifier"); } } else { diagnostic::debug("Message to send : $message"); handle_message($message); } } if ($arguments::arguments_ended and $interactive) { arguments::fetch_arguments(\*STDIN); $interactive = 0; } } diagnostic::debug("End of process commands"); diagnostic::debug("Args ended : $arguments::arguments_ended ". "Terminate : $terminate"); } TakTuk::no_flush(\*STDOUT); # Order of the following matters: # general wich sets some general values and does not rely on others inits # then handlers to enable diagnostic messages (might occur in arguments init) # then arguments to parse environment # then communicator that sets some taktuk environment variables that would # conflict with arguments init if set earlier general::init; handlers::init; arguments::init; communicator::init; synchronizer::init; # suspend the diffusion engine # This call will synchronize all broadcast-like operations with the deployment # Must come after handlers::init as it replaces some handlers # Must come before the ready state check (of course). This implies that this # should be called before parsing options, because options parsing starts some # deployments that might get initialized and cause a call to check_ready_state synchronizer::suspend_engine_until(TakTuk::TAKTUK_READY, @synchronizer::diffusion_engine); arguments::fetch_arguments(@ARGV); arguments::parse_options; # This call will synchronize all executions (even local ones) with the logical # nodes numbering (should be ok after options parsing) synchronizer::setup_synchronization; if ($general::root) { $synchronizer::father_is_ready = 1; # Commands in nodes other than root are sent along with arguments using # an 'arguments' message fork_taktuk_interpreter; } else { general::print($connector::init_string.$TakTuk::VERSION_NETPROTO."\n"); } $in_interpreter = 0; # has to be called once after arguments parsing and 'father_is_ready' setting # for the case in which there are no connectors to deploy # Other tests will be called on connector initialization complete or on # connection errors synchronizer::check_ready_state; # Useful especially for stealing if I've nothing to do scheduler::schedule; communicator::run; diagnostic::debug("End of the taktuk code"); communicator::get_root()->output('state', TakTuk::TAKTUK_TERMINATED); # This kills the interpreter (jsut in case the termination came form elsewhere, # a quit command for instance) if ($general::root) { kill 'INT', $taktuk_interpreter; waitpid $taktuk_interpreter, 0; } exit 0; # WARNING : avoid to put anything below the following line if you want the # autoload feature to run smoothly __END__ taktuk-3.7.7/taktuk.in000644 000765 000024 00000666221 13154522522 015525 0ustar00zebulonstaff000000 000000 #!/usr/bin/perl -w ############################################################################### # # # TakTuk, a middleware for adaptive large scale parallel remote executions # # deployment. Perl implementation, copyright(C) 2006 Guillaume Huard. # # # # 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 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, write to the Free Software # # Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA # # # # Contact: Guillaume.Huard@imag.fr # # Laboratoire LIG - ENSIMAG - Antenne de Montbonnot # # 51 avenue Jean Kuntzmann # # 38330 Montbonnot Saint Martin # # FRANCE # # # ############################################################################### ############################################################################ ### THIS IS TAKTUK ### ### In-code documentation is mostly made of comments that goes along ### ### with the following prototypes ### ### THE ORDER OF PRESENTATION IS ONLY LEXICOGRAPHIC, NO OTHER LOGIC ### ### (except for the package settings which is placed first) ### ### If you are looking for a good starting point, looking at the code of ### ### the package main seems a proper idea ### ############################################################################ ############################################################################ ### CAUTION ### ### Even if the mechanics of taktuk looks able to work using a directed ### ### acyclic graph as logical network, synchronization and messages ### ### heavily rely on the fact that it is only a tree ### ############################################################################ # Some default settings for readline (otherwise painful to set) $ENV{PERL_RL}=" o=0"; # I've got to ignore some signals that could kill TakTuk unexpectedly $SIG{PIPE} = 'IGNORE'; ############################################### ### SETTINGS ### ### simple constants definition, no ### ### implementation. ### ############################################### package settings; use constant FD => 0; use constant SOCKET => 1; use constant USE_SOCKETPAIR => 0; ############################################### ### PROTOTYPES ### ############################################### ############################################### ### ARGUMENTS ### ### argument line options parsing ### ############################################### package arguments; # Creates a terminal object for using readline sub initialize_terminal(); # Adds arguments to the internal command line # Only fetched arguments are parsed by this package # the values fetched may be opened filehandles to files that contain # arguments sub fetch_arguments(@); # Adds arguments line to the internal command line sub fetch_line($); # Undo the last issued call to get_next_stuff, use only this to undo # arguments getting sub restore_last_argument(); # Undo the last issued call to get_next_command, do not combine with # restore_last_argument sub restore_last_command(); # Sets the variable $current_command to the value of the next command # $arguments_ended is set to 1 if there are no more command sub get_next_command(); # Sets the variable $current_argument to the value of the next argument # $arguments_ended is set to 1 if there are no more arguments sub get_next_argument(); # Read new data from a given file descriptor into the associated buffer sub read_buffer_data($); # Remove a buffer that is no more used sub delete_buffer($); # Returns a pointer to the next relevant data (either an argument or a pointer # to a buffer filled with file data) sub get_data_buffer(); # Set the variable $current_stuff to the value of the next stuff in arguments # The parameter is a word separator used when reading arguments for a # file sub get_next_stuff($); # Returns the value of the next parameters # $arguments_ended is set to 1 if there are no more arguments sub get_parameters(); # Finds and skip the next command separator(s) # It should be at the beginning of upcoming data possibly after option # separators sub skip_command_separator(); # Closes any opened filehandle in the internal arguments list and sets # $arguments_ended to 1 sub terminate_arguments_parsing(); # These are routines that are registered with some of taktuk options # Adds a file (which name is given) containing arguments to fetched arguments sub args_file($); # Adds machine names contained in a file (which name is given) as new remote # peers to deploy sub machines_file($); # Adds a new remote peer which name is given. Also parses -[ and ]- imbrication sub machine($); # Adds a new remote peer which name is given. This peer will be treated as a # gateway : that means an unnumbered node that cannot be the destination of any # broadcast or multicast command. It match some kind of forward-only node. # Also parses -[ and ]- imbrication sub gateway($); # Changes the localhost name (as viewed by taktuk) sub localhost($); # Sets $general::root to 0 sub not_root(); # Prints default taktuk settings sub print_defaults(); # Prints the taktuk package exported by taktuk_perl and exits sub print_package($); # Prints TakTuk version sub print_version(); # Prints TakTuk version and exits sub print_version_quit(); # Performs registering of options accepted by taktuk and reading of environment sub init(); # Parses and handle all arguments that are options # I don't use GetOpt::Long because processing order is not ensured sub parse_options(); # Checks if separators sets overlap of include characters that might break # TakTuk command line parser sub check_separators_integrity(); # Begins a deployment group (contextualized options and confined work-stealing) sub begin_group(); # Ends a deployment group sub end_group(); # Changes the dynamicity in current group sub dynamic($); ############################################### ### COMMAND ### ### command forking with pipe redirections ### ############################################### package command; # Creates and bless a new command # Arguments might include hash keys : line, read, write, error, type # read, write and error are communication channels (fds) as viewed by the # command : in other words, taktuk itself writes into read and reads from write # and error # type might either be settings::FD or settings::SOCKET depending on the nature # of read and write sub new (%); # Forks a new process to execute the command line and redirects I/Os to the # command communication channels. The parameters tells if the new command # should change its process group or not. sub run ($); # Closes all opened communication channels for the command, waits for its # completion and return its exit status sub cleanup(); # Does a shutdown and checks the return value sub my_shutdown($$); # Closes one of the communication channels (read, write or error); sub close($); # Propagate command output upward to the deployment tree root # Arguments are : output type and message sub output($$); # Returns a string message associated with an event code sub event_msg($); ############################################### ### COMMUNICATOR ### ### communication server ### ############################################### package communicator; # Creates a pair of connected connectors sub create_channel(); # Initializes data structures for the communicator before it can be used sub init(); # Closes everything in the whole communicator sub cleanup(); # Returns a asked set of connections ('sources', 'sinks', 'local_commands',...) sub get_connections($); # Returns the root connector (firt source) sub get_root(); # Read pending data on a descriptor (second argument) of a connector (first # argument) and process all complete messages in the connector sub process_messages($$); # Calls the hanler for the given coded message (second argument) coming from a # given connector (first argument) sub process_message($$); # Prints output produced by a locally spawned command (root) or propagates it # to the root (other nodes) sub process_command_output($$); # Propagates the input got from an opened pipe according to this pipe's message sub process_pipe_output($$); # Enters into the main communicator loop sub run (); # Signify the communicator our wish to terminate the main loop sub terminate (); # Adds descriptors from a given connector or command communication channels to # descriptors that the communicator listen to sub add_descriptors($); # Removes a descriptor (second argument) belonging to a connector or command # (first argument) from the descriptors listened by the communicator sub remove_descriptor($$); # Removes a connector or command (first argument) from the communicator sub remove_cobidule($); # Returns true if no connectors are uninitialized sub no_pending_connectors(); # Adds a connector (initialized) to one of the connectors sets (sources, ...) sub add_connector($$); # This function should be called when a connector already added to the # communicator completes its initialization sub connector_initialized($); # Used internally by remove_xxx sub remove_from_set($); # Removes a previously added source connector sub remove_source($); # Removes a previously added interpreter connector sub remove_interpreter($); # Removes a previously added sink connector sub remove_sink($); # Removes a previously added control connector sub remove_control($); # Removes a previously added local command sub remove_local_command($); # Removes a previously added pipe input sub remove_pipe($); # Post to the engine a write that will be processed when possible. Arguments # are the same as in syswrite: filehandle, scalar, length and offset sub post_write($$@); # Post to the engine a close that will be processed after all pending writes if # any. Argument is the command which 'read' part is to be closed (actually this # function only applies to commands because they're the ones the user closes # explicitely). sub post_close($); # post some routine (second arg) to be called with third arg as argument when # the pending writes to the descriptor (first arg) will be completed sub post_termination($$$); # removes anything related to pending data for given descriptor sub cleanup_pending_stuff($); # performs a write attempts for pending data related to the given descriptor sub write_pending_stuff($); # flushes any pending writes, blocking if necessary sub flush_pending_stuff(); # helper function for command->{'read'} closing sub close_cobidule_read($); # Assign the given target number (second argument) to the given command sub assign_target($$); # Find the next unused target number sub find_next_target(); # Removes the target possibly assigned to the given command sub remove_target($); # Small function that returns and array of connectors given a target and a name # of connectors set sub get_target_set($$); ############################################### ### CONNECTOR ### ### external connector code (no self ### ### duplication) ### ############################################### package connector; # Creates an uninitialized connector # Arguments : might include fields used by command (especially 'line' that # will be used for most connector which are set up using an external command # such as "ssh taktuk"). # Extra fields specific to connectors include : arguments # This is a ref to an array of arguments that will be communicated to the # forked taktuk engine sub new (%); # Reads data from a given file descriptor that should be one of the connector # communication channels and store it to the connector buffer # If the connector is not initialized, this function also negociate the # initialization with the remote peer # If the descriptor match the error channel, the text is propagated to the root sub read_data ($); # To be called by synchronizer to send parameters to the remote host when the # connector has been initialized sub send_parameters(); # Returns the next available message or the empty string if none available sub get_message (); # Send a message to a remote peer # The argument is the unpacked coded message sub send_message($); # Either handle locally a message (second argument) or send it to the other # side of the connector depending on the value of prefix (first argument) sub route_file_part($$); # Copies a file or directory (second argument) to the destination (third # argument). The remote host will be determinated by the first argument # (prefix). Keeps files permissions. sub send_file($$$); # Returns a scalar packed form of the connector sub pack(); # Unpack a previously packed connector sub unpack($); # Cancels connection sub cancel(); ############################################### ### DIAGNOSTIC ### ### debug and error messages ### ############################################### package diagnostic; # Prints misc information for error diagnostic and debugging (root) # propagate the information upward (other nodes) # arguments : level, error type and additionnal message sub print_info($$$); # Various functions built on top of print_info # A system call just failed sub system (); # Debugging information sub debug ($); # Error sub error ($); # Warning sub warning ($); # Special sub special ($); ############################################### ### GENERAL ### ### Taktuk-wide settings ### ### This package contains both global ### ### settings and some functions that do not ### ### really fit elsewhere ### ############################################### package general; # Initializes the value of some global settings sub init(); # Tells if the current system supports the socketpair call sub has_socketpair(); # Creates a socketpair sub create_socketpair(); # Applies change to internal management if local node is a gateway sub apply_gateway_restrictions(); # Expand perl variables (from this package...) contained in a given string sub expand($%); # Opens a file and return a type glob to its descriptor sub open_file($); # Loads stuff from a file and return it sub load_file($); # Tries to figure out what's the filename of the taktuk executable and loads it # into $general::taktuk_code sub load_taktuk_code(); # Extract the taktuk package from the taktuk code and stores it into # $general::taktuk_package sub load_taktuk_package($); # Prints taktuk help sub print_help(); # Prints taktuk help and exit from the program sub print_help_quit(); # Decodes a host set into a list of host specifications sub decode_host_set($); # Returns the first iteration vector of the given host specification sub first_in_host($); # Increments a vector (first argument) related to the given host specification # and returns the carry if any (vector was the last element if carry is 1) sub increment_host_vector($$); # Returns the hostname associated with the iteration vector (first argument) # and given host specification sub host_vector_to_value($$); # Decodes a host set into an internal exclusion set structure sub decode_exclusion_set($); # Returns true if the given name (first argument) is in the exclusion set sub in_exclusion_set($$); # Adds a new remote host to deploy # Arguments are : the name of the host and the arguments to the taktuk command sub add_peer($$@); # Unbuffered print sub print($); # Prints in a pretty form a tree-like structure, arguments : prefix, tree sub print_tree($$); # Decode a string specifying a set of intervals and transforms it to an array # The second argument is an upper bound to use as + sub decode_set($$); # Encode an array of intervals into a compact string specification sub encode_set(@); ############################################### ### HANDLERS ### ### messages handlers definition ### ############################################### package handlers; # Associate a callback function (second argument) to a message code (first # argument) sub register_handler($$); # Replaces the callback function previously associated to a message code sub replace_handler($$); # Returns the callback function associated to a message code sub get_handler($); # All these handlers are callback functions for incoming messages # they all take three arguments : the message code, the connector from which # the message comes and the message body # Handler to use for message that need to wait for a particular event before # being processed (e.g. the ready state for broadcast). # Actually it should only be used by 'block_until_event' sub handler_blocked($$$); # Handler for reception of arguments for the taktuk command sub arguments($$$); # Handler for broadcasting a message contained in the body # (the message is processed by all the nodes except the local one) sub broadcast($$$); # handler that does nothing sub empty($$$); # Closes all read channel of local commands sub eof($$$); # Handler for timeouts on executions sub execute_timeout($); # Execute a command on the localnode redirecting all I/Os sub execute($$$); # helper function to be called at the end of file reception sub file_finalize($); # Receives a file send from a remote node sub file($$$); # Propagates the message to the root sub forward_up($$$); # Get a file from some hosts sub get($$$); # Gets some information from TakTuk sub get_info($$$); # Input to be delivered to each local command sub input($$$); # Sends a signal to local commands sub kill($$$); # Sends a message to another node sub message($$$); # Compute the logical number of each remote peer given the number of the # local node passed as argument. The total count is also passed as argument sub numbered($$$); # Output to be printed. Should only be processed on the root node (use # forward_up if necessary) sub output($$$); # Changes an option specification sub option($$$); # Fetch options line to TakTuk sub options($$$); # Opens and add as a new source of data a pipe-like file sub pipe($$$); # Tell local taktuk instance its position on the command line sub position($$$); # Put a file to some hosts sub put($$$); # Ask for termination of the local node sub quit($$$); # Inform local node of readiness of the remote peer (used by father usually) sub ready($$$); # Handler for a timeout on recv call sub recv_timeout($); # This type of reduce count the number of deployed taktuk intance and calls # the numbered sub once the count is completed sub reduce_count($$$$); # This type of reduce gather the tree structure of the deployed taktuk network # and calls print_tree on the root sub reduce_tree($$$$); # This type of reduce wait for the completion of local commands on all hosts # implied sub reduce_wait($$$$); # Auxiliary function intended to complete a waits by signaling the end of # some local command sub local_command_completed($); # General purpose reduce mechanics. Additional handlers are defined for each # type of reduce sub reduce($$$); sub reduce_status_analysis($); sub reduce_result($$$); # Check wether some reduces have completed or not. Should be called when a # connection is lost : no answer will come back from the connector but it might # have been the last waited sub check_ongoing_reduces($); # Give up ongoing connections and propagate the message through the other hosts sub resign($$$); # Sends the encapsuled message to the specified host(s) (logical number) sub send_to($$$); # Handler for broadcasting a message contained in the body # (the message is processed by all the nodes including the local one) sub spread($$$); # Steal request sub steal($$$); # Function that does nothing (process a given message) but is expected to be # strongly synchrnoized (as exec or send_to for instance) sub synchronize($$$); # Handler for reception of the taktuk code sub taktuk_code($$$); # Executes a perl interpreter already fetched with the taktuk package sub taktuk_perl($$$); # Numbering update failed on the current node sub update_failed($$$); # Wait the completion of local commands sub wait($$$); # Sent by recv to signal that a message is waited and possibly timeouted sub wait_message($$$); # Work in answer to a steal request sub work($$$); # register all the handlers sub init(); ############################################### ### MAIN ### ### main program ### ############################################### package main; # Returns the full command name if the first argument is the prefix of exactly # one of the following full commands names. Returns the prefix unchanged # otherwise. sub is_one_of($@); # Returns a packed string of execution attributes sub get_attributes(); # Translates a taktuk command line into internal message # returns a message or a connector (if the message has to wait) sub translate(); # Routine that waits the taktuk interpreter child and exits sub terminate_interpreter(); # Forks the process into # - a loop that process command line read from stdin # - a process connected via stdin/out to the other process and that will # eventually run the taktuk engine at the end of this function sub fork_taktuk_interpreter(); # Handle a taktuk command depending on local fork or not sub handle_message($); # Processes batch commands remaining as arguments after options parsing # including initial TakTuk configuration commands sub process_commands(); # This is the only package that contains raw code that will be the main # program for taktuk ############################################### ### OPTION ### ### options management ### ############################################### package option; # Clones the given scalar or ref to hash sub clone($); # Adds a new option to the list of recognized options # arguments are : short name, long name, type and ref # Types are the following # empty string means that the option is a boolean flag # i means integer argument value # f means floating point argument value # s means string argument value # ref is either a reference to a scalar (which is assigned the value of the # option argument) or a reference to a function (which is called when the # option is encountered and take the option value as argument if the option # type is not boolean # Optionally these arguments might be followed by a default value and a # transfer mode sub register($$$$@); # Changes the value of some option # parameters are the option name and the value sub set($$); # Remove the value of some option from current state # Does not change the affected ref in TakTuk but just removes the entry from # the current state thereby preventing its propagation to children nodes sub unset($); # Returns TakTuk configuration as a flat string for the command line and # an array of other TakTuk options sub get_config(); # Saves the current options context into an internal stack sub push_context(); # Restores the options context saved on the top of the internal stack sub pop_context(); # Reapplies the given option using the given internally stored value sub apply_option($$); use constant COMMAND_LINE => 0; use constant MESSAGE => 1; ############################################### ### TAKTUK::SELECT ### ### my own implementation of select object ### ############################################### package TakTuk::Select; # Creates an empty select object sub new(); # Adds a descriptor to the set listened by the select sub add($); # Removes a descriptor from the select set # Returns false if the descriptor is not in the set sub remove($); # select call # as in IO::Select, returns an array of three references to arrays sub select($$$$); # returns the array of registered handles sub handles(); ############################################### ### TAKTUK ### ### base protocol encoding ### ### This is also the exported package for ### ### external communication (which explains ### ### the name) ### ############################################### package TakTuk; # Turns autoflush on for the given filehandle sub no_flush($); # Unpacks stuff in a buffer begining by something packed # Returns a couple : the unpacked stuff and the remaining of the buffer sub unpack($); # Packs some string so that it can be unpacked when it begining is found into # a stream of bytes sub pack($); # Decode a previously coded message sub decode($); # Encode a message code and a message body into a single decodable string sub encode($$); # Same as CORE::syswrite with some error coping code sub syswrite($$); # Reads data from a given file descriptor and bufferizes it into a buffer # managed by the taktuk package sub read_data($); # Returns the next available message for the given descriptor or the empty # string if none available sub get_message($); # Find the next occurence of the required regexp (second argument) in the # buffer associated to descriptor (first argument) and returns it # Returns an empty string if the regexp do not match # \n is treated as a delimiter by this function and cannot be part of the # sequence sub find_sequence($$); # Returns the content of the buffer associated to a descriptor and empty it sub flush_buffer($); # Returns a textual description of any error that occured using send or recv sub error_msg($); # Sends a message to another node arguments are the node number and the message sub send(%); # Receive a message from another node under the form ($to, $from, $message) sub recv(%); # Waits for one of the given TakTuk messages. Returns its code and body sub wait_message(@); # Get some info from TakTuk sub get($); BEGIN { die "FATAL : Perl interpreter too old ($]), Taktuk require Perl >= 5.6.1\n" if ($] < 5.006001); } our $VERSION = "@TAKTUK_VERSION@"; our $VERSION_NETPROTO = @TAKTUK_VERSION_NETPROTO@; our $RELEASE = sprintf "%d", q$Rev: 580 $ =~ /(\d+)/g; # syscalls default granularity our $read_size = 32768; our $write_size = 32768; our $error = undef; # These are codes for available messages our $action="A"; our $wait="B"; our $id="C"; our $eof="D"; our $taktuk_perl="E"; our $gateway="F"; our $get="G"; our $invalid="H"; our $info="I"; our $command_send_to="J"; our $command_message="K"; our $option="N"; our $timeout="O"; our $put="P"; our $reduce_result="Q"; our $reduce="R"; our $spread="S"; our $taktuk_code="T"; our $update_failed="U"; our $options="V"; our $wait_message="W"; our $resign="X"; our $arguments="a"; our $broadcast="b"; our $down="d"; our $execute="e"; our $file="f"; our $get_info="g"; our $input="i"; our $kill="k"; our $message="m"; our $numbered="n"; our $output="o"; our $position="p"; our $quit="q"; our $ready="r"; our $steal="s"; our $send_to="t"; our $forward_up="u"; our $work="w"; our $synchronize="x"; our $pipe="z"; # Reduce types our $reduce_count = 'c'; our $reduce_tree = 't'; our $reduce_wait = 'w'; # State events use constant TAKTUK_READY => 0; use constant TAKTUK_NUMBERED => 1; use constant TAKTUK_TERMINATED => 2; use constant CONNECTION_FAILED => 3; use constant CONNECTION_INITIALIZED => 4; use constant CONNECTION_LOST => 5; use constant COMMAND_STARTED => 6; use constant COMMAND_FAILED => 7; use constant COMMAND_TERMINATED => 8; use constant UPDATE_FAILED => 9; use constant PIPE_STARTED => 10; use constant PIPE_FAILED => 11; use constant PIPE_TERMINATED => 12; use constant FILE_RECEPTION_STARTED =>13; use constant FILE_RECEPTION_FAILED =>14; use constant FILE_RECEPTION_TERMINATED =>15; use constant FILE_SEND_FAILED =>16; use constant INVALID_TARGET => 17; use constant NO_TARGET => 18; use constant MESSAGE_DELIVERED => 19; use constant INVALID_DESTINATION => 20; use constant UNAVAILABLE_DESTINATION => 21; use constant WAIT_COMPLETE => 22; use constant WAIT_REDUCE_COMPLETE => 23; ############################################### ### SCHEDULER ### ### dispatching of connectors execution ### ############################################### package scheduler; # starts a new scheduling group sub begin_group(); # terminates the current scheduling group sub end_group(); # sets the dynamic limit of the current scheduling group sub set_limit($); # Starts the deployment of a connector and add it to the communicator # the arguments are the connector and a ref to an array of its arguments sub deploy_connector($); # Depending on the current deployment state, deploys the connector, adds it to # the static list of pending connectors or adds it to the dynamic list # arguments are the connector command and a reference to an array containing # its arguments sub add_connector($); # Should be called upon completion of a connector initialization sub connector_initialized($); # Should be called upon failure of a connector initialization sub connector_failed($); # Returns true if the given group has reach its maximal dynamic arity sub at_limit($); # Depending on the current deployment state, deploys pending connectors, send # steal requests or does nothing sub schedule(); # Returns true if the scheduler has nothing to do sub is_idle(); # Sends any sendable work (connectors deployment) to the given peer (which # should have asked for it) returns the number of connectors sent sub send_work_to($); # Dispatchs a received stolen connector (propagates downward last) sub dispatch_work($); # Handles the arrival of a new steal request from a given connector (first # argument) using given parameters (second argument) sub theft_handler($$); # Send a steal request to father using the given parameter sub send_steal_request($); # Routine to cancel all undeployed connexions sub resign(); ############################################### ### STATS BUFFER ### ### storage of fixed size data buffers and ### ### computation of statistical information ### ############################################### package stats_buffer; # Creates a new data buffer of given size sub new($$); # Returns true if the buffer is empty sub is_empty($); # Adds a new value to the buffer sub add($$); # Computes the average of stored values sub average($); # Computes the minimum of stored values sub min($); # Computes the maximum of stored values sub max($); ############################################### ### SYNCHRONIZER ### ### enforcement of causal constraints ### ############################################### package synchronizer; # Checks if the current taktuk instance is ready # ready means : father is ready and I've nothing to do # this function also replace temporary handlers and flushes pending messages # when changing state from not ready to ready sub check_ready_state(); # Suspend the handling of some messages until the occurence of the given event # (first argument). Subsenquent calls to this function using the same event # have no effect until the occurence of the event. sub suspend_engine_until($@); # Should be called when a connector becomes initialized sub initialization_complete($); # Should be called when a connector fail to initialize sub initialization_failed($); # Should be called when a connector timeouts sub initialization_timeout($); # Blocks the set of messages (array argument) as long as the required event # (first argument) has not been dispatched sub block_until_event($@); # Dispatch an event sub dispatch_event($); # Adds a new message to the appropriate pending queue # Should only be used when its usual handler has been previously blocked by # 'block_until_event' # The message will be processed as usual at the next according 'dispatch_event' sub add_pending_message($$$); # Intialize messages synchronization depending on the numbering scheme sub setup_synchronization(); # Synchronize newly deployed connector after initial deployment sub synchronize_unnumbered_subnet(); # Should be called to block engine while waiting for completion of commands sub set_waiting(); ############################################### ### TIMER ### ### time accounting & timeouts management ### ############################################### package timer; # Returns current system time in seconds since Jan. 1, 1970 # Might be fractional and has the precision of gettimeofday (milliseconds) sub current_time(); # Adds a new callback function (second argument) to be called in the given # number of seconds (first argument, possibly fractional) # Returns a handle to the associated timer object. sub register($$); # Checks is some registered timers has expired and, in such a case, calls the # handler and removes the timer sub check_timeouts(); # Removes an unexpired timer sub unregister(); # Get the current lifetime of some timer sub gettime($); # Prints the internal info of some timer sub print($); ############################################### ### END OF PROTOTYPES ### ############################################### ############################################### ### GENERAL ### ############################################### package general; use strict; use bytes; our $has_hostname = eval("use Sys::Hostname;1")?1:0; our $af_unix; our $sock_stream; our $pf_unspec; our $has_socket = eval('use Socket; $af_unix=AF_UNIX; $sock_stream=SOCK_STREAM; $pf_unspec=PF_UNSPEC; 1')?1:0; our $connector_command; our $connector_timeout; our $connector_send_files; our $login_name; our $host; our $root=1; our $taktuk_command; our $perl_interpreter; our $path_value; our $self_propagate; our $taktuk_code = undef; our $taktuk_package = undef; our $template; our $redirect; our $current_position = 0; our $position = 0; our $numbering_update = 0; our %taktuk = (gateway=>0, rank=>-1, count=>-1, child_min=>-1, child_max=>-1, father=>-1); sub init() { if ($has_hostname) { $host = hostname(); chomp($host); } else { $host = "localhost"; } } sub has_socketpair() { return (settings::USE_SOCKETPAIR and $has_socket); } sub create_socketpair() { my ($fd1, $fd2); if (not socketpair($fd1, $fd2, $af_unix, $sock_stream, $pf_unspec)) { diagnostic::system; return (); } else { return ($fd1, $fd2); } } sub apply_gateway_restrictions() { if ($taktuk{gateway}) { foreach my $message ($TakTuk::execute, $TakTuk::eof, $TakTuk::file, $TakTuk::get, $TakTuk::input, $TakTuk::kill, $TakTuk::command_message, $TakTuk::put, $TakTuk::taktuk_perl) { handlers::replace_handler($message, \&handlers::empty); } } } sub expand($%) { my $string = shift; my $variables = ""; my %values = @_; foreach my $key (keys(%values)) { $variables .= "$key=$values{$key} &&"; } diagnostic::debug("Name $string"); $string = `$variables echo $string` if $string =~ m/[\$\`]/; chomp($string); diagnostic::debug("Expanded to $string"); return $string; } sub open_file($) { my $filename = shift; my $fd = undef; $filename = expand($filename); if ($filename and ($filename ne "-")) { if (not open $fd, $filename) { diagnostic::system; diagnostic::error("Trying to open $filename"); $fd = undef; } else { binmode($fd) or diagnostic::system; } } else { if ($main::interactive) { diagnostic::error("Cannot load STDIN in interactive mode"); } elsif (not $general::root) { diagnostic::error("Cannot load STDIN on a non root node"); } else { $fd = \*STDIN; } } return $fd; } sub load_file($) { my $filename = shift; my $fd = undef; my $new_data; my $end = 0; my $stuff=""; my $result; $fd = open_file($filename); return "" if (not defined($fd)); while (not $end) { $result = sysread($fd, $new_data, $TakTuk::read_size); (diagnostic::system and $result = 0) if not defined($result); if ($result > 0) { $stuff = $stuff.$new_data; } else { $end = 1; } } if ($fd != \*STDIN) { close $fd or diagnostic::system; } return $stuff; } sub load_taktuk_code() { if (not defined($taktuk_code)) { my $filename = $0; my $fd = undef; my $new_data; my $end = 0; my $result; if (not -r $filename) { $filename = `which $0`; } if ($filename) { if (not $fd = open_file($filename)) { diagnostic::error("Trying to open $filename"); return ""; } } else { diagnostic::error("Cannot find own taktuk executable"); return ""; } $taktuk_code = ""; while (not $end) { $result = sysread($fd, $new_data, $TakTuk::read_size); (diagnostic::system and $result = 0) if not defined($result); if ($result > 0) { # not really more efficient... #$new_data =~ s/^\s*//gmo; #$new_data =~ s/^\#.*$//gmo; $taktuk_code = $taktuk_code.$new_data; } else { $end = 1; } } close $fd or diagnostic::system; } } sub load_taktuk_package($) { my $package_name = shift; my $state = 0; my $last_pos; if (not defined($taktuk_package)) { load_taktuk_code; $taktuk_package = ""; my $last_pos = 0; while ($taktuk_code =~ /(?=package\s+([^;\s]*)\s*;\s*$)/gmi) { my $pos = pos($taktuk_code); $taktuk_package .= substr($taktuk_code,$last_pos, $pos - $last_pos) if $state; if ($1 eq $package_name) { $state = 1; } else { $state = 0; } $last_pos = $pos; } $taktuk_package .= substr($taktuk_code, $last_pos) if $state; $taktuk_package .= "1;\n"; } } sub print_help() { communicator::get_root->output('info', < : sends the command to all the peers of the set (see TakTuk manual for set specification syntax) broadcast : broadcasts TakTuk command to all the remote peers not including the node initiating the broadcast downcast : spreads TakTuk command to all the children of the node initiating the command (not including itself) exec [ command ] : executes the given shell command on the local node using optional execution parameters get [ src ] [ dest ] : copies some file from destination node(s) help : prints this help input [ data ] : sends input to all commands being executed locally input data [ data ] : same as input [ data ] input line [ data ] : same as input but adds a newline at the end of data input file [ filename ] : sends the content of a file as input input pipe [ filename ] : sends the content of a pipe-like file as input input close : closes stdin of all commands being executed locally kill : sends a signal to local commands processes groups (signal default to 15 if not given) network : prints the TakTuk deployment tree network state : same as network network cancel : cancels all ongoing connections network renumber : recomputes TakTuk logical numbering network update : updates TakTuk logical numbering if possible option name [ value ] : changes some TakTuk option on destination node(s) option [ line ] : gives TakTuk options line to destination node(s) put [ src ] [ dest ] : copies some local file to destination node(s) quit : quit TakTuk and shutdown its logical network synchronize : forces the following command to wait for deployment, numbering and preceding commands before executing taktuk_perl [ args ] : forks a perl interpreter on the local node aware of the taktuk package and communication routines (see manual for a description of the taktuk package which contains point-to-point communication routines). Similar in principle to 'exec perl args'. WARNING: due to limited parser, you have to give args (even if empty) and to use '--' to explicitely terminate switches if any version : prints TakTuk version Deployment options: -b, --begin-group : starts a new deployment group -c, --connector command : defines the connector commands used for following remote machines -d, --dynamic limit : turns dynamic mode on (work stealing) for all the following remote machines specifications. Uses limit as a maximal arity (0 = no limit). A negative value for limit turns dynamic mode off. Warning, currently it is a bad idea to use several -d options in the same deployment group (the resulting arity is not specified) -e, --end-group : ends a deployment group -f, --machines-file name : name is the name of a file that contains remote machines names (equivalent to several -m opions) -l, --login name : sets the login name for the following hosts -m, --machine name -[ -] : name is the name of a remote host to be deployed with its optional arguments between -[ and -] -s, --self-propagate : propagate the TakTuk executable through connectors (eliminates the need for a TakTuk installation on remote machines) -z, --dont-self-propagate: turns self propagation off -F, --args-file name : name is the name of a file that contains options -G, --gateway name : name is the name of a forward only remote host to be deployed. Arguments can be given as with -m -I, --perl-interpreter : the command to use as a perl interpreter (for auto propagation mode and taktuk_perl command) -L, --localhost name : sets the name of localhost as viewed by TakTuk -S, --send-files files : send files at connection for further connections -T, --taktuk-command com : com is the name of the TakTuk command that should be used for the following hosts -V, --path-value list : changes the PATH value on remote hosts Command line parsing options: -C, --command-separator : changes the set of characters considered as command separators set separators -E, --escape-character : defines an escape character that protects any character following character from TakTuk interpretation -O, --option-separator : changes the set of characters considered as option separators set separators I/O options: -o, --output-template : set an output template specification for one of the name=specification output streams (see man for details about templates). When giving only a name (without specification) this disables the stream -R, --output-redirect : sets an output redirection for one of the output name=filename streams (see man for details about output streams) Performance tuning options: -g, --time-granularity n : sets to n the maximal interval between timeouts checks (usually checks are made more often) -n, --no-numbering : disable taktuk nodes numbering, speed up deployment -t, --timeout time : sets the timeout for connectors (0 = no timeout) -u, --cache-limit n : sets a limit n to the size of pending write data. A negative value for n means no limit -w, --window number : sets initial window size to number (pipeline width) -W, --window-adaptation : sets the windows adaptation scheme to number number (0: no adaptation, 1: experimental algorithm) Miscellaneous options: -M, --my : makes the next option local (not inherited) -h, --help : prints this help -i, --interactive : forces interactive mode afer command line parsing -v, --version : prints TakTuk version and exits -P, --print-defaults : prints default settings Environment variables defined by TakTuk for commands execution (see man for details about variables that change TakTuk settings): TAKTUK_COUNT : total number of successfully deployed nodes TAKTUK_HOSTNAME : hostname of the local node as given to TakTuk TAKTUK_PIDS : pids list of commands executed by the local TakTuk TAKTUK_POSITION : host position on the command line TAKTUK_RANK : logical number of local node (in [1..TAKTUK_COUNT]) END_HELP } sub print_help_quit() { print_help; $main::terminate = 1; } sub decode_host_set($) { my $host_set = shift; my $full_set = []; $host_set = "" if not defined($host_set); while (length($host_set)) { $host_set =~ m/^((?:[^[,]*(?:\[[^]]*\])?)*)(?:,(.*))?$/o; my $host_entry = $1; $host_set = defined($2)?$2:""; if (length($host_entry)) { my $set; $set = []; diagnostic::debug("Host entry $host_entry"); while ($host_entry =~ s/^([^[]*)\[([^]]*)\](.*)$/$3/o) { my ($prefix, $set_spec) = ($1,$2); my $values; $values = []; push @$set, $prefix; foreach my $range (split /,/, $set_spec) { # I want to be sure to comply with magical auto increment $range =~ m/^([a-zA-Z]*\d*)(?:-([a-zA-Z]*\d*))?$/o; my ($min, $max) = ($1,$2); $max = $min if not defined($max); # This is complex but necessary to ensure the iteration # eventually terminates : I need to check that the iterator # will reach the upper bound although it might be # alphanumeric (i.e. no direct numeric comparison) if (not defined($min) or (length($min) > length($max)) or ((length($min) == length($max)) and ($min gt $max))) { diagnostic::error("Error in set spec"); exit 1; } else { push @$values, $min, $max; } } push @$set, $values; } push @$set, $host_entry; push @$full_set, $set if scalar(@$set); } } return $full_set; } sub first_in_host($) { my $host_spec = shift; my $range_mode = 0; my $result = []; foreach my $part (@$host_spec) { if ($range_mode) { push @$result, 0, $part->[0]; } $range_mode = not $range_mode; } return $result; } sub increment_host_vector($$) { my $vector = shift; my $vector_index = $#$vector - 1; my $host = shift; my $host_index = $#$host - 1; my $carry = 1; while ($carry and ($vector_index >= 0)) { my $position = $vector->[$vector_index]; my $value = $vector->[$vector_index+1]; my $range = $host->[$host_index]; if ($value eq $range->[$position+1]) { $position += 2; if ($position < $#$range) { $vector->[$vector_index] = $position; $vector->[$vector_index+1] = $range->[$position]; $carry = 0; } else { $vector->[$vector_index] = 0; $vector->[$vector_index+1] = $range->[0]; } } else { $value = "".$value; $value++; $vector->[$vector_index+1] = $value; $carry = 0; } $vector_index -= 2; $host_index -= 2; } return $carry; } sub host_vector_to_value($$) { my $vector = shift; my $vector_index = 1; my $host = shift; my $range_mode = 0; my $result = ""; foreach my $part (@$host) { if ($range_mode) { $result .= $vector->[$vector_index]; $vector_index += 2; } else { $result .= $part; } $range_mode = not $range_mode; } return $result; } sub decode_exclusion_set($) { my $set = decode_host_set(shift); my $hash = {}; foreach my $host_spec (@$set) { my $index = first_in_host($host_spec); my $carry; do { my $name = host_vector_to_value($index, $host_spec); $hash->{$name} = 1; $carry = increment_host_vector($index, $host_spec); } while (not $carry); } return $hash; } sub in_exclusion_set($$) { my $value = shift; my $set = shift; return exists($set->{$value}); } sub add_peer($$@) { my $actual_command; my $peer_name = shift; my $is_gateway = shift; my ($command_args, $message_args) = option::get_config; if ($self_propagate) { $actual_command = "echo $connector::connector_functional_string;". "exec $perl_interpreter -- - -r "; } else { $actual_command = "exec $taktuk_command -r "; } $actual_command .= "-n " if $taktuk{rank} > -1; $actual_command = $actual_command.$command_args." "; foreach my $element (@_) { $message_args = $message_args.TakTuk::pack($element); } # Traversal of hosts sets to create actual connectors $peer_name = expand($peer_name); my ($set, $exclusion) = split '/', $peer_name; $set = decode_host_set($set); $exclusion = decode_exclusion_set($exclusion); foreach my $host_spec (@$set) { my $index = first_in_host($host_spec); my $carry; do { my $value = host_vector_to_value($index, $host_spec); if (not in_exclusion_set($value, $exclusion)) { $current_position++; my $position_prefix = $position?$position.".":""; my $actual_peer_command = $actual_command." -L '$value'"; if (defined($path_value)) { $actual_peer_command = 'exec /bin/sh -c "PATH='.$path_value. ';export PATH;'.$actual_peer_command.'"'; } my $connector=connector::new( login => defined($login_name)?$login_name:"", peer => $value, taktuk => $actual_peer_command, arguments => $message_args, position => $position_prefix.$current_position, group => $scheduler::current_group, gateway => $is_gateway, propagate => $self_propagate, files => $connector_send_files, timeout => $connector_timeout); diagnostic::debug("New external connector command to $value:". " $connector->{line}"); scheduler::add_connector($connector); } $carry = increment_host_vector($index, $host_spec); } while (not $carry); } } sub print($) { my $message=shift; TakTuk::syswrite(\*STDOUT,$message) or diagnostic::system; } sub print_tree($$) { my $prefix = shift; my $data = shift; my $node = shift @$data; communicator::get_root->output('info',$prefix.$node."\n"); foreach my $subtree (@$data) { print_tree($prefix." ",$subtree); } } sub decode_set($$) { my $string = shift; my $upper_bound = shift; my @result = (); my $interval; my $i; ($interval,$string) = split /\//,$string,2; while (length($interval)) { my ($min, $plus, $max) = ($interval =~ m/^(\d+)(?:(\+)|-(\d+))?$/); my @replacement = (); my $state = 0; my $length = 0; return () if not defined($min); $i = $#result; if (not defined($max)) { if (defined($plus)) { $max = $upper_bound; } else { $max = $min; } } return () if ($min !~ /^\d+$/o) or ($max !~ /^\d+$/o) or ($min > $max); while (($i > -1) and ($max < $result[$i])) { $i--; $state = 1 - $state; } unshift(@replacement, $max) if not $state; while (($i > -1) and ($min <= $result[$i])) { $i--; $state = 1 - $state; $length++; } unshift(@replacement, $min) if not $state; $i++; splice @result, $i, $length, @replacement; if (defined($string)) { ($interval,$string) = split /\//,$string,2; } else { $interval = ""; } } for ($i=1; $i<$#result; $i+=2) { splice @result, $i, 2 while (($i<$#result) and ($result[$i]+1 == $result[$i+1])); } return @result; } sub encode_set(@) { my @set = @_; my $result = ""; while (scalar(@set)) { my $min = shift @set; my $max = shift @set; $result .= "/" if ($result); if (defined($max)) { if ($min eq $max) { $result .= "$min"; } else { $result .= "$min-$max"; } } else { $result .= "$min+"; } } return $result; } ############################################### ### OPTION ### ############################################### package option; use strict; use bytes; our $local_option=0; our %handler; our %long_name; our %short_name; our %type; our %transmission_mode; our $current_value = {}; our @current_config; our $current_config_outdated = 1; our @contexts = ( {} ); sub clone($) { my $scalar = shift; my $ref = ref($scalar); my $return_value; if ($ref eq 'HASH') { $return_value = {}; foreach my $key (keys(%$scalar)) { $return_value->{$key} = clone($scalar->{$key}); } } else { $return_value = $scalar; } return $return_value; } sub register($$$$@) { my $short = shift; my $long = shift; my $opt_type = shift; my $opt_handler = shift; $long_name{$short} = $long; $short_name{$long} = $short; $handler{$short} = $opt_handler; $type{$short} = $opt_type; if (scalar(@_)) { if (ref($opt_handler) eq 'CODE') { &$opt_handler(shift); } else { $$opt_handler = shift; $contexts[0]->{$short} = clone($$opt_handler); } if (scalar(@_)) { $transmission_mode{$short} = shift; } } } sub set($$) { my $name = shift; my $value = shift; my $key = undef; my $current_type; # Hash values with type for value following if ($type{$name} =~ m/^h(.)$/) { $current_type = $1; if ($value =~ m/^([^=]+)(?:=(.+))?$/) { $key = $1; $value = $2; } else { diagnostic::warning("Option $name needs a well formed key=value ". "pair ($value doesn't match)"); $value = ""; } } else { $current_type = $type{$name}; } # Check if value is well formed if (($current_type eq "i") and defined($value) and ($value !~ /^-?\d+$/o)) { diagnostic::warning("Option $name needs a numeric argument ". "($value doesn't match)"); } elsif (($current_type eq "f") and defined($value) and ($value !~ /^(?:\d+(?:\.\d*)?|\.\d+)$/o)) { diagnostic::warning("Option $name needs a floating point argument ". "($value doesn't match)"); } else { my $destination = $handler{$name}; if (defined($key)) { if (ref($destination) eq 'CODE') { # Not handled (see apply_option) diagnostic::error("NOT EXPECTED: Found option $name with ". "code handler and hash value (key=$key)"); &$destination($key, $value); } else { diagnostic::debug("Found option $name with scalar ". "handler and hash value (key=$key)"); $$destination->{$key} = $value; } } else { if (ref($destination) eq 'CODE') { diagnostic::debug("Found option $name with code handler and ". "scalar value ". $value); &$destination($value); } else { diagnostic::debug("Found option $name with scalar ". "handler and scalar value ". $value); $$destination = $value; } } if (not $local_option) { if (exists($transmission_mode{$name})) { if ($key) { $current_value->{$name} = {} if not exists $current_value->{$name}; $current_value->{$name}->{$key} = $value; } else { $current_value->{$name}=$value; } $current_config_outdated = 1; } } else { $local_option = 0; } } } sub unset($) { my $name = shift; my $ref = $handler{$name}; $current_config_outdated = 1; if (exists($contexts[$#contexts]->{$name}) and ($#contexts > 0)) { $current_value->{$name} = clone($contexts[$#contexts]->{$name}); $$ref = clone($current_value->{$name}); } else { delete $current_value->{$name}; $$ref = clone($contexts[0]->{$name}); } } sub get_config() { if ($current_config_outdated) { my $command_args = ""; my $message_args = ""; foreach my $key (keys(%$current_value)) { if (exists($transmission_mode{$key})) { if ($transmission_mode{$key} == COMMAND_LINE) { if (ref($current_value->{$key}) eq 'HASH') { foreach my $field (keys(%{$current_value->{$key}})) { $command_args.=" -$key$field"; $command_args.="=$current_value->{$key}->{$field}" if defined($current_value->{$key}->{$field}); } } else { $command_args.=" -$key"; $command_args.="$current_value->{$key}" if ($type{$key}); } } elsif ($transmission_mode{$key} == MESSAGE) { if (ref($current_value->{$key}) eq 'HASH') { foreach my $field (keys(%{$current_value->{$key}})) { $message_args.=TakTuk::pack("-$key"); $message_args.=TakTuk::pack("$field". (defined($current_value->{$key}->{$field})? "=$current_value->{$key}->{$field}":"")); } } else { $message_args.=TakTuk::pack("-$key"); $message_args.=TakTuk::pack($current_value->{$key}) if ($type{$key}); } } else { diagnostic::warning("Internal bug in get_config"); } } } diagnostic::debug("Config : $command_args | ".$message_args."\n"); @current_config = ($command_args, $message_args); $current_config_outdated = 0; } return @current_config; } sub push_context() { my $save = {}; $save = clone($current_value); push @contexts, $save; } sub pop_context() { my $restored_context = pop @contexts; foreach my $key (keys(%{$contexts[0]})) { if (exists($restored_context->{$key})) { apply_option($key, $restored_context->{$key}); } else { if (exists($current_value->{$key})) { apply_option($key, $contexts[0]->{$key}); } } } $current_value = $restored_context; } sub apply_option($$) { my $key = shift; my $value = shift; my $ref = $handler{$key}; if (ref($value) eq 'HASH') { # Here we assume that there are no hash-type options handled with a sub # (otherwise we would need some kind of reset routine because of the # meaning of default field) $$ref = clone($value); } else { set($key, $value); } } ############################################### ### TAKTUK::SELECT ### ############################################### package TakTuk::Select; use strict; use bytes; use constant EDESIS=>1; use constant EDESNF=>2; use constant EDESNS=>3; our @select_errors = ( "Descriptor already in set", "Didn't found descriptor to remove", "Descriptor not in set"); sub error_msg($) { my $error = shift; $error--; if ($error <= $#select_errors) { return $select_errors[$error]; } else { return "Unknown error"; } } sub new () { my $class = shift; my $data = { vector=>'', handles=>[] }; bless $data, $class; return $data; } sub add ($) { my $self = shift; my $handle = shift; if (vec($self->{vector}, fileno($handle), 1) == 0) { vec($self->{vector}, fileno($handle), 1) = 1; push @{$self->{handles}}, $handle; return 0; } else { return EDESIS; } } sub remove ($) { my $self = shift; my $handle = shift; my $i=0; my $handles_list = $self->{handles}; if (vec($self->{vector}, fileno($handle), 1) == 1) { vec($self->{vector}, fileno($handle), 1) = 0; while (($i <= $#$handles_list) and ($handles_list->[$i] != $handle)) { $i++; } if ($i <= $#$handles_list) { splice @$handles_list, $i, 1; return 0; } else { return EDESNF; } } else { return EDESNS; } } sub select ($$$$) { my $read_select = shift; my $write_select = shift; my $except_select = shift; my $timeout = shift; my $rin = defined($read_select)?$read_select->{vector}:undef; my $win = defined($write_select)?$write_select->{vector}:undef; my $ein = defined($except_select)?$except_select->{vector}:undef; my $rout; my $wout; my $eout; my ($nfound, $timeleft) = CORE::select($rout=$rin, $wout=$win, $eout=$ein, $timeout); if ($nfound == -1) { return (); } elsif ($nfound == 0) { return ([],[],[]); } else { my $read_set = []; my $write_set = []; my $except_set = []; my $handle; foreach $handle (@{$read_select->{handles}}) { push(@$read_set, $handle) if (vec($rout,fileno($handle),1) == 1); } foreach $handle (@{$write_select->{handles}}) { push(@$write_set, $handle) if (vec($wout,fileno($handle),1) == 1); } foreach $handle (@{$except_select->{handles}}) { push(@$except_set, $handle) if (vec($eout,fileno($handle),1) == 1); } return ($read_set, $write_set, $except_set); } } sub handles () { my $self=shift; return @{$self->{handles}}; } ############################################### ### ARGUMENTS ### ############################################### package arguments; use strict; use bytes; our $has_readline = eval("use Term::ReadLine;1")?1:0; our $terminal = undef; our $command_separator; our $option_separator; our $escape; use constant NONE => 0; use constant BUFFER => 1; use constant LINE => 2; use constant ARGUMENT => 3; our $arguments_ended = 1; our $again=0; our @arguments = (); our $current_argument = undef; our $current_command = undef; our $current_command_separators = undef; our $current_stuff = undef; our $current_separators = undef; our $current_separators_prefix = undef; our $is_first_argument = 0; our $unescaped_stuff = undef; our $options_ended=0; sub initialize_terminal() { if ($has_readline and -t \*STDIN and -t \*STDOUT) { $terminal = Term::ReadLine->new("TakTuk"); } } sub fetch_arguments(@) { if (scalar(@_)) { unshift @arguments, @_; $arguments_ended = 0; $options_ended = 0; } } sub fetch_line($) { my $line = shift; unshift @arguments, \$line; $arguments_ended = 0; $options_ended = 0; } sub restore_last_argument() { if ($again) { diagnostic::warning("Cannot restore an ungeted argument"); } else { $again = 1; } } sub restore_last_command() { if ($current_stuff) { $current_stuff = $current_command.$current_command_separators. $current_stuff; } else { $current_stuff = $current_command; $current_separators = $current_command_separators.$current_separators; } restore_last_argument if not $again; } sub get_next_command() { get_next_stuff($option_separator.$command_separator); # if command is read from arguments, it might still contain separators # these are harmfull when parsing commands if ($current_stuff =~ m/^(.*?)([$option_separator.$command_separator]+)(.*)$/g) { $current_command = $1; $current_command_separators = $2; $current_stuff = $3; restore_last_argument if length($current_stuff); } else { $current_command = $current_stuff; $current_command_separators = $current_separators; $current_stuff = ""; $current_separators = ""; } # restores command separator just in case option_separators overlap it if ($current_command_separators =~ m/[$command_separator]/) { $current_stuff = $current_command_separators.$current_stuff; $current_command_separators = ""; # conditional because of the first restoration of this function restore_last_argument if not $again; } diagnostic::debug("Command found : [$current_command]"); return $current_command; } sub get_next_argument() { get_next_stuff($option_separator); $current_argument = $current_stuff; diagnostic::debug("Argument found : [$current_argument]"); return $current_stuff; } our %buffer; our %end; sub read_buffer_data($) { my $argument = shift; my $old_pos = undef; my $new_data; my $result; if (defined($terminal) and ($argument == \*STDIN)) { $new_data = $terminal->readline(""); if (defined($new_data)) { $new_data .= "\n"; $result = length($new_data); } else { $result = 0; } } else { $result = sysread($argument,$new_data,$TakTuk::read_size); } $old_pos = pos($buffer{$argument}); (diagnostic::system and $result = 0) if not defined($result); if ($result) { $buffer{$argument} .= $new_data if $result; pos($buffer{$argument}) = $old_pos; } else { $end{$argument} = 1; CORE::close $argument if ($argument != \*STDIN); } return $result; } sub delete_buffer($) { my $argument = shift; diagnostic::warning("Bug") if not exists($end{$argument}); delete $buffer{$argument}; delete $end{$argument}; } sub get_data_buffer() { my $data = undef; my $data_type = NONE; my $args_remaining = 1; $args_remaining = 0 if not scalar(@arguments); while (not defined($data) and $args_remaining) { my $argument = $arguments[0]; if (ref($argument) eq 'GLOB') { if ($end{$argument}) { delete_buffer($argument); shift @arguments; $args_remaining = 0 if not scalar(@arguments); } else { $buffer{$argument} = "" if not exists($buffer{$argument}); read_buffer_data($argument) if not length($buffer{$argument}); if (length($buffer{$argument})) { $data = \$buffer{$argument}; $data_type = BUFFER; } } } elsif (ref($argument) eq 'SCALAR') { if (length($$argument)) { $data = $argument; $data_type = LINE; } else { shift @arguments; $args_remaining = 0 if not scalar(@arguments); } } else { $data = \$arguments[0]; $data_type = ARGUMENT; } } return ($data, $data_type); } sub get_next_stuff($) { my $separator = shift; my $done = 0; my $data = 1; my $data_type; if ($again) { $again = 0; } else { $current_stuff = ""; $current_separators = ""; $current_separators_prefix = ""; my $data_prefix = ""; while (not $done and defined($data)) { ($data, $data_type) = get_data_buffer; if (defined($data)) { if ($data_type == ARGUMENT) { $current_stuff = $$data; shift @arguments; $is_first_argument = 1; $done = 1; } else { $$data = $data_prefix.$$data if $data_prefix; $data_prefix = ""; my $regexp; my $escape_found = 1; if (defined($escape)) { $regexp = qr/([$separator$escape])/; } else { $regexp = qr/([$separator])/; } while ($escape_found) { $escape_found = 0; if ($$data =~ m/$regexp/g) { my $character = $1; if (defined($escape) and ($character eq $escape)) { if (pos($$data) >= length($$data)) { $data_prefix = substr $$data,length($$data)-1,1; $current_stuff .= substr $$data,0,length($$data)-1; $$data = ""; } else { $escape_found = 1; pos($$data) = pos($$data) + 1; } } else { my $position = pos($$data); $current_separators = $character; if ($$data =~ m/\G([$separator]+)/g) { # isolates and stores terminal separators $current_separators .= $1; $position = defined(pos($$data))? pos($$data):length($$data); } else { pos($$data) = $position; } $current_stuff .= substr $$data, 0, $position-length($current_separators); $$data = substr $$data, $position; if (length($current_stuff)) { $is_first_argument = 0; $done = 1; } else { $current_separators_prefix .= $current_separators; } } } else { $current_stuff .= $$data; $$data = ""; $done = 1 if $data_type == LINE; } } } } } $unescaped_stuff = $current_stuff; if (defined($escape)) { $current_stuff =~ s/$escape(.)/$1/g; } $arguments_ended = 1 if not length($current_stuff); } } sub get_parameters() { my $left_brace = undef; my $right_brace; my $parameters = ""; my $end_expression; get_next_stuff($option_separator); if (length($current_stuff) != 1) { if (length($current_stuff)) { diagnostic::error("TakTuk has changed: now commands parameters ". "should be separated from braces in $current_stuff"); } else { diagnostic::error("Missing brace in parameters"); } return undef; } $left_brace = $current_stuff; $right_brace = $left_brace; if ($left_brace =~ m/[({[]/) { $right_brace =~ tr/({[/)}]/; } my $separator = $option_separator.$command_separator; my $last_separators = ""; my $done = 0; get_next_stuff($separator); $current_separators_prefix =~ s/^[^$command_separator]+//; while (not $done) { if ($arguments_ended) { diagnostic::error("Missing closing brace or separator before ". "closing brace in $parameters"); return undef; } elsif (length($parameters) and ($unescaped_stuff eq $right_brace)) { my $remaining = $last_separators.$current_separators_prefix; $remaining =~ s/[^$command_separator]+$//; $parameters .= $remaining; if ($current_separators =~ /[$command_separator]/) { $current_stuff = $current_separators; $current_separators = ""; restore_last_argument; } $done = 1; } elsif (length($parameters) and $is_first_argument and ($unescaped_stuff =~ s/^$right_brace([$separator].*)$/$1/)) { $current_stuff = substr $current_stuff,1; restore_last_argument if ($current_stuff =~ /[^$option_separator]/); $done = 1; } else { $parameters .= $last_separators.$current_separators_prefix. $current_stuff; $last_separators = $current_separators; $last_separators = " " if not length($last_separators); get_next_stuff($separator); } } diagnostic::debug("Parameters found : [$parameters]"); return $parameters; } sub skip_command_separator() { my $done = 0; my $data; my $data_type = NONE; if ($again) { $data = \$current_stuff; } else { ($data, $data_type) = get_data_buffer; } while (not $done and not $arguments_ended) { if (defined($data)) { if ($$data =~ s/^[$option_separator]*[$command_separator]+[$option_separator]*//) { $done = 1; shift @arguments if (not length($$data) and ($data_type == ARGUMENT)); } else { if ($$data =~ m/^[$option_separator]*$/) { $$data = ""; shift @arguments if ($data_type == ARGUMENT); ($data, $data_type) = get_data_buffer; } else { diagnostic::warning("Missing command separator"); $done = 1; } } } else { $arguments_ended = 1; } } $again = 0 if not length($current_stuff); } sub terminate_arguments_parsing() { while (scalar(@arguments)) { my $argument = shift @arguments; CORE::close $argument if ref($argument) eq 'GLOB'; } $arguments_ended = 1; } sub args_file($) { my $file = shift; my $file_handle = undef; if (not ($file_handle = general::open_file($file))) { $main::terminate = 1; } else { fetch_arguments($file_handle); } } sub dont_self_propagate() { if ($general::self_propagate) { option::set("s", 0); } } sub machines_file($) { my $file = shift; my $file_handle = undef; if (not ($file_handle = general::open_file($file))) { $main::terminate = 1; } else { while (my $line = <$file_handle>) { my ($peer_name, $comment) = split /\s+/,$line,2; general::add_peer($peer_name, 0) if $peer_name; } CORE::close $file_handle if $file_handle != \*STDIN; } } my $is_gateway = 0; sub machine($) { my $peer = shift; my @peer_arguments=(); get_next_argument; if ($current_argument eq "-[") { my $count = 1; while ($count and !$arguments_ended) { get_next_argument; $count-- if ($current_argument eq "-]"); $count++ if ($current_argument eq "-["); push @peer_arguments, $current_argument; } if ($count) { diagnostic::error("Invalid -[ and -] imbrication"); exit(1); } else { pop @peer_arguments; } } else { restore_last_argument; } general::add_peer($peer, $is_gateway, @peer_arguments); $is_gateway = 0; } sub gateway($) { $is_gateway = 1; machine(shift); } sub localhost($) { my $hostname = shift; $general::host = $hostname; $ENV{TAKTUK_HOSTNAME} = $hostname; } sub not_root() { if ($general::root) { # as soon as I know I'm not root I need a source connector for # the diagnostic package to work my $connector = connector::new( write =>\*STDIN, read =>\*STDOUT, type =>settings::FD); # DO NOT CLOSE STDERR !!! # Actually some errors (such as error produced by connectors) use # STDERR to print a diagnostic message. # If I close STDERR, future forked connectors will redirect the # descriptor they know as STDERR wich is likely to have been reused by # some call to socketpair when creating the connector. # The result is that the connector is polluted by message which are not # conformant to the protocol. # This used to cause freeze in some parts of the taktuk deployment. #close(STDERR) or diagnostic::system; $connector->{remove_handler} = \&communicator::remove_source; communicator::add_connector($connector, 'sources'); $general::root = 0; } } sub print_defaults() { foreach my $key (keys(%long_name)) { if (not (ref($handler{$key}) eq 'CODE')) { my $name = $long_name{$key}; if ($type{$key} =~ m/^h.$/) { foreach my $field (keys(%${$handler{$key}})) { my $line = uc("TAKTUK_".$name."_".$field); my $value = defined(${$handler{$key}}->{$field})? ${$handler{$key}}->{$field}:""; $line =~ tr/-/_/; communicator::get_root->output('info', $line."=".$value."\n"); } } else { my $line = uc("TAKTUK_".$name); my $value = defined(${$handler{$key}})? ${$handler{$key}}:""; $line =~ tr/-/_/; communicator::get_root->output('info', $line."=".$value."\n"); } } } $main::terminate = 1; } sub print_package($) { my $package_name = shift; general::load_taktuk_package($package_name); communicator::get_root->output('info',$general::taktuk_package); $main::terminate = 1; } sub print_version() { communicator::get_root->output('info', "TakTuk version $TakTuk::VERSION ". "release $TakTuk::RELEASE netproto $TakTuk::VERSION_NETPROTO\n"); } sub print_version_quit() { print_version; $main::terminate = 1; } sub print_k() { my $source="A-Za-z0-9 ,.;:?!"; my $dest="M-Za-z0-9 ,.;:?!A-L"; my $line = <output('info', $line); $main::terminate = 1; } sub init() { option::register("B","worksteal-behavior","hs", \$scheduler::worksteal, { initial => 1, growth => '$last_given * 2', limit => '$available / 2' }, option::MESSAGE); option::register("C","command-separator","s", \$arguments::command_separator,',;\n',option::MESSAGE); option::register("D","debug","hi",\$diagnostic::package_level, { default=>2 },option::COMMAND_LINE); option::register("E","escape-character","s",\$arguments::escape,undef, option::MESSAGE); option::register("F","args-file","s",\&args_file); option::register("G","gateway","s",\&gateway); option::register("I","perl-interpreter","s",\$general::perl_interpreter, "perl",option::MESSAGE); option::register("L","localhost","s",\&localhost); option::register("M","my","",\$option::local_option); option::register("O","option-separator","s", \$arguments::option_separator,'\s',option::MESSAGE); option::register("P","print-defaults","",\&print_defaults); option::register("R","output-redirect","hs",\$general::redirect, { "default" => ">&=1", "taktuk" => ">&=2" }, option::MESSAGE); option::register("S","send-files","s",\$general::connector_send_files, "", option::MESSAGE); option::register("T","taktuk-command","s",\$general::taktuk_command, $0,option::MESSAGE); option::register("V","path-value","s",\$general::path_value, undef, option::MESSAGE); option::register("W","window-adaptation","i",\$scheduler::window_adaptation, 0,option::MESSAGE); option::register("b","begin-group","",\&begin_group); option::register("c","connector","s",\$general::connector_command, "ssh -o StrictHostKeyChecking=no -o BatchMode=yes", option::MESSAGE); option::register("d","dynamic","i",\&dynamic,0,option::MESSAGE); option::register("e","end-group","",\&end_group); option::register("f","machines-file","s",\&machines_file); option::register("g","time-granularity","f",\$communicator::select_timeout, 1, option::MESSAGE); option::register("h","help","",\&general::print_help_quit); option::register("i","interactive","",\$main::forced_interactive); option::register("k","cook","",\&arguments::print_k); option::register("l","login","s",\$general::login_name, undef, option::MESSAGE); option::register("m","machine","s",\&machine); option::register("n","no-numbering","",\$main::no_numbering,0, option::COMMAND_LINE); option::register("o","output-template","hs",\$general::template, { default => '"$host-$rank: $command ($pid): $type > $line\n"', connector => '"$host: $peer ($pid): $type > $line\n"', info => '"$line$eol"', state => '($line == TakTuk::CONNECTION_FAILED)?'. '"$host: $peer ($pid): $type > ".'. 'event_msg($line)."\n":undef', status => '"$host-$rank: $command ($pid): $type > ". "Exited with status $line\n"', # The following is only available when using POSIX package # (WIFEXITED($line)?"Exited with status ".WEXITSTATUS($line) # :(WIFSIGNALED($line)?"Signaled with signal ".WTERMSIG($line) # :(WIFSTOPPED($line)?"Stopped with signal ".WSTOPSIG($line) # :"")))."\n"', taktuk => '"[ TAKTUK $level_name ] $host (PID $pid) Line ". "$line_number ($package) Release $release\n$line\n"', message => '"$host-$rank: message from $from: $line\n"' }, option::MESSAGE); option::register("p","print-package","s",\&print_package); option::register("r","not-root","",\¬_root); option::register("s","self-propagate","",\$general::self_propagate, 0,option::MESSAGE); option::register("t","timeout","f",\$general::connector_timeout,0, option::MESSAGE); option::register("u","cache-limit","i",\$communicator::cache_limit, -1, option::MESSAGE); option::register("v","version","",\&print_version_quit); option::register("w","window","i",\$scheduler::window, 10, option::MESSAGE); option::register("z","dont-self-propagate","",\&dont_self_propagate); foreach my $full_name (keys(%ENV)) { my $variable; if ($full_name =~ m/^TAKTUK_(MY_)?(.+)$/) { $option::local_option = $1?1:0; $variable = $2; } else { undef($variable); } if (defined($variable)) { my $prefix; my $qualifier; $variable = lc($variable); $variable =~ m/^(.*?)(?:_([^_]+))?$/; ($prefix, $qualifier) = ($1, $2); $prefix =~ tr/_/-/; if (defined($qualifier)) { if (exists($short_name{$prefix})) { my $short = $short_name{$prefix}; option::set($short, "$qualifier=$ENV{$full_name}"); } else { $prefix .= "-$qualifier"; $qualifier = undef; } } if (not defined($qualifier)) { if (exists($short_name{$prefix})) { my $short = $short_name{$prefix}; option::set($short, $ENV{$full_name}); } else { diagnostic::warning("Unknown setting $full_name"); } } } $option::local_option = 0; } } sub parse_options() { get_next_argument(); while (not $options_ended) { if ($current_argument =~ s/^-//o) { my @names; if ($current_argument =~ s/^-(.*)$//o) { my $name = $1; if ($name) { my $short = $short_name{$name}; if (not defined($short)) { diagnostic::warning("Unknown long option $name"); general::print_help_quit if ($general::root); } else { $current_argument = $short; } } else { $options_ended = 1; } } while ($current_argument) { $current_argument =~ s/^(.)//o; my $name = $1; if (exists($type{$name})) { if ($type{$name}) { get_next_argument if not length $current_argument; if ($arguments_ended) { diagnostic::error("Missing argument") } else { option::set($name, $current_argument); } $current_argument = ""; } else { option::set($name, 1); } } else { diagnostic::warning("Unknown short option $name"); general::print_help_quit if ($general::root); } } get_next_argument; } else { # As a special case, the empty option might appear when using # custom option separator characters if (($current_argument =~ m/^\s*$/) and not $arguments_ended) { get_next_argument; } else { $options_ended=1; restore_last_argument if ($current_argument !~ m/^\s*$/); } } } check_separators_integrity(); } sub check_separators_integrity() { diagnostic::warning("Options and command separators intersect") if ($option_separator =~ m/[$command_separator]/) or ($command_separator =~ m/[$option_separator]/); my $chaine = "-/0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"; diagnostic::warning("Options or command separators contain one of :". "-/1-9a-zA-Z") if ($chaine =~ m/[$command_separator]/) or ($chaine =~ m/[$option_separator]/); } sub begin_group() { scheduler::begin_group; option::push_context; } sub end_group() { option::pop_context; scheduler::end_group; } sub dynamic($) { scheduler::set_limit(shift); } ############################################### ### DIAGNOSTIC ### ############################################### package diagnostic; use strict; use bytes; our $package_level; our $depth = 0; our $level=""; our $level_name=""; our $package=""; our $filename=""; our $line_number=""; our $special_enabled=0; sub print_info($$$) { $level = shift; $level_name = shift; ($package, $filename, $line_number) = caller(1); my $level_ok = defined($package_level->{$package})? $package_level->{$package}<=$level: $package_level->{default}<=$level; # depth is here to avoid infinite recursion when calling print_info from # the code executed by print_info (this is the case for instance when # debugging the send_message sub) $depth++; if ($level_ok and ($depth < 3)) { communicator::get_root->output('taktuk',shift); } $depth--; } sub system () { print_info(3,"ERROR : SYSTEM", "Error $!"); } sub debug ($) { print_info(1,"DEBUG", shift); } sub error ($) { print_info(3,"ERROR", shift); } sub warning ($) { print_info(2,"WARNING", shift); } sub special ($) { print_info(3, "SPECIAL", shift) if $special_enabled; } ############################################### ### TAKTUK ### ############################################### package TakTuk; use strict; use bytes; our %buffer; sub no_flush($) { my $new_fd = shift; binmode($new_fd); my $old_fd=select($new_fd); $|=1; select($old_fd); } sub unpack($) { my $buffer = shift; if (length($buffer) >= 4) { my $size; ($size) = CORE::unpack("N",$buffer); if (length($buffer) >= $size+4) { return (substr($buffer, 4, $size), substr($buffer, $size+4)); } else { return (undef, $buffer); } } else { return (undef, $buffer); } } sub pack($) { my $full_message = shift; my $size = length($full_message); return CORE::pack("N",$size).$full_message; } sub decode($) { my $message = shift; my $message_code = substr($message, 0, 1); my $body = substr($message, 1); return ($message_code, $body); } sub encode($$) { my $message = shift; my $body = shift; return ($message).($body); } sub syswrite ($$) { my $unrecoverable = 0; my $write_fd = shift; my $full_message = shift; my $result; my $total_expected = length($full_message); my $call_expected = $write_size; my $offset = 0; while ($total_expected and not $unrecoverable) { $call_expected = $total_expected if $call_expected > $total_expected; $result = CORE::syswrite($write_fd, $full_message, $call_expected, $offset); if ($result) { $total_expected -= $result; $offset += $result; } else { if ($!{EAGAIN}) { # In this case the ressource is temporarily unavailable # This happens on a heavily loaded system in which too many # writes are pending # Here there are two options : # 1) we sleep for some time loosing potential write # opportunities # 2) we make another try right now potentially overloading the # system # In any case the message server is blocked and it would be # better to find another solution #print STDERR "Delayed write ... $total_expected more to go"; #sleep 1; } else { # This is more serious, here we probably eventually end badly print STDERR "Unrecoverable write error\n"; $unrecoverable = 1; # I guess we should end up even more badly by killing any child # connector (to avoid partially deployed crashed instances) } } } if ($unrecoverable) { return undef; } else { return 1; } } sub read_data ($) { my $descriptor = shift; my $new_data; my $result = sysread($descriptor, $new_data, $read_size); return undef if not defined($result); if ($result and exists($buffer{$descriptor})) { $buffer{$descriptor} .= $new_data; } else { $buffer{$descriptor} = $new_data; } return $result; } sub get_message ($) { my $descriptor = shift; if (exists($buffer{$descriptor})) { my ($message, $new_buffer) = TakTuk::unpack($buffer{$descriptor}); if (defined($new_buffer)) { $buffer{$descriptor} = $new_buffer; } else { delete($buffer{$descriptor}); } if (defined($message)) { return $message; } else { return ""; } } else { return ""; } } sub find_sequence($$) { my $descriptor = shift; my $sequence = shift; my $found = undef; if (exists($buffer{$descriptor})) { my $position; $position = index($buffer{$descriptor},"\n"); while (($position >= 0) and not defined($found)) { my $string; $string = substr($buffer{$descriptor}, 0, $position); $buffer{$descriptor} = substr($buffer{$descriptor}, $position+1); if ($string =~ m/($sequence)/) { $found = $1; } else { $position = index($buffer{$descriptor},"\n"); } } } return defined($found)?$found:""; } sub flush_buffer($) { my $descriptor = shift; if (exists($buffer{$descriptor})) { my $result = $buffer{$descriptor}; delete($buffer{$descriptor}); return $result; } else { return ""; } } our $control_channel_read; our $control_channel_write; if ($ENV{TAKTUK_CONTROL_READ}) { open($control_channel_read, "<&=". $ENV{TAKTUK_CONTROL_READ}) or print("Error opening taktuk control channel : $!\n"); binmode($control_channel_read); } if ($ENV{TAKTUK_CONTROL_WRITE}) { open($control_channel_write, ">&=". $ENV{TAKTUK_CONTROL_WRITE}) or print("Error opening taktuk control channel : $!\n"); no_flush($control_channel_write); } use constant ESWRIT=>1; use constant EFCLSD=>2; use constant ESREAD=>3; use constant EARGTO=>4; use constant EARGBD=>5; use constant ETMOUT=>6; use constant EINVST=>7; use constant EINVAL=>8; use constant ENOERR=>9; our @taktuk_errors = ( '"TakTuk::syswrite failed, system message : $!"', '"TakTuk engine closed the communication channel"', '"sysread error, system message : $!"', '"field \"to\" not defined"', '"field \"body\" not defined"', '"timeouted"', '"invalid destination set specification"', '"invalid field required in get"', '"no error"' ); sub error_msg($) { my $error = shift; $error--; if ($error <= $#taktuk_errors) { return eval($taktuk_errors[$error]); } else { return "Unknown error"; } } sub send(%) { my %argument = @_; my $from = $ENV{TAKTUK_RANK}; my $target; if (not exists($argument{to})) { $error=EARGTO; return undef; } my $to = $argument{to}; if (not exists($argument{body})) { $error=EARGBD; return undef; } my $body = $argument{body}; if (not exists($argument{target})) { $target = "any"; } else { $target = $argument{target}; } my $full_message = TakTuk::encode($TakTuk::send_to, TakTuk::pack($to). TakTuk::encode($TakTuk::message, TakTuk::pack($target). TakTuk::pack($from). $body)); my $result = TakTuk::syswrite($control_channel_write, TakTuk::pack($full_message)); $error=ESWRIT if not $result; return $result?$result:undef; } sub recv(%) { my %argument = @_; my $result; my $message; # Notification of the recv to the server # Necessary in all cases as a timer should not be created if a message is # already there (we have to count waiters internally) if (exists($argument{timeout})) { $message = TakTuk::encode($TakTuk::wait_message, $argument{timeout}); } else { $message = $TakTuk::wait_message; } $result = TakTuk::syswrite($control_channel_write,TakTuk::pack($message)); if (not $result) { $error=ESWRIT; return (); } # Now we actually get the message my $message_code; ($message_code,$message) = wait_message($TakTuk::timeout,$TakTuk::message); if (defined($message_code)) { my $from; if ($message_code eq $TakTuk::timeout) { $error=ETMOUT; return (); } ($from, $message) = TakTuk::unpack($message); return ($from, $message); } else { return (); } } our @messages; sub wait_message(@) { my @codes = @_; my ($code, $body); my $result = 1; my $message; for (my $i=0; $i<$#messages; $i+=2) { foreach my $message_code (@codes) { if ($messages[$i] eq $message_code) { ($code, $body) = ($messages[$i], $messages[$i+1]); splice @messages, $i, 2; return ($code, $body); } } } while ($result) { $message = get_message($control_channel_read); while ($message) { ($code, $body) = TakTuk::decode($message); foreach my $message_code (@codes) { return ($code, $body) if ($message_code eq $code); } push @messages, $code, $body; $message = get_message($control_channel_read); } $result = read_data($control_channel_read); } if (defined($result)) { $error=EFCLSD; } else { $error=ESREAD; } return (); } sub get($) { my $result; my $message; # Infos query $message = TakTuk::encode($TakTuk::get_info, shift); $result = TakTuk::syswrite($control_channel_write,TakTuk::pack($message)); if (not $result) { $error=ESWRIT; return -1; } # Now we actually get the message my $message_code; ($message_code,$message) = wait_message($TakTuk::info,$TakTuk::invalid); if (defined($message_code)) { if ($message_code eq $TakTuk::invalid) { $error=EINVAL; return -1; } else { $error=ENOERR; } return $message; } else { return -1; } } ############################################### ### COMMAND ### ############################################### package command; use strict; use bytes; use Fcntl; sub new (%) { my $data = { @_ }; if (exists($data->{line}) and (exists($data->{read}) or exists($data->{write}) or exists($data->{error}) or exists($data->{type}))) { diagnostic::error("Command built from both a command line and fds"); } bless($data); return $data; } sub run ($) { my $self=shift; my $command=shift; my ($father_read,$father_write,$father_error); my ($child_read,$child_write,$child_error); # Creates communication channel undef($father_read); undef($father_write); undef($child_read); undef($child_write); if (general::has_socketpair) { ($father_read, $child_read) = general::create_socketpair(); return 0 unless defined($father_read) and defined($child_read); $father_write = $father_read; $child_write = $child_read; $self->{type} = settings::SOCKET; } else { if (not pipe($child_read, $father_read)) { diagnostic::system; return 0; } if (not pipe($father_write, $child_write)) { diagnostic::system; return 0; } $self->{type} = settings::FD; } undef($father_error); undef($child_error); if (not pipe($father_error,$child_error)) { diagnostic::system; return 0; } # Creates a control channel if this is a new command # Be sure to store the control side in a persistent place, otherwise # Perl frees it and closes the descriptors !!! my ($taktuk_side, $command_side); if ($command) { ($taktuk_side, $command_side) = communicator::create_channel; if (defined($command_side)) { $taktuk_side->{pending_messages} = 0; $taktuk_side->{remove_handler} = \&communicator::remove_control; communicator::add_connector($taktuk_side, 'control'); $self->{control} = $taktuk_side; } else { # Annoying, without control channel half of the functionnalities # are missing... diagnostic::error("Degradated mode (no control channel)"); } } # Fork a new process to execute the connector command $self->{start_date} = timer::current_time; my $pid; $pid = fork; if (not defined($pid)) { diagnostic::system; return 0; } $self->{pid} = $pid; $communicator::c_from_pid{$pid} = $self; if ($pid) { # father diagnostic::debug("New child with pid $pid created". " to execute $self->{line}"); CORE::close($child_read) or diagnostic::system; (CORE::close($child_write) or diagnostic::system) unless general::has_socketpair; CORE::close($child_error) or diagnostic::system; $self->{read} = $father_read; $self->{write} = $father_write; $self->{error} = $father_error; return $self; } else { # We create a new grp to be able to kill the command and its # subprocesses (if any) setpgrp(0,0) or diagnostic::system; # child if ($command) { # in this case, this is a command, we have to maintain control $ENV{TAKTUK_CONTROL_READ} = fileno($command_side->{write}); $ENV{TAKTUK_CONTROL_WRITE} = fileno($command_side->{read}); fcntl($command_side->{read}, F_SETFD, 0) or die $!; fcntl($command_side->{write}, F_SETFD, 0) or die $!; } CORE::close($father_read) or die $!; (CORE::close($father_write) or die $!) unless general::has_socketpair; CORE::close($father_error) or die $!; open(STDIN,"<&".fileno($child_read)) or die $!; open(STDOUT,">&".fileno($child_write)) or die $!; open(STDERR,">&".fileno($child_error)) or die $!; CORE::close($child_read) or die $!; CORE::close($child_error) or die $!; exec($self->{line}) or die "Exec failed : $!"; } } sub cleanup() { my $self = shift; foreach my $part ('read','write','error') { if (exists $self->{$part}) { #diagnostic::warning("$part still exists at connector termination"); #diagnostic::warning("Connector details ".join(' ', %$self)); $self->close($part); } } } sub my_shutdown($$) { my $fd = shift; my $how = shift; if (not shutdown($fd,$how)) { # Socket was already disconnected ? could be worse diagnostic::system if not $!{ENOTCONN}; } } sub close($) { my $self=shift; my $part=shift; if ($part eq 'error') { if (exists($self->{error})) { TakTuk::flush_buffer($self->{error}); CORE::close($self->{error}) or diagnostic::system; delete $self->{error}; } else { diagnostic::debug("Cannot close error : does not exists"); } } else { if (exists($self->{type}) and exists($self->{$part})) { if ($self->{type} == settings::FD) { TakTuk::flush_buffer($self->{write}) if $part eq 'write'; # here we close a simple fd (e.g. read or write from stdin/out) CORE::close($self->{$part}) or diagnostic::system; delete $self->{$part}; } elsif ($self->{type} == settings::SOCKET) { if ($part eq 'read') { # finished writing to read channel of child command my_shutdown($self->{read},1); delete $self->{read}; } elsif ($part eq 'write') { TakTuk::flush_buffer($self->{write}); # finished reading from write channel of child command my_shutdown($self->{write},0); delete $self->{write}; } else { diagnostic::warning("Invalid part for socket close"); } } else { diagnostic::warning("Unknown command type : BUG"); } } else { # We do not want of a warning if things come from several # successive eof diagnostic::warning("Closing a non existant command type or part") unless (exists($self->{type}) and ($part eq 'read')); } } } sub output($$) { my $self = shift; my $type = shift; my $message = shift; my $template; my $fd; if (exists($general::template->{$type})) { $template = $general::template->{$type}; } else { $template = $general::template->{default}; } if (exists($general::redirect->{$type})) { $fd = $general::redirect->{$type}; } else { $fd = $general::redirect->{default}; } if (defined($template)) { my $command = exists($self->{line})?$self->{line}:""; my $count = $general::taktuk{count}; my $filename = $diagnostic::filename; my $host = $general::host; my $level = $diagnostic::level; my $level_name = $diagnostic::level_name; my $line_number = $diagnostic::line_number; my $package = $diagnostic::package; my $peer = exists($self->{peer})?$self->{peer}:""; my $peers_given = exists($self->{given_list})?$self->{given_list}:""; my $peer_position = exists($self->{position})?$self->{position}:""; my $pid = exists($self->{pid})?$self->{pid}:$$; my $position = $general::position; my $rank = $general::taktuk{rank}; my $release = $TakTuk::RELEASE; my $version = $TakTuk::VERSION; my $netproto = $TakTuk::VERSION_NETPROTO; my $start_date = exists($self->{start_date})?$self->{start_date}:""; my $stop_date = exists($self->{stop_date})?$self->{stop_date}:""; my $reply_date = exists($self->{reply_date})?$self->{reply_date}:""; my $init_date = exists($self->{init_date})?$self->{init_date}:""; my $from = $handlers::from; my $line; my $eol; my $to_be_sent = ""; pos($message) = 0; while ($message =~ /\G([^\n]*)(\n|$)/go) { $line = $1; $eol = $2; if (length($line) or length($eol)) { my $result = eval("no strict 'vars'; $template"); $to_be_sent .= $result if defined($result) and length($result); } } if (length($to_be_sent)) { communicator::process_message($self, TakTuk::encode($TakTuk::forward_up, TakTuk::encode($TakTuk::output, TakTuk::pack($fd).$to_be_sent))); } } } our @event_messages = ( "TakTuk is ready", "TakTuk is numbered", "TakTuk is terminated", "Connection failed", "Connection initialized", "Connection lost", "Command started", "Command failed", "Command terminated", "Numbering update failed", "Pipe input started", "Pipe input failed", "Pipe input terminated", "File reception started", "File reception failed", "File reception terminated", "File send failed", "Invalid target", "No target", "Message delivered", "Invalid destination", "Destination not available anymore", "Local wait complete", "Wait of all instances complete" ); sub event_msg($) { my $event = shift; if (($event < 0) or ($event > $#event_messages)) { return "Unknown event code"; } else { return $event_messages[$event]; } } ############################################### ### CONNECTOR ### ############################################### package connector; use strict; use bytes; use File::Basename; our @ISA=qw(command); our $init_string="Taktuk initialization, version "; our $connector_functional_string="Taktuk connector functional"; # It is important to keep the temporal total order on state # as it will be used later our $pre_load=1; our $simple_connector=2; our $initialized=3; sub new (%) { my $data=command::new(@_, data_handler=>\&communicator::process_messages); return 0 if not $data; $data->{given} = []; $data->{last_given} = 0; $data->{count} = 0; $data->{pending_results} = {}; if (exists($data->{peer})) { if ($data->{propagate}) { $data->{state}=$pre_load; } else { $data->{state}=$simple_connector; } my $command_line = $general::connector_command; $command_line .= " -l $data->{login}" if ($data->{login}); $data->{line} = "$command_line $data->{peer} '$data->{taktuk}'"; } else { $data->{state} = $initialized; } bless($data); return $data; } sub read_data ($) { my $self = shift; my $descriptor = shift; my $result = TakTuk::read_data($descriptor); (diagnostic::system and $result = 0) if not defined($result); #diagnostic::debug("Data read @TakTuk::buffer"); my $write = undef; my $error = undef; $write = $self->{write} if exists $self->{write}; $error = $self->{error} if exists $self->{error}; if ($write and ($descriptor == $write)) { if (($result >0) and not $self->{timeouted}) { if ($self->{state} < $initialized) { my $argument = 0; $self->{reply_date} = timer::current_time unless exists($self->{reply_date}); if ($self->{state} == $pre_load) { if (length(TakTuk::find_sequence($descriptor, ".*$connector_functional_string"))) { $argument = 1; } } elsif ($self->{state} == $simple_connector) { my $sequence = TakTuk::find_sequence($descriptor, ".*$init_string"."[0-9]+[.0-9]*"); if (length($sequence)) { $argument = $sequence; $argument =~ s/.* (.*)$/$1/o; } } else { diagnostic::warning("Wrong connector state : ". $self->{state}); } if ($argument > 0) { my $connector_input = $self->{read}; if ($self->{state} < $simple_connector) { general::load_taktuk_code; communicator::post_write($connector_input, $general::taktuk_code) or diagnostic::system; } else { diagnostic::warning("Protocol versions do not match") if $argument != $TakTuk::VERSION_NETPROTO; } $self->{state} += 1; diagnostic::debug("Connector $self->{line} promoted to ". "state ".$self->{state}); synchronizer::initialization_complete($self) if ($self->{state} == $initialized); } } } } elsif ($error and ($descriptor == $error)) { if ($result >0) { my $new_data = TakTuk::flush_buffer($descriptor); $self->output('connector', $new_data); } } else { diagnostic::warning("Unknown descriptor"); } return $result; } sub send_parameters() { my $self = shift; if ($self->{propagate}) { general::load_taktuk_code; $self->send_message(TakTuk::encode($TakTuk::taktuk_code, $general::taktuk_code)); } $self->send_message(TakTuk::encode($TakTuk::position,"$self->{position}")); $self->send_message($TakTuk::gateway) if $self->{gateway}; if (length($self->{files})) { foreach my $transfer (split /,/,$self->{files}) { my ($source, $destination) = split /:/, $transfer; $self->send_file("", $source, $destination); } } my $arguments = $self->{arguments}; diagnostic::debug("Arguments : ".$arguments); $self->send_message(TakTuk::encode($TakTuk::arguments, $arguments)); } sub get_message () { my $self = shift; if ($self->{state} >= $initialized) { if (exists($self->{write})) { return TakTuk::get_message($self->{write}); } else { return ""; } } else { return ""; } } sub send_message($) { my $self = shift; my $write_fd = $self->{read}; my $message = shift; my $full_message = TakTuk::pack($message); if (not communicator::post_write($write_fd, $full_message)) { diagnostic::error("Error in send message [$full_message], error : $!"); } } sub route_file_part($$) { my $self = shift; my $prefix = shift; my $message = shift; if ($prefix) { $message = TakTuk::encode($prefix, $message); communicator::process_message($self, $message); } else { $self->send_message($message); } } sub send_file($$$) { my $self = shift; my $prefix = shift; my $source = shift; my $destination = shift; my $permissions; my $file = undef; my $result; my $type; $source = general::expand($source, position=>$general::position, host=>$general::host, rank=>$general::taktuk{rank}); if (-d $source) { $type = 1; $result = open($file,"cd $source && tar c . |"); } else { $type = 0; $result = open($file, $source); } if ($result) { my $read_result; my $buffer; my $message; binmode($file) or diagnostic::system; $permissions=(stat($source))[2] & 07777; $message = TakTuk::pack($general::position). TakTuk::pack($general::host). TakTuk::pack($general::taktuk{rank}). TakTuk::pack($type). TakTuk::pack($permissions). TakTuk::pack(basename($source)). $destination; $message = TakTuk::encode($TakTuk::file, $message); $self->route_file_part($prefix, $message); while ($read_result = sysread($file, $buffer, $TakTuk::read_size/2)) { $message = TakTuk::encode($TakTuk::file, TakTuk::pack($general::position).$buffer); $self->route_file_part($prefix, $message); } diagnostic::system if not defined($read_result); $message = TakTuk::encode($TakTuk::file, TakTuk::pack($general::position)); $self->route_file_part($prefix, $message); CORE::close($file) or diagnostic::system; } else { diagnostic::system; $self->output('state',TakTuk::FILE_SEND_FAILED); } } our @pack_fields = ('login', 'peer', 'taktuk', 'arguments', 'position', 'gateway', 'propagate', 'files', 'timeout'); sub pack() { my $self = shift; my $result = ""; foreach my $field (@pack_fields) { $result .= TakTuk::pack($self->{$field}); } return $result; } sub unpack($) { my $buffer = shift; my %data = (); foreach my $field (@pack_fields) { ($data{$field}, $buffer) = TakTuk::unpack($buffer); } my $connector = connector::new(%data); return ($connector, $buffer); } sub cancel() { my $connector = shift; # On some platforms (such as grid 5000) the connection processus has an # elevated status and cannot be killed. Thus, the safest method is to # disconnect the process from TakTuk before trying to kill it (possibly # without success). $connector->{canceled} = 1; communicator::remove_descriptor($connector, $connector->{write}) if exists($connector->{write}); communicator::remove_descriptor($connector, $connector->{error}) if exists($connector->{error}); # whe should also avoid to remove the connector a second time when reaping # the children if (exists($communicator::c_from_pid{$connector->{pid}})) { delete $communicator::c_from_pid{$connector->{pid}}; } CORE::kill -9, $connector->{pid}; } ############################################### ### COMMUNICATOR ### ############################################### package communicator; use strict; use bytes; use POSIX ":sys_wait_h"; use Errno; use Fcntl; our $sinks_number = 0; our $initialized_sinks_number = 0; our $target_number = 0; our $select; our $pending_writes_select; our $select_timeout; our $connections; our $end = 0; our %c_from_fd; our %c_from_target = (local_commands=>{}, control=>{}); our %c_from_pid; our %pending_writes; our $pending_writes_number = 0; our $pending_size = 0; our $cache_limit; our %pending_termination_handler; our %pending_termination_argument; # default connector to which it is only possible to write # (used by get_root as a last ressort, useful for diagnostic) our $default_root = connector::new( read => \*STDOUT, type => settings::FD); sub create_channel() { # Now I create the control channel my $communicator_read = undef; my $communicator_write = undef; my $control_read = undef; my $control_write = undef; my $type = undef; if (general::has_socketpair) { ($communicator_read, $control_read) = general::create_socketpair(); return () unless defined($communicator_read) and defined($control_read); $communicator_write = $communicator_read; $control_write = $control_read; $type = settings::SOCKET; } else { if (not pipe($communicator_read, $control_write) or not pipe($control_read, $communicator_write)) { diagnostic::system; return (); } $type = settings::FD; } # Probably redundant with what's done in add_connector, but doesn't harm TakTuk::no_flush($communicator_write); TakTuk::no_flush($control_write); my $communicator_connector = connector::new('read' =>$communicator_write, 'write' =>$communicator_read, 'type' =>$type); my $control_connector = connector::new('read' =>$control_write, 'write' =>$control_read, 'type' =>$type); return ($communicator_connector, $control_connector); } sub init() { $select = TakTuk::Select->new() or diagnostic::error("Select creation"); $pending_writes_select = TakTuk::Select->new() or diagnostic::error("Select creation"); $connections = {}; $connections->{sources} = []; $connections->{sinks} = []; $connections->{control} = []; $connections->{interpreter} = []; $connections->{local_commands} = []; $connections->{pipe} = []; $ENV{TAKTUK_HOSTNAME} = $general::host; } sub cleanup() { foreach my $connector (@{$connections->{sinks}}, @{$connections->{control}}) { $connector->cleanup; } } sub get_connections($) { my $set_name = shift; my $list = $connections->{$set_name}; return @$list; } sub get_root() { my $sources = $connections->{sources}; if (defined($sources) and scalar(@$sources)) { return $sources->[0]; } else { return $default_root; } } sub process_message($$) { my $connector = shift; my ($message, $body) = TakTuk::decode(shift); my $function = handlers::get_handler($message); if (defined($function)) { &$function($message, $connector, $body); } else { diagnostic::warning("Unknown message : $message (body: $body)"); } } sub process_messages($$) { my $connector = shift; my $descriptor = shift; my $result = $connector->read_data($descriptor); my $message = $connector->get_message; while ($message) { process_message($connector, $message); $message = $connector->get_message; } return $result; } sub process_command_output($$) { my $command = shift; my $descriptor = shift; my $buffer; my $read_result; $read_result = sysread($descriptor, $buffer, $TakTuk::read_size); (diagnostic::system and $read_result = 0) if not defined($read_result); if ($read_result > 0) { my $type; if (exists($command->{write}) and ($descriptor == $command->{write})) { $type = "output"; } else { $type = "error"; } $command->output($type, $buffer); } return $read_result; } sub process_pipe_output($$) { my $command = shift; my $descriptor = shift; my $buffer; my $read_result; if (not $end) { $read_result = sysread($descriptor, $buffer, $TakTuk::read_size); (diagnostic::system and $read_result = 0) if not defined($read_result); if ($read_result > 0) { process_message($command, TakTuk::encode($command->{message}, $buffer)); } return $read_result; } else { return 1; } } sub run() { my @select_result; my $sinks = $connections->{sinks}; my $local_commands = $connections->{local_commands}; while ((not $end) or scalar(@$sinks) or scalar(@$local_commands) or $pending_writes_number) { #diagnostic::debug("Select loop ($end, @$sinks, @$local_commands)"); if (($pending_size > $cache_limit) and ($cache_limit >= 0)) { # In this case, too much memory is occupied by pending write : we # stop any further reading until pending writes volume gets smaller @select_result = TakTuk::Select::select( undef,$pending_writes_select,undef,$select_timeout); } else { @select_result = TakTuk::Select::select( $select,$pending_writes_select,undef,$select_timeout); } if (scalar(@select_result)) { my ($read_set, $write_set, $exception_set) = @select_result; while (scalar(@$read_set)) { my $descriptor = shift @$read_set; my $cobidule = $c_from_fd{$descriptor}; if (exists($cobidule->{data_handler})) { my $handler = $cobidule->{data_handler}; my $result = &$handler($cobidule, $descriptor); remove_descriptor($cobidule, $descriptor) if (not $result); } else { diagnostic::error("Bug : connector has no data handler"); } } while (scalar(@$write_set)) { my $descriptor = shift @$write_set; write_pending_stuff($descriptor); } if (scalar(@$exception_set)) { diagnostic::warning("Unexpected exceptional fds : ". join(' ', @$exception_set)); } } else { # Here we might have been thrown out of select by a timeout # but we have to test for error conditions (just in case) if ($!{EBADF}) { my $error_msg="Selected an invalid descriptor ($!)... Very ". "bad\nRegistered handles = "; foreach my $handle ($select->handles) { $error_msg.="$handle (".fileno($handle).") " if defined(fileno($handle)); } diagnostic::error($error_msg); exit 1; } elsif ($!{EINTR}) { diagnostic::warning("Select exited because of a signal"); } elsif ($!{EINVAL}) { diagnostic::error("Invalid time limit for select"); } else { diagnostic::error("Unknown error"); } } timer::check_timeouts; # Time to reap children my $pid; while (($pid = waitpid -1, WNOHANG) > 0) { diagnostic::debug("Reaping $pid"); if (exists($c_from_pid{$pid})) { my $cobidule = $c_from_pid{$pid}; $cobidule->{status} = $?; $cobidule->{stop_date} = timer::current_time; # Removes the cobidule if done remove_cobidule($cobidule); delete $c_from_pid{$cobidule}; } } diagnostic::error("Waiting child, $!") unless defined($pid); } } sub terminate () { $end = 1; } sub add_descriptors($) { my $command = shift; my $error; if (exists($command->{write})) { $error = $select->add($command->{write}); diagnostic::warning(TakTuk::Select::error_msg($error)) if $error; $c_from_fd{$command->{write}} = $command; binmode($command->{write}) or diagnostic::system; } if (exists($command->{error})) { $error = $select->add($command->{error}); diagnostic::warning(TakTuk::Select::error_msg($error)) if $error; $c_from_fd{$command->{error}} = $command; binmode($command->{error}) or diagnostic::system; } } sub remove_descriptor($$) { my $cobidule = shift; my $descriptor = shift; my $type; diagnostic::debug("Removing $cobidule / $descriptor"); my $write = undef; my $error = undef; $write = $cobidule->{write} if exists $cobidule->{write}; $error = $cobidule->{error} if exists $cobidule->{error}; if (defined($descriptor)) { if (defined($write) and ($write == $descriptor)) { $type = 'write'; } elsif (defined($error) and ($error == $descriptor)) { $type = 'error'; } else { diagnostic::error("Invalid descriptor, serious BUG !"); } if (exists $c_from_fd{$descriptor}) { my $error = $select->remove($descriptor); diagnostic::warning(TakTuk::Select::error_msg($error)) if $error; delete $c_from_fd{$descriptor}; $cobidule->close($type); # Removes the cobidule if done remove_cobidule($cobidule); } else { diagnostic::warning("Descriptor not present in hash"); } } else { diagnostic::warning("Should not be called with undefined descriptor"); } } sub remove_cobidule($) { my $cobidule = shift; # To be removed, a cobidule should have both of its output channels closed # and should have somehow terminated if ((exists($cobidule->{canceled}) or exists($cobidule->{status}) or not exists($cobidule->{pid})) and not exists($cobidule->{write}) and not exists($cobidule->{error})) { diagnostic::debug("Removing cobidule $cobidule"); # While write and error channels should be automatically closed # and removed, this is not the case of the read channel (which # requires an explicit eof message). if (exists($cobidule->{read})) { my $read = $cobidule->{read}; cleanup_pending_stuff($read) if exists($pending_writes{$read}); $cobidule->close('read'); } my $found = remove_from_set($cobidule); diagnostic::warning("Connector to remove not found!") unless $found; if (exists($cobidule->{remove_handler})) { my $handler = $cobidule->{remove_handler}; &$handler($cobidule); } } } sub no_pending_connectors() { diagnostic::debug("Connectors situation, sinks_number : $sinks_number, ". "initialized : $initialized_sinks_number"); dagnostic::warning("More initialized than sinks") if ($sinks_number<$initialized_sinks_number); return $sinks_number == $initialized_sinks_number; } sub add_connector($$) { my $connector = shift; my $set_name = shift; my $set = $connections->{$set_name}; diagnostic::debug("Adding connector: ".join(' ',%$connector)); if (exists($connector->{read})) { TakTuk::no_flush($connector->{read}); # Non blocking flag is set here to avoid making non blocking the # default root which would make STDIN non blocking as side effect thus # making interactive mode unsuable fcntl($connector->{read}, F_SETFL, O_NONBLOCK) or diagnostic::system; } $connector->{set} = $set_name; add_descriptors($connector); push(@$set,$connector); $sinks_number++ if $set_name eq 'sinks'; } sub connector_initialized($) { my $connector = shift; $initialized_sinks_number++; } sub remove_from_set($) { my $cobidule = shift; my $set_name = $cobidule->{set}; my $set = $connections->{$set_name}; my $i = 0; $i++ while (($i <= $#$set) and ($set->[$i] != $cobidule)); if ($i <= $#$set) { splice @$set, $i, 1; diagnostic::debug("Cobidule $cobidule, ". ($cobidule->{line}?$cobidule->{line}." ":""). ($cobidule->{pid}?$cobidule->{pid}." ":""). "deleted from set $set_name at position $i"); return 1; } else { return 0; } } sub remove_source($) { my $connector = shift; if (not scalar(@{$connections->{sources}})) { # useless to do anything cleanly now as I lost connection # might change if some commands running have side effects # but even in this last case, its better to handle it through # usual synchronization because of resulting hanged zombies # general::print("Exiting after loosing my sources ($$)\n"); exit 1; } } sub remove_interpreter($) { my $connector = shift; if ($general::root) { process_message(get_root, $main::quit_message) unless $end; } else { diagnostic::warning("Lost interpreter connector in child (bug) !"); } } sub remove_sink($) { my $connector = shift; # Remove it first because synchronizer::initialization failed # checks for ready state $sinks_number--; if ($connector->{state} >= $connector::initialized) { if (not $communicator::end) { $connector->{given_list} = join(' ', map { $_->{peer}.":".$_->{position} } @{$connector->{given}}); $connector->output('state', TakTuk::CONNECTION_LOST); } $initialized_sinks_number--; } else { synchronizer::initialization_failed($connector); } # in any case, I've to check ongoing reduces to avoid blocking # current instance (e.g. in the case of the initial reduce_count) # For now reduces only propagate upward, so only sinks might change # a reduce result. handlers::check_ongoing_reduces($connector); } sub remove_control($) { my $connector = shift; # Nothing to do, the target removal is performed by remove_local_command } sub remove_local_command($) { my $command = shift; if (exists($command->{timers})) { my $timers = $command->{timers}; foreach my $timer (@$timers) { $timer->unregister if not $timer->{elapsed}; } } if (exists($command->{status})) { $command->output('status', $command->{status}) } else { diagnostic::warning("Some command terminated without status"); } $command->output('state', TakTuk::COMMAND_TERMINATED); communicator::remove_target($command); handlers::local_command_completed($command); } sub remove_pipe($) { my $command = shift; communicator::get_root->output('state', TakTuk::PIPE_TERMINATED); } sub post_write($$@) { my $file = shift; my $data = shift; my $length = scalar(@_)?shift:length($data); my $offset = scalar(@_)?shift:0; my $result = 1; (diagnostic::warning("Null length write") and return) if not $length; diagnostic::warning("Null file") if not $file; if (not exists($pending_writes{$file})) { $result = CORE::syswrite($file, $data, $length, $offset); if ($result) { $length -= $result; $offset += $result; } } if ((defined($result) and $length) or $!{EAGAIN}) { if (not exists($pending_writes{$file})) { $pending_writes{$file} = []; my $error = $pending_writes_select->add($file); diagnostic::warning(TakTuk::Select::error_msg($error)) if $error; } my $list = $pending_writes{$file}; push @$list, [ $file, $data, $length, $offset ]; $pending_writes_number++; $pending_size += $length; return 1; } else { diagnostic::system unless defined($result); return $result; } } sub post_close($) { my $cobidule = shift; if (exists($cobidule->{read})) { post_termination($cobidule->{read}, \&close_cobidule_read, $cobidule); } } sub post_termination($$$) { my $descriptor = shift; my $handler = shift; my $handler_arg = shift; if (exists($pending_writes{$descriptor})) { $pending_termination_handler{$descriptor} = $handler; $pending_termination_argument{$descriptor} = $handler_arg; } else { &$handler($handler_arg); } } sub cleanup_pending_stuff($) { my $descriptor = shift; if (exists($pending_writes{$descriptor})) { foreach my $length (@{$pending_writes{$descriptor}}) { $pending_size -= $length->[2]; } $pending_writes_number -= scalar(@{$pending_writes{$descriptor}}); $error = $pending_writes_select->remove($descriptor); diagnostic::warning(TakTuk::Select::error_msg($error)) if $error; delete($pending_writes{$descriptor}); if (exists($pending_termination_handler{$descriptor})) { my $handler = $pending_termination_handler{$descriptor}; my $argument = $pending_termination_argument{$descriptor}; &$handler($argument); delete($pending_termination_handler{$descriptor}); delete($pending_termination_argument{$descriptor}); } } } sub write_pending_stuff($) { my $descriptor = shift; if (exists($pending_writes{$descriptor})) { my $list = $pending_writes{$descriptor}; my $chunk = shift @$list; my ($file, $data, $length, $offset) = @$chunk; my $result; $result = CORE::syswrite($file, $data, $length, $offset); if ($result) { $length -= $result; $pending_size -= $result; $offset += $result; } if ((defined($result) and $length) or $!{EAGAIN}) { $chunk->[2] = $length; $chunk->[3] = $offset; unshift @$list, $chunk; } else { diagnostic::system unless defined($result); $pending_writes_number--; } if (not scalar(@$list)) { cleanup_pending_stuff($descriptor); } } } sub flush_pending_stuff() { while (scalar(keys(%pending_writes))) { foreach my $descriptor (keys(%pending_writes)) { write_pending_stuff($descriptor); } } } sub close_cobidule_read($) { my $cobidule = shift; if (exists($cobidule->{read})) { $cobidule->close('read'); } } sub assign_target($$) { my $command = shift; my $target = shift; my $command_from_target = $c_from_target{local_commands}; my $control_from_target = $c_from_target{control}; if (exists($command_from_target->{$target})) { my $second_command = $command_from_target->{$target}; diagnostic::warning("Target $target already assigned, overwriting") if not exists($second_command->{auto_target}); assign_target($second_command, find_next_target()); } $command->{target} = $target; $command->{control}->{target} = $target; $command_from_target->{$target} = $command; $control_from_target->{$target} = $command->{control}; } sub find_next_target() { my $command_from_target = $c_from_target{local_commands}; while (exists($command_from_target->{$target_number})) { $target_number++; } return $target_number++; } sub remove_target($) { my $command = shift; my $command_from_target = $c_from_target{local_commands}; my $control_from_target = $c_from_target{control}; my $target = $command->{target}; delete($command_from_target->{$target}); delete($control_from_target->{$target}); } sub get_target_set($$) { my $target = shift; my $set = shift; my @result = (); my @connections = get_connections($set); my $cobidule_from_target = $c_from_target{$set}; if ($target eq "all") { return @connections; } else { my @target_list = general::decode_set($target, $target_number - 1); while (scalar(@target_list)) { my $min = shift @target_list; my $max = shift @target_list; for (my $i=$min; $i <= $max; $i++) { if (exists ($cobidule_from_target->{$i})) { push @result, $cobidule_from_target->{$i}; } else { diagnostic::warning("Invalid target $i"); communicator::get_root->output('state', TakTuk::INVALID_TARGET); } } } if (not scalar(@result)) { diagnostic::warning("No target"); communicator::get_root->output('state', TakTuk::NO_TARGET); } return @result; } } ############################################### ### STATS_BUFFER ### ############################################### package stats_buffer; use strict; use bytes; sub new($$) { my $type = shift; my $depth = shift; my $data = { depth=>$depth, data=>[] }; bless ($data, $type); return $data; } sub is_empty($) { my $self = shift; return not scalar(@{$self->{data}}); } sub add($$) { my $self = shift; my $value = shift; my $data = $self->{data}; push @$data, $value; if ($#$data > $self->{depth}) { shift @$data; } } sub average($) { my $self = shift; my $average; my $data = $self->{data}; if (scalar(@$data)) { $average = 0; foreach my $value (@$data) { $average += $value; } return $average / scalar(@$data); } else { return undef; } } sub min($) { my $self = shift; my $data = $self->{data}; my $min; if (scalar(@$data)) { $min = $self->{data}[0]; foreach my $value (@$data) { $min = $value if $min > $value; } return $min; } else { return undef; } } sub max($) { my $self = shift; my $data = $self->{data}; my $max; if (scalar(@$data)) { $max = $self->{data}[0]; foreach my $value (@$data) { $max = $value if $max < $value; } return $max; } else { return undef; } } ############################################### ### SCHEDULER ### ############################################### package scheduler; use strict; use bytes; our $window; our $window_adaptation; # in progress our $undeployed_connectors = 0; our $current_window = 0; our $steal_request_sent = 0; our $worksteal; our @waiting_thieves = (); # stats our %stats = (connections=>stats_buffer->new(5), shifts=>stats_buffer->new(5)); our $last_time = undef; # adaptation our $threshold_low = 0.1; our $threshold_high = 0.2; our $max_increase = 1.5; # groups our @group = ( { static => [], dynamic => [], limit => 0, arity => 0 } ); our $current_group = 0; our $last_group = 0; our @groups_stack = (); sub begin_group() { my $limit = $group[$current_group]->{limit}; push @groups_stack, $current_group; push @group, { static => [], dynamic => [], limit => $limit, arity => 0 }; $current_group = $#group; } sub end_group() { $current_group = pop @groups_stack; } sub set_limit($) { $group[$current_group]->{limit} = shift; } sub deploy_connector($) { my $connector = shift; if ($connector->run(0)) { my $timer = timer->register($connector->{timeout}, \&synchronizer::initialization_timeout); $connector->{timer} = $timer; $timer->{connector} = $connector; $connector->{remove_handler} = \&communicator::remove_sink; communicator::add_connector($connector, 'sinks'); diagnostic::debug("Connector added : ".$connector->{line}); $group[$connector->{group}]->{arity}++; $current_window++; # The following will have any effect only when already ready # It is necessary when new deployments are initiated after the # very first setup and the initial propagation of ready state synchronizer::synchronize_unnumbered_subnet; } else { # Ok, there's probably too many forks # Old code that try to guess the proper fix # actually this end up in deployment failures when system is higly # loaded (in this case the test succeed, hum) # So I changed to a more basic solution #if ($current_window < 1) # { # # We're in a big trouble, I have to deploy but I cannot ... # # In this case I give up # diagnostic::error("Cannot deploy connector due to fork ". # "unavailability"); #} #else # { # diagnostic::warning("Delaying connector due to fork error"); # $window=$current_window; # scheduler::add_connector($command_line, $arguments); #} #diagnostic::warning("Delaying connector due to fork error"); #sleep 1; #scheduler::add_connector($connector); diagnostic::warning("Giving up connection to $connector->{peer}"); # I guess a better long term solution would be to send connector to # children when failure repeats on the local node } } sub add_connector($) { my $connector = shift; my $number = $connector->{group}; my $static = $group[$number]->{static}; my $dynamic = $group[$number]->{dynamic}; my $arity = $group[$number]->{arity}; my $limit = $group[$number]->{limit}; # I should test whether this accelerates or not now that group scheduling # is implemented (should be hindering in presence of groups) # If this is to be removed, should also initialize $last_group to -1 if (($current_window < $window) and not at_limit($group[$number])) { deploy_connector($connector); } else { if ($limit < 0) { push @$static, $connector; } else { push @$dynamic, $connector; } $undeployed_connectors++; } } sub connector_initialized($) { my $connector = shift; my $time = $connector->{init_date} - $connector->{start_date}; if ($window_adaptation) { my $threshold; my $current_time; my $shift = 0; $stats{connections}->add($time); # not used $threshold = $stats{connections}->min? $time/$stats{connections}->min - 1:0; $current_time = timer::current_time; if ($last_time) { $shift = $current_time - $last_time; $stats{shifts}->add($shift); } $last_time = $current_time; #diagnostic::warning("Connection time $time Shift $shift Min ". # ($stats{connections}->min?$stats{connections}->min:"undef"). # " Threshold $threshold Average shift ". # ($stats{shifts}->average?$stats{shifts}->average:"undef")); if ($threshold) { my $adapt = 0; my $old_window = $window; if (($threshold < $threshold_low) and $stats{shifts}->average) { my $max_window; $max_window = floor($window * $max_increase); $window = floor($stats{connections}->min / $stats{shifts}->average); $window = $max_window if $window > $max_window; } elsif ($threshold > $threshold_high) { $window -= floor($threshold*$window); } $window = 1 if $window < 1; diagnostic::debug("Window gone from $old_window to $window"); } } $current_window--; schedule; } sub connector_failed($) { my $connector = shift; $current_window--; $group[$connector->{group}]->{arity}--; schedule; } sub at_limit($) { my $group = shift; if (($group->{limit} > 0) and ($group->{arity} >= $group->{limit})) { return 1; } else { return 0; } } sub schedule() { my $deployed = 1; my $new_group = $last_group + 1; $new_group %= scalar(@group); while ($undeployed_connectors and ($deployed or ($new_group != $last_group)) and ($current_window < $window)) { my $group = $group[$new_group]; my $connector = undef; if (scalar(@{$group->{static}})) { $connector = shift @{$group->{static}}; } elsif (scalar(@{$group->{dynamic}}) and not at_limit($group)) { $connector = shift @{$group->{dynamic}}; } if (defined($connector)) { deploy_connector($connector); $undeployed_connectors--; $last_group = $new_group; $deployed = 1; } else { $deployed = 0; } $new_group++; $new_group %= scalar(@group); } $last_group = $new_group; # Voir si on a vraiment besoin du test sur $undeployed_connectors if (not $general::root and not $steal_request_sent and not at_limit($group[0]) and ($undeployed_connectors == 0) and ($current_window < $window)) { send_steal_request(""); diagnostic::debug("Steal request sent"); } else { diagnostic::debug("Nothing done in scheduler"); } } sub is_idle() { return $undeployed_connectors == 0; } sub send_work_to($) { my $thief = shift; my $group = $group[$thief->{group}]; my $work_to_give = scalar(@{$group->{dynamic}}); my $given=0; diagnostic::debug("Theft in group $thief->{group}, ". "dynamic connectors : ".scalar(@{$group->{dynamic}}). ", work to give : $work_to_give"); if ($work_to_give) { my $available = scalar(@{$group->{dynamic}}); my $last_given = $thief->{last_given}; my $limit = eval($worksteal->{limit}); my $to_give = 0; my $workpack=""; if ($last_given) { $to_give = eval($worksteal->{growth}); } else { $to_give = eval($worksteal->{initial}); } $to_give = $limit if $to_give > $limit; for ($given=0; $given < $to_give; $given++) { my $connector_to_deploy = shift @{$group->{dynamic}}; $workpack = $workpack.$connector_to_deploy->pack(); $undeployed_connectors--; push @{$thief->{given}}, $connector_to_deploy; } $thief->send_message(TakTuk::encode($TakTuk::work, $workpack)); diagnostic::debug("Work sent : ".$workpack); } return $given; } sub dispatch_work($) { my $workpack = shift; my $connector; while ($workpack) { ($connector, $workpack) = connector::unpack($workpack); $connector->{group} = 0; diagnostic::debug("Unpacked connector: $connector"); push @{$group[0]->{dynamic}}, $connector; $undeployed_connectors++; } # reset steal information $steal_request_sent = 0; # priority to local schedule (ASAP) schedule; my $satisfied = 1; while (scalar(@waiting_thieves) and $satisfied) { my $thief = shift @waiting_thieves; $satisfied = send_work_to($thief); unshift @waiting_thieves, $thief unless $satisfied; } send_steal_request("") unless $satisfied; } sub theft_handler($$) { my $connector = shift; my $parameters = shift; my $given = send_work_to($connector); push @waiting_thieves, $connector unless $given or $connector->{group}; if (scalar(@waiting_thieves) and not $general::root and not $steal_request_sent) { send_steal_request($parameters); diagnostic::debug("Forwarded steal request, parameters : $parameters"); } elsif (scalar(@waiting_thieves)) { if ($general::root) { diagnostic::debug("Cannot satisfy steal request : no more dynamic ". "work"); } elsif ($steal_request_sent) { diagnostic::debug("Request already sent"); } } } sub send_steal_request($) { my $parameters = shift; communicator::get_root->send_message( TakTuk::encode($TakTuk::steal, $parameters)); $steal_request_sent = 1; } sub resign() { foreach my $group (@group) { $group->{static} = []; $group->{dynamic} = []; } $undeployed_connectors = 0; } ############################################### ### TIMER ### ############################################### package timer; use strict; use bytes; our $has_timehires = eval("use Time::HiRes;1")?1:0; our @registered_timers; sub current_time() { if ($has_timehires) { my ($seconds, $micro) = Time::HiRes::gettimeofday(); return $seconds + $micro/1000000; } else { return time; } } sub register($$) { my $type = shift; my $timeout = shift; my $handler = shift; my $current = current_time; my $data = { 'handler'=>$handler, 'birth'=>$current, 'elapsed'=>0 }; bless($data, $type); if ($timeout) { $data->{timeout} = $current+$timeout; my $i=$#registered_timers; $i-- while (($i >= 0) and ($registered_timers[$i]->{timeout} > $data->{timeout})); splice @registered_timers, $i+1, 0, $data; } else { $data->{timeout} = 0; } diagnostic::debug("Registered new timer $data, ".$data->print. ", list = @registered_timers"); return $data; } sub check_timeouts() { my $current = current_time; while (scalar(@registered_timers) and ($registered_timers[0]->{timeout} <= $current)) { my $timer = shift @registered_timers; $timer->{elapsed} = 1; my $handler = $timer->{handler}; &$handler($timer); diagnostic::debug("Timeout handled for $timer, ".$timer->print); } } sub unregister() { my $timer = shift; if ($timer->{timeout}) { my $i=0; $i++ while (($i <= $#registered_timers) and ($registered_timers[$i] != $timer)); if ($i <= $#registered_timers) { splice @registered_timers, $i, 1; diagnostic::debug("Unregistered timer $timer, remaining ". "@registered_timers equals ". scalar(@registered_timers)); } else { diagnostic::warning("Unregistering didn't found timer $timer"); } } } sub gettime($) { my $current = current_time; my $timer = shift; return $current - $timer->{birth}; } sub print($) { my $current = current_time; my $timer = shift; return "Timer created at $timer->{birth} timeouting at ". "$timer->{timeout} current is $current"; } ############################################### ### SYNCHRONIZER ### ############################################### package synchronizer; use strict; use bytes; # messages constituting various engines our @diffusion_engine = ($TakTuk::broadcast, $TakTuk::spread); our @execution_engine = ($TakTuk::execute, $TakTuk::eof, $TakTuk::get, $TakTuk::input, $TakTuk::kill, $TakTuk::command_message, $TakTuk::put, $TakTuk::command_send_to, $TakTuk::taktuk_perl, $TakTuk::wait); our @internal_engine = ($TakTuk::message, $TakTuk::send_to); our @synchro_engine = ($TakTuk::synchronize, $TakTuk::quit); # states our @states; # ready state help variables our $father_is_ready=0; our %blocked; our %event_waited; sub init() { $states[TakTuk::WAIT_COMPLETE] = 1; $states[TakTuk::TAKTUK_NUMBERED] = 1; $states[TakTuk::TAKTUK_READY] = 1; } sub check_ready_state() { if (!$states[TakTuk::TAKTUK_READY]) { if ($father_is_ready && scheduler::is_idle && communicator::no_pending_connectors) { # The first network setup enforce complete synchronisation (all # commands are initially blocked until its completion), it must be # propagated # Afterward, nothing can be ensured as conflicting operation might # be concurrently started (e.g. a new connector by might be # added on root while a broadcast is initiated in a leaf) foreach my $connector (communicator::get_connections('sinks')) { $connector->send_message($TakTuk::ready); } dispatch_event(TakTuk::TAKTUK_READY); diagnostic::debug("I'm ready"); } else { diagnostic::debug("I'm not ready : father_is_ready = ". "$father_is_ready, is_idle = ". scheduler::is_idle.", no_pending_connector = ". communicator::no_pending_connectors); } } } sub suspend_engine_until($@) { my $event = shift; if ($states[$event]) { block_until_event($event, @_); } } sub initialization_complete($) { my $connector = shift; diagnostic::debug("Connector $connector->{line} initialized"); $connector->{init_date} = timer::current_time; $connector->{timer}->unregister; delete $connector->{timer}; communicator::connector_initialized($connector); scheduler::connector_initialized($connector); $connector->send_parameters; $connector->output('state', TakTuk::CONNECTION_INITIALIZED); # must be the last operation as it depends on ongoing deployments check_ready_state; } sub initialization_failed($) { my $connector = shift; if (exists($connector->{timer})) { $connector->{timer}->unregister; delete $connector->{timer}; } $connector->output('state', TakTuk::CONNECTION_FAILED); # Nothing to be done for communicator as this function should be called from # communicator::remove_sink scheduler::connector_failed($connector); # must be the last operation as it depends on ongoing deployments check_ready_state; # checking ongoing reduces is useless here as no reduce could have been # initiated before the ready state } sub initialization_timeout($) { my $timer = shift; my $connector = $timer->{connector}; delete $connector->{timer}; $connector->{timeouted} = 1; if ($connector->{state} >= $connector::initialized) { diagnostic::warning("Bug, timeouted an initialized connector"); } else { if (exists($connector->{read})) { communicator::cleanup_pending_stuff($connector->{read}); } $connector->output('connector', "timeouted"); $connector->cancel; } } sub block_until_event($@) { my $event = shift; my $handlers; my $pending; $states[$event] = 0; if (exists($blocked{$event})) { $handlers = $blocked{$event}->{handlers}; $pending = $blocked{$event}->{pending}; } else { $handlers = {}; $pending = []; $blocked{$event} = { handlers=>$handlers, pending=>$pending }; } foreach my $message (@_) { if (exists($event_waited{$message})) { diagnostic::warning("Multiple blocking for $message"); } else { $handlers->{$message} = handlers::get_handler($message); handlers::replace_handler($message, \&handlers::handler_blocked); $event_waited{$message} = $event; } } } sub dispatch_event($) { my $event = shift; if (not $states[$event]) { my $handlers = $blocked{$event}->{handlers}; my @pending_list = @{$blocked{$event}->{pending}}; communicator::get_root->output('state', $event); $states[$event] = 1; foreach my $message (keys(%$handlers)) { handlers::replace_handler($message, $handlers->{$message}); delete $event_waited{$message}; } general::apply_gateway_restrictions; # Immediately reset the blocked part of the event to be able to handle # it again when handling pending messages delete $blocked{$event}; while (scalar(@pending_list)) { my $message = shift @pending_list; my $connector = shift @pending_list; my $body = shift @pending_list; my $function = handlers::get_handler($message); &$function($message, $connector, $body); diagnostic::debug("Processing $message with body $body"); } } else { diagnostic::debug("Dispatching of $event with no effect"); } } sub add_pending_message($$$) { my $message = shift; my $connector = shift; my $body = shift; my $event = $event_waited{$message}; my $pending_list = $blocked{$event}->{pending}; push @$pending_list, $message, $connector, $body; } sub setup_synchronization() { if ($main::no_numbering) { if ($states[TakTuk::TAKTUK_READY]) { diagnostic::warning("Cannot synchronize an unnumbered ready ". "TakTuk"); } else { # in this case we just complete already suspended engine block_until_event(TakTuk::TAKTUK_READY, @synchro_engine); } } else { suspend_engine_until(TakTuk::TAKTUK_NUMBERED, @execution_engine, @internal_engine, @synchro_engine); } } sub synchronize_unnumbered_subnet() { suspend_engine_until(TakTuk::TAKTUK_READY, @diffusion_engine, @synchro_engine); } ############################################### ### HANDLERS ### ############################################### package handlers; use strict; use bytes; use Fcntl; our %handlers; sub register_handler($$) { my $message = shift; if (defined($handlers{$message})) { diagnostic::error("Handler already defined for $message"); } else { $handlers{$message} = shift; } } sub replace_handler($$) { my $message = shift; if (defined($handlers{$message})) { $handlers{$message} = shift; } else { diagnostic::error("Handler not defined for $message"); } } sub get_handler($) { my $message = shift; return $handlers{$message}; } sub handler_blocked($$$) { my $message = shift; my $connector = shift; my $body = shift; synchronizer::add_pending_message($message, $connector, $body); } sub arguments($$$) { my $message = shift; my $connector = shift; my $body = shift; my $element; my @arguments; while ($body) { ($element, $body) = TakTuk::unpack($body); push @arguments, $element; } # Now I've to handle all the stuff (just as in main) arguments::fetch_arguments(@arguments); arguments::parse_options; main::process_commands; # Useful especially for stealing if I've nothing to do scheduler::schedule; } sub broadcast($$$) { my $message = shift; my $connector = shift; my $body = shift; foreach my $other_connector (communicator::get_connections('sources'), communicator::get_connections('sinks')) { if ($other_connector != $connector) { diagnostic::debug("Spreading message to $other_connector"); $other_connector->send_message(TakTuk::encode( $TakTuk::spread, $body)); } } # this message should not be interpreted on the originating node # this is the behavior of spread which is sent to others # communicator::process_message($connector, $body); } sub down($$$) { my $message = shift; my $connector = shift; my $body = shift; my $root_connector = communicator::get_root; communicator::process_message($root_connector, $body); } sub empty($$$) { my $message = shift; my $connector = shift; my $body = shift; } sub eof($$$) { my $message = shift; my $connector = shift; my $body = shift; my $target; my @target_set; $target = $body; @target_set = communicator::get_target_set($target, 'local_commands'); foreach my $command (@target_set) { communicator::post_close($command); diagnostic::debug("Posted close inputs for command $command"); } } sub update_failed($$$) { my $message = shift; my $connector = shift; my $body = shift; communicator::get_root->output('state', TakTuk::UPDATE_FAILED) if ($general::taktuk{rank} < 0); synchronizer::dispatch_event(TakTuk::TAKTUK_NUMBERED) } sub execute_timeout($) { my $timer = shift; my $message_list = $timer->{messages}; diagnostic::debug("Timeout triggered for $timer->{command}->{line}"); $ENV{TAKTUK_PID} = $timer->{command}->{pid}; if (not length($message_list)) { CORE::kill -15, $timer->{command}->{pid}; } while (length($message_list)) { my ($message, $action); ($message, $message_list) = TakTuk::unpack($message_list); ($action, $message) = TakTuk::decode($message); if ($action eq $TakTuk::action) { communicator::process_message($timer->{command}->{control}, $message); } elsif ($action eq $TakTuk::kill) { CORE::kill -$message, $timer->{command}->{pid}; } else { diagnostic::error("Internal error : unknown timeout action"); } } } sub execute($$$) { my $message = shift; my $connector = shift; my $body = shift; my $target = undef; # More annoying than helpfull # diagnostic::warning("Execution has no effect on the root node, you ". # "probably forgot 'broadcast' when typing 'broadcast exec command'"); my ($attributes, $line) = TakTuk::unpack($body); my $timers = []; my $command = command::new(line=>$line, data_handler=>\&communicator::process_command_output, timers=>$timers); my $result; while (length($attributes)) { my $chunk; ($chunk, $attributes) = TakTuk::unpack($attributes); diagnostic::error("Internal error") if not defined $chunk; my ($type, $body) = TakTuk::decode($chunk); if ($type eq $TakTuk::id) { $target = $body; } elsif ($type eq $TakTuk::timeout) { my $timeout; ($timeout, $body) = TakTuk::unpack($body); diagnostic::error("Internal error") if not defined $timeout; my $timer = timer->register($timeout, \&execute_timeout); $timer->{command} = $command; $timer->{connector} = $connector; $timer->{messages} = $body; push @$timers, $timer; } else { diagnostic::error("Internal error"); } } $ENV{TAKTUK_PIDS} = join(' ', map("$_->{pid}", communicator::get_connections('local_commands'))); if (not defined($target)) { $target = communicator::find_next_target(); $command->{auto_target} = 1; } $ENV{TAKTUK_TARGET} = $target; if ($result = $command->run(1)) { $command->{remove_handler} = \&communicator::remove_local_command; communicator::add_connector($command, 'local_commands'); $command->output('state', TakTuk::COMMAND_STARTED); # Should be performed last because we need the 'control' part communicator::assign_target($command, $target); } else { diagnostic::warning("Giving up command $line"); $command->output('state', TakTuk::COMMAND_FAILED); } return $result; } our %filename; our %file_perms; our %file; sub file_finalize($) { my $position = shift; if (exists($file{$position})) { # we ignore the ECHLD error which match the case in which the open mode # is piped output and the child has terminated CORE::close($file{$position}) or (not $!{ECHLD} and diagnostic::system); chmod $file_perms{$position}, $filename{$position} or diagnostic::system; } } sub file($$$) { my $message = shift; my $connector = shift; my $body = shift; my $position; ($position, $body) = TakTuk::unpack($body); if (not exists($file{$position})) { my ($host, $rank, $type, $permissions, $source, $destination); ($host, $body) = TakTuk::unpack($body); ($rank, $body) = TakTuk::unpack($body); ($type, $body) = TakTuk::unpack($body); ($permissions, $body) = TakTuk::unpack($body); ($source, $body) = TakTuk::unpack($body); $destination = $body; my $result = undef; $destination = general::expand($destination, position=>$position, host=>$host, rank=>$rank); if ($type) { if (-d $destination) { if (-d "$destination/$source" or mkdir "$destination/$source") { $filename{$position} = "$destination/$source"; } else { diagnostic::system; } } elsif (mkdir $destination) { $filename{$position} = $destination; } else { diagnostic::system; } if (exists($filename{$position})) { $result = open($file{$position}, "| cd $filename{$position} && tar x"); } } else { if (-d $destination) { $filename{$position} = "$destination/$source"; } else { $filename{$position} = $destination; } $result = open($file{$position}, ">", $filename{$position}); } if (defined($result)) { binmode($file{$position}) or diagnostic::system; $file_perms{$position} = $permissions; fcntl($file{$position}, F_SETFL, O_NONBLOCK) or diagnostic::system; $connector->output('state',TakTuk::FILE_RECEPTION_STARTED); } else { diagnostic::system; $file{$position} = undef; $connector->output('state',TakTuk::FILE_RECEPTION_FAILED); } } else { if (not length($body)) { if (defined($file{$position})) { communicator::post_termination($file{$position}, \&file_finalize, $position); $connector->output('state', TakTuk::FILE_RECEPTION_TERMINATED); } else { diagnostic::warning("End file message but no descritor"); } delete($file{$position}) if exists($file{$position}); delete($file_perms{$position}) if exists($file_perms{$position}); delete($filename{$position}) if exists($filename{$position}); } else { if (defined($file{$position})) { communicator::post_write($file{$position},$body) or diagnostic::system; } else { diagnostic::warning("Undefined file descriptor for data"); } } } } sub forward_up($$$) { my $message = shift; my $connector = shift; my $body = shift; if ($general::root) { communicator::process_message($connector, $body); } else { foreach my $other_connector (communicator::get_connections('sources')) { $other_connector->send_message( TakTuk::encode($TakTuk::forward_up, $body)); } } } sub gateway($$$) { my $message = shift; my $connector = shift; my $body = shift; $general::taktuk{gateway} = 1; } sub get($$$) { my $message = shift; my $connector = shift; my $body = shift; my $put_prefix; my $get_prefix; ($get_prefix, $body) = TakTuk::unpack($body); $put_prefix=TakTuk::encode($TakTuk::send_to, TakTuk::pack($general::taktuk{rank})); communicator::process_message($connector, TakTuk::encode($get_prefix, TakTuk::encode($TakTuk::put, TakTuk::pack($put_prefix).$body))); } sub get_info($$$) { my $message = shift; my $connector = shift; my $body = shift; my $info = undef; if ($body eq "target") { $info = $connector->{target} if exists($connector->{target}); } else { $info = $general::taktuk{$body} if exists($general::taktuk{$body}); } if (defined($info)) { $connector->send_message(TakTuk::encode($TakTuk::info, $info)); } else { $connector->send_message($TakTuk::invalid); } } sub input($$$) { my $message = shift; my $connector = shift; my $body = shift; my $result; my $target; my @target_set; ($target, $body) = TakTuk::unpack($body); @target_set = communicator::get_target_set($target, 'local_commands'); foreach my $command (@target_set) { if (exists($command->{read})) { $result = communicator::post_write($command->{read}, $body); } else { $result = 1; } if (not $result) { if ($!{EPIPE}) { # Ok, a broken pipe, the remote command has left but I still # haven't cleaned the connector diagnostic::debug("Broken pipe when sending input"); } else { # Well, I don't know what to do in other cases diagnostic::system; } } } } sub kill($$$) { my $message = shift; my $connector = shift; my $body = shift; my $target; my @target_set; ($target, $body) = TakTuk::unpack($body); @target_set = communicator::get_target_set($target, 'local_commands'); foreach my $command (@target_set) { CORE::kill -$body, $command->{pid}; } } our $from; our $to; our @messages_pool; our @pending_recv; sub message($$$) { my $message = shift; my $connector = shift; my $body = shift; my $target; my @target_set = (); # For message handling, we always turn to the internal form $message = $TakTuk::message; ($target, $body) = TakTuk::unpack($body); diagnostic::debug("In message, target is $target, body is $body"); if ($target ne "output") { if ($target eq "any") { if (scalar(@pending_recv)) { push @target_set, shift @pending_recv; } else { push @messages_pool, TakTuk::encode($message, TakTuk::pack($target).$body); } } else { @target_set = communicator::get_target_set($target, 'control'); } foreach my $control (@target_set) { $control->send_message(TakTuk::encode($message, $body)); $control->{pending_messages}++; if (($control->{pending_messages} == 0) and exists($control->{timer})) { $control->{timer}->unregister if not $control->{timer}->{elapsed}; delete $control->{timer}; } } } else { my $root = communicator::get_root; ($from, $body) = TakTuk::unpack($body); $root->output('message', $body); } } sub numbered($$$) { my $message = shift; my $connector = shift; my $body = shift; my ($father_rank, $rank, $count, $update) = split / /,$body; my @connections = communicator::get_connections('sinks'); my $current = $rank; diagnostic::debug("Numbering from $rank, count = $count"); if ($general::taktuk{gateway}) { $general::taktuk{rank} = -1; $ENV{TAKTUK_RANK} = -1; } else { $general::taktuk{rank} = $rank; $ENV{TAKTUK_RANK} = $rank; # Pretend to my children that I'm my father $rank = $father_rank; $current++; } $general::taktuk{count} = $count; $ENV{TAKTUK_COUNT} = $count; $general::taktuk{father} = $father_rank; $ENV{TAKTUK_FATHER} = $father_rank; $general::taktuk{child_min} = $current; for (my $i=0; $i<=$#connections; $i++) { my $other_connector = $connections[$i]; if ($other_connector != $connector) { my $min = $current; my $max = $current + $other_connector->{count} - 1; if ($update and exists($other_connector->{min}) and (($min != $other_connector->{min}) or (($max != $other_connector->{max}) and ($i != $#connections)))) { communicator::get_root->output('state', TakTuk::UPDATE_FAILED); $min = $other_connector->{min}; $max = $other_connector->{max}; $other_connector->send_message(TakTuk::encode($TakTuk::spread, $TakTuk::update_failed)); } else { $other_connector->send_message(TakTuk::encode( $TakTuk::numbered,"$rank $min $count $update")); $other_connector->{min} = $min; $other_connector->{max} = $max; } $current = $max+1; } else { diagnostic::warning("Bug : numbered coming from a sink"); } } $general::taktuk{child_max} = $current-1; if ($general::taktuk{child_min} > $general::taktuk{child_max}) { $general::taktuk{child_min} = -1; $general::taktuk{child_max} = -1; } $ENV{TAKTUK_CHILD_MIN} = $general::taktuk{child_min}; $ENV{TAKTUK_CHILD_MAX} = $general::taktuk{child_max}; synchronizer::dispatch_event(TakTuk::TAKTUK_NUMBERED); } our %filehandles; sub output($$$) { my $message = shift; my $connector = shift; my $body = shift; if ($general::root) { my ($fd, $remaining) = TakTuk::unpack($body); if (not exists($filehandles{$fd})) { open ($filehandles{$fd}, $fd) or diagnostic::system; # Making the output on root non blocking seems more annoying than # helpful... # do not set non blocking output on low numbered fds in root # otherwise this unblocks the interpreter #my $can_unblock = 1; #$can_unblock = 0 if ($fd =~ m/^>&=([0-2])$/o and $general::root); #(fcntl($filehandles{$fd}, F_SETFL, O_NONBLOCK) # or diagnostic::system) if $can_unblock; } communicator::post_write($filehandles{$fd}, $remaining) or diagnostic::system; } else { diagnostic::warning("Output message received on non root node"); } } sub option($$$) { my $message = shift; my $connector = shift; my $body = shift; my ($name, $value) = split //,$body,2; diagnostic::debug("Setting $name to $value in $general::taktuk{rank}"); option::set($name, $value); } sub options($$$) { my $message = shift; my $connector = shift; my $body = shift; diagnostic::debug("Fetching [ $body ] as options line"); arguments::fetch_line($body); arguments::parse_options(); } sub pipe($$$) { my $message = shift; my $connector = shift; my $body = shift; my ($filename, $prefix) = TakTuk::unpack($body); my $fd = general::open_file($filename) or diagnostic::system; if ($fd) { my $command = command::new(write=>$fd, type=>settings::FD, data_handler=>\&communicator::process_pipe_output, message=>$prefix); $command->{remove_handler} = \&communicator::remove_pipe; communicator::add_connector($command, 'pipe'); communicator::get_root->output('state', TakTuk::PIPE_STARTED); } else { communicator::get_root->output('state', TakTuk::PIPE_FAILED); } } sub position($$$) { my $message = shift; my $connector = shift; my $body = shift; ($general::position) = $body; $ENV{TAKTUK_POSITION} = $body; } sub put($$$) { my $message = shift; my $connector = shift; my $body = shift; my $prefix; my $source; my $destination; ($prefix, $body) = TakTuk::unpack($body); ($source, $body) = TakTuk::unpack($body); ($destination, $body) = $body; diagnostic::debug("Calling send_file with $prefix, $source, ". "$destination from $general::taktuk{rank}"); $connector->send_file($prefix, $source, $destination); } sub quit($$$) { my $message = shift; my $connector = shift; my $body = shift; if (not $communicator::end) { handlers::eof($TakTuk::eof, $connector, "all"); communicator::terminate; foreach my $other_connector (communicator::get_connections('sinks')) { diagnostic::debug("Sending quit message to $other_connector"); $other_connector->send_message($TakTuk::quit); } } } sub ready($$$) { my $message = shift; my $connector = shift; my $body = shift; diagnostic::debug("Ready received"); $synchronizer::father_is_ready = 1; synchronizer::check_ready_state; } sub recv_timeout($) { my $timer = shift; my $i=0; $timer->{connector}->send_message($TakTuk::timeout); $timer->{connector}->{pending_messages}++; while ($i<=$#pending_recv) { if ($pending_recv[$i] == $timer->{connector}) { splice @pending_recv, $i, 1; } $i++; } } our %reduce_result; our %reduce_remaining; our %reduce_connector; our @reduce_pending; use constant REDUCE_INITIALIZATION => -1; use constant REDUCE_FINALIZATION => -2; our %reduce_handler = ($TakTuk::reduce_count => \&reduce_count, $TakTuk::reduce_tree => \&reduce_tree, $TakTuk::reduce_wait => \&reduce_wait); sub reduce_count ($$$$) { my $connector = shift; my $rank = shift; my $new_value = shift; my $data = shift; if ($rank == REDUCE_INITIALIZATION) { $general::numbering_update = $new_value?1:0; synchronizer::suspend_engine_until(TakTuk::TAKTUK_NUMBERED, @synchronizer::execution_engine, @synchronizer::internal_engine, @synchronizer::synchro_engine); if ($general::taktuk{gateway}) { return 0; } else { return 1; } } elsif ($rank == REDUCE_FINALIZATION) { if ($general::root) { # the root, numbered 0, is not counted as deployed $data--; numbered($TakTuk::numbered, communicator::get_root, "-1 0 $data $general::numbering_update"); return undef; } else { return $data; } } else { if (defined($new_value)) { $connector->{count} = $new_value; return $data + $new_value; } else { $connector->{count} = 0; return $data; } } } sub reduce_tree($$$$) { my $source_connector = shift; my $rank = shift; my $new_value = shift; my $data = shift; my $result; if ($rank == REDUCE_INITIALIZATION) { my $ready = $synchronizer::states[TakTuk::TAKTUK_READY] ? "ready":"busy"; my $rank = ($general::taktuk{rank} == -1) ? "X":$general::taktuk{rank}; $result = "['$general::host ($rank, $ready)'"; # This reduce is special and not synchronized with connectors... my @sinks = communicator::get_connections('sinks'); foreach my $connector (@sinks) { # propagate the reduce by ourselves for the others # bypass the usual gathering for uninitialized connectors if ($connector->{state} < $connector::initialized) { my $number = $connector->{$TakTuk::reduce_tree}; $reduce_result{$TakTuk::reduce_tree}->[$number] = ", ['connecting $connector->{peer}']"; delete $connector->{$TakTuk::reduce_tree}; $reduce_remaining{$TakTuk::reduce_tree}--; } else { $connector->send_message(TakTuk::encode($TakTuk::reduce, $TakTuk::reduce_tree)); } } } elsif ($rank == REDUCE_FINALIZATION) { if ($general::root) { eval('$new_value = '.$data."]"); general::print_tree("",$new_value); $result = undef; } else { $result = $data."]"; } } else { $result = $data.",".(defined($new_value) ? $new_value : "['lost connexion']"); } return $result; } our $waiting = 0; our $wait_target; our $wait_remaining; our @wait_set; sub reduce_wait($$$$) { my $connector = shift; my $rank = shift; my $new_value = shift; my $data = shift; if ($rank == REDUCE_INITIALIZATION) { if ($general::root) { synchronizer::suspend_engine_until(TakTuk::WAIT_COMPLETE, @synchronizer::diffusion_engine, @synchronizer::synchro_engine, @synchronizer::execution_engine); } if ($waiting) { # Here we trick the reduce mechanichs to make it wait for an # additional result. We will provide this result upon completion of # all local commands $reduce_remaining{$TakTuk::reduce_wait}++; } return ""; } elsif ($rank == REDUCE_FINALIZATION) { synchronizer::dispatch_event(TakTuk::WAIT_COMPLETE); if ($general::root) { $connector->output('state', TakTuk::WAIT_REDUCE_COMPLETE); return undef; } else { return ""; } } else { return ""; } } sub local_command_completed($) { my $command = shift; if ($waiting) { if ($wait_target eq "any") { $waiting--; } elsif ($wait_target eq "all") { $wait_remaining--; $waiting-- if $wait_remaining == 0; } else { my $i = 0; while (($i <= $#wait_set) and ($wait_set[$i] != $command)) { $i++; } if ($i <= $#wait_set) { splice @wait_set, $i, 1; } $waiting-- if not scalar(@wait_set); } if (not $waiting) { if (exists($reduce_connector{$TakTuk::reduce_wait})) { $reduce_remaining{$TakTuk::reduce_wait}--; reduce_status_analysis($TakTuk::reduce_wait); } else { synchronizer::dispatch_event(TakTuk::WAIT_COMPLETE); } } } } sub reduce($$$) { my $message = shift; my $connector = shift; my $body = shift; my @connectors = (communicator::get_connections('sources'), communicator::get_connections('sinks')); my $i; diagnostic::debug("Reduce in $general::taktuk{rank}"); my ($type,$value) = TakTuk::decode($body); if (not exists($reduce_connector{$type})) { diagnostic::error("Handler not defined for reduce $type") if not exists($reduce_handler{$type}); $reduce_connector{$type} = []; $reduce_connector{$type}->[0] = $connector; $reduce_remaining{$type} = 0; $reduce_result{$type} = []; $i = 0; foreach my $target (@connectors) { if ($target != $connector) { $i++; $reduce_connector{$type}->[$i] = $target; if (exists($target->{pending_results}->{$type})) { my $results = $target->{pending_results}->{$type}; $reduce_result{$type}->[$i] = shift @$results; delete($target->{pending_results}->{$type}) unless scalar(@$results); } else { $target->{$type} = $i; $reduce_remaining{$type}++; } } } my $handler = $reduce_handler{$type}; $reduce_result{$type}->[0] = &$handler($connector, REDUCE_INITIALIZATION, $value, undef); reduce_status_analysis($type); } else { push @reduce_pending, [ $message, $connector, $body ]; } } sub reduce_status_analysis($) { my $type = shift; if (exists($reduce_remaining{$type}) and ($reduce_remaining{$type} == 0)) { my $data = $reduce_result{$type}; my $handler = $reduce_handler{$type}; my $connector = $reduce_connector{$type}; my $result = $data->[0]; for (my $i=1; $i<=$#$data; $i++) { $result = &$handler($connector->[$i], $i, $data->[$i], $result); } $result = &$handler($connector->[0], REDUCE_FINALIZATION, undef, $result); if (defined($result)) { my $reply_connector = $connector->[0]; $reply_connector->send_message(TakTuk::encode( $TakTuk::reduce_result, TakTuk::encode($type, $result))); } delete $reduce_connector{$type}; delete $reduce_remaining{$type}; delete $reduce_result{$type}; if (scalar(@reduce_pending)) { my $next = pop @reduce_pending; reduce($next->[0], $next->[1], $next->[2]); } } } sub reduce_result($$$) { my $message = shift; my $connector = shift; my $body = shift; diagnostic::debug("Reduce result from $general::taktuk{rank}"); my ($type,$value) = TakTuk::decode($body); if (exists($connector->{$type})) { $reduce_result{$type}->[$connector->{$type}] = $value; $reduce_remaining{$type}--; delete $connector->{$type}; reduce_status_analysis($type); } else { $connector->{pending_results}->{$type} = [] unless exists($connector->{pending_results}->{$type}); push @{$connector->{pending_results}->{$type}}, $value; } } sub check_ongoing_reduces($) { my $connector = shift; foreach my $type (keys(%reduce_connector)) { if (exists($connector->{$type})) { $reduce_remaining{$type}--; $reduce_result{$type}->[$connector->{$type}] = undef; reduce_status_analysis($type); } } } sub resign($$$) { my $message = shift; my $connector = shift; my $body = shift; scheduler::resign; foreach my $other_connector (communicator::get_connections('sources'), communicator::get_connections('sinks')) { if ($other_connector != $connector) { if ($other_connector->{state} < $connector::initialized) { $other_connector->output('connector',"canceled"); $other_connector->cancel; } else { $other_connector->send_message($TakTuk::resign); } } } } sub send_to($$$) { my $message = shift; my $connector = shift; my $body = shift; my ($to, $remaining) = TakTuk::unpack($body); diagnostic::debug("Message to $to and I'm $general::taktuk{rank}"); my $new_message; my @destination_list = general::decode_set($to, $general::taktuk{count}); if (not scalar(@destination_list)) { diagnostic::error("Invalid set specification : $to"); communicator::get_root->output('state', TakTuk::INVALID_DESTINATION); } my @upward = (); my @downward = (); my $delivery = 0; my $min = shift @destination_list; my $max = shift @destination_list; my $local_min; if ($general::taktuk{gateway}) { $local_min = $general::taktuk{child_min}; } else { $local_min = $general::taktuk{rank}; } # propagation upward of low numbered destinations while (defined($min) and ($min < $local_min)) { if ($max >= $local_min) { push @upward, $min, $local_min-1; unshift @destination_list, $local_min, $max; } else { push @upward, $min, $max; } $min = shift @destination_list; $max = shift @destination_list; } # local delivering if (defined($min) and ($min == $general::taktuk{rank})) { $delivery = 1; if ($max == $general::taktuk{rank}) { $min = shift @destination_list; $max = shift @destination_list; } else { $min++; } } # propagation downward of destination within children interval my $i=0; my @sinks = communicator::get_connections('sinks'); while (defined($min) and ($min <= $general::taktuk{child_max})) { # propagation upward of high numbered destinations if ($max > $general::taktuk{child_max}) { push @upward, $general::taktuk{child_max}+1, $max; $max = $general::taktuk{child_max}; } # move on to the next involved connector while (($i <= $#sinks) and ($min > $sinks[$i]->{max})) { # flush any pending forwarding from the last iteration if (scalar(@downward)) { $new_message = TakTuk::encode($message, TakTuk::pack(general::encode_set(@downward)).$remaining); $sinks[$i]->send_message($new_message); @downward = (); } $i++; } # if some destination are out of range, isolate them if (($i <= $#sinks) and ($min < $sinks[$i]->{min}) and ($max >= $sinks[$i]->{min})) { unshift @destination_list, $sinks[$i]->{min}, $max; $max = $sinks[$i]->{min}-1; } # handle the case where no connector match for a downward destination if (($i > $#sinks) or ($min < $sinks[$i]->{min})) { # I got a small issue : some destinations are not available diagnostic::warning("Send problem, ". (($min != $max)?"$min-$max":"$min")." not available anymore"); communicator::get_root->output('state', TakTuk::UNAVAILABLE_DESTINATION); } # otherwise extract the slice matching connector range and add it the # the set that must be propagated else { if ($max > $sinks[$i]->{max}) { unshift @destination_list, $sinks[$i]->{max}+1, $max; $max = $sinks[$i]->{max}; } push @downward, $min, $max; } # proceed to the next interval $min = shift @destination_list; $max = shift @destination_list; } if (scalar(@downward)) { $new_message = TakTuk::encode($message, TakTuk::pack(general::encode_set(@downward)).$remaining); $sinks[$i]->send_message($new_message); } # propagation upward of high numbered destinations while (defined($min)) { push @upward, $min, $max; $min = shift @destination_list; $max = shift @destination_list; } if (scalar(@upward)) { if ($general::root) { diagnostic::warning("Send problem, ".general::encode_set(@upward). " is(are) invalid destination(s)"); } else { $new_message = TakTuk::encode($message, TakTuk::pack(general::encode_set(@upward)).$remaining); communicator::get_root->send_message($new_message); } } # actual local delivery if ($delivery) { diagnostic::debug("Delivered message"); communicator::get_root->output('state', TakTuk::MESSAGE_DELIVERED); communicator::process_message($connector, $remaining); } } sub spread($$$) { my $message = shift; my $connector = shift; my $body = shift; broadcast($message, $connector, $body); diagnostic::debug("Handling message locally"); communicator::process_message($connector, $body); } sub steal($$$) { my $message = shift; my $connector = shift; my $body = shift; diagnostic::debug("Steal request : $body, connector : $connector"); scheduler::theft_handler($connector, $body); synchronizer::check_ready_state; } sub synchronize($$$) { my $message = shift; my $connector = shift; my $body = shift; communicator::process_message($connector, $body); } sub taktuk_code($$$) { my $message = shift; my $connector = shift; my $body = shift; diagnostic::debug("Taktuk code received"); $general::taktuk_code = $body; } sub taktuk_perl($$$) { my $message = shift; my $connector = shift; my $body = shift; my ($options, $arguments, $filename, $attributes); ($attributes, $body) = TakTuk::unpack($body); if ($body =~ /(?:^|\s)--(?:$|\s)/) { ($options, $arguments) = split /(?:^|\s)--(?:$|\s)/,$body,2; $arguments = "" if not defined($arguments); } else { ($options, $arguments) = ("", $body); } ($filename, $arguments) = split /\s/, $arguments, 2; $filename = "" if not defined($filename); $arguments = "" if not defined($arguments); diagnostic::debug("Taktuk perl execution, options [$options], filename ". "[$filename], arguments [$arguments]"); my $command = execute($TakTuk::execute, $connector, TakTuk::pack($attributes). "$general::perl_interpreter $options -- - $arguments"); if ($command) { $command->{line} = "taktuk_perl"; $command->{line} .= " $body" if $body; general::load_taktuk_package('TakTuk'); communicator::post_write($command->{read}, "{") or diagnostic::system; communicator::post_write($command->{read}, $general::taktuk_package) or diagnostic::system; communicator::post_write($command->{read}, "}package main;") or diagnostic::system; if ($filename and ($filename ne "-")) { $filename = qx{echo "$filename"}; chomp($filename); communicator::post_write($command->{read}, general::load_file($filename)) or diagnostic::system; communicator::post_close($command); } } } sub wait($$$) { my $message = shift; my $connector = shift; my $body = shift; my $reduce; ($reduce, $wait_target) = TakTuk::unpack($body); if (not $reduce or not $general::root) { if (($wait_target eq "any") or ($wait_target eq "all")) { $wait_remaining = scalar(communicator::get_connections('local_commands')); $waiting++ if $wait_remaining; } else { @wait_set = communicator::get_target_set($wait_target, 'local_commands'); $waiting++ if scalar(@wait_set); } } if ($reduce) { reduce($TakTuk::reduce, $connector, $TakTuk::reduce_wait); } elsif ($waiting) { synchronizer::suspend_engine_until(TakTuk::WAIT_COMPLETE, @synchronizer::execution_engine, @synchronizer::synchro_engine); } else { synchronizer::dispatch_event(TakTuk::WAIT_COMPLETE); } } sub wait_message($$$) { my $message = shift; my $connector = shift; my $body = shift; # Notice that the following method works only beacause there is at most one # blocked recv per process (other processes match other connectors and the # recv is in mutual exclusion). $connector->{pending_messages}--; if ($connector->{pending_messages} < 0) { push @pending_recv, $connector; if (scalar(@messages_pool)) { my ($code, $remaining) = TakTuk::decode(shift @messages_pool); message($code, undef, $remaining); } } if (($connector->{pending_messages} < 0) and $body and ($body > 0)) { my $timer = timer->register($body,\&recv_timeout); $timer->{connector} = $connector; $connector->{timer} = $timer; } } sub work($$$) { my $message = shift; my $connector = shift; my $body = shift; diagnostic::debug("Work received : $body"); scheduler::dispatch_work($body); synchronizer::check_ready_state; } sub init() { handlers::register_handler($TakTuk::arguments, \&arguments); handlers::register_handler($TakTuk::broadcast, \&broadcast); handlers::register_handler($TakTuk::command_message, \&message); handlers::register_handler($TakTuk::command_send_to, \&send_to); handlers::register_handler($TakTuk::down, \&down); handlers::register_handler($TakTuk::eof, \&eof); handlers::register_handler($TakTuk::execute, \&execute); handlers::register_handler($TakTuk::file, \&file); handlers::register_handler($TakTuk::forward_up, \&forward_up); handlers::register_handler($TakTuk::gateway, \&gateway); handlers::register_handler($TakTuk::get, \&get); handlers::register_handler($TakTuk::get_info, \&get_info); handlers::register_handler($TakTuk::input, \&input); handlers::register_handler($TakTuk::kill, \&kill); handlers::register_handler($TakTuk::message, \&message); handlers::register_handler($TakTuk::numbered, \&numbered); handlers::register_handler($TakTuk::output, \&output); handlers::register_handler($TakTuk::option, \&option); handlers::register_handler($TakTuk::options, \&options); handlers::register_handler($TakTuk::pipe, \&pipe); handlers::register_handler($TakTuk::position, \&position); handlers::register_handler($TakTuk::put, \&put); handlers::register_handler($TakTuk::quit, \&quit); handlers::register_handler($TakTuk::ready, \&ready); handlers::register_handler($TakTuk::reduce, \&reduce); handlers::register_handler($TakTuk::reduce_result, \&reduce_result); handlers::register_handler($TakTuk::resign, \&resign); handlers::register_handler($TakTuk::send_to, \&send_to); handlers::register_handler($TakTuk::spread, \&spread); handlers::register_handler($TakTuk::steal, \&steal); handlers::register_handler($TakTuk::synchronize, \&synchronize); handlers::register_handler($TakTuk::taktuk_code, \&taktuk_code); handlers::register_handler($TakTuk::taktuk_perl, \&taktuk_perl); handlers::register_handler($TakTuk::update_failed, \&update_failed); handlers::register_handler($TakTuk::wait, \&wait); handlers::register_handler($TakTuk::wait_message, \&wait_message); handlers::register_handler($TakTuk::work, \&work); } ############################################### ### MAIN ### ############################################### package main; use strict; use bytes; our $taktuk_interpreter = undef; our $in_interpreter = 1; our $interactive = 0; our $forced_interactive = 0; our $no_numbering = 0; our $terminate = 0; our $quit_message = $TakTuk::quit; our $taktuk_side; our $interpreter_side; sub is_one_of($@) { my $prefix = shift; my $found = undef; my $number_found = 0; foreach my $fullname (@_) { if ($fullname =~ m/^$prefix/) { $found = $fullname; $number_found++; } } $prefix=$found if ($number_found == 1); return $prefix; } sub get_attributes() { my $attributes = ""; my $timeout_pack = ""; my $argument = arguments::get_next_argument; while ($argument =~ m/^[a-z]+$/o) { $argument = is_one_of($argument, qw(timeout action kill)); if ($argument eq "timeout") { my $value = arguments::get_next_argument; if (length($timeout_pack)) { $attributes .= TakTuk::pack($timeout_pack); $timeout_pack = ""; } $timeout_pack = TakTuk::encode($TakTuk::timeout, TakTuk::pack($value)); } elsif ($argument eq "action") { my ($message, $type, $data) = translate; if (length($timeout_pack)) { if (not $type) { $timeout_pack .= TakTuk::pack( TakTuk::encode($TakTuk::action, $message)) if defined($message); } else { diagnostic::warning("Invalid attribute action"); } } else { diagnostic::warning("Action requires timeout specification"); } } elsif ($argument eq "kill") { my $value = arguments::get_next_argument; if ($value =~ m/^\d+$/) { if (length($timeout_pack)) { $timeout_pack .= TakTuk::pack(TakTuk::encode($TakTuk::kill, $value)); } else { diagnostic::warning("Kill requires timeout specification"); } } else { diagnostic::error("Invalid signal number for kill"); } } elsif ($argument eq "target") { my $value = arguments::get_next_argument; $attributes .= TakTuk::pack(TakTuk::encode($TakTuk::id, $value)); } else { diagnostic::warning("Unknown option $argument for exec"); } $argument = arguments::get_next_argument; } $attributes .= TakTuk::pack($timeout_pack) if length($timeout_pack); arguments::restore_last_argument; diagnostic::debug("Exec attributes : $attributes"); return $attributes; } sub translate() { my $message = undef; my $type = ""; my $data = undef; my @commands = qw(broadcast downcast exec get help input kill message network option put synchronize taktuk_perl version quit wait); my $found=""; my $number_found=0; my $command; # because of e.g. help, should take commands separators into account $command = arguments::get_next_command; if (not $arguments_ended and ($command =~ m/^[a-z]+$/o)) { $command = is_one_of($command, @commands); } if ($arguments_ended) { } elsif ($command =~ m/^\s*$/o) { } elsif ($command =~ /^\d/) { ($message, $type, $data) = translate(); $message = TakTuk::encode($TakTuk::command_send_to, TakTuk::pack($command).$message) if (defined($message)); } elsif ($command eq "broadcast") { ($message, $type, $data) = translate(); $message = TakTuk::encode($TakTuk::broadcast, $message) if (defined($message)); } elsif ($command eq "downcast") { ($message, $type, $data) = translate(); $message = TakTuk::encode($TakTuk::down, TakTuk::encode( $TakTuk::broadcast, $message)) if (defined($message)); } elsif ($command eq "exec") { my $attributes = get_attributes; my $parameters = arguments::get_parameters; if (defined($parameters)) { $message = TakTuk::encode($TakTuk::execute, TakTuk::pack($attributes).$parameters); } else { $terminate = 1; } } elsif ($command eq "get") { my $source = arguments::get_parameters; my $destination = arguments::get_parameters; if (defined($source) and defined($destination)) { $message = ""; $type = $TakTuk::get; $data = [ $source, $destination ]; } else { $terminate = 1; } } elsif ($command eq "help") { general::print_help; } elsif (($command eq "input") or ($command eq "message")) { my @keywords; my $message_code; my $target; # because of close, should take commands separators into account my $name = arguments::get_next_command; if (defined($name) and ($name =~ m/^[a-z]+$/)) { $name = is_one_of($name, "target"); } if ($name eq "target") { $target = arguments::get_next_argument; $name = arguments::get_next_command; } else { $target = ($command eq "input") ? "all" : "any"; } if ($command eq "input") { @keywords = qw(close data file line pipe); $message_code = TakTuk::encode($TakTuk::input, TakTuk::pack($target)); } else { @keywords = qw(data file line pipe); $message_code = TakTuk::encode($TakTuk::command_message, TakTuk::pack($target).TakTuk::pack(0)); } if (defined($name) and ($name =~ m/^[a-z]+$/)) { $name = is_one_of($name, @keywords); } else { arguments::restore_last_command; $name = "data"; } if (($name eq "close") and ($command eq "input")) { $message = TakTuk::encode($TakTuk::eof, $target); } else { my $parameters = arguments::get_parameters; if (defined($parameters)) { if ($name eq "data") { $message = TakTuk::encode($message_code, $parameters); } elsif ($name eq "line") { $message = TakTuk::encode($message_code,$parameters."\n"); } elsif ($name eq "file") { $message = ""; $type = $TakTuk::file; $data = general::open_file($parameters); $message = $message_code if $data; } elsif ($name eq "pipe") { $message = ""; $type = $TakTuk::pipe; $data = $parameters; $message = $message_code; } else { diagnostic::warning("Unknown input type, ignoring command"); } } else { $terminate = 1; } } } elsif ($command eq "kill") { my $target; my $name = arguments::get_next_command; if (defined($name) and ($name =~ m/^[a-z]+$/)) { $name = is_one_of($name, "target"); } if ($name eq "target") { $target = arguments::get_next_command; $name = arguments::get_next_command; } else { $target = "all"; } if ($name) { $message = TakTuk::encode($TakTuk::kill, TakTuk::pack($target).$name); } else { $message = TakTuk::encode($TakTuk::kill, TakTuk::pack($target).15); } } elsif ($command eq "network") { my $subcommand = arguments::get_next_command; if (defined($subcommand) and ($subcommand =~ m/^[a-z]+$/)) { $subcommand = is_one_of($subcommand, qw(cancel state renumber update)); } if ($subcommand eq "cancel") { $message = $TakTuk::resign; } elsif (($subcommand eq "state") or ($subcommand eq "")) { if ($general::root) { $message = TakTuk::encode($TakTuk::reduce, $TakTuk::reduce_tree); } else { diagnostic::warning("Cannot print tree from non root node"); } } elsif ($subcommand eq "renumber") { if ($general::root) { $message = TakTuk::encode($TakTuk::spread, TakTuk::encode($TakTuk::reduce, $TakTuk::reduce_count)); } else { diagnostic::warning("Cannot renumber from non root node"); } } elsif ($subcommand eq "update") { if ($general::root) { $message = TakTuk::encode($TakTuk::spread, TakTuk::encode($TakTuk::reduce, $TakTuk::reduce_count.1)); } else { diagnostic::warning("Cannot update from non root node"); } } else { diagnostic::warning("Unknwon network command $subcommand"); } } elsif ($command eq "option") { my $name = arguments::get_next_argument; if (defined($name) and ($name =~ m/^[-a-z]+$/)) { my $parameters = arguments::get_parameters; if (defined($parameters)) { $name = $option::short_name{$name} if (length($name) > 1); $message = TakTuk::encode($TakTuk::option, $name.$parameters); } else { $terminate = 1; } } else { arguments::restore_last_argument; my $parameters = arguments::get_parameters; if (defined($parameters)) { $message = TakTuk::encode($TakTuk::options, $parameters); } else { $terminate = 1; } } } elsif ($command eq "put") { my $source = arguments::get_parameters; my $destination = arguments::get_parameters; if (defined($source) and defined($destination)) { $message = ""; $type = $TakTuk::put; $data = [ $source, $destination ]; } else { $terminate = 1; } } elsif ($command eq "quit") { $message = $quit_message; # Don't terminate here because the quit might be sent to some other node } elsif ($command eq "synchronize") { ($message, $type, $data) = translate(); $message = TakTuk::encode($TakTuk::synchronize, $message) if (defined($message)); } elsif ($command eq "taktuk_perl") { my $attributes = get_attributes; my $parameters = arguments::get_parameters; if (defined($parameters)) { $message = TakTuk::encode($TakTuk::taktuk_perl, TakTuk::pack($attributes).$parameters); } else { $terminate = 1; } } elsif ($command eq "version") { arguments::print_version; } elsif ($command eq "wait") { my $subcommand = arguments::get_next_command; my $reduce = 0; my $unknown = 0; my $target; if (defined($subcommand) and ($subcommand =~ m/^[a-z]+$/)) { $subcommand = is_one_of($subcommand, qw(reduce target)); } if ($subcommand eq "reduce") { if ($general::root) { # Wait all is not implemented directly as the spread of a # reduce to be sure successive wait commands are sequentialized # with other commands (because reduces are not suspended during # the wait, this could hang TakTuk) $reduce = 1; $message = TakTuk::encode($TakTuk::spread, $TakTuk::wait); $subcommand = arguments::get_next_command; if (defined($subcommand) and ($subcommand =~ m/^[a-z]+$/)) { $subcommand = is_one_of($subcommand, qw(target)); } } else { diagnostic::warning("Cannot wait reduce from non root node"); $message = ""; } } else { $message = $TakTuk::wait; } if ($subcommand eq "target") { $target = arguments::get_next_command; $message = TakTuk::encode($message, TakTuk::pack($reduce).$target); } else { diagnostic::warning("Expected 'target' instead of $subcommand"); $message = ""; } } else { diagnostic::error("Unknown command : $command"); } return ($message, $type, $data); } sub terminate_interpreter() { exit 0; } sub fork_taktuk_interpreter() { ($interpreter_side, $taktuk_side) = communicator::create_channel; $taktuk_interpreter = fork(); if (not defined($taktuk_interpreter)) { diagnostic::system; # I'm quite worried in this case. The fork interpreter is mandatory in # the root node diagnostic::error("FATAL : cannot continue without forked interpreter"); exit 1; } if (not $taktuk_interpreter) { $SIG{INT} = \&terminate_interpreter; if ($arguments::arguments_ended or $forced_interactive) { diagnostic::debug("Interactive mode"); if ($arguments::arguments_ended) { arguments::fetch_arguments(\*STDIN); } else { $interactive = 1; } } $taktuk_side->cleanup; communicator::cleanup; arguments::initialize_terminal; process_commands(); $interpreter_side->cleanup; exit 0; } else { # This one is not necessary as the node 0 does not execute anything # It will serve to detect interpreter termination $interpreter_side->cleanup; $taktuk_side->{remove_handler} = \&communicator::remove_interpreter; communicator::add_connector($taktuk_side, 'interpreter'); } } sub handle_message($) { my $message = shift; if (defined($taktuk_interpreter)) { $interpreter_side->send_message($message); communicator::flush_pending_stuff; } else { communicator::process_message(undef, $message); } } sub process_commands() { my $message; my $type; my $data; handle_message(TakTuk::encode($TakTuk::spread, TakTuk::encode($TakTuk::reduce, $TakTuk::reduce_count))) if (($general::root) and !$no_numbering); while (not $arguments::arguments_ended and not $terminate) { ($message, $type, $data) = translate(); #diagnostic::warning("Message $message type $type data $data"); arguments::skip_command_separator unless $arguments::arguments_ended; if (defined($message)) { if ($type eq $TakTuk::file) { my $result; my $partial_message; my $buffer; # I read half less than $TakTuk::read_size to minimize # the chances of having fragmented taktuk packets $result = sysread($data, $buffer, $TakTuk::read_size/2); while ($result) { $partial_message = TakTuk::encode($message, $buffer); diagnostic::debug("Message to send : $partial_message"); handle_message($partial_message); $result = sysread($data, $buffer, $TakTuk::read_size/2); } diagnostic::system if not defined($result); CORE::close($data) if ($data != \*STDIN); } elsif ($type eq $TakTuk::pipe) { my $new_message = TakTuk::encode($TakTuk::pipe, TakTuk::pack($data).$message); handle_message($new_message); } elsif (($type eq $TakTuk::put) or ($type eq $TakTuk::get)) { if ($message) { my $new_message = TakTuk::encode($type, TakTuk::pack( $message).TakTuk::pack($data->[0]).$data->[1]); handle_message($new_message); } else { diagnostic::warning("get/put require a destination ". "modifier"); } } else { diagnostic::debug("Message to send : $message"); handle_message($message); } } if ($arguments::arguments_ended and $interactive) { arguments::fetch_arguments(\*STDIN); $interactive = 0; } } diagnostic::debug("End of process commands"); diagnostic::debug("Args ended : $arguments::arguments_ended ". "Terminate : $terminate"); } TakTuk::no_flush(\*STDOUT); # Order of the following matters: # general wich sets some general values and does not rely on others inits # then handlers to enable diagnostic messages (might occur in arguments init) # then arguments to parse environment # then communicator that sets some taktuk environment variables that would # conflict with arguments init if set earlier general::init; handlers::init; arguments::init; communicator::init; synchronizer::init; # suspend the diffusion engine # This call will synchronize all broadcast-like operations with the deployment # Must come after handlers::init as it replaces some handlers # Must come before the ready state check (of course). This implies that this # should be called before parsing options, because options parsing starts some # deployments that might get initialized and cause a call to check_ready_state synchronizer::suspend_engine_until(TakTuk::TAKTUK_READY, @synchronizer::diffusion_engine); arguments::fetch_arguments(@ARGV); arguments::parse_options; # This call will synchronize all executions (even local ones) with the logical # nodes numbering (should be ok after options parsing) synchronizer::setup_synchronization; if ($general::root) { $synchronizer::father_is_ready = 1; # Commands in nodes other than root are sent along with arguments using # an 'arguments' message fork_taktuk_interpreter; } else { general::print($connector::init_string.$TakTuk::VERSION_NETPROTO."\n"); } $in_interpreter = 0; # has to be called once after arguments parsing and 'father_is_ready' setting # for the case in which there are no connectors to deploy # Other tests will be called on connector initialization complete or on # connection errors synchronizer::check_ready_state; # Useful especially for stealing if I've nothing to do scheduler::schedule; communicator::run; diagnostic::debug("End of the taktuk code"); communicator::get_root()->output('state', TakTuk::TAKTUK_TERMINATED); # This kills the interpreter (jsut in case the termination came form elsewhere, # a quit command for instance) if ($general::root) { kill 'INT', $taktuk_interpreter; waitpid $taktuk_interpreter, 0; } exit 0; # WARNING : avoid to put anything below the following line if you want the # autoload feature to run smoothly __END__ taktuk-3.7.7/taktuk.pc.in000644 000765 000024 00000000726 13136570041 016115 0ustar00zebulonstaff000000 000000 prefix=@prefix@ exec_prefix=@exec_prefix@ libdir=@libdir@ includedir=@includedir@ Name: TakTuk Description: Adaptive large scale remote execution deployment Version: @VERSION@ URL: http://taktuk.gforge.inria.fr #Requires: glib #Conflicts: foobar <= 4.5 # Libs: bibliothèques nécessaire pour linker dynamiquement une appli externe # Libs.private: bibliothèques à rajouter en cas de link statique Libs: -L${libdir} -ltaktuk #Libs.private: -lm Cflags: -I${includedir} taktuk-3.7.7/taktuk.pod000644 000765 000024 00000152506 13136570041 015674 0ustar00zebulonstaff000000 000000 ############################################################################### # # # TakTuk, a middleware for adaptive large scale parallel remote executions # # deployment. Perl implementation, copyright(C) 2006 Guillaume Huard. # # # # 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 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, write to the Free Software # # Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA # # # # Contact: Guillaume.Huard@imag.fr # # Laboratoire LIG - ENSIMAG - Antenne de Montbonnot # # 51 avenue Jean Kuntzmann # # 38330 Montbonnot Saint Martin # # FRANCE # # # ############################################################################### =pod TakTuk documentation =begin html

USER MANUAL

=end html =head1 NAME B - a tool for large scale remote execution deployment =head1 SYNOPSIS B [B<-behinsvzMP>] [B<-c> connector] [B<-d> limit] [B<-f> filename] [B<-g> duration] [B<-l> login] [B<-m> hostname [B<-[> args ... B<-]>]] [B<-o> stream=template] [B<-t> timeout] [B<-u> limit] [B<-w> size] [B<-B> parameter=expression] [B<-C> separators] [B<-E> character] [B<-F> filename] [B<-G> hostname [B<-[> args ... B<-]>]] [B<-L> hostname] [B<-I> interpreter] [B<-O> separators] [B<-R> stream=filename] [B<-S> files] [B<-T> command] [B<-V> path ] [B<-W> scheme] [commands ... ] =head1 DESCRIPTION B is a tool for broadcasting the remote execution of one ore more commands to a set of one or more distant machines. B combines local parallelization (using concurrent deployment processes) and work distribution (using an adaptive work-stealing algorithm) to achieve both B and B. B is especially suited to interactive tasks involving several distant machines and parallel remote executions. This is the case of clusters administration and parallel program debugging. B also provides a basic communication layer to programs it executes. This communication layer uses the communication infrastructure set up by B during its deployment. It is available both for the Perl and the C langages and is described in C and C respectively. =head1 OPTIONS Caution, in B options are parsed in the order given on the command line. This means that B is not POSIX compliant regarding options order. This is important as some of the options change the behavior of following ones (and only these ones - e.g. B<-l> applies to following B<-m> options). The defaults settings of B can be obtained by using the C<--print-defaults> option. The following options are given by category in alphabetical order. =head1 DEPLOYMENT OPTIONS =over =item B<-b> =item B<--begin-group> begins a new deployment group. A deployment group acts both as a context for most options (options set within a group have no effect outside the group) and as an isolation for deployment tasks scheduling (deployment tasks within a group cannot be stolen by nodes deployed in other groups). =item B<-c> connector =item B<--connector> connector defines the connector command used to contact the following remote machines. =item B<-d> limit =item B<--dynamic> limit turns dynamic mode (work stealing) on or off for the deployment of all the following remote machines specifications. If C is positive or null, B uses the dynamic mode with its value as a maximal arity (0 = no maximal arity). A negative value for C turns dynamic mode off. B, currently it is a bad idea to use several -d options with positive values on the same command line. =item B<-e> =item B<--end-group> ends a deployment group. =item B<-f> filename =item B<--machines-file> filename C is the name of a file that contains remote machines names (equivalent to several C<-m> opions). In each line of this file, the first word is considered as a machine name and the remaining as comments. =item B<-l> login =item B<--login> login sets the login name for the following hosts. This assumes that the connector command accepts C<-l> option (this is the case for ssh, the default). =item B<-m> hostname =item B<--machine> hostname C is the name of a remote machine on which B has to be deployed. C might contain list of values specified inside brackets and exclusion lists (see L). In such case, the depolyment will be performed on all the matching hosts. This option can be followed by any number of arguments enclosed between C<-[> and C<-]> which will be transmitted as arguments of the remote B that will execute on all the target hosts. =item B<-s> =item B<--self-propagate> propagates the B executable through the following connectors and thus eliminates the need for a B installation on remote machines. =item B<-z> =item B<--dont-self-propagate> cancels a preceding B<-s> option. =item B<-F> filename =item B<--args-file> filename C is the name of a file that contains additional options for B. The parsing of the file is done when encountering this option. =item B<-G> hostname =item B<--gateway> hostname same as B<-m> hostname, except that the deployed node(s) are considered as forward-only nodes: they will not be numbered and will not be targeted by subsequent diffusion commands. As an exception, execution of B commands on those nodes is still possible by giving them as deployment arguments of the B<-G> option. =item B<-I> command =item B<--perl-interpreter> command C is the name of the command to use as a Perl interpreter when auto propagating or when using the C command. =item B<-L> hostname =item B<--localhost> hostname changes the name of localhost as viewed by B. =item B<-S> files =item B<--send-files> files gives to B a list of files to be sent upon successfull remote connection. Use with caution as it will slow down deployment (the files are transferred before the end of the deployment). The intended use is NOT to transfer application data files (rather use the C command to transfer such files). This option should be used to transfer files that are necessary to perform further connections from the remote node. C is a comma separated list of pairs C. Regarding the transfer itself, it behaves as the C command. =item B<-T> command =item B<--taktuk-command> command C is the name of the B command (default is $0, the name used to launch B). This is the command used once connected to initiate the remote B engine. Note that the effect of this switch is void when using the C<-s> option. =item B<-V> list =item B<--path-value> list set the PATH environment variable to the given list (as usual, a colon separated directories list) on remote hosts to which B connects. This is performed very early and is taken into account even for C or C invocations at connection time. =back =head1 COMMAND LINE PARSING OPTIONS =over =item B<-C> separators set =item B<--command-separator> separators set replaces the default set of characters that separates successive B commands. =item B<-E> character =item B<--escape-character> character defines an escape character that can be used to protect any following character from B interpretation. This protection applies nearly to the whole B command line. =item B<-O> separators set =item B<--option-separator> separators set replaces the default set of characters that separates successive words when reading options and commands from a file (using the C<-F> switch). =back =head1 I/O OPTIONS =over =item B<-o> stream=template =item B<--output-template> stream=template sets an output template specification for one of output streams designed by the given name. When giving only a stream name (without template) this disables the stream. Available streams include : =over =item C (errors from the connector command) this stream contains in C<$line> information outputed to stderr by a connector command. Relevant fields include C<$host>, C<$peer> and others listed below. =item C, C (error and output of remotely executed commands) these streams contain in C<$line> information outputed by executed command to stdout or stderr (respectively). Relevant fields include C<$host>, C<$command>, C<$pid> and others listed below. =item C (general information such as help summary or version) this stream contains in C<$line> information outputed by taktuk in response to commands such as C or C. =item C (messages from running processes) each output of this stream contains in C<$line> a message sent with target "output" (through B out-of-band communications facilities) by some processus started using B commands. Relevant fields for this stream include C<$from> and C<$to> and others listed below. =item C (internal state of TakTuk instance) this stream contains in C<$line> the state change code matching some B events. Codes are the following: 0 - TakTuk is ready 1 - TakTuk is numbered 2 - TakTuk terminated 3 - connection failed 4 - connection initialized 5 - connection lost 6 - command started 7 - command failed 8 - command terminated 9 - numbering update failed 10 - pipe input started 11 - pipe input failed 12 - pipe input terminated 13 - file reception started 14 - file reception failed 15 - file reception terminated 16 - file send failed 17 - Invalid target 18 - No target 19 - Message delivered 20 - Invalid destination 21 - Destination not available anymore 22 - Wait complete 23 - Wait reduce complete The function C can be used in the template to translate this code into a string that describes the event. Relevant fields include C<$host>, C<$position>, C<$rank>, C<$count> and others listed below. =item C (commands exit status) this stream contains in C<$line> the return code of executed commands. Relevant fields include C<$host>, C<$pid> and others listed below. =item C (internal messages, warnings and errors) this stream contains in C<$line> error, warning and debug messages outputed by B itself. Relevant fields include C<$line_number>, C<$package> and others listed below. =back a template is a Perl expression that should evaluate to the string eventually displayed. Within a specification, some variables might be used depending on the concerned stream: =over =item C<$command> (not for C nor C) the command line execution that generated output. =item C<$count> the total number of B instances. =item C<$eol> an empty string or a newline depending on what character ended command output. =item C<$filename> (C only) the file in which a B diagnostic function has been called. =item C<$from> (C only) the logical number of the B instance from which the message has been sent. =item C<$host> the name of the host executing the current B instance =item C<$init_date> (C and C only) the time in seconds since Jan. 1, 1970 at which the remote B instance completed its initialization (including ssh connection time and self propagation if any). =item C<$level> (C only) the level of the diagnostic function called. =item C<$level_name> (C only) the name associated with the level of the diagnostic function called. =item C<$line> the raw data outputed by a command or passed to a diagnostic function, any trailing newline removed (see $eol). =item C<$line_number> (C only) the line number at which a B diagnostic function has been called. =item C<$package> (C only) the package in which a B diagnostic function has been called. =item C<$peer> (C and C only) the remote machine for which a connector command outputed information. =item C<$peer_position> (C and C only) position on the command line of the remote host. This position is expressed as a path in the hierarchy of hosts expressed on the command line (dot separated position number at each level of imbrication). =item C<$peers_given> (C only) a space separated list of remote nodes that has been given to the remote peer for deployment (whatever their deployment state). Each remote node is specified as a colon separated couple made of its hostname and its position on the command line. This variable has only a meaningful value when the event outputed to the stream C is a connection loss (event number 5). =item C<$pid> (not for C nor C) the pid of the command line executed (that produced output). =item C<$position> position on the command line of the current host. This position is expressed as a path in the hierarchy of hosts expressed on the command line (dot separated position number at each level of imbrication). =item C<$rank> the logical number of B instance in which output is collected. =item C<$reply_date> (C and C only) the time in seconds since Jan. 1, 1970 at which the connector command replied to the local B instance (note that this does not include the initialization exange occuring before the remote B is considered as functional). =item C<$start_date> (C, C, C and C) the time in seconds since Jan. 1, 1970 at which the command started (taken just after the call to fork()). =item C<$init_date> (C and C only) the time in seconds since Jan. 1, 1970 at which the remote B completed its initilization. =item C<$stop_date> (C and C only) the time in seconds since Jan. 1, 1970 at which the command terminated (after the closing of its stdout). =item C<$to> (C only) the logical number (or set of such numbers) of the B instance to which the message has been sent. =item C<$type> the name of the output stream (connector, error, output, ...). =item C<$user_scalar> a scalar, global to the package, initially initialized to undef, that the user is free to use for any purpose. =back at the end of the day, the specification is evaluated for each line of the concerned stream and the result printed on the root node. Note that the newline has to be added explicitly as C<\n> in the template if needed. WARNING: take care of your specification, if the Perl syntax is not correct lots of awfull compilation error messages will be displayed and B execution will fail. =item B<-R> stream=filename =item B<--output-redirect> stream=filename redirect a given stream output to a given file (located at the root node). Notice that the given filename comply with Perl open syntax: for instance, one might redirect to a file descriptor X using the name ">&=X". See C<-o> option for more details about streams output. =back =head1 PERFORMANCE TUNING OPTIONS =over =item B<-B> parameter=expression =item B<--worksteal-behavior> parameter=expression caution: this feature should be considered as experimental and could be removed from future releases. Tunes finely the behavior of the work-stealing algorithm by setting some its parameters to Perl expressions. These Perl expressions can use the variables C<$last_given> and C<$available> which are respectively equal to the number of tasks given to a stealer last time it stole and to the total number of remaining deployment tasks. Available parameters are : =over =item initial the number of tasks given to a remote B instance the first time it send a steal request to the local host. =item growth the number of tasks given to a remote B instance each time it performs a steal to the local host after the first time. =item limit an upper bound to the value resulting from the evaluation of C. =back =item B<-g> duration =item B<--time-granularity> duration sets to C (in seconds) the maximal interval between timeouts checks (usually checks are made more often: at each message received a timeouts check is made). =item B<-n> =item B<--no-numbering> disables B logical numbering and the variables C and C are not defined in executed commands. This has the advantage of removing the global synchronization occuring at the end of the deployment and making the deployment more efficient. WARNING: use this option only before any remote node specification (C<-m> or C<-f>) otherwise you might get serious synchronization issues in B. Using B point-to-point communication along with this option will fail and produce B warnings. =item B<-t> timeout =item B<--timeout> timeout sets the timeout (in seconds) for following connectors (0 = no timeout). Notice that this option override the timeout of the connector command (C for instance). When the delay expires, the connector command is simply killed. =item B<-u> limit =item B<--cache-limit> limit limits a number of memory bytes B might use as an internal write buffer. For most users, setting such a limit is a bad idea : in some rare situations it might result in a deadlock in B (caused by parallel blocking writes between an application and B itself). Setting this option to a negative value disables the limit (default). Nevertheless, if you use B to transfer large files, because of I/O bandwidth disparities in various parts of a system, B memory use might grow too large and performance can be severely degraded when the system starts swapping. In such situations, limiting the size of the internal cache will keep B in main memory and preserve the performance. =item B<-w> size =item B<--window> size sets initial window to the given size (= pipeline width). =item B<-W> scheme =item B<--window-adaptation> scheme sets the windows adaptation scheme to number (default is 0, 0: no adaptation, 1: implementation in progress). =back =head1 MISCELLANEOUS OPTIONS =over =item B<-M> =item B<--my> makes the next option local (not inherited). This means that the next option is set only for the local host and not propagated to children B instances. Has no effect if the next option is already a local one. =item B<-h> =item B<--help> prints a short description of B on the screen. =item B<-i> =item B<--interactive> forces B interactive mode even after some batch commands given on the command line. =item B<-v> =item B<--version> prints the B version. =item B<-P> =item B<--print-defaults> prints the defaults settings used by B (environment variables taken into account). =back =head1 INTERNAL OPTIONS These option are not useful for most users. They are used either internally by B itself or for development purposes. =over =item B<-p> packagename =item B<--print-package> packagename prints the content of package C extracted from the taktuk code in execution. =item B<-r> =item B<--not-root> current B instance is not the root node. This is an internal switch used by spawned B instances. This is usually not useful for most users. =item B<-D> scope=level =item B<--debug> scope=level sets debugging level (1..4) for C. The C might be a B package name or C and the lowest the level the more verbose the output. =back =head1 COMMANDS After the options parsing, B expects some commands either on the remaining of the command line (batch mode) or on the standard input (interactive mode). These commands are actions to be performed by B using the logical network infrastructure set up during the deployment. By default, commands might be separated by ; or newlines. For all the commands, any non ambiguous prefix can be used instead of their full name. In interactive mode, B has support for C (history, command line editing) if installed on your system. When B commands accept arguments, they should be enclosed into matching delimiters (indicated by * below). In other words, * might be replaced either by any non alphanumeric character or by a pair of matching braces, brackets or parenthesis. These delimiters must be separated from their content (using the options separator). If the argument contains a closing delimiter preceded by a separator, then it is probably a good idea to escape it (see B<-E> option) or to protect the whole arguments string if given on the command line. Taktuk understands the following commands: =over =item B<[ set specification ]> command Sends the execution of command to all the peers belonging to the given set. For more details about the set specification, see section L<"SET AND TARGETS SPECIFICATION">. =item B command Broadcasts the execution of command on all the remote peers (not including the node initiating the broadcast). =item B command Spreads the execution of command on all the children of the node initiating the downcast (not including itself). =item B parameters * command line * Executes the C on the local machine. Inputs/outputs of the execution are multiplexed and fowarded to the B root. This command accepts optional parameters that enable the attachment of callbacks triggered by timeouts to the execution of the command. See section L<"EXEC PARAMETERS"> for more details. =item B * src * * dest * Copies (a) remote sourceZ<>(s) (present on the remote nodeZ<>(s)) to a destination on the node executing this command. The type of source and destination is quite similar to those accepted by the C command (that is file or directories). This command also performs some kind of magic with its parameters: shell environment variables present in the source or destination names are replaced by their respective value on the remote and local nodes. In addition, the variables C<$host>, C<$rank> and C<$position> of the remote node (which are the same as in B<-o> option) can also be used in both names. =item B Prints a very concise B help. =item B B<[ target> target B<]> * data * =item B B<[ target> target B<]> B * data * Sends the given data as input to commands in execution on the local machine as specified by the given target. If no target is given, the data is sent to all commands. For more details about targets, see L<"SET AND TARGETS SPECIFICATION"> =item B B<[ target> target B<]> B Closes the inputs descriptor of executing commands on the local machine as specified by the given target. If no target is given, the inputs of all commands are closed. =item B B<[ target> target B<]> B * filename * Sends the content of a file (which must be local to the node executing the input file) as input to commands in execution on the local machine as specified by the given target. If no target is given, the data is sent to all commands. WARNING: this command is not atomic. If you manage somehow to initiate a input file command from two different B instances, data will probably be interleaved. In this case you should synchronize the two instances. This is not required when spreading files only from the root node. =item B B<[ target> target B<]> B * data * Sends the given data with an additional newline as input to commands in execution on the local machine as specified by the given target. If no target is given, the data is sent to all commands. =item B B<[ target> target B<]> B * filename * Treat the parameter as a file (which must be local to the node executing the input pipe) which behavior is the same as a pipe: data can arrive continuously. B add it as one of its input channels and send data as input to commands when available. If given, the target specifies to which command the data are to be sent, otherwise it is sent to all commands. =item B B<[ target> target B<]> Sends the given signal to local commands processes groups. If no signal is given, sends a TERM signal (signal 15). If given, the target specifies to which command the signal is to be sent, otherwise it is sent to all commands. For more details about targets, see L<"SET AND TARGETS SPECIFICATION"> =item B B<[ target> target B<]> * data * =item B B<[ target> target B<]> B * data * Sends the given data as a message to commands in execution on the local machine as specified by the given target (see C and C for more details about messages). If no target is given, the data is sent to the first command peforming a receive and not already targeted by another message. For more details about targets, see L<"SET AND TARGETS SPECIFICATION"> =item B B<[ target> target B<]> B * filename * Sends the content of a file (which must be local to the node executing the message file) as a message to commands in execution on the local machine as specified by the given target (see C and C for more details about messages). If no target is given, the data is sent to the first command peforming a receive and not already targeted by another message. WARNING: this command is not atomic. If you manage somehow to initiate a message file command from two different B instances, data will probably be interleaved. In this case you should synchronize the two instances. This is not required when spreading files only from the root node. =item B B<[ target> target B<]> B * data * Sends the given data with an additional newline as a message to commands in execution on the local machine as specified by the given target (see C and C for more details about messages). If no target is given, the data is sent to the first command peforming a receive and not already targeted by another message. =item B B<[ target> target B<]> B * data * Treat the parameter as a filename (which must be local to the node executing the input pipe) which behavior is the same as a pipe: data can arrive continuously. B add it as one of its input channels and send data as a message to commands when available (see C and C for more details about messages). If given, the target specifies to which command the data are to be sent, otherwise it is sent to the first command peforming a receive and not already targeted by another message. =item B =item B Prints the current B deployment tree. Numbers in parenthesis match the peer rank in the logical B numbering and the peer ready state. If the deployment is not complete, the printed tree will display C leaves. =item B Cancels all ongoing connections. Consequently, this causes immediate starting of the possible numbering of B instances and the execution of B commands. =item B Completely recomputes the logical numbering of B instances. This is especially useful when adding new nodes to the deployed network after initial numbering. =item B Updates the logical numbering of B instances without changing already existing numbers. Does not always succeed as B uses a depth first scheme for numbering. Sends an event 9 in the stream 'state' for each node of the tree that cannot be updated while keeping B numbering scheme. This is especially useful when adding new nodes to the deployed network after initial numbering. =item B