# Copyright (c) 2002-2005 Cunningham & Cunningham, Inc.
# Released under the terms of the GNU General Public License version 2 or later.
#
# Perl translation by Tony Byrne <fit4perl@byrnehq.com>

package Test::C2FIT::fat::TextToHtmlFixture;
use base 'Test::C2FIT::ColumnFixture';

use Test::C2FIT::Fixture;

use strict;

sub HTML
{
	my $self = shift;
	$self->{'Text'} = $self->unescapeAscii($self->{'Text'});
	return Test::C2FIT::Fixture->escape($self->{'Text'});
}

sub unescapeAscii
{
	my $self = shift;
	my $text = shift;
	$text =~ s/\\n/\n/g;
	$text =~ s/\\r/\r/g;
	return $text;
}

sub GenerateOutput
{
	my $self = shift;
	my $parse = shift;
	return $parse->asString();
}

1;

__END__

package fat;

import fit.*;
import java.io.*;

public class TextToHtmlFixture extends ColumnFixture {
	public String Text;

	public String HTML() {
		Text = unescapeAscii(Text);
		return Fixture.escape(Text);
	}

	private String unescapeAscii(String text) {
		text = text.replaceAll("\\\\n", "\n");
		text = text.replaceAll("\\\\r", "\r");
		return text;
	}
	
	private String GenerateOutput(Parse parse) {
		StringWriter result = new StringWriter();
		parse.print(new PrintWriter(result));
		return result.toString();
	}
}