diff options
| -rw-r--r-- | testsuite/lib/compile.exp | 66 |
1 files changed, 66 insertions, 0 deletions
diff --git a/testsuite/lib/compile.exp b/testsuite/lib/compile.exp new file mode 100644 index 0000000000..6e79d431ea --- /dev/null +++ b/testsuite/lib/compile.exp @@ -0,0 +1,66 @@ +# +# Compilation utility functions +# + +# +# Unix SMB/Netbios implementation. +# Copyright (C) Tim Potter 2000 +# +# 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. +# + +# Compile a program consisting of one .c file. For example +# simple_compile "foo" will compile foo.c to the executable foo.exe + +proc simple_compile { args } { + global srcdir + global subdir + + # Compile up program + + set program [lindex $args 0] + set output [target_compile "$srcdir/$subdir/$program.c" \ + "$srcdir/$subdir/$program" executable {additional_flags="-g"}] + + # Check for errors + + if {$output != ""} { + perror "compile $program" + puts $output + return -1 + } +} + +# Compile a program from a Makefile.suffix + +proc simple_make { args } { + global srcdir + global subdir + + # Compile up program with make + + set suffix [lindex $args 0] + set program [lindex $args 1] + + set output [system "make -C $srcdir/$subdir -f Makefile.$suffix $program"] + + # Check for errors + + if { [regexp "Error" $output] } { + perror "make $program" + puts $output + return -1 + } +} |