#!/usr/local/bin/perl
#
# Module: LocMsgTable
#
# Purpose: Build a table of messages from a Collage internationalized string file.
#

use strict;
use locale;
use POSIX 'locale_h';
use Encode qw/encode decode/; 

package LocMsgTable;

use constant ARG_PREFIX_BE => "\x{6C00}\x{6D00}\x{4100}\x{7200}\x{6700}"; # 'lmArg';
use constant DELIMITER_BE  => "\x{2200}";                 # double quote

use constant ARG_PREFIX_LE => "\x{006C}\x{006D}\x{0041}\x{0072}\x{0067}"; # 'lmArg';
use constant DELIMITER_LE  => '\x{0022}';                 # double quote

use constant WINDOWS_BOM   => '\x{FEFF}';


sub argPrefix
{
   my ($this) = @_;

   if ($this->{'bigendian'} == 1)
   {
      return ARG_PREFIX_BE;
   }
   else
   {
      return ARG_PREFIX_LE;
   }
}


sub delimiter
{
   my ($this) = @_;

   if ($this->{'bigendian'} == 1)
   {
      return DELIMITER_BE;
   }
   else
   {
      return DELIMITER_LE;
   }
}


sub new
{
   my ($class, $bigendian, $language, %table) = @_;

   $bigendian = 1;
   $language = undef;
   %table = ('Invalid', '--- message not found, or invalid ---');

   my $obj = bless {
      'bigendian' => $bigendian,
      'language' => $language,
      'table' => \%table,
   }, $class;
}

sub LoadTable
{
   my ($this, $language) = @_;
   my $line;
   my $FH;
   my $prelim, my $id, my $spacer, my $remainder;

   $this->{'language'} = $language;

   binmode (STDOUT, ":encoding(ucs2)");
   binmode (STDIN, ":encoding(ucs2)");
   binmode (STDERR, ":encoding(ucs2)");

   local $/ = "\x{0600}";
   open( $FH, '<:encoding(ucs2)', 'Language.msg');

   $line = <$FH>;
   chomp $line;
   if (substr($line, 0, 1) eq WINDOWS_BOM)
   {
      $this->{'bigendian'} = 0;
   }
   my $delim = $this->delimiter();

# Parse each line  
 while ($line = <$FH>)
   {
      chomp $line;
      ($prelim, $id, $spacer, $remainder) = split(/$delim/, $line, 4); # not completely parsed for now
      $this->{'table'}{$id} = $remainder;
   }

}

#
#  Get a "Message lmArg1" style entry from the hash, substitute args, and return the string
#
sub CreateString
{
   my ($this, $strId, @args) = @_;
   my $arg;
   my $argCount = 1;
   my $argTag;

   my $retVal = $this->{'table'}{$strId};

   foreach $arg (@args)
   {
      $argTag = "<<< $argCount >>>"
      $retVal =~ s/$argTag/$args[$argCount-1]/g;
      $argCount++;
   }

   return $retVal;
}

1;