Java::SJ::VirtualMachine - Java virtual machine

Java-SJ documentation Contained in the Java-SJ distribution.

Index

Code Index:

NAME

Top

Java::SJ::VirtualMachine - Java virtual machine

DESCRIPTION

Top

This module is used by Java::SJ::Config when generating virtual machine representations.

TODO

Top

Test, test, test.

BUGS

Top

None known so far. Please report any and all to Nigel Rantor <wiggly@wiggly.org>

SUPPORT / WARRANTY

Top

This module is free software. IT COMES WITHOUT WARRANTY OF ANY KIND.

LICENSE

Top

The Java::SJ::VirtualMachine module is Copyright (c) 2003 Nigel Rantor. England. All rights reserved.

You may distribute under the terms of either the GNU General Public License or the Artistic License, as specified in the Perl README file.

AUTHORS

Top

Nigel Rantor <wiggly@wiggly.org>

SEE ALSO

Top

Java::SJ. Java::SJ::Config.

Java-SJ documentation Contained in the Java-SJ distribution. 
###########################################################################
#
# Java::SJ::VirtualMachine
#
# $Id: VirtualMachine.pm,v 1.3 2003/07/20 18:52:21 wiggly Exp $
#
# $Author: wiggly $
#
# $DateTime$
#
# $Revision: 1.3 $
#
###########################################################################

package Java::SJ::VirtualMachine;

use Carp;
use Data::Dumper;

our $VERSION = '0.01';

###########################################################################
#
# Constructor
#
###########################################################################
sub new
{
	my $class = shift;
	my $self = {};
	bless $self, $class;

	# attributes
	$self->{'name'} = '';
	$self->{'vendor'} = '';
	$self->{'version'} = '';
	$self->{'language'} = '';
	$self->{'home'} = '';
	$self->{'default'} = '';
	$self->{'ref'} = '';

	# properties
	$self->{'prop'} = undef;

	# environment
	$self->{'env'} = undef;

	# environment
	$self->{'param'} = undef;

	#print STDERR "[DEBUG] VIRTUAL MACHINE\n" . Dumper( $self ) . "\n\n";
	return $self;		
}

###########################################################################
#
# name
#
###########################################################################
sub name
{
	my $self = shift;
	my $arg = shift;

	if( $arg )
	{
		$self->{'name'} = $arg;
	}

	$self->{'name'};
}

###########################################################################
#
# vendor
#
###########################################################################
sub vendor
{
	my $self = shift;
	my $arg = shift;

	if( $arg )
	{
		$self->{'vendor'} = $arg;
	}

	$self->{'vendor'};
}

###########################################################################
#
# version
#
###########################################################################
sub version
{
	my $self = shift;
	my $arg = shift;

	if( $arg )
	{
		$self->{'version'} = $arg;
	}

	$self->{'version'};	
}

###########################################################################
#
# language
#
###########################################################################
sub language
{
	my $self = shift;
	my $arg = shift;

	if( $arg )
	{
		$self->{'language'} = $arg;
	}

	$self->{'language'};
}

###########################################################################
#
# home
#
###########################################################################
sub home
{
	my $self = shift;
	my $arg = shift;

	if( $arg )
	{
		$self->{'home'} = $arg;
	}

	$self->{'home'};	
}

###########################################################################
#
# default
#
###########################################################################
sub default
{
	my $self = shift;
	my $arg = shift;

	if( $arg )
	{
		if( $arg =~ m/^(true|1|y|yes)$/i )
		{
			$self->{'default'} = 1;
		}
		else
		{
			$self->{'default'} = 0;
		}
	}

	$self->{'default'};	
}

###########################################################################
#
# ref
#
###########################################################################
sub ref
{
	my $self = shift;
	my $arg = shift;

	if( $arg )
	{
		$self->{'ref'} = $arg;
	}

	$self->{'ref'};
}

###########################################################################
#
# add_property
#
###########################################################################
sub add_property
{
	my $self = shift;
	my $name = shift;
	my $value = shift;
	$self->{'prop'}{$name} = $value;
	1;
}

###########################################################################
#
# add_environment
#
###########################################################################
sub add_environment
{
	my $self = shift;
	my $name = shift;
	my $value = shift;
	$self->{'env'}{$name} = $value;
	1;
}

###########################################################################
#
# add_param
#
###########################################################################
sub add_param
{
	my $self = shift;
	my $name = shift;
	my $value = shift;
	my $sep = shift;

	if( $sep =~ /^$/ )
	{
		$sep = ' ';
	}

	if( $value !~ /^$/ )
	{
		$self->{'param'}{$name} = $sep . $value;
	}
	else
	{
		$self->{'param'}{$name} = '';
	}
	1;
}




###########################################################################
1;