hostside/selectors.h.gen

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