home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / autoconf-2.10-src.tgz / tar.out / fsf / autoconf / testsuite / lib / common.exp
Text File  |  1996-09-28  |  3KB  |  124 lines
  1. # -*- TCL -*-
  2. # Auxiliary procedures for autoconf tests.
  3. # Copyright (C) 1994 Free Software Foundation, Inc.
  4.  
  5. # This program is free software; you can redistribute it and/or modify
  6. # it under the terms of the GNU General Public License as published by
  7. # the Free Software Foundation; either version 2 of the License, or
  8. # (at your option) any later version.
  9. # 
  10. # This program is distributed in the hope that it will be useful,
  11. # but WITHOUT ANY WARRANTY; without even the implied warranty of
  12. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13. # GNU General Public License for more details.
  14. # 
  15. # You should have received a copy of the GNU General Public License
  16. # along with this program; if not, write to the Free Software
  17. # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  18.  
  19. # Written by David MacKenzie <djm@gnu.ai.mit.edu>.
  20.  
  21. #
  22. # Create a configure.in from a string.
  23. # CONFIG.in is the file to create containing CONTENTS plus boilerplate.
  24. # Return 1 if successful, 0 if an error occurs.
  25. proc autoconf_create {config contents} {
  26.     if [catch {open "$config.in" "w"} hand] {
  27.     error "$config, cannot create $config.in"
  28.     return 0
  29.     }
  30.     puts $hand "AC_INIT(confdummy.in)
  31. $contents
  32. AC_OUTPUT(confdummy)"
  33.     close $hand
  34.  
  35.     if [catch {open "confdummy.in" "w"} hand] {
  36.     error "$config, cannot create confdummy.in"
  37.     return 0
  38.     }
  39.     puts $hand "# This is a dummy file for testing.
  40. srcdir = @srcdir@
  41. # Please ignore this file."
  42.     close $hand
  43.  
  44.     return 1
  45. }
  46.  
  47. # Compile a configure.in into a configure
  48. #  and call error if there's any output (undefined macros, can't
  49. #  find library files, etc.).
  50. proc autoconf_start_plus {configout} {
  51.     global comp_output
  52.  
  53.     set status [autoconf_start $configout]
  54.     if {$status==0} {
  55.     return 0
  56.     }
  57.     # Examine $comp_output.
  58.     if [string match "*is obsolete*" "$comp_output"] then {
  59.     return 1
  60.     }
  61.     if [string match "*allow cross*" "$comp_output"] then {
  62.     return 1
  63.     }
  64.     if ![string match "" "$comp_output"] then {
  65.     fail "$configout, problem with running autoconf"
  66.     return 0
  67.     }
  68.     return 1
  69. }
  70.  
  71. # Execute a configure script and check the output
  72. #  against what it's supposed to be.
  73. # Return 1 if successful so far, 0 if failure already.
  74. proc autoconf_load_plus {args} {
  75.     global exec_output
  76.  
  77.     set status [autoconf_load $args]
  78.     if {$status==0} {
  79.     return 0
  80.     }
  81.     if [string match "*:*" "$exec_output"] then {
  82.     fail "$args, problem with executing"
  83.     return 0
  84.     }
  85.     return 1
  86. }
  87.  
  88. # Remove generated configuration files for test CONFIG.
  89. # Return 1 if successful, 0 if not.
  90. proc autoconf_remove {config} {
  91.     if [catch "exec rm -f $config $config.in [glob -nocomplain conftest* confdummy*] config.status config.cache config.log"] {
  92.     warning "$config output files, cannot remove"
  93.     return 0
  94.     }
  95.     return 1
  96. }
  97.  
  98. # The standard autoconf test: create, compile, run, and remove
  99. # a simple configure script to test a single macro.
  100. # TESTNAME is the name of the macro being tested.
  101. # CONTENTS is the body of the configure script to create and test.
  102. proc autoconf_test {testname contents} {
  103.     if ![autoconf_remove $testname] {
  104.     return 0
  105.     }
  106.     if ![autoconf_create $testname "$contents"] {
  107.     return 0
  108.     }
  109.     if ![autoconf_start_plus $testname] {
  110.     autoconf_remove $testname
  111.     return 0
  112.     }
  113.     if ![autoconf_load_plus $testname] {
  114.     autoconf_remove $testname
  115.     return 0
  116.     }
  117.     if ![autoconf_remove $testname] {
  118.     return 0
  119.     }
  120.  
  121.     pass "$testname"
  122.     return 1
  123. }
  124.