From 2945f70be161735bf7efaefde43125a9ad3a4c88 Mon Sep 17 00:00:00 2001
From: Tatsuya Kinoshita <tats@vega.ocn.ne.jp>
Date: Wed, 4 May 2011 16:45:29 +0900
Subject: Releasing debian version 0.5.3-1

---
 libwc/map/mk_ucs_case_map.pl | 48 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 48 insertions(+)
 create mode 100644 libwc/map/mk_ucs_case_map.pl

(limited to 'libwc/map/mk_ucs_case_map.pl')

diff --git a/libwc/map/mk_ucs_case_map.pl b/libwc/map/mk_ucs_case_map.pl
new file mode 100644
index 0000000..ee48826
--- /dev/null
+++ b/libwc/map/mk_ucs_case_map.pl
@@ -0,0 +1,48 @@
+
+open(MAP, "> ucs_case.map");
+print MAP <<EOF;
+/*
+   File generated from UnicodeData-4.1.0.txt.
+*/
+
+EOF
+
+for (<DATA>) {
+  chop;
+  ($name, $col) = split;
+  
+  @cp = ();
+  
+  open(UCD, "< private/UnicodeData-4.1.0.txt");
+  while(<UCD>) {
+    chop;
+    @entry = split(';');
+    last if $entry[0] =~ m/.{5,}/;
+    if ($entry[$col] ne '') {
+      push (@cp, $entry[0]);
+      $map{$entry[0]} = $entry[$col];
+    }
+  }
+  close UCD;
+
+  $nocp = @cp;
+  
+  print MAP <<EOF;
+
+#define N_ucs_${name}_map ${nocp}
+
+static wc_map ucs_${name}_map[ N_ucs_${name}_map ] = {
+EOF
+  
+  for (@cp) {
+    print MAP "  { 0x$_, 0x$map{$_} },\n";
+  }
+  print MAP <<EOF
+};
+EOF
+}
+
+__END__
+toupper	12
+tolower	13
+totitle	14
-- 
cgit v1.2.3