/*

  * Copyright (C) 2009, 2011  J. Ali Harlow <ali@juiblex.co.uk>

  *

  * This program is free software; you can redistribute it and/or modify

  * it under the terms of the GNU General Public License as published by

  * the Free Software Foundation; either version 2 of the License, or

  * (at your option) any later version.

  *

  * This program is distributed in the hope that it will be useful,

  * but WITHOUT ANY WARRANTY; without even the implied warranty of

  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

  * GNU General Public License for more details.

  *

  * You should have received a copy of the GNU General Public License along

  * with this program; if not, write to the Free Software Foundation, Inc.,

  * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

  */

 #include <stdlib.h>

 #include <stdarg.h>

 #include <string.h>

 #include <limits.h>

 #ifdef WIN32

 #include <windows.h>

 #include <shlobj.h>

 #endif

 #include "config.h"

 #include "plover.h"

 char *plover_strconcat(const char *string,...)

 {

     va_list ap,aq;

     size_t n;

     char *result=NULL,*t;

     const char *s;

     if (string)

     {

 	va_start(ap,string);

 	va_copy(aq,ap);

 	n=strlen(string);

 	while((s=va_arg(aq,const char *)))

 	    n+=strlen(s);

 	va_end(aq);

 	result=malloc(n+1);

 	if (result)

 	{

 	    strcpy(result,string);

 	    t=result+strlen(result);

 	    while((s=va_arg(ap,const char *)))

 	    {

 		strcpy(t,s);

 		t+=strlen(t);

 	    }

 	}

 	va_end(ap);

     }

     return result;

 }

 char *plover_default_prefix_for_vendor(const char *vendor)

 {

 #ifdef WIN32

     /*

      * We want to sidestep any redirecting that MS-Windows may

      * introduce since this will be based on the architecture

      * of the installer whereas the architecture that actually

      * matters is of the packages (checked elsewhere).

      */

     BOOL is_wow64=FALSE;

     typedef BOOL (WINAPI *is_wow64_process_t)(HANDLE,PBOOL);

     is_wow64_process_t is_wow64_process;

     char *program_files=NULL;

     char buf[PATH_MAX];

     is_wow64_process=(is_wow64_process_t)

       GetProcAddress(GetModuleHandleA("kernel32"),"IsWow64Process");

     if (is_wow64_process)

 	is_wow64_process(GetCurrentProcess(),&is_wow64);

     if (is_wow64)

 	program_files=getenv("ProgramW6432");

     if (!program_files)

     {

 	SHGetFolderPath(NULL,CSIDL_PROGRAM_FILES|CSIDL_FLAG_DONT_VERIFY,NULL,0,

 	  buf);

 	program_files=buf;

     }

     return plover_strconcat(program_files,"\\",vendor?vendor:"Plover",NULL);

 #else

     return NULL;

 #endif

 }

 /*

  * Get the directory containing the program executable.

  */

 char *plover_get_program_directory(const char *argv0)

 {

     char *s;

 #ifdef WIN32

     char path[PATH_MAX],*t;

     GetModuleFileName(NULL,path,sizeof(path));

     s=strrchr(path,'/');

     if (s)

     {

 	t=strrchr(s,'\\');

 	if (t)

 	    s=t;

     }

     else

 	s=strrchr(path,'\\');

     if (s)

 	*s='\0';

     return strdup(path);

 #else

     s=argv0?strrchr(argv0,'/'):NULL;

     if (s)

 	return strndup(argv0,s-argv0);

     else

 	return strdup(".");

 #endif

 }