From f1bd3147e4df1bda680a7ecbfeca5699eed7788f Mon Sep 17 00:00:00 2001
From: Sam Varshavchik
Date: Sun, 26 Jul 2015 21:34:21 -0400
Subject: courier-unicode: implement tn36 (unicode_category_lookup).

---
 unicode/mkscripts.pl | 17 +++--------------
 1 file changed, 3 insertions(+), 14 deletions(-)

(limited to 'unicode/mkscripts.pl')

diff --git a/unicode/mkscripts.pl b/unicode/mkscripts.pl
index 2d0d8ec..3e936a1 100755
--- a/unicode/mkscripts.pl
+++ b/unicode/mkscripts.pl
@@ -63,15 +63,6 @@ while (defined($_=<F>))
     push @table, [$f, $l, "unicode_script_" . lc($s)];
 }
 
-open(F, "<courier-unicode.h") or die;
-
-my @unicode_h=<F>;
-close(F);
-
-my ($f, $l) = grep { $unicode_h[$_] =~ /UNICODE_SCRIPT_T/ } (0..$#unicode_h);
-
-die unless $f && $l;
-
 my @repl = map {
     "\tunicode_script_" . lc($_) . ",\n";
 } sort {
@@ -82,12 +73,10 @@ unshift @repl, "\tunicode_script_unknown,\n";
 
 $repl[$#repl] =~ s/,//;
 
-splice @unicode_h, $f+1, $l-$f-2, @repl;
-
-open(F, ">courier-unicode.h.tmp") or die;
-print F join("", @unicode_h);
+open(F, ">courier-unicode-script-tab.h.tmp") or die;
+print F join("", @repl);
 close(F) or die;
-rename("courier-unicode.h.tmp", "courier-unicode.h") or die;
+rename("courier-unicode-script-tab.h.tmp", "courier-unicode-script-tab.h") or die;
 
 grep {
 
-- 
cgit v1.2.3