#!/bin/perl -w

 # Copyright (c) 2004-2010 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:

 # Generates the ws32_stubs.h header file and the ws32switchU.def

 # file from the ws322U def file.

 # 

 #

 use strict;

 my $COPYRIGHT = <<"EndCopyrightAndLicense";

 /*

  * Copyright (c) 2004-2010 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".

  */

 EndCopyrightAndLicense

 my $SOURCE_DEF_SIZE = 0;

 my $WS32_DEF = "../BWINS/";

 my $WS32_DEF2 = "../BWINS/";

 my $WS32SWITCH_HEADER = "";

 my $WS32SWITCH_DEF = "../BWINS/";

 &main();

 exit(0);

 sub main() {

 	my $maxOrdinal = 1;

 	my $def2MaxOrdinal = 1;

 	$WS32_DEF .= $ARGV[0];

 	$WS32SWITCH_HEADER = $ARGV[1];

 	$WS32SWITCH_DEF .= $ARGV[2];

 	open DEF, $WS32_DEF or

 		die "Cannot open $WS32_DEF\n";

 	my ($dev, $ino, $mode, $nlink, $uid, $gid, 

 		$rdev, $size, $atime, $mtime, $ctime, 

 		$blksize, $blocks) 

 		= stat($WS32_DEF);

 	# the file size could be checked by the switcher build to verify that the stub is up to date.

 	$SOURCE_DEF_SIZE= $size;

 	open HEADER_OUT, ">${WS32SWITCH_HEADER}" or

 		die "Cannot create $WS32SWITCH_HEADER\n";

 	open DEF_OUT, ">${WS32SWITCH_DEF}" or

 		die "Cannot create $WS32SWITCH_DEF\n";

 	&printHeaderStart(\*HEADER_OUT);

 	&printDefStart(\*DEF_OUT);

 	while (<DEF>) {

 		chomp;

 		if (/^\s+\?/) {

 			if (s/.*;/;/) {

 				&printDefEntry(\*DEF_OUT, $maxOrdinal, $_);

 				&printHeaderEntry(\*HEADER_OUT,$maxOrdinal,$_);

 			} else {

 				&printDefEntry(\*DEF_OUT, $maxOrdinal, "");

 				&printHeaderEntry(\*HEADER_OUT,$maxOrdinal, "(noname)");

 			}

 			$maxOrdinal++;

 		}

 	}

 	&printHeaderEnd(\*HEADER_OUT,$maxOrdinal);

 	&printDefEnd(\*DEF_OUT);

 	close DEF;

 	close HEADER_OUT;

 	close DEF_OUT;

 }

 sub printDefStart(\$) {

 	my ($fh) = @_;

 	print $fh "EXPORTS\n";

 }

 sub printDefEntry(\$\$\$) {

 	my ($fh, $ordinal, $comment) = @_;

 	print $fh "\tcall_vector_${ordinal} @ ${ordinal} NONAME $comment\n";

 }

 sub printDefEnd(\$) {

 	my ($fh) = @_;

 	print $fh "\n";

 }

 sub printHeaderStart(\$) {

 	my ($fh) = @_;

 	print $fh "$COPYRIGHT\n" .

 		"/* Generated from  \"$WS32_DEF\" file size: $SOURCE_DEF_SIZE */\n\n" .

 		"extern \"C\" {\n" .

 		"void common_dispatch();\n" .

 		"\n";

 }

 sub printHeaderEntry(\$\$\$) {

 	my ($fh, $ordinal, $comment) = @_;

 	print $fh "__declspec(dllexport)\n" .

 		"__declspec(naked)\n" .

 		"void call_vector_${ordinal} ()\n" .

 		"\t{\n" .

 		"\t// ${comment}\n" .

 		"\t_asm mov eax, $ordinal\n" .

 		"\t_asm jmp common_dispatch\n" .

 		"\t}\n\n";

 }

 sub printHeaderEnd(\$\$) {

 	my ($fh, $maxOrdinal) = @_;

 	print $fh "}\n" .

 		"#define MAX_ORDINAL $maxOrdinal\n\n";

 }