Generate gap table.
[kopensolaris-gnu/glibc.git] / iconvdata / gap.pl
1 $first=$last=$idx=0;
2 while (<>) {
3   local($ucs,$rest) = split;
4   local($u)=hex($ucs);
5   if ($u - $last > 6) {
6     if ($last != 0) {
7       printf ("  { start: 0x%04x, end: 0x%04x, idx: %5d },\n",
8               $first, $last, $idx);
9       $idx -= $u - $last - 1;
10     }
11     $first=$u;
12   }
13   $last=$u;
14 }
15 printf ("  { start: 0x%04x, end: 0x%04x, idx: %5d },\n",
16         $first, $last, $idx);