/* Copyright (C) 2003-2015 LiveCode Ltd.

This file is part of LiveCode.

LiveCode is free software; you can redistribute it and/or modify it under

the terms of the GNU General Public License v3 as published by the Free

Software Foundation.

LiveCode 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 LiveCode. If not see <http://www.gnu.org/licenses/>. */

#include "w32prefix.h"

#ifdef DeleteFile

#undef DeleteFile

#endif // DeleteFile

#ifdef GetCurrentTime

#undef GetCurrentTime

#endif // GetCurrentTime

#include "globdefs.h"

#include "parsedef.h"

#include "filedefs.h"

#include "objdefs.h"

#include "mcio.h"

#include "system.h"

//#include "execpt.h"

#include "exec.h"

#include "globals.h"

#include "system.h"

#include "osspec.h"

#include "mcerror.h"

#include "util.h"

#include "mcio.h"

#include "stack.h"

#include "handler.h"

#include "dispatch.h"

#include "card.h"

#include "group.h"

#include "button.h"

#include "param.h"

#include "mode.h"

#include "securemode.h"

#include "scriptenvironment.h"

#include "text.h"

#include "notify.h"

#include "socket.h"

#include "w32dc.h"

#include "w32dsk-legacy.h"

#include <locale.h>

#include <sys/stat.h>

#include <time.h>

#include <Winsock2.h>

#include <Mstcpip.h>

#include <Mswsock.h>

#include <Shlobj.h>

#include <sys\Timeb.h>

#include <Iphlpapi.h>

#include <process.h>

#include <signal.h>

#include <io.h>

#include <strsafe.h>

#include <Shlwapi.h>

//////////////////////////////////////////////////////////////////////////////////

int *g_mainthread_errno;

//////////////////////////////////////////////////////////////////////////////////

#define PATH_DELIMITER '\\'

//////////////////////////////////////////////////////////////////////////////////

extern bool MCFiltersUrlEncode(MCStringRef p_source, bool p_use_utf8, MCStringRef& r_result);

extern bool MCStringsSplit(MCStringRef p_string, codepoint_t p_separator, MCStringRef*&r_strings, uindex_t& r_count);

//////////////////////////////////////////////////////////////////////////////////

// This function is used to modify paths so that lengths > MAX_PATH characters

// are supported. It does, however, disable parsing of . and .. as well as

// converting / to \ so these must be done before calling this

static void legacy_path_to_nt_path(MCStringRef p_legacy, MCStringRef &r_nt)

{

// Don't do anything if it isn't necessary

if (MCStringGetLength(p_legacy) < (MAX_PATH - 1))

{

r_nt = MCValueRetain(p_legacy);

return;

}

// UNC and local paths are treated differently

if (MCStringGetCharAtIndex(p_legacy, 0) == '\\' && MCStringGetCharAtIndex(p_legacy, 1) == '\\')

{

// Check that an explicit NT path isn't already being specified

if (MCStringGetCharAtIndex(p_legacy, 2) == '?' // Legacy paths namespace

|| MCStringGetCharAtIndex(p_legacy, 2) == '.') // Device paths namespace

{

r_nt = MCValueRetain(p_legacy);

return;

}

// UNC path

MCStringRef t_temp;

/* UNCHECKED */ MCStringCreateMutable(0, t_temp);

/* UNCHECKED */ MCStringAppend(t_temp, MCSTR("\\\\?\\UNC\\"));

/* UNCHECKED */ MCStringAppendSubstring(t_temp, p_legacy, MCRangeMake(2, MCStringGetLength(p_legacy) - 2));

/* UNCHECKED */ MCStringCopyAndRelease(t_temp, r_nt);

}

else

{

// Local path

/* UNCHECKED */ MCStringFormat(r_nt, "\\\\?\\%@", p_legacy);

}

}

// This function strips the leading \\?\ or \\?\UNC\ from an NT-style path

static void nt_path_to_legacy_path(MCStringRef p_nt, MCStringRef &r_legacy)

