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

# stringtable.pl - Makes a string table .cpp and .h file from a .st file

# This tool takes a valid .st file as an input parameter and converts it into a .h and a .cpp file

# 

#

use strict;

# Removes the extension from the filename

$ARGV[0] =~ m/(.*)\..*/;

my $root = $1;

$root =~ m/(.*[\\\/])([^\\\/]*)$/;

my $path_to_file = ("$1");

my $filename = lc("$2");

my $header_to_include = lc("$filename.h");

# Open the input filename

open (IN, "<$ARGV[0]" ) or die ("Error: $ARGV[0] $!");

# Parse header comments

my $input;

my @comments;

while ($input = <IN>) {

	# Comments starting with '#' not to be included in header file

	next if ($input =~ /^\s*\#/);  

	chomp($input);

	# Save comments containing '!' or stop looking if something else is found

	if ($input =~ /\!(.*)/) {

		push(@comments, "$1\n");

  	} else {

    		last;

  	}

}

my $folding;

# Check that line is of the right format and get the table name.

$input =~ m/(f*stringtable) ([A-Za-z0-9_]+)/ or die ("Error: $ARGV[0] is not a stringtable file");

my $name = $2;

if ($1 eq "stringtable") {

	$folding = "ETrue";

	} else {

	$folding = "EFalse";

	}

# Open the output filenames

open (CPP, ">"."$path_to_file"."$filename".".cpp" ) or die ("Error: $ARGV[0] Can't open cpp file");

open (HEADER, ">"."$path_to_file"."$filename".".h" ) or die ("Error: $ARGV[0] Can't open header file");

my $sourcename = $ARGV[0];

$sourcename =~ s/^(.*epoc32)/epoc32/i;

# Output the preambles

print CPP <<EOD;

// Autogenerated from $sourcename by the stringtable tool - Do not edit

#include <e32std.h>

#include <stringpool.h>

#include <stringtablesupport.h>

#include "$header_to_include"

#ifdef _DEBUG

#undef _DEBUG

#endif

EOD

print HEADER <<EOD;

// Autogenerated from $sourcename by the stringtable tool - Do not edit

#ifndef STRINGTABLE_$name

#define STRINGTABLE_$name

#include <stringpool.h>

struct TStringTable;

EOD

# If there are no header comments, use the default comment, otherwise, add the header comments

if (@comments == 0) {

	print HEADER "/** A String table */\n";

	} else {

	print HEADER @comments;

	}

print HEADER <<EOD;

class $name 

	{

public:

	enum TStrings

		{

EOD

my $count = 0;

my $outputcomma = 0;

my @commentlines;

#Now process file

until (eof IN) {

    # Treat lines with a '#' as the first character as comments and skip them, ignoring 0 or more whitespaces before it.

    # If # is not the first character, then treat them as part of the string.

    do 

      {

      $input = readline (*IN);

	    chomp($input);

      } while ($input =~ m/^\s*\#/);

	if ($input =~ m/\!(.*)/) {

		# Save lines that start with '!' to print later

		push(@commentlines, "\t\t$1\n");

	} else {

		# Parse the line

		$input =~ m/([A-Za-z0-9]+)\s*(.*)/ or die ("Error: $ARGV[0] badly formed at \"$input\"");

		# If a comma needs to be printed, print it

		if ($outputcomma == 1) {

			print HEADER ",\n";

			$outputcomma = 0;

		}

		# Print pending comments and clear the comments array

		if (@commentlines > 0) {

			print HEADER @commentlines;

			@commentlines = '';

		}

		# Form a version of the string that can go in a comment. This

		# can't contain /* or */

		my $enum = $1;

		my $string = $2;

		$string =~ s/\s+$//;	# remove any trailing whitespace

		my $comment = $string;

		$comment =~ s|/\*|/ \*|g;

		$comment =~ s|\*/|\* /|g;

		# Increment the count

		$count++;

		print HEADER "\t\t/** $comment */\n";

		print HEADER "\t\t$enum";

		print CPP "_STLIT8(K$count, \"$string\");\n";

		$outputcomma = 1;

	}

}

# Print closing comments

if (@commentlines > 0) {

	print HEADER "\n";

	print HEADER @commentlines;

	@commentlines = '';

} else {

	print HEADER "\n";

}

#Output intermediate boilerplate in the cpp

print CPP <<EOD;

// Intermediate

const void * const KStringPointers[] =

	{

EOD

# And the end of the headers

print HEADER <<EOD;

		};

	static const TStringTable Table;	

	};

#endif // STRINGTABLE_$name

EOD

#Output the table of pointers to the cpp file

my $total = $count;

for ($count = 1; $count <= $total ; $count++) {

    if ($count > 1) {

	print CPP ",\n";

    }

    print CPP "\t(const void*)&K$count";

};

#The last of the boilerplate

print CPP <<EOD;

	};

const TStringTable ${name}::Table = {$total, KStringPointers, $folding};

EOD