Interested in a Multilanguage Toolkit for Torque?

S32 getIdFromString(const UTF8 *str);

const UTF8 * LangFile::getString(U32 id)
{
	if(id == LANG_INVALID_ID || id >= mStringTable.size())
		return NULL;
	return mStringTable[id];
}

S32 LangFile::getIdFromString(const UTF8 *str)
{
	for (U32 i = 0; i<mStringTable.size(); i++) {
	  if (dStricmp(str,mStringTable[i]) == 0)
		  return i;

	}
  return -1;
}

const UTF8 *LangTable::getString(const U32 id) const
{
	const UTF8 *s = NULL;

	if(mCurrentLang >= 0)
		s = mLangTable[mCurrentLang]->getString(id);
	if(s == NULL && mDefaultLang >= 0 && mDefaultLang != mCurrentLang)
		s = mLangTable[mDefaultLang]->getString(id);

	return s;
}

const S32 LangTable::getIdFromString(const UTF8 *str) const
{
   S32 result = -1;
	if(mDefaultLang >= 0)
		result = mLangTable[mDefaultLang]->getIdFromString(str);

	return result;

}

LangFile::~LangFile()
{
	// [tom, 3/1/2005] Note: If this is freed in FreeTable() then when the file
	// is loaded, the language name will be blitzed.
	// Programming after 36 hours without sleep != good.

	//XXTH FIX! SAFE_DELETE(mLangName);
	// SAFE_DELETE(mLangFile);
   SAFE_DELETE_ARRAY(mLangName);
   SAFE_DELETE_ARRAY(mLangFile);
	freeTable();
}

//------------------------------------------------------------------------------
// Lang tool!
//------------------------------------------------------------------------------
/*
initLangTable
==============
  Init LangTable and set $GLOBALS::LANGUAGES for use in gui.

Example
   exec("common/shared/langtool.cs");
   initLangTable("towers/shared/lang","english deutsch");

*/
function initLangTable(%path,%languages)
{
   $GLOBALS::LANGUAGES = %languages;
   %cnt = getWordCount(%languages);
   if (%cnt == 0)
      return false;

   // Init Language tool:
   $I18N::DEFAULT = new LangTable();

   %default = getWord(%languages,0);

   exec(%path @ "/" @ %default @ ".cs");

   for (%i=0; %i<%cnt; %i++)
        $I18N::DEFAULT.addLanguage(%path @ "/" @ getWord(%languages,%i) @ ".lso", getWord(%languages,%i));


   $I18N::DEFAULT.setDefaultLanguage(0);
   $I18N::DEFAULT.setCurrentLanguage(0);

   if ($pref::langID $= "" || $pref::langID >= %cnt)
        $pref::langID = 0;

   if ($pref::langID != 0 )
        $I18N::DEFAULT.setCurrentLanguage($pref::langID);


}
//------------------------------------------------------------------------------
function setNewCurrentLanguage(%id)
{
  if ($pref::langID == %id || !isObject($I18N::DEFAULT))
        return false;
  $pref::langID = %id;
  $I18N::DEFAULT.setCurrentLanguage(%id);
  return true;
}
//------------------------------------------------------------------------------
// Translate! Stupid short Name *lol*
function Tr(%id)
{
  $I18N::DEFAULT.getString(%id);
}

function T(%string)
{
  if (!isObject($I18N::DEFAULT))
        return %string;
  %id = getLangIDfromString(%string);
  if (%id >= 0)
      return $I18N::DEFAULT.getString(%id);
  else if (isDebugBuild() && !$Game::DisableTranslationWarning )
        error("CANT FIND TRANSLATION FOR:" SPC %string);

  return %string;
}
//------------------------------------------------------------------------------
function getLangIDfromString(%string)
{
  return $I18N::DEFAULT.getIdFromString(%string);
}
//------------------------------------------------------------------------------
// THIS MUST HAVE ALL VARIABLES IN STYLE $L_[NO] starting with 1!
// can be called on GuiControl::OnAdd :D
function LangPrepareSingleGuiControl(%gui)
{
  %gui.langTableMod = "DEFAULT";
  if (%gui.text !$= "")
  {
    %id = getLangIdfromString(%gui.text);
    if (%id >=0)
      %gui.TextID = "L_" @ (%id+1);
  }
  // now look at tool tip:
  if (%gui.tooltip !$= "")
  {
    %id = getLangIdfromString(%gui.tooltip);
    if (%id >=0)
      %gui.tooltip = Tr(%id);
  }


}
//------------------------------------------------------------------------------
// THIS MUST HAVE ALL VARIABLES IN STYLE $L_[NO] starting with 1!
function LangPrepareGui(%gui, %initial)
{
  if (%initial)
      %gui.langTableMod = "DEFAULT";

  if (%gui.text !$= "")
  {
    %id = getLangIdfromString(%gui.text);
    if (%id >=0)
      %gui.TextID = "L_" @ (%id+1);
  }

  if (%gui.getCount() > 0) //recursive walk the gui!
    for (%i = 0; %i< %gui.getCount(); %i++)
        LangPrepareGui(%gui.getObject(%i), false);

}

initLangTable("towers/shared/lang","english deutsch");

function GuiControl::onAdd(%this)
{
  //Auto Translate :D
  if (%this.getClassname() !$="GuiTextEditCtrl")
        LangPrepareSingleGuiControl(%this);
}