glibc/iconvdata/gaptab.pl

$first=$last=$idx=0;
sub fmt {
  printf ("\n ") if (($n % 8) == 0);
  ++$n;
  my($val) = pop(@_);
  printf (" '\\x%02x',", $val);
}
while (<>) {
  local($ucs,$char,%rest) = split;
  local($u)=hex($ucs);
  local($c)=hex($char);
  if ($u - $last > 6) {
    if ($last != 0) {
      $idx += $last - $first + 1;
    }
    $first=$u;
  } else {
    for ($m = $last + 1; $m < $u; ++$m) {
      fmt (0);
    }
  }
  fmt ($c);
  $last=$u;
}
printf ("\n");