# Copyright (c) 2006-2009 Nokia Corporation and/or its subsidiary(-ies).
# All rights reserved.
# This component and the accompanying materials are made available
# under the terms of the License "Eclipse Public License v1.0"
# which accompanies this distribution, and is available
# at the URL "http://www.eclipse.org/legal/epl-v10.html".
#
# Initial Contributors:
# Nokia Corporation - initial contribution.
#
# Contributors:
#
# Description:
# Collection of utilitiy functions which is copied from Symbian OS perl modules. 
# It provides platform related information to ROM Tools including buildrom, 
# features.pl, etc.
# 

package romosvariant;

require Exporter;
@ISA=qw(Exporter);
@EXPORT=qw(
	os_name
	is_windows
	is_linux
	env_delimiter
	path_delimiter
);

use strict;

sub os_name
{
	return $^O;
}

sub is_windows
{
	if ($^O =~ /^MSWin32$/i){
		return 1;
	}else{
		return 0;
	}	
}

sub is_linux
{
	if ($^O =~ /^MSWin32$/i){
		return 0;
	}else{
		return 1;
	}	
}

sub env_delimiter
{
	if ($^O =~ /^MSWin32$/i){
		return ";";
	}else{
		return ":";
	}
}

sub path_delimiter
{
	if ($^O =~ /^MSWin32$/i){
		return "\\";
	}else{
		return "\/";
	}
}

1;