# Copyright (c) 2008-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:

# Convert the given header file from Khronos into a stub implementation file

# 

#

use File::Basename;

use File::Path;

my $debug = 0;

my $prog = "conv_khronos_openvg_hdr_to_cpp.pl";

my $source = shift;

my $target = shift;

my $operation_mode = shift;

my @lines;

if ($debug) {

  print "$prog: Args $source $target $operation_mode\n";

}

if ("$operation_mode" eq "delete") {

  &cleanup();

  exit 0;

} elsif ("$operation_mode" eq "create") {

  &setupFiles();

  &generateStubImplementation();

  exit 0;

} else {

  print "Usage error: $prog source target [create|delete]\n";

  exit 1;

}

sub cleanup()

  {

    unlink "$target";

  }

sub setupFiles()

  {

    my $dir;

    $dir = dirname($target);

    mkpath $dir;

    open(INFILE,  "$source") or die "Can't open input file $source; $!\n";

    open(OUTFILE, ">$target") or die "Can't open output file $target; $!\n";

    print OUTFILE '/* Auto-generated: ' . "$prog" . ' v1.0 */' . "\n";

    print OUTFILE '/* Copyright (c) 2008-2009 Nokia Corporation and/or its subsidiary(-ies).  All rights reserved. */' . "\n";

  }

sub generateStubImplementation()

  {

    @lines = <INFILE>;

    my $s = "";

      # Find function prototype lines

		  # Convert the function prototype into a stub function definition

		  $s =~ s/\;$/ { }/;

		  # Record the stub functions.  There will be a stub implementation

		  # file which includes these stub functions.  This ensures we never

		  # accidentally miss a new function added to the header file supplied

		  # as $source.  We expect compiler warnings (missing use of arguments,

		  # absent return value etc.).  The aim is to get something which will

		  # compile so that a DEF file can be generated.

		  print OUTFILE "$s";

		  $s = "";

		}

      }       

    }

  }