use File::Spec::Functions qw/rel2abs splitpath catfile/;
use strict;

sub mmm_good {
  my $d = rel2abs($_[0]);
  mkdir $d unless -e $d;
  die unless -d $d;
  return $d;
}

my(%dirs);
$dirs{c} = mmm_good('source');
$dirs{h} = mmm_good('header');

for my $path (map((glob $_), @ARGV) {
  next unless $path =~ /.([chCH])$/ && -r $path;
  my $ext = lc $1;
  open my $in, "<", $path;
  open my $out, ">", catfile($dirs{$ext}, (splitpath($path))[2]);
  while(my $line = <$in>) {
    $line = lc $line if /^\w*#include/;
    print $out $line;
  }
  close $out;
  close $in;
}