#!/bin/perl -w

# Copyright (c) 2007-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 egl_stubs.h header file and the eglswitchu.def
# file from the libeglu def file.
# 
#

use strict;
my $COPYRIGHT = "" .
"// Copyright (c) 2009 Nokia Corporation and/or its subsidiary(-ies).\n" .
"// All rights reserved.\n" .
"// This component and the accompanying materials are made available\n" .
"// under the terms of the License \"Eclipse Public License v1.0\"\n" .
"// which accompanies this distribution, and is available\n" .
"// at the URL \"http://www.eclipse.org/legal/epl-v10.html\".\n" .
"//\n" .
"// Initial Contributors:\n" .
"// Nokia Corporation - initial contribution.\n" .
"//\n" .
"// Contributors:\n" .
"//\n" .
"// Description:\n";

my $EGL_DEF;
my $EGLSWITCH_HEADER = "egl_stubs.h";
my $EGLSWITCH_DEF = "../BWINS/eglswitchu.def";
my $SOURCE_DEF_SIZE = 0;

&main();
exit(0);

sub main() {
	if (@ARGV == 0) {
		printf "Usage: generate_stubs.pl <EGL DEF file>\n";
		printf "e.g. generate_stubs.pl /epoc32/include/def/win32/libegl14u.def\n";
		return 0;
	}
	
	$EGL_DEF = $ARGV[0];
	my $maxOrdinal = 1;

	open DEF, $EGL_DEF or
		die "Cannot open $EGL_DEF\n";

	my ($dev, $ino, $mode, $nlink, $uid, $gid, 
		$rdev, $size, $atime, $mtime, $ctime, 
		$blksize, $blocks) 
		= stat($EGL_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, ">${EGLSWITCH_HEADER}" or
		die "Cannot create $EGLSWITCH_HEADER\n";

	open DEF_OUT, ">${EGLSWITCH_DEF}" or
		die "Cannot create $EGLSWITCH_DEF\n";

	&printHeaderStart(\*HEADER_OUT);
	&printDefStart(\*DEF_OUT);

	while (<DEF>) {
		chomp;
		if (/@/) {
			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 \"$EGL_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";
}