#!/usr/bin/perl -w
# generate_long_lines.pl - Don Yang (uguu.org)
#
# Generate event log with long lines.
#
# 06/27/11

use strict;

my $template = join '', ('aaa' .. 'zzz');
my @lines = ();

for(my $frame = 0; $frame < 1000; $frame++)
{
   print "Y1X1F${frame}T${frame}\n";
   my $row = int(rand(16));
   if( $row <= $#lines && (rand(1.0) < 0.1) )
   {
      # Delete
      splice @lines, $row, 1;
   }
   else
   {
      # Append
      my $offset = int(rand(length($template) - 1));
      my $length = int(rand(length($template) - $offset));
      $lines[$row] .= substr($template, $offset, $length);
   }
   for(my $i = 0; $i <= $#lines; $i++)
   {
      print "L", $i + 1, "E", (scalar @lines), "=",
            (defined $lines[$i] ? $lines[$i] : ""), "\n";
   }
}