1 # Copyright (c) 2008-2009 Nokia Corporation and/or its subsidiary(-ies).

     2 # All rights reserved.

     3 # This component and the accompanying materials are made available

     4 # under the terms of "Eclipse Public License v1.0"

     5 # which accompanies this distribution, and is available

     6 # at the URL "http://www.eclipse.org/legal/epl-v10.html".

     7 #

     8 # Initial Contributors:

     9 # Nokia Corporation - initial contribution.

    10 #

    11 # Contributors:

    12 #

    13 # Description:

    14 #

    15 

    16 #!/usr/bin/perl

    17 

    18 use Cwd;

    19 

    20 

    21 my $fileName = shift;

    22 

    23 die "Specify a file\n" if ($fileName eq "");

    24 die "No such path $fileName\n" if (! -f $fileName);

    25 

    26 my $inputFile = @_[0];

    27 my $newName;

    28 my $comment;

    29 my $spacing;

    30 

    31 if (open (INFILE, $fileName)) {

    32     my @content = <INFILE>;

    33     close INFILE;

    34     

    35     foreach $line (@content) {

    36         if ($line =~ m/^[ \t]*\/\/.*/) {

    37             next;

    38         }

    39         if ($line =~ m/typedef (.*)<(.*),.*> T(.*);/) {

    40             $sig = $1;

    41             $enum = $2;

    42             $message = $3;

    43             

    44             if ($sig =~ m/.*::(.*)$/) {

    45                 $sig = $1;

    46             }

    47             

    48         print "MESSAGE $message\n    SIGNATURE = $sig\n    MESSAGEID = ";

    49         print "KESockInternalRealmId:$enum\nEND MESSAGE\n\n";

    50         }

    51     }

    52 }