/* --------------------------------------------------------------------------------
# 4DPlugin.c
# Project : InfoSysteme
# author : Aziz Elghomari
# --------------------------------------------------------------------------------*/


#include "4DPluginAPI.h"
#include "4DPlugin.h"
#include <stdio.h>
#include <string.h>
#include <assert.h>
#if VERSIONWIN
#include <Windows.h>
#endif

//#include "AsiPort.h"
#define NUM_TCHARS_NEEDED_FOR_BACKSLASH (1)
#define NUM_TCHARS_NEEDED_FOR_NULL_TERM (1)
#define BACKSLASH (TEXT("\\"))
//long AnsiToMac( unsigned char *AnsiStr, unsigned char *MacStr, short AnsiLen );
char *conversion(char *ptr);

void PluginMain( long selector, PA_PluginParameters params )
{
   switch( selector )
   {
      case kInitPlugin :
         InitPlugin();
         break;

      case kDeinitPlugin :
         DeinitPlugin();
         break;

// --- InfoSysteme

      case eCMD_GetLanguage :
         GetLanguage( params );
         break;

      case eCMD_GetidLanguage :
         GetidLanguage( params );
         break;

   }
}

void InitPlugin()
{
   // write initialisation code here...
}

void DeinitPlugin()
{
   // write deinitialisation code here...
}

// ---------------------------------- InfoSysteme ---------------------------------

void GetLanguage( PA_PluginParameters params )
{
   char *maval;
   char returnValue[256];
   long IDLanguage;

   UINT nLenOfSysDirPath = 0;
   LPTSTR lpszSysDir = NULL;
   //char lpdwTrans[256],cbTrans[256];

   LPVOID *lpdwTrans; // address of buffer for version value pointer
   PUINT cbTrans; // address of length buffer

   LPTSTR lpszSysFile = NULL;
   UINT nLen = 0;
   DWORD dwUseless = 0;
   LPVOID lpVersionData = NULL;
   DWORD dwSize = 0;
   LCID lcidUSER;
   TCHAR szUserLangName [64];


   long lenr, taille;

   char t1[255] = "çéèà";
   char t2[255] = "";
   unsigned char *src = (unsigned char*)t1;
   unsigned char *dest = (unsigned char*)t2;
   nLen = GetSystemDirectory( NULL, 0 );
   nLenOfSysDirPath = nLen + NUM_TCHARS_NEEDED_FOR_BACKSLASH;
   lpszSysDir = (LPTSTR) LocalAlloc( LPTR, nLenOfSysDirPath *sizeof( TCHAR ) );
   lpszSysFile = (LPTSTR) LocalAlloc( LPTR, (nLenOfSysDirPath+8) *sizeof( TCHAR ) );

   GetSystemDirectory( lpszSysDir, nLen );
   if ( lstrcmp( (LPCTSTR) lpszSysDir[ lstrlen( lpszSysDir ) ], (LPCTSTR) BACKSLASH ) )
      lstrcat( lpszSysDir, (LPCTSTR) BACKSLASH );

      //lstrcpy( lpszSysFile, (LPCTSTR) lpszSysDir );
      lstrcpy( lpszSysFile,(LPCTSTR)lpszSysDir );
      lstrcat( lpszSysFile, (LPCTSTR) TEXT("USER.EXE"));

      dwSize = GetFileVersionInfoSize(lpszSysFile,&dwUseless);
   if (dwSize)
   {
      lpVersionData = LocalAlloc(LPTR,(UINT)dwSize);
      if (GetFileVersionInfo(lpszSysFile,dwUseless,dwSize,lpVersionData))
      {

         if(VerQueryValue(lpVersionData,TEXT("\\VarFileInfo\\Translation"),(VOID**)&lpdwTrans,&cbTrans))
         {
            lcidUSER = LOWORD(lpdwTrans[0]);
         }
      } // end we got version data
      LocalFree((HLOCAL)lpVersionData);
   }
   // --- write the code of GetLanguage here...
   VerLanguageName (lcidUSER,szUserLangName,sizeof(szUserLangName));

   PA_ReturnString( params, szUserLangName );

   LocalFree(lpszSysDir);
   LocalFree(lpszSysFile);

}