{

// Check for the leading NT path characters

if (MCStringBeginsWithCString(p_nt, (const char_t*)"\\\\?\\UNC\\", kMCStringOptionCompareCaseless))

{

MCStringRef t_temp;

/* UNCHECKED */ MCStringMutableCopySubstring(p_nt, MCRangeMake(8, MCStringGetLength(p_nt) - 8), t_temp);

/* UNCHECKED */ MCStringPrepend(t_temp, MCSTR("\\\\"));

/* UNCHECKED */ MCStringCopyAndRelease(t_temp, r_legacy);

}

else if (MCStringBeginsWithCString(p_nt, (const char_t*)"\\\\?\\", kMCStringOptionCompareCaseless))

{

/* UNCHECKED */ MCStringCopySubstring(p_nt, MCRangeMake(4, MCStringGetLength(p_nt) - 4), r_legacy);

}

else

{

// Not an NT-style path, no changes required.

r_legacy = MCValueRetain(p_nt);

}

}

static bool get_device_path(MCStringRef p_path, MCStringRef &r_device_path)

{

// Device paths are opened as "COM<n>:" where <n> is an integer

if (MCStringBeginsWithCString(p_path, (const char_t*)"COM", kMCStringOptionCompareCaseless)

&& MCStringGetCharAtIndex(p_path, MCStringGetLength(p_path) - 1) == ':')

{

// Serial ports live in the NT device namespace (but don't have a ':' suffix)

MCStringRef t_temp;

return MCStringCreateMutable(0, t_temp)

&& MCStringAppend(t_temp, MCSTR("\\\\.\\"))

&& MCStringAppendSubstring(t_temp, p_path, MCRangeMake(0, MCStringGetLength(p_path) - 1))

&& MCStringCopyAndRelease(t_temp, r_device_path);

}

else

return MCStringCopy(p_path, r_device_path);

}

//////////////////////////////////////////////////////////////////////////////////

// MW-2005-02-22: Make these global for opensslsocket.cpp

static Boolean wsainited = False;

HWND sockethwnd;

HANDLE g_socket_wakeup;

Boolean wsainit()

{

if (!wsainited)

{

WORD request = MAKEWORD(1,1);

WSADATA wsaData;

if (WSAStartup(request, (LPWSADATA)&wsaData))

MCresult->sets("can't find a usable winsock.dll");

else

{

wsainited = True;

// OK-2009-02-24: [[Bug 7628]]

MCresult -> sets("");

#ifdef _WINDOWS_DESKTOP

if (!MCnoui)

sockethwnd = CreateWindowA(MC_WIN_CLASS_NAME, "MCsocket", WS_POPUP, 0, 0,

8, 8, NULL, NULL, MChInst, NULL);

#endif

}

}

MCS_seterrno(0);

return wsainited;

}

static bool read_blob_from_pipe(HANDLE p_pipe, void*& r_data, uint32_t& r_data_length)

{

uint32_t t_amount;

DWORD t_read;

if (!ReadFile(p_pipe, &t_amount, sizeof(uint32_t), &t_read, NULL) ||

t_read != sizeof(uint32_t))

return false;

void *t_buffer;

t_buffer = malloc(t_amount);

if (t_buffer == nil)

return false;

if (!ReadFile(p_pipe, t_buffer, t_amount, &t_read, NULL) ||

t_read != t_amount)

return false;

r_data = t_buffer;

r_data_length = t_amount;

return true;

}

//////////////////////////////////////////////////////////////////////////////////

static bool write_blob_to_pipe(HANDLE p_pipe, uint32_t p_count, const void *p_data)

{

DWORD t_written;

if (!WriteFile(p_pipe, &p_count, sizeof(p_count), &t_written, NULL) ||

t_written != 4)

return false;

if (!WriteFile(p_pipe, p_data, p_count, &t_written, NULL) ||

t_written != p_count)

return false;

return true;

}

// MW-2004-11-28: A null FPE signal handler.

static void handle_fp_exception(int p_signal)

{

p_signal = p_signal;

}

static bool handle_is_pipe(MCWinSysHandle p_handle)

{

DWORD t_flags;

int t_result;

t_result = GetNamedPipeInfo((HANDLE)p_handle, &t_flags, NULL, NULL, NULL);

return t_result != 0;

}

// MW-2010-05-11: This call is only present on Vista and above, which is the place we

// need it - so weakly bind.

typedef DWORD (APIENTRY *GetProcessIdOfThreadPtr)(HANDLE thread);

static DWORD DoGetProcessIdOfThread(HANDLE p_thread)

{

// We can safely assume that the kernel dll is loaded!

HMODULE t_module;

t_module = GetModuleHandleA("Kernel32.dll");

if (t_module == NULL)

return -1;

// Resolve the symbol

void *t_ptr;

t_ptr = GetProcAddress(t_module, "GetProcessIdOfThread");

if (t_ptr == NULL)

return -1;

// Call it

return ((GetProcessIdOfThreadPtr)t_ptr)(p_thread);

}

