void Melder_system (const char32 *command) {
if (! command) command = U"";
#if defined (macintosh) || defined (UNIX)
if (system (Melder_peek32to8 (command)) != 0)
Melder_throw (U"System command failed.");
#elif defined (_WIN32)
STARTUPINFO siStartInfo;
PROCESS_INFORMATION piProcInfo;
char32 *comspec = Melder_getenv (U"COMSPEC"); // e.g. "C:\WINDOWS\COMMAND.COM" or "C:\WINNT\windows32\cmd.exe"
if (! comspec) {
comspec = Melder_getenv (U"ComSpec");
}
autoMelderString buffer;
if (comspec) {
MelderString_copy (& buffer, comspec);
} else {
OSVERSIONINFOEX osVersionInfo;
memset (& osVersionInfo, 0, sizeof (OSVERSIONINFOEX));
osVersionInfo. dwOSVersionInfoSize = sizeof (OSVERSIONINFOEX);
if (! GetVersionEx ((OSVERSIONINFO *) & osVersionInfo)) {
osVersionInfo. dwOSVersionInfoSize = sizeof (OSVERSIONINFO);
if (! GetVersionEx ((OSVERSIONINFO *) & osVersionInfo))
Melder_throw (U"System command cannot find system version.");
}
switch (osVersionInfo. dwPlatformId) {
case VER_PLATFORM_WIN32_NT: {
MelderString_copy (& buffer, U"cmd.exe");
} break; case VER_PLATFORM_WIN32_WINDOWS: {
MelderString_copy (& buffer, U"command.com");
} break; default: {
MelderString_copy (& buffer, U"command.com");
}
}
}
MelderString_append (& buffer, U" /c ", command);
memset (& siStartInfo, 0, sizeof (siStartInfo));
siStartInfo. cb = sizeof (siStartInfo);
if (! CreateProcess (nullptr, Melder_peek32toW (buffer.string), nullptr, nullptr, true, CREATE_NO_WINDOW, nullptr, nullptr, & siStartInfo, & piProcInfo))
Melder_throw (U"Cannot create subprocess.");
WaitForSingleObject (piProcInfo. hProcess, -1);
CloseHandle (piProcInfo. hProcess);
CloseHandle (piProcInfo. hThread);
#endif
}
void Melder_system (const wchar_t *command) {
#if defined (macintosh) || defined (UNIX)
if (system (Melder_peekWcsToUtf8 (command)) != 0)
Melder_throw ("System command failed.");
#elif defined (_WIN32)
STARTUPINFO siStartInfo;
PROCESS_INFORMATION piProcInfo;
wchar_t *comspec = Melder_getenv (L"COMSPEC"); // e.g. "C:\WINDOWS\COMMAND.COM" or "C:\WINNT\windows32\cmd.exe"
if (comspec == NULL) {
comspec = Melder_getenv (L"ComSpec");
}
MelderString buffer = { 0 };
if (comspec != NULL) {
MelderString_copy (& buffer, comspec);
} else {
OSVERSIONINFOEX osVersionInfo;
memset (& osVersionInfo, 0, sizeof (OSVERSIONINFOEX));
osVersionInfo. dwOSVersionInfoSize = sizeof (OSVERSIONINFOEX);
if (! GetVersionEx ((OSVERSIONINFO *) & osVersionInfo)) {
osVersionInfo. dwOSVersionInfoSize = sizeof (OSVERSIONINFO);
if (! GetVersionEx ((OSVERSIONINFO *) & osVersionInfo))
Melder_throw ("System command cannot find system version.");
}
switch (osVersionInfo. dwPlatformId) {
case VER_PLATFORM_WIN32_NT: {
MelderString_copy (& buffer, L"cmd.exe");
} break; case VER_PLATFORM_WIN32_WINDOWS: {
MelderString_copy (& buffer, L"command.com");
} break; default: {
MelderString_copy (& buffer, L"command.com");
}
}
}
MelderString_append (& buffer, L" /c ", command);
memset (& siStartInfo, 0, sizeof (siStartInfo));
siStartInfo. cb = sizeof (siStartInfo);
if (! CreateProcess (NULL, buffer.string, NULL, NULL, TRUE, 0, NULL, NULL, & siStartInfo, & piProcInfo))
Melder_throw ("Cannot create subprocess.");
WaitForSingleObject (piProcInfo. hProcess, -1);
CloseHandle (piProcInfo. hProcess);
CloseHandle (piProcInfo. hThread);
#endif
}
