[thirdparty/glibc.git] / iconvdata / gap.pl

$first=$last=$idx=0;
while (<>) {
  local($ucs,$rest) = split;
  local($u)=hex($ucs);
  if ($u - $last > 6) {
    if ($last != 0) {
      printf ("  { start: %#06x, end: %#06x, idx: %5d },\n",
	      $first, $last, $idx - $first);
      $idx += $last - $first + 1;
    }
    $first=$u;
  }
  $last=$u;
}
printf ("  { start: %#06x, end: %#06x, idx: %5d },\n",
	$first, $last, $idx - $first);
Commit	Line	Data
04be94a8 UD	1	$first=$last=$idx=0;
04be94a8 UD	2	while (<>) {
cb343854	3	local($ucs,$rest) = split;
04be94a8 UD	4	local($u)=hex($ucs);
	5	if ($u - $last > 6) {
	6	if ($last != 0) {
	7	printf (" { start: %#06x, end: %#06x, idx: %5d },\n",
	8	$first, $last, $idx - $first);
	9	$idx += $last - $first + 1;
	10	}
	11	$first=$u;
	12	}
	13	$last=$u;
	14	}
	15	printf (" { start: %#06x, end: %#06x, idx: %5d },\n",
	16	$first, $last, $idx - $first);