#!/usr/bin/perl -s

open(CPP, "| gcc -E -P -C - | sed -e 's/^\\.//' ") or die "cant open cpp\n";

if($nyag)   {print CPP "#define NYAG\n"}
if($pretty) {print CPP "#define PRETTY\n"}
if($tags)   {print CPP "#define TAGS\n"}
while(<>){
 s/^\#/.#/;
 s/^\@(ifdef\s+\w+)\s+(.+)/#$1\n$2\n#endif/;
 s/^\@/#/;

 print CPP $_;
}