#!/usr/bin/perl

open IN,"/usr/i686-w64-mingw32/sys-root/mingw/include/winuser.h" or die;
open OUT,">/tmp/wm.c" or die;

print OUT "static void PrintMessage(UINT message)\n";
print OUT "{\n";

while($l=<IN>)
{
  chomp($l);
  if($l =~ /^#define (WM_\w+) (0x[[:xdigit:]]+)$/)
  {
    $name = $1;
    $number = $2;
    print "$name $number\n";
    print OUT "  if(message==$number) fprintf(debug_fh, \"PrintMessage: $name\\n\");\n";
  }
}
print OUT "}\n";