#!/usr/local/bin/perl5 -i~

while ($ARGV[0] =~ /^([+-])(.*)$/) {
    push (@enables, $1);
    push (@names, $2);
    if ($1 eq '+') {
        print "Enabling $2\n";
    } else {
        print "Disabling $2\n";
    }
    shift ARGV;
}

while (<>) {
    for ($i=0; $i < @names; ++$i) {
        $name = $names[$i];
        if ($enables[$i] eq '+') {
            s@/\*#ifdef $name\b@//#ifdef $name@g;
            s@#endif $name\*/@//#endif $name@g;
        } else {
            s@//#ifdef $name\b@/*#ifdef $name@g;
            s@//#endif $name\b@#endif $name*/@g;
        }
    }
    print;
}
