Initial commit of OpenSPARC T2 design and verification files.

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

package Pastel::String;
use Pastel::Mixin::Mixin;

@ISA = qw( Pastel::Mixin::Mixin);

use strict;

sub new
{
    my $arg = shift;
    my $class = ref($arg) || $arg;
    my $self = {};

    bless $self, $class;
    $self->_init(@_);
   
    return $self;

}

sub _init {
    my ($self, @args) = @_;

    my $string = $args[0];
    my $xml_string = $self->xml($string);
    $self->{xml_string} = $xml_string;
    return $self;
}

sub xml {
    my ($self, $arg) = @_;
    my $xml = "";
    #Split the string data into characters
    my (@characters) = split( //, $arg);

    for( my $i = 0; $i < @characters; $i++){

	if ( $characters[$i] eq '<' ){
	    $xml .= "&lt;";
	}

	elsif ( $characters[$i] eq '>' ){
	    $xml .= "&gt;" ;
	}

	elsif ( $characters[$i] eq "'" ){
	    $xml .= "&apos;" ;
	}
	elsif ( $characters[$i] eq '"' ){
	    $xml .= "&quot;" ;
	}
	elsif( $characters[$i] eq '&' ) {
	    $xml .= "&amp;" ;
	}
	elsif ( $self->get_code($characters[$i]) < 32 ) {
	    $xml .= "&x";
	    $xml .=$self->get_hex( $self->get_code( $characters[$i]));
	    $xml .= ';';
	}
	elsif ( $self->get_code($characters[$i]) > 126 ){
	    $xml .= "&x";
	    $xml .= $self->get_hex( $self->get_code($characters[$i]) );
	    $xml .= ';' ;
        }

	else {
	    $xml .= $characters[$i];
	 }

    }

     return $xml;
}

sub get_code {

    my ($self, $char) = @_;
    return ord($char);
}

sub get_hex {
    my ($self, $code ) = @_;
    return unpack("H2", pack("C", $code) );
}

sub set_font {
    my ( $self, $font ) = @_;
    $self->{font} = $font;
    return $self;
}

sub get_font {
    my $self = shift;
    if ( defined( $self->{font} ) ) {
	return $self->{font};
    }
    else {
	return undef;
    }
}

sub draw {
    my $self = shift;
    my $g = shift;
    my $svg = "";
    
    $svg .= "<text x=\"".$self->get_x()."\" y=\"".$self->get_y()."\" ";
    $svg .= 'style="';
    if ( my $font = $self->get_font() ){
	$svg .= $font->get_svg_string();
    }
    $svg .= " fill:".$g->get_paint->to_hex().';';
    #$svg .= $g->get_paint()->to_svg();
    $svg .= '" ';
    $svg .= ">";
    $svg .= $self->get_xml_string();
    $svg .= "</text>";

    return $svg;
}
	
sub get_xml_string {
    my $self = shift;
    if ( defined ( $self->{xml_string} ) ){
	return $self->{xml_string};
    } else {
	return undef;
    }
}

sub set_x {
    #print STDERR "Set x called \n";
    my ($self, $x) = @_;
    #print STDERR "$x\n";
    if(defined($x)){
	if(ref($x)){
	    $self->{x} = join " ", @{$x};
	}else{
	    #print STDERR "set_x: $x\n";
	    $self->{x} = $x;
	}
    }
}

sub set_y {
    my ($self, $y) = @_;
    #print STDERR "Set y called:$y\n";
    if ($y){
	if( ref($y) ){
	    $self->{y} = join " ", @{$y};
	}else {
    $self->{y} = $y;
    }
    }
}

sub get_x {
    my $self = shift;
    if(defined( $self->{x}) ){
	return $self->{x};
    } else {
	return "";
	}
    }

sub get_y {
    my $self = shift;
    if(defined( $self->{y}) ){
	return $self->{y};
    } else {
	return "";
	}
    }

1;