#!/usr/bin/perl

use utf8;
binmode(STDOUT, "utf8");
binmode(STDIN, "utf8");
binmode(STDERR, "utf8");

$type = "";

while(<>) {
	if (/<type val="(.*)">/) {
		$type = $1;
	} elsif (/<native>\s*(\S+)(.*)?/) {
		$map = $1;
		$extra = $2;

		print "$type\t$map";
		print "\tFIXME:$extra" unless $extra eq "";
		print "\n";
	}
}

