From 919adb4b57977d5e375dab0fa943b6e81fa145ab Mon Sep 17 00:00:00 2001
From: Ito Hiroyuki <ZXB01226@nifty.com>
Date: Tue, 24 Aug 2010 10:11:51 +0000
Subject: [w3m-dev 04393] [patch] locale-related character management

---
 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