//////////////////////////////////////////////////////////////////////////////////

typedef struct

{ //struct for WIN registry

const char *token;

HKEY key;

uint32_t mode;

}

reg_keytype;

static reg_keytype Regkeys[] = { //WIN registry root keys struct

{"HKEY_CLASSES_ROOT", HKEY_CLASSES_ROOT, 0},

{"HKEY_CURRENT_USER", HKEY_CURRENT_USER, 0},

{"HKEY_LOCAL_MACHINE", HKEY_LOCAL_MACHINE, 0},

{"HKEY_LOCAL_MACHINE_32", HKEY_LOCAL_MACHINE, KEY_WOW64_32KEY},

{"HKEY_LOCAL_MACHINE_64", HKEY_LOCAL_MACHINE, KEY_WOW64_64KEY},

{"HKEY_USERS", HKEY_USERS, 0},

{"HKEY_PERFORMANCE_DATA", HKEY_PERFORMANCE_DATA, 0},

{"HKEY_CURRENT_CONFIG", HKEY_CURRENT_CONFIG, 0},

{"HKEY_DYN_DATA", HKEY_DYN_DATA, 0}

};

typedef struct

{

const char *token;

DWORD type;

}

reg_datatype;

static reg_datatype RegDatatypes[] = { //WIN registry value types struct

{"binary", REG_BINARY},

{"dword", REG_DWORD},

{"dwordlittleendian", REG_DWORD_LITTLE_ENDIAN},

{"dwordbigendian", REG_DWORD_BIG_ENDIAN},

{"expandsz", REG_EXPAND_SZ},

{"link", REG_LINK},

{"multisz", REG_MULTI_SZ},

{"none", REG_NONE},

{"resourcelist", REG_RESOURCE_LIST},

{"string", REG_SZ},

{"sz", REG_SZ},

{"qword", REG_QWORD},

{"qwordlittleendian", REG_QWORD_LITTLE_ENDIAN}

};

bool MCS_registry_split_key(MCStringRef p_path, MCStringRef& r_root, MCStringRef& r_key)

{

uindex_t t_length = MCStringGetLength(p_path);

uindex_t t_offset = t_length;

if (!MCStringFirstIndexOfChar(p_path, '\\', 0, kMCStringOptionCompareExact, t_offset))

{

t_offset = t_length;

}

return MCStringCopySubstring(p_path, MCRangeMake(0, t_offset), r_root) &&

MCStringCopySubstring(p_path, MCRangeMake(t_offset + 1, t_length), r_key);

}

bool MCS_registry_split_key(MCStringRef p_path, MCStringRef& r_root, MCStringRef& r_key, MCStringRef& r_value)

{

// only copy components out if they are present - <ROOT>\<KEY>\<VALUE>, <ROOT>\<VALUE>, <ROOT>

// (components may be empty)

bool t_success = true;

uindex_t t_length = MCStringGetLength(p_path);

uindex_t t_path_offset = t_length;

uindex_t t_value_offset = t_length;

if (MCStringLastIndexOfChar(p_path, '\\', t_length, kMCStringOptionCompareExact, t_value_offset))

{

if (MCStringFirstIndexOfChar(p_path, '\\', 0, kMCStringOptionCompareExact, t_path_offset))

{

if (t_value_offset > t_path_offset)

t_success = t_success && MCStringCopySubstring(p_path, MCRangeMake(t_path_offset + 1, t_value_offset - t_path_offset - 1), r_key);

}

t_success = t_success && MCStringCopySubstring(p_path, MCRangeMake(t_value_offset + 1, t_length - t_value_offset - 1), r_value);

}

return t_success && MCStringCopySubstring(p_path, MCRangeMake(0, t_path_offset), r_root);

}

bool MCS_registry_root_to_hkey(MCStringRef p_root, HKEY& r_hkey)

{

for (uindex_t i = 0 ; i < ELEMENTS(Regkeys) ; i++)

{

if (MCStringIsEqualToCString(p_root, Regkeys[i].token, kMCCompareCaseless))

{

r_hkey = Regkeys[i].key;

return true;

}

}

return false;

}

bool MCS_registry_root_to_hkey(MCStringRef p_root, HKEY& r_hkey, uint32_t& x_access_mode)

