#!/usr/bin/perl
print STDERR "Pyx2html - 1.0 (c) 2000 Dmitry Gokhman
$ret="\n";
@in=<>;

# convert space to equals for attributes
foreach $line (@in)
	{
	if($line=~/^A/)
		{
		$line=~s/ /="/;
		$line=~s/\n/"\n/;
		}
	push(@buf,$line);
	}
$string=join('',@buf);
$string=~s/\nA/ /g;
$_=$string; split(/\n/); @buf=@_;

# join attributes to tag
foreach $line (@buf)
	{
	if($line=~/^\(/)
		{
		$tag=$';
		print "<".$tag.">".$ret;
		}
	if($line=~/^\)/)
		{
		$tag=$';
		print "</".$tag.">".$ret;
		}
	if($line=~/^-/)
		{
		$out=$';
		$out=~s/\\n//g;
		print $out.$ret;
		}
	}