[Squeak-Commits] squeak/platforms/win32/plugins/UUIDPlugin sqWin32UUID.c,NONE,1.1

[Andreas R. <and...@us...>]

Update of /cvsroot/squeak/squeak/platforms/win32/plugins/UUIDPlugin
In directory usw-pr-cvs1:/tmp/cvs-serv7733/plugins/UUIDPlugin

Added Files:
	sqWin32UUID.c 
Log Message:
Update to 3.2.1

--- NEW FILE: sqWin32UUID.c ---
/****************************************************************************
*   PROJECT: Squeak port for Win32 (NT / Win95)
*   FILE:    sqWin32UUID.c
*   CONTENT: UUID support
*
*   AUTHOR:  Andreas Raab (ar)
*   ADDRESS: 
*   EMAIL:   And...@gm...
*   RCSID:   $Id: sqWin32UUID.c,v 1.1 2002/05/04 23:20:28 andreasraab Exp $
*
*   NOTES:
*****************************************************************************/
#include <windows.h>
#include <ole2.h>
#include "sq.h"

int sqUUIDInit(void) {
  return 1;
}

int sqUUIDShutdown(void) {
  return 1;
}

int MakeUUID(char *location) {
  if(CoCreateGuid((GUID*)location) == S_OK) return 1;
  primitiveFail();
  return 0;
}