void GetidLanguage( PA_PluginParameters params )
{
   char *maval;
   char returnValue[256];
   long IDLanguage;

   UINT nLenOfSysDirPath = 0;
   LPTSTR lpszSysDir = NULL;
   //char lpdwTrans[256],cbTrans[256];

   LPVOID *lpdwTrans; // address of buffer for version value pointer
   PUINT cbTrans; // address of length buffer

   LPTSTR lpszSysFile = NULL;
   UINT nLen = 0;
   DWORD dwUseless = 0;
   LPVOID lpVersionData = NULL;
   DWORD dwSize = 0;
   LCID lcidUSER;
   TCHAR szUserLangName [64];


   long lenr, taille;

   char t1[255] = "çéèà";
   char t2[255] = "";
   unsigned char *src = (unsigned char*)t1;
   unsigned char *dest = (unsigned char*)t2;
   unsigned char *dest2 = (unsigned char*)t2;

   nLen = GetSystemDirectory( NULL, 0 );
   nLenOfSysDirPath = nLen + NUM_TCHARS_NEEDED_FOR_BACKSLASH;
   lpszSysDir = (LPTSTR) LocalAlloc( LPTR, nLenOfSysDirPath *sizeof( TCHAR ) );
   lpszSysFile = (LPTSTR) LocalAlloc( LPTR, (nLenOfSysDirPath+8) *sizeof( TCHAR ) );

   GetSystemDirectory( lpszSysDir, nLen );
   if ( lstrcmp( (LPCTSTR) lpszSysDir[ lstrlen( lpszSysDir ) ], (LPCTSTR) BACKSLASH ) )
      lstrcat( lpszSysDir, (LPCTSTR) BACKSLASH );

      //lstrcpy( lpszSysFile, (LPCTSTR) lpszSysDir );
      lstrcpy( lpszSysFile,(LPCTSTR)lpszSysDir );
      lstrcat( lpszSysFile, (LPCTSTR) TEXT("USER.EXE"));
      dwSize = GetFileVersionInfoSize(lpszSysFile,&dwUseless);
   if (dwSize)
   {
      lpVersionData = LocalAlloc(LPTR,(UINT)dwSize);
      if (GetFileVersionInfo(lpszSysFile,dwUseless,dwSize,lpVersionData))
      {
         if(VerQueryValue(lpVersionData,TEXT("\\VarFileInfo\\Translation"),(VOID**)&lpdwTrans, &cbTrans))
         {
            lcidUSER = LOWORD(lpdwTrans[0]);
         }
      } // end we got version data
      LocalFree((HLOCAL)lpVersionData);
   }
   // --- write the code of GetLanguage here...
   VerLanguageName (lcidUSER,szUserLangName,sizeof(szUserLangName));

   strncpy(dest,szUserLangName,2);
   PA_ReturnString( params, dest );

   LocalFree(lpszSysDir);
   LocalFree(lpszSysFile);

}

/* ------------------------------------------------------------------------
#
# 4DPlugin.c
# source generated by 4D Plugin Wizard
# Project : InfoSysteme
# author : azizelghomari
# 10/11/04
#
# --------------------------------------------------------------------------------*/


#include "4DPluginAPI.h"
#include "4DPlugin.h"

#include <stdio.h>
#include <string.h>
#include <ctype.h>
#include <extras_string.h>

#if VERSIONWIN
#include <Windows.h>
#endif

void PluginMain( long selector, PA_PluginParameters params )
{
   switch( selector )
   {
      case kInitPlugin :
         InitPlugin();
         break;

      case kDeinitPlugin :
         DeinitPlugin();
         break;

// --- InfoSysteme

      case 1 :
         GetLanguage( params );
         break;

   }
}

void InitPlugin()
{
   // write initialisation code here...
}

void DeinitPlugin()
{
   // write deinitialisation code here...
}

// ---------------------------------- InfoSysteme ---------------------------------

void GetLanguage( PA_PluginParameters params )
{
   CFArrayRef lgArray;
   char lgCode[4];
   char code[256];
   CFStringRef strRef;
   Boolean result;
   OSStatus status;
   LocaleRef locale;

   lgCode[0] = 0;


   lgArray = (CFArrayRef) CFPreferencesCopyValue(CFSTR("AppleLanguages"),
   kCFPreferencesAnyApplication, kCFPreferencesCurrentUser,
   kCFPreferencesAnyHost);
   if (lgArray != NULL) {
      strRef = (CFStringRef) CFArrayGetValueAtIndex(lgArray, 0);


      if (strRef != NULL) {

         result = CFStringGetCString(strRef, code, 256, kCFStringEncodingASCII);
         if (result == true) {

            status = LocaleRefFromLocaleString(code, &locale);
            if (status == noErr) {
               char lcode[256];

               status = LocaleRefGetPartString(locale, kLocaleLanguageMask, 256, lcode);
               if (status == noErr) {
                  strcpy(code, lcode);
               }
            }


            if (strlen(code) > 2) {
               if (strcmp(code, "german") == 0) strcpy(code, "de");
               //allemand
            else if (strcmp(code, "spanish") == 0) strcpy(code, "es");
               //espagnol
            else if (strcmp(code, "dutch") == 0) strcpy(code, "nl");
               //neerlandais
            else code[2] = 0;
            }
            tolower(code[0]);
            tolower(code[1]);
            strcpy(lgCode, code);
         }
      }
   }
   PA_ReturnString( params, lgCode );
}