package/etrax-tools/src/e100boot/sbl/create_regs.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14

#!/usr/bin/perl

print "struct reg_des {
  char *name;
  unsigned int addr;
} reg_des[] = {\n";
while(<>) {
  if (/define+ (\w+) .*IO_TYPECAST+.*DWORD.*\s+(\w+)/) {
    print "  \"$1\", $2,\n";
  }
}
  print "  NULL, 0
};
";