--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/windowing/windowserver/wins_switching/generate_stubs.pl	Tue Feb 02 01:47:50 2010 +0200
@@ -0,0 +1,127 @@
+#!/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";
+}