2 # Compilation utility functions
6 # Unix SMB
/Netbios implementation.
7 # Copyright
(C
) Tim Potter
2000
9 # This
program is free software
; you can redistribute it and
/or modify
10 # it under the terms of the GNU General Public License as published by
11 # the Free Software Foundation
; either version
2 of the License
, or
12 #
(at your option
) any later version.
14 # This
program is distributed in the hope that it will be useful
,
15 # but WITHOUT
ANY WARRANTY
; without even the implied warranty of
16 # MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE. See the
17 # GNU General Public License
for more details.
19 # You should have received a copy of the GNU General Public License
20 # along with this
program; if not
, write to the Free Software
21 # Foundation
, Inc.
, 675 Mass Ave
, Cambridge
, MA
02139, USA.
24 #
Compile a
program consisting of one .c file.
For example
25 # simple_compile
"foo" will compile foo.c to the executable foo.exe
26 # Use a second
argument to specify link libraries.
28 proc simple_compile
{ args } {
34 set program [lindex $
args 0]
35 set libs
[lindex $
args 1]
39 set output
[target_compile
"$srcdir/$subdir/$program.c" \
40 "$srcdir/$subdir/$program" executable \
41 {additional_flags
="-g"}]
44 set output
[target_compile
"$srcdir/$subdir/$program.c" \
45 "$srcdir/$subdir/$program" executable \
46 [list libs
=$libs additional_flags
="-g"]]
52 perror
"compile $program"
58 #
Compile a
program from a Makefile.suffix
60 proc simple_make
{ args } {
64 #
Compile up
program with make
66 set suffix
[lindex $
args 0]
67 set program [lindex $
args 1]
69 set output
[util_start
"make" \
70 "-C $srcdir/$subdir -f Makefile.$suffix $program"]
74 if { [regexp
"Error" $output] } {
75 perror
"make $program"