###############################################################################
##                                                                           ##
##    Copyright (c) 1998 - 2009 by Steffen Beyer.                            ##
##    All rights reserved.                                                   ##
##                                                                           ##
##    This program is free software; you can redistribute it                 ##
##    and/or modify it under the same terms as Perl itself.                  ##
##                                                                           ##
###############################################################################

use Config;

$self = $0;
$self =~ s!^.*/!!;

unless (@ARGV)
{
    die "Usage:  perl  $self  <main>[.c]  [ <other.c> ]*\n";
}

$main = shift;
$main =~ s/\.c$//;

unless (-f "$main.c")
{
    die "$self: file '$main.c' does not exist!\n";
}

$cc = $Config{'cc'};

$flags = $Config{'ccflags'};

@ARGV = map("\"$_\"",@ARGV);

system("$cc $flags -o $main $main.c @ARGV");