#!/usr/bin/perl -w

$infile = shift;
$outfile = shift;
open(IN, "<$infile") or die "Can't open $infile: $!";;
open(OUT, ">$outfile") or die "Can't open $outfile: $!";;
while (<IN>) {
    if (/^\s+0x/) {
        $cnt = 0;
        while ($_ =~ /(0x[0-9a-fA-F]+,)/g) {
            $x = $1;
            if ($cnt%4==0) {
                $x =~ s/,//;
                printf OUT "%s", $x;
            } elsif ($cnt%4==3) {
                $x =~ s/0x//;
                printf OUT "%s ", $x;
            } else {
                $x =~ s/0x//;
                $x =~ s/,//;
                printf OUT "%s", $x;
            }
            $cnt++;
        } 
        printf OUT "\n";
    } elsif (/unsigned char/) {
        $_ =~ s/unsigned char/unsigned int/;
        printf OUT "%s", $_;
    } else {
        printf OUT "%s", $_;
    }
}
close IN;
close OUT;