#!/usr/bin/env perl
print("#ifndef BARSDT_H\n");
print("#define BARSDT_H\n");
print("#include <unistd.h>\n");
while(<>) {
    next unless /probe (\w+)\((.*)\);$/;
    my $argc = split ",", $2;
    my $name = (uc $1) =~ s/__/_/gr;
    print "#define BARSDT_${name}(" . join(", ", map {"arg$_"} 0..$argc-1) . ")\n";
    print "#define BARSDT_${name}_ENABLED() (0)\n";
};
print("#endif\n")