{

for (uindex_t i = 0 ; i < ELEMENTS(Regkeys) ; i++)

{

if (MCStringIsEqualToCString(p_root, Regkeys[i].token, kMCCompareCaseless))

{

r_hkey = Regkeys[i].key;

if (MCmajorosversion >= 0x0501)

x_access_mode |= Regkeys[i].mode;

return true;

}

}

return false;

}

bool MCS_registry_type_to_string(uint32_t p_type, MCStringRef& r_string)

{

for (uindex_t i = 0 ; i < ELEMENTS(RegDatatypes) ; i++)

{

if (p_type == RegDatatypes[i].type)

{

r_string = MCSTR(RegDatatypes[i].token);

return true;

}

}

// SN-2014-11-18: [[ Bug 14052 ]] Avoid to return a nil string (the result is not checked anyway).

r_string = MCValueRetain(kMCEmptyString);

return false;

}

MCSRegistryValueType MCS_registry_type_from_string(MCStringRef p_string)

{

if (p_string != nil)

{

for (uindex_t i = 0; i < ELEMENTS(RegDatatypes); i++)

{

if (MCStringIsEqualToCString(p_string, RegDatatypes[i].token, kMCCompareCaseless))

return (MCSRegistryValueType)RegDatatypes[i].type;

}

}

return kMCSRegistryValueTypeSz;

}

class MCAutoRegistryKey

{

public:

MCAutoRegistryKey(void)

{

m_key = NULL;

}

~MCAutoRegistryKey(void)

{

if (m_key != NULL)

RegCloseKey(m_key);

}

HKEY operator = (HKEY value)

{

MCAssert(m_key == NULL);

m_key = value;

return m_key;

}

HKEY* operator & (void)

{

MCAssert(m_key == NULL);

return &m_key;

}

HKEY operator * (void) const

{

return m_key;

}

private:

HKEY m_key;

};

///////////////////////////////////////////////////////////////////////////////

static MMRESULT tid;

void CALLBACK MCS_tp(UINT id, UINT msg, DWORD user, DWORD dw1, DWORD dw2)

{

MCalarm = True;

}

///////////////////////////////////////////////////////////////////////////////

#define DEFINE_GUID_(name, l, w1, w2, b1, b2, b3, b4, b5, b6, b7, b8) \

EXTERN_C const GUID DECLSPEC_SELECTANY name \

= { l, w1, w2, { b1, b2, b3, b4, b5, b6, b7, b8 } }

// {F0B7A1A2-9847-11cf-8F20-00805F2CD064}

DEFINE_GUID_(CATID_ActiveScriptParse, 0xf0b7a1a2, 0x9847, 0x11cf, 0x8f, 0x20, 0x00, 0x80, 0x5f, 0x2c, 0xd0, 0x64);

///////////////////////////////////////////////////////////////////////////////

typedef struct

{

MCNameRef *token;

uint4 winfolder;

}

sysfolders;

// need to add at least a temp folder and the system folder here

static sysfolders sysfolderlist[] = {

{&MCN_desktop, CSIDL_DESKTOP},

{&MCN_fonts, CSIDL_FONTS},

{&MCN_documents, CSIDL_PERSONAL},

{&MCN_start, CSIDL_STARTMENU},

{&MCN_system, CSIDL_WINDOWS},

{&MCN_home, CSIDL_PROFILE}, //TS-2007-08-20 Added so that "home" gives something useful across all platforms

{&MCN_support, CSIDL_APPDATA},

};

bool MCS_specialfolder_to_csidl(MCNameRef p_folder, MCNumberRef& r_csidl)

{

for (uindex_t i = 0 ; i < ELEMENTS(sysfolderlist) ; i++)

{

if (MCNameIsEqualTo(p_folder, *(sysfolderlist[i].token)))

{

return MCNumberCreateWithUnsignedInteger(sysfolderlist[i].winfolder, r_csidl);

}

}

return false;

}

///////////////////////////////////////////////////////////////////////////////

/* thread created to read data from child process's pipe */

static bool s_finished_reading = false;

static void readThreadDone(void *param)

{

s_finished_reading = true;

}

static DWORD readThread(Streamnode *process)

