1 files changed, 0 insertions, 52 deletions
diff --git a/docs/tutorials/linify b/docs/tutorials/linify
deleted file mode 100755
index f44747f5269..00000000000
--- a/docs/tutorials/linify
+++ /dev/null
@@ -1,52 +0,0 @@
-#!/usr/local/bin/perl
-
-while( $#ARGV > -1 ) {
-
-	print "$ARGV[0]\n";
-
-	$source = "$ARGV[0]";
-
-	if( $source =~ /~$/ ) {
-		$dest = "$`";
-	} else {
-		rename("$source","$source"."~") || die "Cannot rename ($source)";
-		$dest = "$source";
-		$source .= "~";
-	}
-
-	open(INPUT,"<$source") || die "Cannot open ($source)";
-	open(OUTPUT,">$dest")  || die "Cannot open ($dest)";
-	
-	$n = 1;
-	
-	$prestrip = 0;
-	while( <INPUT> ) {
-		chomp;
-
-		if( ! $prestrip && /^[0-9]+\.\t/ ) {
-			$prestrip = 1;
-			$_ = $';
-		} elsif( $prestrip ) {
-			if( /^[0-9]+\.\t/ ) {
-				$_ = $';
-			} else {
-				s/^\t//;
-			}
-		}
-
-		if( /^\s*$/ || /^\s*({|})\s*;?\s*$/ || /^\s*\/\//
-			|| /^\s*private\s*:/ || /^\s*protected\s*:/ || /^\s*public\s*:/
-			|| /^\s*}?\s*else\s*{?\s*:/
-			) {
-			print OUTPUT "\t$_\n";
-		} else {
-			print OUTPUT "$n.\t$_\n";
-			++$n;
-		}
-	}
-	
-	close(INPUT);
-	close(OUTPUT);
-
-	shift(@ARGV);
-}