halcogen/add-pinmux-comments.pl

   1 #!/usr/bin/perl -wp
   2 BEGIN { my $empty=0; }
   3 if (/^$/) { $empty=1; }
   4 elsif (/#define PINMUX_BALL_[A-Z0-9_]*_MASK/) {} # ignore
   5 elsif (/#define PINMUX_BALL_([^_]*)/) {if ($empty) { $empty=0; print "/* Pin $1 options */\n" }}