# Copyright (c) 2000-2009 Nokia Corporation and/or its subsidiary(-ies).
# All rights reserved.
# This component and the accompanying materials are made available
# under the terms of "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:
# this package controls target types known to the build system
# To add new types to the system, simply add an entry to the %Types data structure.
# Look at the existing types for an appropriate example
# 
#

package Trgtype;

require Exporter;
@ISA=qw(Exporter);
@EXPORT=qw(
	Trg_GetL
	Trg_List
);

use strict;
use Genutl;

my %Types=(
	ANI=>{
		'Exports'=>{
			MARM=>['CreateCAnimDllL__Fv'],
			EABI=>['_Z15CreateCAnimDllLv'],
			WINS=>['?CreateCAnimDllL@@YAPAVCAnimDll@@XZ'],
			X86=>['?CreateCAnimDllL@@YAPAVCAnimDll@@XZ'],
			x86gcc=>['_Z15CreateCAnimDllLv']
		},
		UID2=>'0x10003b22',
	},
	APP=>{
		'Exports'=>{
			MARM=>['NewApplication__Fv'],
			EABI=>['_Z14NewApplicationv'],
			WINS=>['?NewApplication@@YAPAVCApaApplication@@XZ'],
			X86=>['?NewApplication@@YAPAVCApaApplication@@XZ'],
		},
		NeedUID3=>1,
		UID2=>'0x100039ce',
		Deprecated=>"Convert to EXE",
	},
	CTL=>{
		'Exports'=>{
			MARM=>['CreateControlL__FRC7TDesC16'],
			EABI=>['_Z14CreateControlLRK7TDesC16'], 
			WINS=>['?CreateControlL@@YAXABVTDesC16@@@Z'],
			X86=>['?CreateControlL@@YAXABVTDesC16@@@Z'],
		},
		UID2=>'0x10003a34',
		Deprecated=>"Convert to application",
	},
	DLL=>{
		NeedDeffile=>1,
	},	
	EPOCEXE=>{
		Basic=>'EXEDLL',
		'Exports'=>{
			WINS=>['?WinsMain@@YAHXZ'],
		},
	},
	EXE=>{
		Basic=>'EXE',
	},
	EXEDLL=>{
		Basic=>'EXEDLL',
		NeedDeffile=>1,
	},
	EXEXP=>{
		Basic=>'EXE',
		NeedDeffile=>1,
	},
	FSY=>{
		'Exports'=>{
			MARM=>['CreateFileSystem'],
			EABI=>['CreateFileSystem'],
			WINS=>['CreateFileSystem'],
			X86=>['CreateFileSystem'],
			x86gcc=>['CreateFileSystem']
		},
		UID2=>'0x100039df',
	},
	IMPLIB=>{
		NeedDeffile=>1,
		Basic=>'IMPLIB',
	},	
	KDLL=>{
		FirstLib=>'EKLL.LIB',
#		Kernel=>1,
		System=>1,
	},
	KEXT=>{
		FirstLib=>'EEXT.LIB',
#		Kernel=>1,
		System=>1,
	},
	KLIB=>{
		Basic=>'LIB',
#		Kernel=>1,
		System=>1,
	},
	LDD=>{
		FirstLib=>'EDEV.LIB',
#		Kernel=>1,
		System=>1,
		'Exports'=>{
			MARM=>['CreateLogicalDevice__Fv'],
			EABI=>['_Z19CreateLogicalDevicev'],
			WINS=>['?CreateLogicalDevice@@YAPAVDLogicalDevice@@XZ'],
			X86=>['?CreateLogicalDevice@@YAPAVDLogicalDevice@@XZ'],
			x86gcc=>['_Z19CreateLogicalDevicev']
		},
		UID2=>'0x100000af',
	},
	LIB=>{
		Basic=>'LIB',
	},
	ECOMIIC=>{
		'Exports'=>{
			MARM=>['ImplementationGroupProxy__FRi'],
			EABI=>['_Z24ImplementationGroupProxyRi'], 
			WINS=>['?ImplementationGroupProxy@@YAPBUTImplementationProxy@@AAH@Z'],
			X86=>['?ImplementationGroupProxy@@YAPBUTImplementationProxy@@AAH@Z'],
		},
		Path=>'System\Libs\Plugins',
		UID2=>'0x10009D8D',
		Deprecated=>"Convert to PLUGIN (ECOM)",
	},
	PLUGIN=>{
		'Exports'=>{
			MARM=>['ImplementationGroupProxy__FRi'],
			EABI=>['_Z24ImplementationGroupProxyRi'],
			WINS=>['?ImplementationGroupProxy@@YAPBUTImplementationProxy@@AAH@Z'],
			X86=>['?ImplementationGroupProxy@@YAPBUTImplementationProxy@@AAH@Z'],
			x86gcc=>['_Z24ImplementationGroupProxyRi']
		},
		ResourcePath=>'Resource\Plugins',
		UID2=>'0x10009D8D',
	},
	PLUGIN3=>{
		'Exports'=>{
			MARM=>['ImplementationGroupProxy__FRi'],
			EABI=>['_Z24ImplementationGroupProxyRi'],
			WINS=>['?ImplementationGroupProxy@@YAPBUTImplementationProxy3@@AAH@Z'],
			X86=>['?ImplementationGroupProxy@@YAPBUTImplementationProxy3@@AAH@Z'],
			x86gcc=>['_Z24ImplementationGroupProxyRi']
		},
		ResourcePath=>'Resource\Plugins',
		UID2=>'0x10009D93',
	},
	MDA=>{
		'Exports'=>{
			MARM=>['NewMediaLibraryL__Fv'],
			EABI=>['_Z16NewMediaLibraryLv'],
			WINS=>['?NewMediaLibraryL@@YAPAVCMdaLibrary@@XZ'],
			X86=>['?NewMediaLibraryL@@YAPAVCMdaLibrary@@XZ'],
		},
		UID2=>'0x1000393f',
		Deprecated=>"Convert to ???",
	},
	MDL=>{
		'Exports'=>{
			MARM=>['CreateRecognizer__Fv'],
			EABI=>['_Z16CreateRecognizerv'],
			WINS=>['?CreateRecognizer@@YAPAVCApaDataRecognizerType@@XZ'],
			X86=>['?CreateRecognizer@@YAPAVCApaDataRecognizerType@@XZ'],
		},
		UID2=>'0x10003a19',
		Deprecated=>"Convert to PLUGIN (ECOM)",
	},
	RDL=>{
		'Exports'=>{
			MARM=>['CreateRecognizer__Fv'],
			EABI=>['_Z16CreateRecognizerv'],
			WINS=>['?CreateRecognizer@@YAPAVCApaFileRecognizerType@@XZ'],
		},
		UID2=>'0x10003a37',
		Deprecated=>"Convert to PLUGIN (ECOM)",
	},
	NOTIFIER=>{
		'Exports'=>{
			MARM=>['NotifierArray__Fv'],
			EABI=>['_Z13NotifierArrayv'],
			WINS=>['?NotifierArray@@YAPAV?$CArrayPtr@VMEikSrvNotifierBase@@@@XZ'],
			X86=>['?NotifierArray@@YAPAV?$CArrayPtr@VMEikSrvNotifierBase@@@@XZ'],
		},
		Path=>'System\Notifiers',
		UID2=>'0x10005522',
		Deprecated=>"Convert to PLUGIN (ECOM)",
	},
	NOTIFIER2=>{
		'Exports'=>{
			MARM=>['NotifierArray__Fv'],
			EABI=>['_Z13NotifierArrayv'],
			WINS=>['?NotifierArray@@YAPAV?$CArrayPtr@VMEikSrvNotifierBase2@@@@XZ'],
			X86=>['?NotifierArray@@YAPAV?$CArrayPtr@VMEikSrvNotifierBase2@@@@XZ'],
		},
		Path=>'System\Notifiers',
		UID2=>'0x101fdfae',
		Deprecated=>"Convert to PLUGIN (ECOM)",
	},
	TEXTNOTIFIER2=>{
		'Exports'=>{
			MARM=>['NotifierArray__Fv'],
			EABI=>['_Z13NotifierArrayv'],
			WINS=>['?NotifierArray@@YAPAV?$CArrayPtr@VMNotifierBase2@@@@XZ'],
			X86=>['?NotifierArray@@YAPAV?$CArrayPtr@VMNotifierBase2@@@@XZ'],
			x86gcc=>['_Z13NotifierArrayv']
		},
		Path=>'System\Notifiers',
		UID2=>'0x101fe38b',
		# Not deprecated - the Text Window Server will have AllFiles, 
		# so it can continue scanning for binaries
	},
	PDD=>{
		FirstLib=>'EDEV.LIB',
#		Kernel=>1,
		System=>1,
		'Exports'=>{
			MARM=>['CreatePhysicalDevice__Fv'],
			EABI=>['_Z20CreatePhysicalDevicev'],
			WINS=>['?CreatePhysicalDevice@@YAPAVDPhysicalDevice@@XZ'],
			X86=>['?CreatePhysicalDevice@@YAPAVDPhysicalDevice@@XZ'],
			x86gcc=>['_Z20CreatePhysicalDevicev']
		},
		UID2=>'0x100039d0',
	},
	PDL=>{
		'Exports'=>{
			MARM=>['NewPrinterDeviceL__Fv'],
			EABI=>['_Z17NewPrinterDeviceLv'],
			WINS=>['?NewPrinterDeviceL@@YAPAVCPrinterDevice@@XZ'],
			X86=>['?NewPrinterDeviceL@@YAPAVCPrinterDevice@@XZ'],
			x86gcc=>['_Z17NewPrinterDeviceLv']
		},
		UID2=>'0x10003b1c',
		ResourcePath=>'Resource\Printers',
	},
	STDDLL=>{
		NeedDeffile=>1,
		UID2=>'0x20004C45',
	},
	STDEXE=>{
		Basic=>'EXE',
		UID2=>'0x20004C45',
	},
	STDLIB=>{
		Basic=>'LIB',
	},
	VAR=>{
		'Exports'=>{
			MARM=>['VariantInitialise__Fv'],
			EABI=>['_Z17VariantInitialisev'],
			X86=>['?VariantInitialise@@YAPAVAsic@@XZ'],
			x86gcc=>['_Z17VariantInitialisev']
		},
		FirstLib=>'EVAR.LIB',
#		Kernel=>1,
		System=>1,
	},
	VAR2=>{
		'Exports'=>{
			MARM=>['VariantInitialise'],
			EABI=>['VariantInitialise'],
			X86=>['VariantInitialise'],
			x86gcc=>['VariantInitialise']
		},
		FirstLib=>'EVAR.LIB',
		System=>1,
	},
	NONE=>{
		Basic=>'IMPLIB',
	},
);

