Initial commit of OpenSPARC T2 design and verification files.

[OpenSPARC-T2-DV] / tools / perl-5.8.0 / lib / site_perl / 5.8.0 / Pastel / Tools / Writer.pm

package Pastel::Tools::Writer;\r
use strict;\r
\r
sub new {\r
    my $class = shift;\r
    my $self = {};\r
    bless $self, ref($class) || $class;\r
    $self->_init(@_);\r
    return $self;\r
}\r
\r
sub _init {\r
    my $self = shift;\r
    $self->{_indent} = 0;\r
    $self->{_temp_buffer} = "";\r
    $self->{_inside_flag} = "";\r
    return $self;\r
}\r
\r
sub print_svg {\r
    my $self = shift;\r
    my $xml = shift;\r
\r
   # print "Inside writer\n";\r
    my @xml = split (//, $xml); #Split the whole string in characters\r
\r
    for (my $i=0; $i < @xml ; $i++) {\r
#	print "Inside for loop\n";\r
	$self->{_temp_buffer} .= $xml[$i];\r
	\r
	if ($xml[$i] eq "<") {\r
	    $self->{_inside_flag} = "true";\r
	    $self->{_indent}++;\r
#print "START**\n";\r
	    if ($xml[$i+1] eq "?"){\r
		$self->{_indent}--;\r
	    }\r
\r
	    if ($xml[$i+1] eq "!" && $xml[$i+2] eq "D"){\r
		$self->{_indent}--;\r
	    }\r
	    \r
	    if ($xml[$i+1] eq "/"){\r
		$self->{_indent}--;\r
	    }\r
\r
	  #  if ($xml[$i+1] =~ /s/i){\r
#		$self->{_indent}--;\r
\r
#	    }\r
#	print "Indent $self->{_indent}\n";    \r
	}\r
\r
	if ($xml[$i] eq ">") {\r
	    $self->{_inside_flag} = "";\r
	   # print "Inside end tag\n";\r
	    my $tab = $self->{_indent};\r
	    my $gap = "    " x $tab;\r
	    print "$gap","$self->{_temp_buffer}","\n";\r
	    $self->{_temp_buffer} ="";\r
	   \r
	}\r
\r
	if ($xml[$i] eq "/"){\r
\r
	    if($xml[$i +1] eq ">"){ # &&  $self->{_inside_flag} eq "true") {\r
	   	$self->{_indent}--;\r
	    }\r
	    if($xml[$i +1] =~ /s/i && $self->{_inside_flag} eq "true") {\r
		$self->{indent}--;\r
	    }\r
	}    \r
#	print "***********$self->{_indent}\n";\r
    }\r
}\r
    \r
sub set_indent {\r
    my $self = shift;\r
    my $indent = shift;\r
    $self->{_indent} = $indent;\r
}\r
\r
sub get_indent {\r
    my $self = shift;\r
    return $self->{_indent};\r
}\r
\r
\r
1;\r