{

DWORD nread;

uint32_t t_bufsize = READ_PIPE_SIZE;

char* t_buffer = new char[t_bufsize];

while (process -> ihandle != NULL)

{

if (!PeekNamedPipe(process -> ihandle -> GetFilePointer(), NULL, 0, NULL, &nread, NULL))

break;

if (nread == 0)

{

if (WaitForSingleObject(process -> phandle, 0) != WAIT_TIMEOUT)

break;

Sleep(100);

continue;

}

if (!ReadFile(process -> ihandle -> GetFilePointer(), (LPVOID)t_buffer,

t_bufsize, &nread, NULL)

|| nread == 0)

break;

/* UNCHECKED */ process -> ohandle -> Write(t_buffer, nread);

}

delete[] t_buffer;

MCNotifyPush(readThreadDone, nil, false, false);

return 0;

}

//////////////////////////////////////////////////////////////////////////////////

bool MCS_getcurdir_native(MCStringRef& r_path)

{

// NOTE:

// Get/SetCurrentDirectory are not supported by Windows in multithreaded environments

MCAutoArray<unichar_t> t_buffer;

// Retrieve the length of the current directory

DWORD t_path_len = GetCurrentDirectoryW(0, NULL);

/* UNCHECKED */ t_buffer.New(t_path_len);

DWORD t_result = GetCurrentDirectoryW(t_path_len, t_buffer.Ptr());

if (t_result == 0 || t_result >= t_path_len)

{

// Something went wrong

return false;

}

return MCStringCreateWithChars(t_buffer.Ptr(), t_result, r_path);

}

bool MCS_native_path_exists(MCStringRef p_path, bool p_is_file)

{

MCAutoStringRefAsWString t_path_wstr;

/* UNCHECKED */ t_path_wstr.Lock(p_path);

// MW-2010-10-22: [[ Bug 8259 ]] Use a proper Win32 API function - otherwise network shares don't work.

DWORD t_attrs;

t_attrs = GetFileAttributesW(*t_path_wstr);

if (t_attrs == INVALID_FILE_ATTRIBUTES)

return false;

return p_is_file == ((t_attrs & FILE_ATTRIBUTE_DIRECTORY) == 0);

}

bool MCS_path_exists(MCStringRef p_path, bool p_is_file)

{

#ifdef /* MCS_exists_dsk_w32 */ LEGACY_SYSTEM

char *newpath = MCS_resolvepath(path);

//MS's stat() fails if there is a trailing '\\'. Workaround is to delete it

// MW-2004-04-20: [[ Purify ]] If *newpath == 0 then we should return False

if (*newpath == '\0')

{

delete newpath;

return False;

}

// MW-2008-01-15: [[ Bug 4981 ]] - It seems that stat will fail for checking

// a folder 'C:' and requires that it be 'C:\'

if (strlen(newpath) == 2 && newpath[1] == ':')

{

// newpath is of form "<driveletter>:"

char *t_modified_path;

t_modified_path = new char[strlen(newpath) + 2];

strcpy(t_modified_path, newpath);

strcat(t_modified_path, "\\");

delete newpath;

newpath = t_modified_path;

// newpath is of form "<driverletter>:\"

}

// OK-2007-12-05 : Bug 5555, modified to allow paths with trailing backslashes on Windows.

if ((newpath[strlen(newpath) - 1] == '\\' || newpath[strlen(newpath) - 1] == '/')

&& (strlen(newpath) != 3 || newpath[1] != ':'))

newpath[strlen(newpath) - 1] = '\0';

// MW-2010-10-22: [[ Bug 8259 ]] Use a proper Win32 API function - otherwise network shares don't work.

DWORD t_attrs;

t_attrs = GetFileAttributesA(newpath);

delete newpath;

if (t_attrs == INVALID_FILE_ATTRIBUTES)

return False;

return file == ((t_attrs & FILE_ATTRIBUTE_DIRECTORY) == 0);

#endif /* MCS_exists_dsk_w32 */

// MW-2004-04-20: [[ Purify ]] If *newpath == 0 then we should return False

if (MCStringGetLength(p_path) == 0)

return False;

// MW-2008-01-15: [[ Bug 4981 ]] - It seems that stat will fail for checking

// a folder 'C:' and requires that it be 'C:\'

// TODO: still necessary with GetFileAttributes instead of stat?

/*if (MCStringGetLength(p_path) == 2 && MCStringGetCharAtIndex(p_path, 1) == ':')

{

MCAutoStringRef t_drive_string;

return MCStringMutableCopy(p_path, &t_drive_string) &&

MCStringAppendChar(*t_drive_string, '\\') &&

MCS_native_path_exists(*t_drive_string, p_is_file);

}*/

// OK-2007-12-05 : Bug 5555, modified to allow paths with trailing backslashes on Windows.

// TODO: still necessary with GetFileAttributes instead of stat?

uindex_t t_path_len = MCStringGetLength(p_path);

unichar_t t_last_char = MCStringGetCharAtIndex(p_path, t_path_len - 1);

if ((t_last_char == '\\' || t_last_char == '/') &&

!(t_path_len == 3 && MCStringGetCharAtIndex(p_path, 1) == ':'))

{

MCAutoStringRef t_trimmed_string;

return MCStringCopySubstring(p_path, MCRangeMake(0, t_path_len - 1), &t_trimmed_string) &&

MCS_native_path_exists(*t_trimmed_string, p_is_file);

}

return MCS_native_path_exists(p_path, p_is_file);

}

