#!/usr/bin/perl --
#~ 2012-10-11-01:58:20PDT by Anonymous Monk
#~ perltidy -csc -otr -opr -ce -nibc -i=4     
use strict; use warnings;
use Data::Dump qw/ dd /;

Main( @ARGV );
exit( 0 );

sub getFiles {
    my @files;
    foreach (@_) {
        if( /\.[cC]$/ ){
            if( -e $_ ){
                push @files, $_;
            } else {
                printf "Unreadable file: %s : (%d) %s\n", $_, $!, $!;
            }
        } else {
            print "Invalid file: $_\n";
        }
    }
    
    return \@files;
}

sub compile {
    my $files = shift;
    for( @$files ){
## all of these do the same thing, see perlintro / perlrequick for explanation
#~       my( @cmd ) = ( 'gcc', $_, '-o', /^(.+?)\.[^\.]+$/  );
#~       my( @cmd ) = ( 'gcc', $_, '-o', $_ =~ /^(.+?)\.[^\.]+$/  );
       my( @cmd ) = ( 'gcc', $_, '-o' );
#~       push @cmd, $1 if /^(.+?)\.[^\.]+$/  ;
       push @cmd, $1 if  $_ =~ /^(.+?)\.[^\.]+$/  ;
       dd \@cmd;
       system @cmd;
    }
}


sub Main {
    return print Usage() if not @_;
    my $files = getFiles( @_ );
    dd $files;
    compile( $files );
} ## end sub Main


sub Usage {
    <<"__USAGE__";

$0    
$0    list of files to process


__USAGE__

} ## end sub Usage


__END__