aboutsummaryrefslogtreecommitdiff
path: root/iconvdata/gaptab.pl
diff options
context:
space:
mode:
Diffstat (limited to 'iconvdata/gaptab.pl')
-rw-r--r--iconvdata/gaptab.pl25
1 files changed, 25 insertions, 0 deletions
diff --git a/iconvdata/gaptab.pl b/iconvdata/gaptab.pl
new file mode 100644
index 0000000..34eb2f9
--- /dev/null
+++ b/iconvdata/gaptab.pl
@@ -0,0 +1,25 @@
+$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");