bool MCS_path_append(MCStringRef p_base, unichar_t p_separator, MCStringRef p_component, MCStringRef& r_path)

{

MCAutoStringRef t_path;

if (!MCStringMutableCopy(p_base, &t_path))

return false;

if (MCStringGetCharAtIndex(p_base, MCStringGetLength(p_base) - 1) != p_separator &&

!MCStringAppendChars(*t_path, &p_separator, 1))

return false;

if (!MCStringAppend(*t_path, p_component))

return false;

r_path = MCValueRetain(*t_path);

return true;

}

//////////////////////////////////////////////////////////////////////////////////

static inline bool is_legal_drive(char p_char)

{

return (p_char >= 'a' && p_char <= 'z') || (p_char >= 'A' && p_char <= 'Z');

}

//////////////////////////////////////////////////////////////////////////////////

bool dns_servers_from_network_params(MCListRef& r_list)

{

MCAutoListRef t_list;

ULONG t_buffer_size = 0;

MCAutoBlock<byte_t> t_buffer;

FIXED_INFO *t_fixed_info = nil;

errno = GetNetworkParams(t_fixed_info, &t_buffer_size);

if (errno == ERROR_NO_DATA)

{

r_list = MCValueRetain(kMCEmptyList);

return true;

}

else if (errno != ERROR_BUFFER_OVERFLOW)

return false;

if (!t_buffer.Allocate(t_buffer_size))

return false;

if (!MCListCreateMutable('\n', &t_list))

return false;

t_fixed_info = (FIXED_INFO*)*t_buffer;

MCMemoryClear(t_fixed_info, t_buffer_size);

errno = GetNetworkParams(t_fixed_info, &t_buffer_size);

if (errno == ERROR_SUCCESS)

{

IP_ADDR_STRING *t_addr_string = &t_fixed_info->DnsServerList;

while (t_addr_string != nil && t_addr_string->IpAddress.String[0] != '\0')

{

if (!MCListAppendCString(*t_list, t_addr_string->IpAddress.String))

return false;

t_addr_string = t_addr_string->Next;

}

}

return MCListCopy(*t_list, r_list);

}

#define NAMESERVER_REG_KEY "HKEY_LOCAL_MACHINE\\SYSTEM\\CurrentControlSet\\Services\\Tcpip\\Parameters\\NameServer"

bool dns_servers_from_registry(MCListRef& r_list)

{

MCAutoStringRef t_key, t_type, t_error;

MCAutoValueRef t_value;

t_key = MCSTR(NAMESERVER_REG_KEY);

if (!MCS_query_registry(*t_key, &t_value, &t_type, &t_error))

return false;

if (!MCStringIsEmpty(*t_error))

{

r_list = MCValueRetain(kMCEmptyList);

return true;

}

// If the type is wrong, abort

if (MCValueGetTypeCode(*t_value) != kMCValueTypeCodeString)

return false;

MCStringRef t_string = (MCStringRef)*t_value;

MCAutoListRef t_list;

if (!MCListCreateMutable('\n', &t_list))

return false;

const unichar_t *t_chars;

uindex_t t_char_count;

t_chars = MCStringGetCharPtr(t_string);

t_char_count = MCStringGetLength(t_string);

uindex_t t_start = 0;

for (uindex_t i = 0; i < t_char_count; i++)

{

if (t_chars[i] == ' ' || t_chars[i] == ',' || t_chars[i] == '\n')

{

MCAutoStringRef t_substring;

if (!MCStringCopySubstring(t_string, MCRangeMake(t_start, i - t_start), &t_substring) ||

!MCListAppend(*t_list, *t_substring))

return false;

t_start = i + 1;

}

}

if (t_start < t_char_count)

{

MCAutoStringRef t_final_string;

if (!MCStringCopySubstring(t_string, MCRangeMake(t_start, MCStringGetLength(t_string) - t_start), &t_final_string) ||

!MCListAppend(*t_list, *t_final_string))

return false;

}

return MCListCopy(*t_list, r_list);

}

