# 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