hostside/selectors.h.gen

   1 #!/usr/bin/perl
   2 foreach $f (qw(
   3                picio
   4                picioh
   5                picdebug
   6                )) {
   7     printf "#define sel_%-10s 0x%08lxLU\n", $f, $bit
   8         or die $!;
   9     $bit <<= 1;
  10 }