#!/usr/local/bin/perl -w

require 5.000;
use strict;

use Getopt::Long;
use File::Basename;

use vars qw/$BASENAME $DIRNAME/;
BEGIN {
  ($BASENAME, $DIRNAME) = fileparse($0); 
}
use lib $DIRNAME;

select(STDOUT);

require RTF::HTML::Converter;
my $result;
my $self = new RTF::HTML::Converter(Output => \$result);	

if (@ARGV)  {
  foreach my $filename (@ARGV) {
    $self->parse_stream($filename);
    print $result;
    $result = '';
  }
} else {
  while (<DATA>) {
    s/\#.*//;
    next unless /\S/;
    print STDERR "-" x length($_), "\n";
    print STDERR "$_";
    print STDERR "-" x length($_), "\n";
    $self->parse_string($_);
    print $result;
    $result = '';
  }
}
__END__
#{} # Ok!
#{\par} # Ok!
#{string\par} # Ok!
#{\b bold {\i italic} bold \par} # Ok!
#{\b introduction \par } # Ok!
#{\b first B{\b0 mm{\b b}m}b} #!Ok
#{\b first B{\b0 mm{\b b}m}b\par} # !Ok
#{\i {\b first B{\b0 mm{\b b}m}b\par second B}} #!Ok
#{{\par }\b {Introduction\par }}
#{\pard\plain \b{Introduction\par }}
#{\b bold \i Bold Italic \i0 Bold again} # Ok!
#{\b bold {\i Bold Italic }Bold again} # Ok!
{\b bold \i Bold Italic \plain\b Bold again} # Ok!