#!/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")