sub Trg_GetL ($$$) {
#	takes target type, followed by a ref to a data structure
#	to fill with exports, second UID and default targetpath, etc.,
#
#	dies upon error

	my ($Candidate, $TrgHash_ref)=@_;
	$Candidate= uc $Candidate;

#	Is type in our list?
	unless (defined $Types{$Candidate}) {
		die "ERROR: Target type \"$Candidate\" not supported\n";
	}

#	Get the data
	my %TrgHash=%{$Types{$Candidate}};


#	Set the defaults
	$TrgHash{Name}=$Candidate;

	
	unless ($TrgHash{Basic}) {
		$TrgHash{Basic}='DLL';
	}

	unless ($TrgHash{FirstLib}) {
		$TrgHash{FirstLib}='';
	}

	unless ($TrgHash{Kernel}) {
		$TrgHash{Kernel}=0;
	}

	unless ($TrgHash{System}) {
		$TrgHash{System}=0;
	}

	unless ($TrgHash{Exports}{MARM}) {
		$TrgHash{Exports}{MARM}=[];
	}
	else {
		unless (@{$TrgHash{Exports}{MARM}}<=2) {
			die "INTERNAL ERROR: Too many MARM exports defined for type \"$TrgHash{Name}\" in Trgtype.pm\n";
		}
	}

	unless ($TrgHash{Exports}{EABI}) {
		$TrgHash{Exports}{EABI}=[];
	}
	else {
		unless (@{$TrgHash{Exports}{EABI}}<=2) {
			die "INTERNAL ERROR: Too many EABI exports defined for type \"$TrgHash{Name}\" in Trgtype.pm\n";
		}
	}

	unless ($TrgHash{Exports}{WINS}) {
		$TrgHash{Exports}{'WINS'}=[];
	}
	else {
		unless (@{$TrgHash{Exports}{WINS}}<=2) {
			die "INTERNAL ERROR: Too many WINS exports defined for type \"$TrgHash{Name}\" in Trgtype.pm\n";
		}
	}

	unless ($TrgHash{Exports}{X86}) {
		$TrgHash{Exports}{X86}=[];
	}
	else {
		unless (@{$TrgHash{Exports}{X86}}<=2) {
			die "INTERNAL ERROR: Too many X86 exports defined for type \"$TrgHash{Name}\" in Trgtype.pm\n";
		}
	}

	unless ($TrgHash{Exports}{x86gcc}) {
		$TrgHash{Exports}{x86gcc}=[];
	}
	else {
		unless (@{$TrgHash{Exports}{x86gcc}}<=2) {
			die "INTERNAL ERROR: Too many x86gcc exports defined for type \"$TrgHash{Name}\" in Trgtype.pm\n";
		}
	}


	unless ($TrgHash{NeedDeffile}) {
		$TrgHash{NeedDeffile}=0;
	}

	unless ($TrgHash{NeedUID3}) {
		$TrgHash{NeedUID3}=0;
	}

	unless ($TrgHash{Path}) {
		$TrgHash{Path}='';
	}
	else {
		# apply terminating backslash
		$TrgHash{Path}=~s-^(.*[^\\])$-$1\\-o;
		# apply Z drive
		$TrgHash{Path}="Z\\$TrgHash{Path}";
	}

	unless ($TrgHash{ResourcePath}) {
		$TrgHash{ResourcePath}='';
	}
	else {
		# apply terminating backslash & Z drive
		$TrgHash{ResourcePath}=~s-^(.*[^\\])$-Z\\$1\\-o;
	}

	unless ($TrgHash{UID2}) {
		$TrgHash{UID2}='';
	}
	else {
		$TrgHash{UID2}=&Genutl_AnyToHex($TrgHash{UID2});
		unless (defined $TrgHash{UID2}) {
			die "INTERNAL ERROR: UID2 badly defined for type \"$TrgHash{Name}\" in Trgtype.pm\n";
		}
	}

#	Deprecated target warnings

	if ($TrgHash{Deprecated}) {
		print "MIGRATION_NOTE: type \"$TrgHash{Name}\" is deprecated - $TrgHash{Deprecated}\n";
	}
	
#	Pass the data
	%{$TrgHash_ref}=%TrgHash;
}

sub Trg_List () {
#	returns a list of known poly types

	sort keys %Types;
}


1;