# Copyright (c) 2004-2010 Nokia Corporation and/or its subsidiary(-ies).

#

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 $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;

       my ($fh) = @_;

       print $fh "EXPORTS\n";

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

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

       my ($fh) = @_;

       print $fh "\n";

       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";

       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";

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

       print $fh "}\n" .

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