From 261528747c5423445398b5ee5ab6bc9c26b0d93b Mon Sep 17 00:00:00 2001
From: John-Mark Bell <jmb@netsurf-browser.org>
Date: Sat, 12 Jan 2013 02:35:09 +0000
Subject: Remove code that hasn't been used since 2004.

---
 utils/tt2code | 60 -----------------------------------------------------------
 1 file changed, 60 deletions(-)
 delete mode 100755 utils/tt2code

(limited to 'utils/tt2code')

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
-
-- 
cgit v1.2.3