#!/usr/bin/env perl

my $hName = $ARGV[0];
print("#ifndef ${hName}_H\n");
print("#define ${hName}_H\n");
print("#include <unistd.h>\n");

while(<STDIN>) {
    next unless /probe (\w+)\((.*)\);$/;
    my $argc = split ",", $2;
    my $name = (uc $1) =~ s/__/_/gr;
    print "#define ${hName}_${name}(" . join(", ", map {"arg$_"} 0..$argc-1) . ")\n";
    print "#define ${hName}_${name}_ENABLED() (0)\n";
};

print("#endif\n")