mirror: 初始快照

freedict-editor/help/C/make-ipatable.pl

@@ -0,0 +1,21 @@
+#!/usr/bin/perl
+
+$recognized = 0;
+while(<>)
+{
+  # example line in '':
+  # '  GDK_slash,  GDK_3,          0,      0,      0,      0x25B,    /* LATIN SMALL LETTER OPEN E */'
+  if(/^  (GDK_\w+),\s+(0|GDK_\w+),\s+0,\s+0,\s+0,\s+0x([\w]+),\s+\/\* ([\w ]+)\*\/$/)
+  {
+    print "\t<row><entry>$1";
+    print " + $2" if($2 ne "0");
+    $ucode = $3;
+    $description = $4;
+    $description =~ s/ $//;
+    print "</entry><entry>&#x$ucode;</entry><entry>$description</entry></row>\n";
+    $recognized++;
+    next;
+  }
+  print STDERR "$.: Unrecognized line '$_'\n";
+}
+print STDERR "Recognized $recognized lines.\n";