about summary refs log tree commit diff
path: root/iconvdata/gap.pl
blob: 01ee9b28298f2f84b5d991e4f992d982cc3237ae (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
$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);