os-win32.c - platform/external/qemu - Git at Google

 /*
  * os-win32.c
  *
  * Copyright (c) 2003-2008 Fabrice Bellard
  * Copyright (c) 2010 Red Hat, Inc.
  *
  * Permission is hereby granted, free of charge, to any person obtaining a copy
  * of this software and associated documentation files (the "Software"), to deal
  * in the Software without restriction, including without limitation the rights
  * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
  * copies of the Software, and to permit persons to whom the Software is
  * furnished to do so, subject to the following conditions:
  *
  * The above copyright notice and this permission notice shall be included in
  * all copies or substantial portions of the Software.
  *
  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
  * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
  * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
  * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
  * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
  * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
  * THE SOFTWARE.
  */
 #include <windows.h>
 #include <unistd.h>
 #include <fcntl.h>
 #include <signal.h>
 #include <time.h>
 #include <errno.h>
 #include <sys/time.h>
 #include "config-host.h"
 #include "sysemu.h"
 #include "qemu-options.h"

 /***********************************************************/
 /* Functions missing in mingw */

 int setenv(const char *name, const char *value, int overwrite)
 {
     int result = 0;
     if (overwrite || !getenv(name)) {
         size_t length = strlen(name) + strlen(value) + 2;
         char *string = qemu_malloc(length);
         snprintf(string, length, "%s=%s", name, value);
         result = putenv(string);
     }
     return result;
 }

 /***********************************************************/
 /* Polling handling */

 typedef struct PollingEntry {
     PollingFunc *func;
     void *opaque;
     struct PollingEntry *next;
 } PollingEntry;

 static PollingEntry *first_polling_entry;

 int qemu_add_polling_cb(PollingFunc *func, void *opaque)
 {
     PollingEntry **ppe, *pe;
     pe = qemu_mallocz(sizeof(PollingEntry));
     pe->func = func;
     pe->opaque = opaque;
     for(ppe = &first_polling_entry; *ppe != NULL; ppe = &(*ppe)->next);
     *ppe = pe;
     return 0;
 }

 void qemu_del_polling_cb(PollingFunc *func, void *opaque)
 {
     PollingEntry **ppe, *pe;
     for(ppe = &first_polling_entry; *ppe != NULL; ppe = &(*ppe)->next) {
         pe = *ppe;
         if (pe->func == func && pe->opaque == opaque) {
             *ppe = pe->next;
             qemu_free(pe);
             break;
         }
     }
 }

 /***********************************************************/
 /* Wait objects support */
 typedef struct WaitObjects {
     int num;
     HANDLE events[MAXIMUM_WAIT_OBJECTS + 1];
     WaitObjectFunc *func[MAXIMUM_WAIT_OBJECTS + 1];
     void *opaque[MAXIMUM_WAIT_OBJECTS + 1];
 } WaitObjects;

 static WaitObjects wait_objects = {0};

 int qemu_add_wait_object(HANDLE handle, WaitObjectFunc *func, void *opaque)
 {
     WaitObjects *w = &wait_objects;

     if (w->num >= MAXIMUM_WAIT_OBJECTS)
         return -1;
     w->events[w->num] = handle;
     w->func[w->num] = func;
     w->opaque[w->num] = opaque;
     w->num++;
     return 0;
 }

 void qemu_del_wait_object(HANDLE handle, WaitObjectFunc *func, void *opaque)
 {
     int i, found;
     WaitObjects *w = &wait_objects;

     found = 0;
     for (i = 0; i < w->num; i++) {
         if (w->events[i] == handle)
             found = 1;
         if (found) {
             w->events[i] = w->events[i + 1];
             w->func[i] = w->func[i + 1];
             w->opaque[i] = w->opaque[i + 1];
         }
     }
     if (found)
         w->num--;
 }

 void os_host_main_loop_wait(int *timeout)
 {
     int ret, ret2, i;
     PollingEntry *pe;

     /* XXX: need to suppress polling by better using win32 events */
     ret = 0;
     for(pe = first_polling_entry; pe != NULL; pe = pe->next) {
         ret |= pe->func(pe->opaque);
     }
     if (ret == 0) {
         int err;
         WaitObjects *w = &wait_objects;

         qemu_mutex_unlock_iothread();
         ret = WaitForMultipleObjects(w->num, w->events, FALSE, *timeout);
         qemu_mutex_lock_iothread();
         if (WAIT_OBJECT_0 + 0 <= ret && ret <= WAIT_OBJECT_0 + w->num - 1) {
             if (w->func[ret - WAIT_OBJECT_0])
                 w->func[ret - WAIT_OBJECT_0](w->opaque[ret - WAIT_OBJECT_0]);

             /* Check for additional signaled events */
             for(i = (ret - WAIT_OBJECT_0 + 1); i < w->num; i++) {

                 /* Check if event is signaled */
                 ret2 = WaitForSingleObject(w->events[i], 0);
                 if(ret2 == WAIT_OBJECT_0) {
                     if (w->func[i])
                         w->func[i](w->opaque[i]);
                 } else if (ret2 == WAIT_TIMEOUT) {
                 } else {
                     err = GetLastError();
                     fprintf(stderr, "WaitForSingleObject error %d %d\n", i, err);
                 }
             }
         } else if (ret == WAIT_TIMEOUT) {
         } else {
             err = GetLastError();
             fprintf(stderr, "WaitForMultipleObjects error %d %d\n", ret, err);
         }
     }

     *timeout = 0;
 }

 static BOOL WINAPI qemu_ctrl_handler(DWORD type)
 {
     exit(STATUS_CONTROL_C_EXIT);
     return TRUE;
 }

 void os_setup_early_signal_handling(void)
 {
     /* Note: cpu_interrupt() is currently not SMP safe, so we force
        QEMU to run on a single CPU */
     HANDLE h;
     DWORD_PTR mask, smask;
     int i;

     SetConsoleCtrlHandler(qemu_ctrl_handler, TRUE);

     h = GetCurrentProcess();
     if (GetProcessAffinityMask(h, &mask, &smask)) {
         for(i = 0; i < 32; i++) {
             if (mask & (1 << i))
                 break;
         }
         if (i != 32) {
             mask = 1 << i;
             SetProcessAffinityMask(h, mask);
         }
     }
 }

 /* Look for support files in the same directory as the executable.  */
 char *os_find_datadir(const char *argv0)
 {
     char *p;
     char buf[MAX_PATH];
     DWORD len;

     len = GetModuleFileName(NULL, buf, sizeof(buf) - 1);
     if (len == 0) {
         return NULL;
     }

     buf[len] = 0;
     p = buf + len - 1;
     while (p != buf && *p != '\\')
         p--;
     *p = 0;
     if (access(buf, R_OK) == 0) {
         return qemu_strdup(buf);
     }
     return NULL;
 }

 void os_set_line_buffering(void)
 {
     setbuf(stdout, NULL);
     setbuf(stderr, NULL);
 }

 /*
  * Parse OS specific command line options.
  * return 0 if option handled, -1 otherwise
  */
 void os_parse_cmd_args(int index, const char *optarg)
 {
     return;
 }

 void os_pidfile_error(void)
 {
     fprintf(stderr, "Could not acquire pid file: %s\n", strerror(errno));
 }

 int qemu_create_pidfile(const char *filename)
 {
     char buffer[128];
     int len;
     HANDLE file;
     OVERLAPPED overlap;
     BOOL ret;
     memset(&overlap, 0, sizeof(overlap));

     file = CreateFile(filename, GENERIC_WRITE, FILE_SHARE_READ, NULL,
 		      OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL);

     if (file == INVALID_HANDLE_VALUE) {
         return -1;
     }
     len = snprintf(buffer, sizeof(buffer), "%ld\n", (long)getpid());
     ret = WriteFileEx(file, (LPCVOID)buffer, (DWORD)len,
 		      &overlap, NULL);
     if (ret == 0) {
         return -1;
     }
     return 0;
 }

 int qemu_get_thread_id(void)
 {
     return GetCurrentThreadId();
 }
	/*
	* os-win32.c
	*
	* Copyright (c) 2003-2008 Fabrice Bellard
	* Copyright (c) 2010 Red Hat, Inc.
	*
	* Permission is hereby granted, free of charge, to any person obtaining a copy
	* of this software and associated documentation files (the "Software"), to deal
	* in the Software without restriction, including without limitation the rights
	* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
	* copies of the Software, and to permit persons to whom the Software is
	* furnished to do so, subject to the following conditions:
	*
	* The above copyright notice and this permission notice shall be included in
	* all copies or substantial portions of the Software.
	*
	* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
	* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
	* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
	* THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
	* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
	* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
	* THE SOFTWARE.
	*/
	#include <windows.h>
	#include <unistd.h>
	#include <fcntl.h>
	#include <signal.h>
	#include <time.h>
	#include <errno.h>
	#include <sys/time.h>
	#include "config-host.h"
	#include "sysemu.h"
	#include "qemu-options.h"

	/***********************************************************/
	/* Functions missing in mingw */

	int setenv(const char name, const char value, int overwrite)
	{
	int result = 0;
	if (overwrite \|\| !getenv(name)) {
	size_t length = strlen(name) + strlen(value) + 2;
	char *string = qemu_malloc(length);
	snprintf(string, length, "%s=%s", name, value);
	result = putenv(string);
	}
	return result;
	}

	/***********************************************************/
	/* Polling handling */

	typedef struct PollingEntry {
	PollingFunc *func;
	void *opaque;
	struct PollingEntry *next;
	} PollingEntry;

	static PollingEntry *first_polling_entry;

	int qemu_add_polling_cb(PollingFunc func, void opaque)
	{
	PollingEntry *ppe, pe;
	pe = qemu_mallocz(sizeof(PollingEntry));
	pe->func = func;
	pe->opaque = opaque;
	for(ppe = &first_polling_entry; ppe != NULL; ppe = &(ppe)->next);
	*ppe = pe;
	return 0;
	}

	void qemu_del_polling_cb(PollingFunc func, void opaque)
	{
	PollingEntry *ppe, pe;
	for(ppe = &first_polling_entry; ppe != NULL; ppe = &(ppe)->next) {
	pe = *ppe;
	if (pe->func == func && pe->opaque == opaque) {
	*ppe = pe->next;
	qemu_free(pe);
	break;
	}
	}
	}

	/***********************************************************/
	/* Wait objects support */
	typedef struct WaitObjects {
	int num;
	HANDLE events[MAXIMUM_WAIT_OBJECTS + 1];
	WaitObjectFunc *func[MAXIMUM_WAIT_OBJECTS + 1];
	void *opaque[MAXIMUM_WAIT_OBJECTS + 1];
	} WaitObjects;

	static WaitObjects wait_objects = {0};

	int qemu_add_wait_object(HANDLE handle, WaitObjectFunc func, void opaque)
	{
	WaitObjects *w = &wait_objects;

	if (w->num >= MAXIMUM_WAIT_OBJECTS)
	return -1;
	w->events[w->num] = handle;
	w->func[w->num] = func;
	w->opaque[w->num] = opaque;
	w->num++;
	return 0;
	}

	void qemu_del_wait_object(HANDLE handle, WaitObjectFunc func, void opaque)
	{
	int i, found;
	WaitObjects *w = &wait_objects;

	found = 0;
	for (i = 0; i < w->num; i++) {
	if (w->events[i] == handle)
	found = 1;
	if (found) {
	w->events[i] = w->events[i + 1];
	w->func[i] = w->func[i + 1];
	w->opaque[i] = w->opaque[i + 1];
	}
	}
	if (found)
	w->num--;
	}

	void os_host_main_loop_wait(int *timeout)
	{
	int ret, ret2, i;
	PollingEntry *pe;

	/* XXX: need to suppress polling by better using win32 events */
	ret = 0;
	for(pe = first_polling_entry; pe != NULL; pe = pe->next) {
	ret \|= pe->func(pe->opaque);
	}
	if (ret == 0) {
	int err;
	WaitObjects *w = &wait_objects;

	qemu_mutex_unlock_iothread();
	ret = WaitForMultipleObjects(w->num, w->events, FALSE, *timeout);
	qemu_mutex_lock_iothread();
	if (WAIT_OBJECT_0 + 0 <= ret && ret <= WAIT_OBJECT_0 + w->num - 1) {
	if (w->func[ret - WAIT_OBJECT_0])
	w->func[ret - WAIT_OBJECT_0](w->opaque[ret - WAIT_OBJECT_0]);

	/* Check for additional signaled events */
	for(i = (ret - WAIT_OBJECT_0 + 1); i < w->num; i++) {

	/* Check if event is signaled */
	ret2 = WaitForSingleObject(w->events[i], 0);
	if(ret2 == WAIT_OBJECT_0) {
	if (w->func[i])
	w->func[i](w->opaque[i]);
	} else if (ret2 == WAIT_TIMEOUT) {
	} else {
	err = GetLastError();
	fprintf(stderr, "WaitForSingleObject error %d %d\n", i, err);
	}
	}
	} else if (ret == WAIT_TIMEOUT) {
	} else {
	err = GetLastError();
	fprintf(stderr, "WaitForMultipleObjects error %d %d\n", ret, err);
	}
	}

	*timeout = 0;
	}

	static BOOL WINAPI qemu_ctrl_handler(DWORD type)
	{
	exit(STATUS_CONTROL_C_EXIT);
	return TRUE;
	}

	void os_setup_early_signal_handling(void)
	{
	/* Note: cpu_interrupt() is currently not SMP safe, so we force
	QEMU to run on a single CPU */
	HANDLE h;
	DWORD_PTR mask, smask;
	int i;

	SetConsoleCtrlHandler(qemu_ctrl_handler, TRUE);

	h = GetCurrentProcess();
	if (GetProcessAffinityMask(h, &mask, &smask)) {
	for(i = 0; i < 32; i++) {
	if (mask & (1 << i))
	break;
	}
	if (i != 32) {
	mask = 1 << i;
	SetProcessAffinityMask(h, mask);
	}
	}
	}

	/* Look for support files in the same directory as the executable. */
	char os_find_datadir(const char argv0)
	{
	char *p;
	char buf[MAX_PATH];
	DWORD len;

	len = GetModuleFileName(NULL, buf, sizeof(buf) - 1);
	if (len == 0) {
	return NULL;
	}

	buf[len] = 0;
	p = buf + len - 1;
	while (p != buf && *p != '\\')
	p--;
	*p = 0;
	if (access(buf, R_OK) == 0) {
	return qemu_strdup(buf);
	}
	return NULL;
	}

	void os_set_line_buffering(void)
	{
	setbuf(stdout, NULL);
	setbuf(stderr, NULL);
	}

	/*
	* Parse OS specific command line options.
	* return 0 if option handled, -1 otherwise
	*/
	void os_parse_cmd_args(int index, const char *optarg)
	{
	return;
	}

	void os_pidfile_error(void)
	{
	fprintf(stderr, "Could not acquire pid file: %s\n", strerror(errno));
	}

	int qemu_create_pidfile(const char *filename)
	{
	char buffer[128];
	int len;
	HANDLE file;
	OVERLAPPED overlap;
	BOOL ret;
	memset(&overlap, 0, sizeof(overlap));

	file = CreateFile(filename, GENERIC_WRITE, FILE_SHARE_READ, NULL,
	OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL);

	if (file == INVALID_HANDLE_VALUE) {
	return -1;
	}
	len = snprintf(buffer, sizeof(buffer), "%ld\n", (long)getpid());
	ret = WriteFileEx(file, (LPCVOID)buffer, (DWORD)len,
	&overlap, NULL);
	if (ret == 0) {
	return -1;
	}
	return 0;
	}

	int qemu_get_thread_id(void)
	{
	return GetCurrentThreadId();
	}