diff options
author | John-Mark Bell <jmb@netsurf-browser.org> | 2013-01-12 02:35:09 +0000 |
---|---|---|
committer | John-Mark Bell <jmb@netsurf-browser.org> | 2013-01-12 02:35:09 +0000 |
commit | 261528747c5423445398b5ee5ab6bc9c26b0d93b (patch) | |
tree | 618737dc79416a1aae3837ffc7efd4f3b3090f35 /utils/tt2code | |
parent | d7ddfd6ac3aff83498a10dc5fbe7ac792c533ebb (diff) | |
download | netsurf-261528747c5423445398b5ee5ab6bc9c26b0d93b.tar.gz netsurf-261528747c5423445398b5ee5ab6bc9c26b0d93b.tar.bz2 |
Remove code that hasn't been used since 2004.
Diffstat (limited to 'utils/tt2code')
-rwxr-xr-x | utils/tt2code | 60 |
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 - |