#!/usr/bin/perl
# encodetext.pl - Don Yang (uguu.org)
#
# Given text data in stdin, generate BF program that will output the
# same text data.
#
# 09/03/04


use strict;
my ($i, $i0, $o);
local (*INFILE);
local (*OUTFILE);


open INFILE, (($#ARGV > -1) ? "< $ARGV[0]" : "<&STDIN") or die $!;
open OUTFILE, (($#ARGV > 0) ? "> $ARGV[1]" : ">&STDOUT") or die $!;

for($i0 = 0; defined ($i = getc INFILE); $i0 = $i)
{
   $i = ord $i;
   print OUTFILE
   (
      ($i0 != $i)
         ? ($i0 < $i) ? ('+' x ($i-$i0)) : ('-' x ($i0-$i))
         : '',
      '.'
   );
}
print OUTFILE "\n";

close INFILE;
close OUTFILE;