windowing/windowserver/wins_switching/generate_stubs.pl
branchRCL_3
changeset 164 25ffed67c7ef
parent 163 bbf46f59e123
equal deleted inserted replaced
163:bbf46f59e123 164:25ffed67c7ef
     1 #!/bin/perl -w
     1 #!/bin/perl -w
     2 
     2 
     3 # Copyright (c) 2004-2010 Nokia Corporation and/or its subsidiary(-ies).
     3 # Copyright (c) 2004-2009 Nokia Corporation and/or its subsidiary(-ies).
     4 # All rights reserved.
     4 # All rights reserved.
     5 # This component and the accompanying materials are made available
     5 # This component and the accompanying materials are made available
     6 # under the terms of "Eclipse Public License v1.0"
     6 # under the terms of "Eclipse Public License v1.0"
     7 # which accompanies this distribution, and is available
     7 # which accompanies this distribution, and is available
     8 # at the URL "http://www.eclipse.org/legal/epl-v10.html".
     8 # at the URL "http://www.eclipse.org/legal/epl-v10.html".
    17 # file from the ws322U def file.
    17 # file from the ws322U def file.
    18 # 
    18 # 
    19 #
    19 #
    20 
    20 
    21 use strict;
    21 use strict;
    22 
    22 my $COPYRIGHT = "Copyright (c) 2004-2009 Nokia Corporation and/or its subsidiary(-ies).";
    23 my $COPYRIGHT = <<"EndCopyrightAndLicense";
       
    24 /*
       
    25  * Copyright (c) 2004-2010 Nokia Corporation and/or its subsidiary(-ies).
       
    26  * All rights reserved.
       
    27  * This component and the accompanying materials are made available
       
    28  * under the terms of "Eclipse Public License v1.0"
       
    29  * which accompanies this distribution, and is available
       
    30  * at the URL "http://www.eclipse.org/legal/epl-v10.html".
       
    31  */
       
    32 EndCopyrightAndLicense
       
    33 
    23 
    34 my $SOURCE_DEF_SIZE = 0;
    24 my $SOURCE_DEF_SIZE = 0;
    35 my $WS32_DEF = "../BWINS/";
    25 my $WS32_DEF = "../BWINS/";
    36 my $WS32_DEF2 = "../BWINS/";
    26 my $WS32_DEF2 = "../BWINS/";
    37 my $WS32SWITCH_HEADER = "";
    27 my $WS32SWITCH_HEADER = "";
   107 }
    97 }
   108 
    98 
   109 sub printHeaderStart(\$) {
    99 sub printHeaderStart(\$) {
   110 	my ($fh) = @_;
   100 	my ($fh) = @_;
   111 
   101 
   112 	print $fh "$COPYRIGHT\n" .
   102 	print $fh "// Generated from \"$WS32_DEF\" file size: $SOURCE_DEF_SIZE\n" .
   113 		"/* Generated from  \"$WS32_DEF\" file size: $SOURCE_DEF_SIZE */\n\n" .
   103 		"// $COPYRIGHT\n" .
       
   104 		"\n" .
   114 		"extern \"C\" {\n" .
   105 		"extern \"C\" {\n" .
   115 		"void common_dispatch();\n" .
   106 		"void common_dispatch();\n" .
   116 		"\n";
   107 		"\n";
   117 }
   108 }
   118 
   109