sl@0: #!/bin/perl -w
sl@0: 
sl@0: # Copyright (c) 2007-2009 Nokia Corporation and/or its subsidiary(-ies).
sl@0: # All rights reserved.
sl@0: # This component and the accompanying materials are made available
sl@0: # under the terms of "Eclipse Public License v1.0"
sl@0: # which accompanies this distribution, and is available
sl@0: # at the URL "http://www.eclipse.org/legal/epl-v10.html".
sl@0: #
sl@0: # Initial Contributors:
sl@0: # Nokia Corporation - initial contribution.
sl@0: #
sl@0: # Contributors:
sl@0: #
sl@0: # Description:
sl@0: # Generates the egl_stubs.h header file and the eglswitchu.def
sl@0: # file from the libeglu def file.
sl@0: # 
sl@0: #
sl@0: 
sl@0: use strict;
sl@0: my $COPYRIGHT = "" .
sl@0: "// Copyright (c) 2009 Nokia Corporation and/or its subsidiary(-ies).\n" .
sl@0: "// All rights reserved.\n" .
sl@0: "// This component and the accompanying materials are made available\n" .
sl@0: "// under the terms of the License \"Eclipse Public License v1.0\"\n" .
sl@0: "// which accompanies this distribution, and is available\n" .
sl@0: "// at the URL \"http://www.eclipse.org/legal/epl-v10.html\".\n" .
sl@0: "//\n" .
sl@0: "// Initial Contributors:\n" .
sl@0: "// Nokia Corporation - initial contribution.\n" .
sl@0: "//\n" .
sl@0: "// Contributors:\n" .
sl@0: "//\n" .
sl@0: "// Description:\n";
sl@0: 
sl@0: my $EGL_DEF;
sl@0: my $EGLSWITCH_HEADER = "egl_stubs.h";
sl@0: my $EGLSWITCH_DEF = "../BWINS/eglswitchu.def";
sl@0: my $SOURCE_DEF_SIZE = 0;
sl@0: 
sl@0: &main();
sl@0: exit(0);
sl@0: 
sl@0: sub main() {
sl@0: 	if (@ARGV == 0) {
sl@0: 		printf "Usage: generate_stubs.pl <EGL DEF file>\n";
sl@0: 		printf "e.g. generate_stubs.pl /epoc32/include/def/win32/libegl14u.def\n";
sl@0: 		return 0;
sl@0: 	}
sl@0: 	
sl@0: 	$EGL_DEF = $ARGV[0];
sl@0: 	my $maxOrdinal = 1;
sl@0: 
sl@0: 	open DEF, $EGL_DEF or
sl@0: 		die "Cannot open $EGL_DEF\n";
sl@0: 
sl@0: 	my ($dev, $ino, $mode, $nlink, $uid, $gid, 
sl@0: 		$rdev, $size, $atime, $mtime, $ctime, 
sl@0: 		$blksize, $blocks) 
sl@0: 		= stat($EGL_DEF);
sl@0: 	# the file size could be checked by the switcher build to verify that the stub is up to date.
sl@0:     $SOURCE_DEF_SIZE= $size;
sl@0:     
sl@0: 	open HEADER_OUT, ">${EGLSWITCH_HEADER}" or
sl@0: 		die "Cannot create $EGLSWITCH_HEADER\n";
sl@0: 
sl@0: 	open DEF_OUT, ">${EGLSWITCH_DEF}" or
sl@0: 		die "Cannot create $EGLSWITCH_DEF\n";
sl@0: 
sl@0: 	&printHeaderStart(\*HEADER_OUT);
sl@0: 	&printDefStart(\*DEF_OUT);
sl@0: 
sl@0: 	while (<DEF>) {
sl@0: 		chomp;
sl@0: 		if (/@/) {
sl@0: 			if (s/.*;/;/) {
sl@0: 				&printDefEntry(\*DEF_OUT, $maxOrdinal, $_);
sl@0: 				&printHeaderEntry(\*HEADER_OUT,$maxOrdinal,$_);
sl@0: 			} else {
sl@0: 				&printDefEntry(\*DEF_OUT, $maxOrdinal, "");
sl@0: 				&printHeaderEntry(\*HEADER_OUT,$maxOrdinal, "(noname)");
sl@0: 			}
sl@0: 			$maxOrdinal++;
sl@0: 		}
sl@0: 	}
sl@0: 	&printHeaderEnd(\*HEADER_OUT,$maxOrdinal);
sl@0: 	&printDefEnd(\*DEF_OUT);
sl@0: 
sl@0: 	close DEF;
sl@0: 	close HEADER_OUT;
sl@0: 	close DEF_OUT;
sl@0: }
sl@0: 
sl@0: sub printDefStart(\$) {
sl@0: 	my ($fh) = @_;
sl@0: 	print $fh "EXPORTS\n";
sl@0: }
sl@0: 
sl@0: sub printDefEntry(\$\$\$) {
sl@0: 	my ($fh, $ordinal, $comment) = @_;
sl@0: 	print $fh "\tcall_vector_${ordinal} @ ${ordinal} NONAME $comment\n";
sl@0: }
sl@0: 
sl@0: sub printDefEnd(\$) {
sl@0: 	my ($fh) = @_;
sl@0: 	print $fh "\n";
sl@0: }
sl@0: 
sl@0: sub printHeaderStart(\$) {
sl@0: 	my ($fh) = @_;
sl@0: 
sl@0: 	print $fh "$COPYRIGHT\n".
sl@0:     "// Generated from \"$EGL_DEF\" file size: $SOURCE_DEF_SIZE\n" .
sl@0: 		"\n" .
sl@0: 		"extern \"C\" {\n" .
sl@0: 		"void common_dispatch();\n" .
sl@0: 		"\n";
sl@0: }
sl@0: 
sl@0: sub printHeaderEntry(\$\$\$) {
sl@0: 	my ($fh, $ordinal, $comment) = @_;
sl@0: 
sl@0: 	print $fh "__declspec(dllexport)\n" .
sl@0: 		"__declspec(naked)\n" .
sl@0: 		"void call_vector_${ordinal} ()\n" .
sl@0: 		"\t{\n" .
sl@0: 		"\t// ${comment}\n" .
sl@0: 		"\t_asm mov eax, $ordinal\n" .
sl@0: 		"\t_asm jmp common_dispatch\n" .
sl@0: 		"\t}\n\n";
sl@0: }
sl@0: 
sl@0: sub printHeaderEnd(\$\$) {
sl@0: 	my ($fh, $maxOrdinal) = @_;
sl@0: 	print $fh "}\n" .
sl@0: 		"#define MAX_ORDINAL $maxOrdinal\n\n";
sl@0: }