target/linux/etrax-2.6/image/e100boot/src/sbl/create_regs.pl

   1 #!/usr/bin/perl
   2
   3 print "struct reg_des {
   4   char *name;
   5   unsigned int addr;
   6 } reg_des[] = {\n";
   7 while(<>) {
   8   if (/define+ (\w+) .*IO_TYPECAST+.*DWORD.*\s+(\w+)/) {
   9     print "  \"$1\", $2,\n";
  10   }
  11 }
  12   print "  NULL, 0
  13 };
  14 ";