summaryrefslogtreecommitdiff
path: root/utils/tt2code
diff options
context:
space:
mode:
Diffstat (limited to 'utils/tt2code')
-rwxr-xr-xutils/tt2code60
1 files changed, 0 insertions, 60 deletions
diff --git a/utils/tt2code b/utils/tt2code
deleted file mode 100755
index 170954da1..000000000
--- a/utils/tt2code
+++ /dev/null
@@ -1,60 +0,0 @@
-#!/usr/bin/perl -W
-
-print <<END;
-/*
- * This file is part of NetSurf, http://netsurf-browser.org/
- * Licensed under the GNU General Public License,
- * http://www.opensource.org/licenses/gpl-license
- * Copyright 2003 James Bursa <bursa\@users.sourceforge.net>
- */
-
-#include "utils/utils.h"
-
-void unicode_transliterate(unsigned int c, char **r)
-{
- char *s = *r;
- switch (c) {
-
-END
-
-LINE: while (<>) {
- chomp;
- next if m/^%/;
- next if m/^ *$/;
-
- m/^<U([0-9A-F]{4})> /g or die "invalid line '$_'";
- $z = $1;
- next if (hex($z) < 256);
-
- SUBST: while (m/\G"?((<U([0-9A-F]{4})>)*)"?;?/g) {
- next if $& eq '';
- $m = $1;
- if ($m eq '') {
- print "case 0x$z: break;\n";
- next;
- }
- chop $m;
- @s = split /></, substr $m, 1;
- foreach $s (@s) {
- $s = substr $s, 1;
- next SUBST if 255 < hex($s);
- }
-
- print "case 0x$z: ";
- foreach $s (@s) {
- print "*s++ = 0x$s; ";
- }
- print "break;\n";
- next LINE;
- }
-}
-
-print <<END;
-
-default: *s++ = '?'; break;
- }
-
- *r = s;
-}
-END
-