Initial commit of OpenSPARC T2 design and verification files.

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

package Pastel::Mixin::Mixin;\r
\r
#  The sole purpose of the existance of this module is to provide some low\r
#  level functionality to the Pastel package. This module is automatically called\r
#  by all the modules.\r
\r
\r
# I liked this method from the bioperl modules. I just lifted it verbatim. Great works\r
# guys!!!!\r
\r
sub _rearrange {\r
\r
  \r
    my($self,$order,@param) = @_;\r
    \r
    return unless @param;\r
    return @param unless (defined($param[0]) && $param[0]=~/^-/); \r
    \r
    for (my $i=0;$i<@param;$i+=2) {\r
	    $param[$i]=~s/^\-//;\r
	    $param[$i]=~tr/a-z/A-Z/;\r
    }\r
    \r
    # Now we'll convert the @params variable into an associative array.\r
    local($^W) = 0;  # prevent "odd number of elements" warning with -w.\r
    my(%param) = @param;\r
    \r
    my(@return_array);\r
    \r
    # What we intend to do is loop through the @{$order} variable,\r
    # and for each value, we use that as a key into our associative\r
    # array, pushing the value at that key onto our return array.\r
    my($key);\r
    \r
    foreach $key (@{$order}) {\r
	my($value) = $param{$key};\r
	delete $param{$key};\r
	push(@return_array,$value);\r
    }\r
    \r
#    print "\n_rearrange() after processing:\n";\r
#    my $i; for ($i=0;$i<@return_array;$i++) { printf "%20s => %s\n", ${$order}[$i], $return_array[$i]; } <STDIN>;\r
\r
    return (@return_array);\r
}\r
\r
=head1\r
\r
  sub print_svg {\r
    my $self = shift;\r
    my $data = shift;\r
   # my $indent_level = $self->{_indent_level};\r
    my $indent_type = "    "; # 4 spaces indent\r
\r
    my $indent = $indent_type x $self->{_indent_level};\r
    print "$indent$data\n";\r
\r
    while ($data =~ /</gi){\r
	$self->{_indent_level}++;\r
#print "Increase indent\n";\r
#print $self->{_indent_level};\r
\r
    }\r
    while ($data =~ /\/>/gi ){\r
	$self->{_indent_level}--;\r
#print $self->{_indent_level};\r
    }\r
    while ($data =~ /<\//gi ){\r
	$self->{_indent_level} -= 2;\r
	\r
	#print $self->{_indent_level};\r
    }\r
\r
\r
}\r
=cut\r
  \r
sub _min {\r
    my $self = shift;\r
    my ($a, $b) = @_;\r
\r
    if ($a == $b){\r
	return $a;\r
    }\r
    \r
    if ($a > $b){\r
	return $b;\r
    }\r
\r
    else {\r
	return $a;\r
    }\r
}\r
\r
sub _max {\r
    my $self = shift;\r
    my ($a, $b) = @_;\r
\r
    if ($a == $b){\r
	return $a;\r
    }\r
    elsif ($a > $b) {\r
	return $a;\r
    }\r
\r
    else {\r
	return $b;\r
    }\r
}\r
\r
    \r
1;\r