/* This stuff will eventually be replaced by calls to the
   storage manager in the new GHC/Hugs RTS.   -- sof
*/

#if defined(__CYGWIN32__) || defined(__MINGW32__) || defined(__CYGWIN__)
#define __BASTARDIZED_WIN32__ 1
#define COM 1
#endif

/*-----------------------------------------------------------
-- (c) 1998,  Daan Leijen, leijen@@fwi.uva.nl
-----------------------------------------------------------*/
/* #define DEBUG */

/* if you don't use COM, comment this out */
/* (pass the setting for this via command line instead.) */
/* #define COM */

/* define the DLL export macro */
#if defined(_BASTARDIZED_WIN32__)
#define DLLEXPORT(res)  __declspec(dllexport) res
#else
/* redef this default for your system */
#define DLLEXPORT(res)  extern res
#endif


#ifdef COM
#define COBJMACROS
#define CINTERFACE
#endif

#include <stdio.h>

#if !defined(__BASTARDIZED_WIN32__) && defined(COM)
#include <windows.h>
#else
# if defined(__BASTARDIZED_WIN32__)
  #include <windows.h>
# if defined(__BASTARDIZED_WIN32__) && defined(COM)
  #include "comPrim.h"
# endif
# endif
#include <stdlib.h>
#endif

#ifdef DEBUG
static int nallocs = 0;
static int nallocs_ = 0;
#endif

void primPointerCheck(void)
{
#ifdef DEBUG
    if (nallocs - nallocs_ != 0)
      printf( "pointer errors: allocs - frees = %i\n", nallocs - nallocs_ );
    nallocs_ = nallocs;
#endif    
}     

/*-----------------------------------------------------------
-- Free routines for foreign objects
-----------------------------------------------------------*/

DLLEXPORT(void) primFreeBSTR( void* p )
{
#ifdef COM
   if (p) SysFreeString( (BSTR)p );
#endif
}

DLLEXPORT(void) primNoFree( void* p )
{
#if 0
 char    msg[200];
 WCHAR* wmsg;
 HRESULT hr;

 sprintf(msg, "freeing: %p", p);
 MessageBox(NULL, msg, "primNoFree", MB_OK );

 hr = primGUIDToString(p, &wmsg);
 if (SUCCEEDED(hr)) {
    MessageBoxW(NULL, wmsg, L"primNoFree-clsid", MB_OK);
 }
#endif
}

void primFinalise (void* f, void* a)
{ ((void (*)(void *))f)(a); } 


/*-----------------------------------------------------------
-- Memory allocation
-----------------------------------------------------------*/

DLLEXPORT(void*) primAllocMemory( int size )
{
#ifdef COM

#ifdef DEBUG
    void* p;
    p = CoTaskMemAlloc( size );
    printf("alloc: %p, size = %i\n", p, size );
    if (p) nallocs++;
    return p;
#else
    return CoTaskMemAlloc(size);
#endif

#else
    return malloc(size);
#endif
}

/* COM version of freeing */
#ifdef COM
DLLEXPORT(void) primFreeMemory( void* p )
{
 #ifdef DEBUG    
   if (!p) printf( "freeing null pointer\n" );
 #endif
   if (!p) return;
 #if defined(DEBUG)
   if (p) nallocs--;
   printf( "free: %p\n", p);
 #endif
   CoTaskMemFree( p );
}
#endif

#ifndef COM
DLLEXPORT(void) primFreeMemory( void* p )
{
 #ifdef DEBUG    
   if (!p) printf( "free null pointer\n" );
 #endif

   if (!p) return;

   free(p);
}
#endif /* !COM */

/* Strictly speaking, converting a function pointer to a void*
   is not guaranteed to be information preserving in ANSI C.
*/
void* finalFreeMemory() { return (void*)&primFreeMemory; }
void* finalNoFree()     { return (void*)&primNoFree;   }
void* finalFreeBSTR()   { return (void*)&primFreeBSTR; }