Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
compile.bat	962 B	-rw-r--r--
compile.pl	1.08 KB	-rwxr-xr-x
compile.sh	995 B	-rwxr-xr-x
iso2pc.c.gz	3.52 KB	-rw-r--r--
pc2iso.c.gz	3.52 KB	-rw-r--r--

Code Editor : compile.pl

#!/usr/bin/perl -w

###############################################################################
##                                                                           ##
##    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");

${this.title}

Code Editor : compile.pl