michael@0: // Unicode support by Jim Park -- 08/23/2007
michael@0: 
michael@0: #include <windows.h>
michael@0: #include "exdllutil.h"
michael@0: 
michael@0: // utility functions (not required but often useful)
michael@0: static int __stdcall popstring(TCHAR *str)
michael@0: {
michael@0:   stack_t *th;
michael@0:   if (!g_stacktop || !*g_stacktop) return 1;
michael@0:   th=(*g_stacktop);
michael@0:   lstrcpy(str,th->text);
michael@0:   *g_stacktop = th->next;
michael@0:   GlobalFree((HGLOBAL)th);
michael@0:   return 0;
michael@0: }
michael@0: 
michael@0: static void __stdcall pushstring(const TCHAR *str)
michael@0: {
michael@0:   stack_t *th;
michael@0:   if (!g_stacktop) return;
michael@0:   th=(stack_t*)GlobalAlloc(GPTR,(sizeof(stack_t)+(g_stringsize)*sizeof(TCHAR)));
michael@0:   lstrcpyn(th->text,str,g_stringsize);
michael@0:   th->next=*g_stacktop;
michael@0:   *g_stacktop=th;
michael@0: }
michael@0: 
michael@0: static TCHAR * __stdcall getuservariable(const int varnum)
michael@0: {
michael@0:   if (varnum < 0 || varnum >= __INST_LAST) return NULL;
michael@0:   return g_variables+varnum*g_stringsize;
michael@0: }
michael@0: 
michael@0: static void __stdcall setuservariable(const int varnum, const TCHAR *var)
michael@0: {
michael@0: 	if (var != NULL && varnum >= 0 && varnum < __INST_LAST) 
michael@0: 		lstrcpy(g_variables + varnum*g_stringsize, var);
michael@0: }
michael@0: 
michael@0: #ifdef _UNICODE
michael@0: static int __stdcall PopStringA(char* ansiStr)
michael@0: {
michael@0:    wchar_t* wideStr = (wchar_t*) GlobalAlloc(GPTR, g_stringsize*sizeof(wchar_t));
michael@0:    int rval = popstring(wideStr);
michael@0:    WideCharToMultiByte(CP_ACP, 0, wideStr, -1, ansiStr, g_stringsize, NULL, NULL);
michael@0:    GlobalFree((HGLOBAL)wideStr);
michael@0:    return rval;
michael@0: }
michael@0: 
michael@0: static void __stdcall PushStringA(const char* ansiStr)
michael@0: {
michael@0:    wchar_t* wideStr = (wchar_t*) GlobalAlloc(GPTR, g_stringsize*sizeof(wchar_t));
michael@0:    MultiByteToWideChar(CP_ACP, 0, ansiStr, -1, wideStr, g_stringsize);
michael@0:    pushtring(wideStr);
michael@0:    GlobalFree((HGLOBAL)wideStr);
michael@0:    return;
michael@0: }
michael@0: 
michael@0: static void __stdcall GetUserVariableW(const int varnum, wchar_t* wideStr)
michael@0: {
michael@0:    lstrcpyW(wideStr, getuservariable(varnum));
michael@0: }
michael@0: 
michael@0: static void __stdcall GetUserVariableA(const int varnum, char* ansiStr)
michael@0: {
michael@0:    wchar_t* wideStr = getuservariable(varnum);
michael@0:    WideCharToMultiByte(CP_ACP, 0, wideStr, -1, ansiStr, g_stringsize, NULL, NULL);
michael@0: }
michael@0: 
michael@0: static void __stdcall SetUserVariableA(const int varnum, const char* ansiStr)
michael@0: {
michael@0:    if (ansiStr != NULL && varnum >= 0 && varnum < __INST_LAST)
michael@0:    {
michael@0:       wchar_t* wideStr = g_variables + varnum * g_stringsize;
michael@0:       MultiByteToWideChar(CP_ACP, 0, ansiStr, -1, wideStr, g_stringsize);
michael@0:    }
michael@0: }
michael@0: 
michael@0: #else
michael@0: // ANSI defs
michael@0: static int __stdcall PopStringW(wchar_t* wideStr)
michael@0: {
michael@0:    char* ansiStr = (char*) GlobalAlloc(GPTR, g_stringsize);
michael@0:    int rval = popstring(ansiStr);
michael@0:    MultiByteToWideChar(CP_ACP, 0, ansiStr, -1, wideStr, g_stringsize);
michael@0:    GlobalFree((HGLOBAL)ansiStr);
michael@0:    return rval;
michael@0: }
michael@0: 
michael@0: static void __stdcall PushStringW(wchar_t* wideStr)
michael@0: {
michael@0:    char* ansiStr = (char*) GlobalAlloc(GPTR, g_stringsize);
michael@0:    WideCharToMultiByte(CP_ACP, 0, wideStr, -1, ansiStr, g_stringsize, NULL, NULL);
michael@0:    pushstring(ansiStr);
michael@0:    GlobalFree((HGLOBAL)ansiStr);
michael@0: }
michael@0: 
michael@0: static void __stdcall GetUserVariableW(const int varnum, wchar_t* wideStr)
michael@0: {
michael@0:    char* ansiStr = getuservariable(varnum);
michael@0:    MultiByteToWideChar(CP_ACP, 0, ansiStr, -1, wideStr, g_stringsize);
michael@0: }
michael@0: 
michael@0: static void __stdcall GetUserVariableA(const int varnum, char* ansiStr)
michael@0: {
michael@0:    lstrcpyA(ansiStr, getuservariable(varnum));
michael@0: }
michael@0: 
michael@0: static void __stdcall SetUserVariableW(const int varnum, const wchar_t* wideStr)
michael@0: {
michael@0:    if (wideStr != NULL && varnum >= 0 && varnum < __INST_LAST)
michael@0:    {
michael@0:       char* ansiStr = g_variables + varnum * g_stringsize;
michael@0:       WideCharToMultiByte(CP_ACP, 0, wideStr, -1, ansiStr, g_stringsize, NULL, NULL);
michael@0:    }
michael@0: }
michael@0: #endif
michael@0: 
michael@0: static BOOL __stdcall IsUnicode(void)
michael@0: {
michael@0: #ifdef _UNICODE
michael@0:    return TRUE;
michael@0: #else
michael@0:    return FALSE;
michael@0: #endif
michael@0: }
michael@0: 
michael@0: static TCHAR* __stdcall AllocString()
michael@0: {
michael@0:    return (TCHAR*) GlobalAlloc(GPTR, g_stringsize*sizeof(TCHAR));
michael@0: }