source: trunk/essentials/sys-devel/autoconf-2.13/testsuite/config/unix.exp

# -*- TCL -*-
# Test-specific TCL procedures required by DejaGNU.
# Copyright (C) 1994 Free Software Foundation, Inc.

# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 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., 675 Mass Ave, Cambridge, MA 02139, USA.

# Modified by David MacKenzie <djm@gnu.ai.mit.edu> from the gcc files
# written by Rob Savoye <rob@cygnus.com>.


#
# Called by runtest.
# Extract and print the version number of autoconf.
#
proc autoconf_version {} {
    global AUTOCONF
    global AUTOCONFFLAGS

    if {[which $AUTOCONF] != 0} then {
        set tmp [ eval exec $AUTOCONF $AUTOCONFFLAGS --version /dev/null ]
        regexp "version.*$" $tmp version
        if [info exists version] then {
            clone_output "[which $AUTOCONF] $version\n"
        } else {
            warning "cannot get version from $tmp."
        }
    } else {
        warning "$AUTOCONF, program does not exist"
    }
}

#
# Compile a configure.in using autoconf.
# Runs autoconf and leaves the output in $comp_output.
# Called by individual test scripts.
# Return 1 if ok, 0 if not.
proc autoconf_start { configout } {
    global verbose
    global AUTOCONF
    global AUTOCONFFLAGS
    global comp_output

    if {[which $AUTOCONF] == 0} then {
        error "$AUTOCONF, program does not exist"
        exit 1
    }

    set configin "$configout.in"

    send_log "$AUTOCONF $AUTOCONFFLAGS $configin > $configout\n"
    if $verbose>1 then {
        send_user "Spawning \"$AUTOCONF $AUTOCONFFLAGS $configin > $configout\"\n"
    }

    catch "exec $AUTOCONF $AUTOCONFFLAGS $configin > $configout" comp_output
    if ![string match "" $comp_output] then {
        send_log "$comp_output\n"
        if $verbose>1 then {
            send_user "$comp_output\n"
        }
    }
    catch "exec chmod +x $configout"
    return 1
}

#
# Execute the configure script.
# Leaves the output in $exec_output.
# Called by individual test scripts.
# Return 1 if successful so far, 0 if failure already.
proc autoconf_load { args } {
    global verbose
    global exec_output

    if ![file exists $args] then {
        error "$args, configure script does not exist"
        return 0
    }

    # Check whether m4 processing left any icky residue.
    # The autoconf script does this already, pretty much.
    # catch "exec sed -n -e /dnl/p -e /AC_/p $args" exec_output
    # if $verbose>1 then {
    #   send_user "Checked $args for unexpanded m4 macros\n"
    # }
    # if ![string match "" $exec_output] then {
    #   fail "$args, unexpanded m4 macros"
    #   send_log "$exec_output\n"
    #   return 0
    # }

    # Capture only stderr in exec_output, not "creating Makefile" etc.
    catch "exec ./$args --cache=/dev/null >/dev/null" exec_output
    if $verbose>1 then {
        send_user "Executed $args --cache=/dev/null\n"
    }
    if ![string match "" $exec_output] then {
        fail "$args, problem with executing"
        send_log "$exec_output\n"
        return 0
    } else {
        return 1
    }
}

#
# Called by runtest.
# Clean up (remove temporary files) before runtest exits.
#
proc autoconf_exit {} {
}

load_lib common.exp