tools/registers.awk

   1 BEGIN { print "<ioregisters>" }
   2 END { print "</ioregisters>" }
   3
   4 function xml(addr, name, comment) {
   5         if( name != "Reserved" )
   6                 print "\t<ioreg address=\"" addr "\" name=\"" name "\"> <!-- " comment " --></ioreg>"
   7 }
   8
   9 $1 ~ /0x[0-9A-F][0-9A-F]/ && $2 ~ /\(0x[0-9A-F][0-9A-F]\)/ {
  10         where = match($1, /0x[0-9A-F][0-9A-F]/)
  11         if( where ) {
  12                 addr = substr($1, where, 4)
  13                 comment = ""
  14                 for(x  = 4; x <= NF; ++x) {
  15                         sub(/[^a-zA-Z0-9]/, "", $x)
  16                         comment = comment " " $x
  17                 }
  18                 xml(addr, $3, comment)
  19         }
  20         next
  21 }
  22
  23 $1 ~ /\(?0x[0-9A-F][0-9A-F]\)?/ {
  24         where = match($1, /0x[0-9A-F][0-9A-F]/)
  25         if( where ) {
  26                 addr = substr($1, where, 4)
  27                 comment = ""
  28                 for(x  = 3; x <= NF; ++x) {
  29                         sub(/[^a-zA-Z0-9]/, "", $x)
  30                         comment = comment " " $x
  31                 }
  32                 xml(addr, $2, comment)
  33         }
  34         next
  35 }