#!/bin/perl -w

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

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

# file from the ws322U def file.

# 

#

use strict;

my $COPYRIGHT = "Copyright (c) 2004-2009 Nokia Corporation and/or its subsidiary(-ies).";

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 "// Generated from \"$WS32_DEF\" file size: $SOURCE_DEF_SIZE\n" .

		"// $COPYRIGHT\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";

}