detpic/make-externs

   1 #!/usr/bin/perl -n
   2 BEGIN { print "; autogenerated - do not edit\n;  @ARGV\n;\n\n" or die $!; }
   3 next unless m/^(\w+)\s+\@\s*(?:\;.*)?$/;
   4 printf "  extern %-40s ; %s\n", $1, $ARGV or die $!;