//////////////////////////////////////////////////////////////////////////////////

static void MCS_do_launch(MCStringRef p_document)

{

MCAutoStringRefAsWString t_document_wstr;

/* UNCHECKED */ t_document_wstr.Lock(p_document);

// MW-2011-02-01: [[ Bug 9332 ]] Adjust the 'show' hint to normal to see if that makes

// things always appear on top...

int t_result;

t_result = (int)ShellExecuteW(NULL, L"open", *t_document_wstr, NULL, NULL, SW_SHOWNORMAL);

if (t_result < 32)

{

switch(t_result)

{

case ERROR_BAD_FORMAT:

case SE_ERR_ACCESSDENIED:

case SE_ERR_FNF:

case SE_ERR_PNF:

case SE_ERR_SHARE:

case SE_ERR_DLLNOTFOUND:

MCresult -> sets("can't open file");

break;

case SE_ERR_ASSOCINCOMPLETE:

case SE_ERR_NOASSOC:

MCresult -> sets("no association");

break;

case SE_ERR_DDEBUSY:

case SE_ERR_DDEFAIL:

case SE_ERR_DDETIMEOUT:

MCresult -> sets("request failed");

break;

case 0:

case SE_ERR_OOM:

MCresult -> sets("no memory");

break;

}

}

else

MCresult -> clear();

}

//////////////////////////////////////////////////////////////////////////////////

struct MCWindowsSystemService: public MCWindowsSystemServiceInterface

