From 86b00b91adbc06e25e98c02d22e725e1888cb041 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 8 Aug 2000 19:01:51 +0000
Subject: Delete eg as agreed at TPC3 (yes, 3).  Dusty, obsolete, non-w-clean.
 May be repopulated with fresh maintained examples.

p4raw-id: //depot/perl@6556
---
 eg/travesty | 46 ----------------------------------------------
 1 file changed, 46 deletions(-)
 delete mode 100644 eg/travesty

(limited to 'eg/travesty')

diff --git a/eg/travesty b/eg/travesty
deleted file mode 100644
index 7e6f983c7c..0000000000
--- a/eg/travesty
+++ /dev/null
@@ -1,46 +0,0 @@
-#!/usr/bin/perl
-
-while (<>) {
-    next if /^\./;
-    next if /^From / .. /^$/;
-    next if /^Path: / .. /^$/;
-    s/^\W+//;
-    push(@ary,split(' '));
-    while ($#ary > 1) {
-	$a = $p;
-	$p = $n;
-	$w = shift(@ary);
-	$n = $num{$w};
-	if ($n eq '') {
-	    push(@word,$w);
-	    $n = pack('S',$#word);
-	    $num{$w} = $n;
-	}
-	$lookup{$a . $p} .= $n;
-    }
-}
-
-for (;;) {
-    $n = $lookup{$a . $p};
-    ($foo,$n) = each(lookup) if $n eq '';
-    $n = substr($n,int(rand(length($n))) & 0177776,2);
-    $a = $p;
-    $p = $n;
-    ($w) = unpack('S',$n);
-    $w = $word[$w];
-    $col += length($w) + 1;
-    if ($col >= 65) {
-	$col = 0;
-	print "\n";
-    }
-    else {
-	print ' ';
-    }
-    print $w;
-    if ($w =~ /\.$/) {
-	if (rand() < .1) {
-	    print "\n";
-	    $col = 80;
-	}
-    }
-}
-- 
cgit v1.2.1