about summary refs log tree commit diff
path: root/iconvdata/gap.pl
blob: 2a06adc36c1f00c76c67560ade1c7809a730f50d (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: 0x%04x, end: 0x%04x, idx: %5d },\n",
	      $first, $last, $idx);
      $idx -= $u - $last - 1;
    }
    $first=$u;
  }
  $last=$u;
}
printf ("  { start: 0x%04x, end: 0x%04x, idx: %5d },\n",
	$first, $last, $idx);