{

virtual bool MCISendString(MCStringRef p_command, MCStringRef& r_result, bool& r_error)

{

MCAutoStringRefAsWString t_command_wstr;

/* UNCHECKED */ t_command_wstr.Lock(p_command);

DWORD t_error_code;

WCHAR t_buffer[256];

t_buffer[0] = '\0';

t_error_code = mciSendStringW(*t_command_wstr, t_buffer, 255, NULL);

r_error = t_error_code != 0;

if (!r_error)

{

size_t t_length;

if (SUCCEEDED(StringCchLengthW(t_buffer, 256, &t_length)))

return MCStringCreateWithChars(t_buffer, t_length, r_result);

}

size_t t_length;

return mciGetErrorStringW(t_error_code, t_buffer, 255) &&

SUCCEEDED(StringCchLengthW(t_buffer, 256, &t_length)) &&

MCStringCreateWithChars(t_buffer, t_length, r_result);

}

virtual bool QueryRegistry(MCStringRef p_key, MCValueRef& r_value, MCStringRef& r_type, MCStringRef& r_error)

{

MCAutoStringRef t_root, t_key, t_value;

r_value = r_error = nil;

//key = full path info such as: HKEY_LOCAL_MACHINE\\Software\\..\\valuename

if (!MCS_registry_split_key(p_key, &t_root, &t_key, &t_value))

return false;

if (*t_value == nil)

{

/* RESULT */ //MCresult->sets("no key");

r_error = MCSTR("no key");

r_value = MCValueRetain(kMCEmptyString);

return true;

}

if (*t_key == nil)

t_key = kMCEmptyString;

HKEY t_hkey;

MCAutoRegistryKey t_regkey;

uint32_t t_access_mode = KEY_READ;

MCAutoStringRefAsWString t_key_wstr;

/* UNCHECKED */ t_key_wstr.Lock(*t_key);

if (!MCS_registry_root_to_hkey(*t_root, t_hkey, t_access_mode) ||

(RegOpenKeyExW(t_hkey, *t_key_wstr, 0, t_access_mode, &t_regkey) != ERROR_SUCCESS))

{

/* RESULT */ //MCresult->sets("bad key");

r_error = MCSTR("bad key");

return true;

}

LONG err = 0;

MCAutoArray<BYTE> t_buffer;

DWORD t_buffer_len = 0;

DWORD t_type;

MCAutoStringRefAsWString t_value_wstr;

/* UNCHECKED */ t_value_wstr.Lock(*t_value);

//determine the size of value buffer needed

err = RegQueryValueExW(*t_regkey, *t_value_wstr, 0, NULL, NULL, &t_buffer_len);

if (err == ERROR_SUCCESS)

{

if (!t_buffer.New(t_buffer_len))

return false;

if ((err = RegQueryValueExW(*t_regkey, *t_value_wstr, 0, &t_type, t_buffer.Ptr(), &t_buffer_len))

== ERROR_SUCCESS && t_buffer_len > 0)

{

// Sets the type

MCS_registry_type_to_string(t_type, r_type);

// Convert the value from the registry to the appropriate value type

switch (t_type)

{

case REG_LINK:

if (!MCStringCreateWithChars((const unichar_t*)t_buffer.Ptr(), t_buffer_len/2, (MCStringRef&)r_value))

return false;

break;

case REG_EXPAND_SZ:

case REG_MULTI_SZ:

case REG_SZ:

{

DWORD t_unicode_len;

t_unicode_len = t_buffer_len / 2;

unichar_t *t_chars = (unichar_t*)t_buffer.Ptr();

// Get rid of any trailing NULL character

while(t_unicode_len > 0 && t_chars[t_unicode_len - 1] == '\0')

t_unicode_len -= 1;

if (t_type == REG_MULTI_SZ && t_unicode_len < t_buffer_len / 2)

t_unicode_len += 1;

return MCStringCreateWithChars((unichar_t*)t_buffer.Ptr(), t_unicode_len, (MCStringRef&)r_value);

}

case REG_NONE:

{

// No data. Return an empty string ref as the nearest equivalent

r_value = MCValueRetain(kMCEmptyString);

break;

}

case REG_DWORD:

case REG_QWORD:

case REG_BINARY:

default:

{

// Binary or unsupported type. Return as a binary blob

// (For compatibility with existing scripts, DWORD and QWORD are binary)

MCAutoDataRef t_data;

if (!MCDataCreateWithBytes((const byte_t*)t_buffer.Ptr(), t_buffer_len, (MCDataRef&)t_data))

return false;

r_value = MCValueRetain(*t_data);

break;

}

}

}

}

else if (err == ERROR_FILE_NOT_FOUND)

{

// The query may have been for a value that is really a key, either

// with or without a default/un-named value attached to it. Try

// opening the path to the value as a key.

MCAutoStringRef t_alt_key;

MCAutoStringRefAsWString t_alt_key_wstr;

if (MCStringIsEmpty(*t_key))

t_alt_key = *t_value;

else

/* UNCHECKED */ MCStringFormat(&t_alt_key, "%@\\%@", *t_key, *t_value);

/* UNCHECKED */ t_alt_key_wstr.Lock(*t_alt_key);

MCAutoRegistryKey t_alt_regkey;

err = RegOpenKeyExW(t_hkey, *t_alt_key_wstr, 0, t_access_mode, &t_alt_regkey);

if (err == ERROR_SUCCESS)

{

// Key exists

r_value = MCValueRetain(kMCEmptyString);

MCS_registry_type_to_string(REG_NONE, r_type);

}

}

if (err != ERROR_SUCCESS)

{

errno = err;

r_error = MCSTR("can't find key");

return true;

}

return true;

}

virtual bool SetRegistry(MCStringRef p_key, MCValueRef p_value, MCSRegistryValueType p_type, MCStringRef& r_error)

{

MCAutoStringRef t_root, t_key, t_value;

HKEY t_root_hkey;

if (!MCS_registry_split_key(p_key, &t_root, &t_key, &t_value))

return false;

if (!MCS_registry_root_to_hkey(*t_root, t_root_hkey))

{

/* RESULT */ //MCresult->sets("bad key");

r_error = MCSTR("bad key");

return true;

}

if (*t_key == nil)

{

/* RESULT */ //MCresult->sets("bad key specified");

r_error = MCSTR("bad key specified");

return true;

}

MCAutoRegistryKey t_regkey;

DWORD t_keystate;

MCAutoStringRefAsWString t_key_wstr;

/* UNCHECKED */ t_key_wstr.Lock(*t_key);

if (RegCreateKeyExW(t_root_hkey, *t_key_wstr, 0, NULL, REG_OPTION_NON_VOLATILE,

KEY_ALL_ACCESS, NULL, &t_regkey, &t_keystate) != ERROR_SUCCESS)