<?

// Input is Unicode mapping file
// Output is codelist for XEP

if (Count($argv) != 2)
{
  echo "Usage: cp2java <infile>\n";
  exit;
}
  
$inFileName = $argv[1];
$fin = FOpen($inFileName, "r");

if (!$fin)
{
  echo "Unable to open input file.\n";
  exit;
}

$t = array();
$x = array();

while ($l = FGetS($fin, 512))
{
  if (ERegI("^0x([0-9A-Fa-f]{2})[[:space:]]*0x([0-9A-Fa-f]{4}).*$", $l, &$x))
  {
    $t[HexDec($x[1])] = HexDec($x[2]);
  }
}

FClose($fin);

echo "<?xml version='1.0'?>\n";
echo "<codes>\n";
foreach ($t as $tex => $ucs)
  echo "  <code tex='$tex' ucs='$ucs'/>\n";
echo "</codes>\n";

?>