should avoid some segfaults

CVS patchset: 1132
CVS date: 2001/11/29 01:29:17

1 files changed, 3182 insertions, 3174 deletions

diff --git a/src/libw32dll/wine/win32.c b/src/libw32dll/wine/win32.c
index e191fae4f..94d281827 100644
--- a/src/libw32dll/wine/win32.c
+++ b/src/libw32dll/wine/win32.c
@@ -1,3179 +1,3187 @@
-/***********************************************************
-
-	Win32 emulation code. Functions that emulate
-	responses from corresponding Win32 API calls.
-         Since we are not going to be able to load
-       virtually any DLL, we can only implement this
-      much, adding needed functions with each new codec.
-
-      Basic principle of implementation: it's not good
-      for DLL to know too much about its environment.
-
-************************************************************/
-
-#include "config.h"
-
-#include "winbase.h"
-#include "winreg.h"
-#include "winnt.h"
-#include "winerror.h"
-#include "debugtools.h"
-#include "module.h"
-
-#include <stdio.h>
-#include "win32.h"
-
-#include "registry.h"
-#include "loader.h"
-#include "com.h"
-
-#include <stdlib.h>
-#include <assert.h>
-#include <stdarg.h>
-#include <ctype.h>
-#include <pthread.h>
-#include <errno.h>
-#ifdef HAVE_MALLOC_H
-#include <malloc.h>
-#endif
-#include <time.h>
-#include <math.h>
-#include <unistd.h>
-#include <fcntl.h>
-#include <sys/types.h>
-#include <sys/time.h>
-#include <sys/timeb.h>
-#ifdef	HAVE_KSTAT
-#include <kstat.h>
-#endif
-
-int vsscanf( const char *str, const char *format, va_list ap);
-
-extern char* win32_def_path;
-
-static void do_cpuid(unsigned int ax, unsigned int *regs)
-{
-	__asm__ __volatile__(
-	"pushl %%ebx; pushl %%ecx; pushl %%edx;"
-	".byte  0x0f, 0xa2;"
-	"movl   %%eax, (%2);"
-	"movl   %%ebx, 4(%2);"
-	"movl   %%ecx, 8(%2);"
-	"movl   %%edx, 12(%2);"
-	"popl %%edx; popl %%ecx; popl %%ebx;"
-	: "=a" (ax)
-	:  "0" (ax), "S" (regs)
-	);
-}
-static unsigned int c_localcount_tsc()
-{
-    int a;
-    __asm__ __volatile__("rdtsc\n\t"
-    :"=a"(a)
-    :
-    :"edx");
-    return a;
-}
-static void c_longcount_tsc(long long* z)
-{
-    __asm__ __volatile__(
-    "pushl %%ebx\n\t"
-    "movl %%eax, %%ebx\n\t"
-    "rdtsc\n\t"
-    "movl %%eax, 0(%%ebx)\n\t"
-    "movl %%edx, 4(%%ebx)\n\t"
-    "popl %%ebx\n\t"
-    ::"a"(z));
-}
-static unsigned int c_localcount_notsc()
-{
-    struct timeval tv;
-    unsigned limit=~0;
-    limit/=1000000;
-    gettimeofday(&tv, 0);
-    return limit*tv.tv_usec;
-}
-static void c_longcount_notsc(long long* z)
-{
-    struct timeval tv;
-    unsigned long long result;
-    unsigned limit=~0;
-    if(!z)return;
-    limit/=1000000;
-    gettimeofday(&tv, 0);
-    result=tv.tv_sec;
-    result<<=32;
-    result+=limit*tv.tv_usec;
-    *z=result;
-}
-static unsigned int localcount_stub(void);
-static void longcount_stub(long long*);
-static unsigned int (*localcount)()=localcount_stub;
-static void (*longcount)(long long*)=longcount_stub;
-
-static pthread_mutex_t memmut;
-
-static unsigned int localcount_stub(void)
-{
-    unsigned int regs[4];
-    do_cpuid(1, regs);
-    if ((regs[3] & 0x00000010) != 0)
-    {
-	localcount=c_localcount_tsc;
-	longcount=c_longcount_tsc;
-    }
-    else
-    {
-    	localcount=c_localcount_notsc;
-	longcount=c_longcount_notsc;
-    }
-    return localcount();
-}
-static void longcount_stub(long long* z)
-{
-    unsigned int regs[4];
-    do_cpuid(1, regs);
-    if ((regs[3] & 0x00000010) != 0)
-    {
-	localcount=c_localcount_tsc;
-	longcount=c_longcount_tsc;
-    }
-    else
-    {
-    	localcount=c_localcount_notsc;
-	longcount=c_longcount_notsc;
-    }
-    longcount(z);
-}
-
-int LOADER_DEBUG=1; // active only if compiled with -DDETAILED_OUT
-static inline void dbgprintf(char* fmt, ...)
-{
-#ifdef DETAILED_OUT
-    if(LOADER_DEBUG)
-    {
-	FILE* f;
-	va_list va;
-        va_start(va, fmt);
-	f=fopen("./log", "a");
-        vprintf(fmt, va);
-    	if(f)
-	{
-	    vfprintf(f, fmt, va);
-	    fsync(fileno(f));
-    	    fclose(f);
-	}
-	va_end(va);
-    }
-#endif
-}
-char export_names[500][30]={
-"name1",
-//"name2",
-//"name3"
-};
-//#define min(x,y) ((x)<(y)?(x):(y))
-
-void destroy_event(void* event);
-
-static unsigned char* heap=NULL;
-static int heap_counter=0;
-static void test_heap(void)
-{
-    int offset=0;
-    if(heap==0)
-	return;
-    while(offset<heap_counter)
-    {
-	if(*(int*)(heap+offset)!=0x433476)
-	{
-	    printf("Heap corruption at address %d\n", offset);
-	    return;
-	}
-	offset+=8+*(int*)(heap+offset+4);
-    }
-    for(;offset<min(offset+1000, 20000000); offset++)
-	if(heap[offset]!=0xCC)
-	    {
-		printf("Free heap corruption at address %d\n", offset);
-	}
-}
-#undef MEMORY_DEBUG
-
-#ifdef MEMORY_DEBUG
-
-void* my_mreq(int size, int to_zero)
-{
-    static int test=0;
-    test++;
-    if(test%10==0)printf("Memory: %d bytes allocated\n", heap_counter);
-//    test_heap();
-    if(heap==NULL)
-    {
-	heap=malloc(20000000);
-	memset(heap, 0xCC,20000000);
-    }
-    if(heap==0)
-    {
-	printf("No enough memory\n");
-	return 0;
-    }
-    if(heap_counter+size>20000000)
-    {
-	printf("No enough memory\n");
-	return 0;
-    }
-    *(int*)(heap+heap_counter)=0x433476;
-    heap_counter+=4;
-    *(int*)(heap+heap_counter)=size;
-    heap_counter+=4;
-    printf("Allocated %d bytes of memory: sys %d, user %d-%d\n", size, heap_counter-8, heap_counter, heap_counter+size);
-    if(to_zero)
-    	memset(heap+heap_counter, 0, size);
-    else
-	memset(heap+heap_counter, 0xcc, size);  // make crash reproducable
-    heap_counter+=size;
-    return heap+heap_counter-size;
-}
-int my_release(char* memory)
-{
-//    test_heap();
-    if(memory==NULL)
-    {
-	printf("ERROR: free(0)\n");
-	return 0;
-    }
-    if(*(int*)(memory-8)!=0x433476)
-    {
-	printf("MEMORY CORRUPTION !!!!!!!!!!!!!!!!!!!\n");
-	return 0;
-    }
-    printf("Freed %d bytes of memory\n", *(int*)(memory-4));
-//    memset(memory-8, *(int*)(memory-4), 0xCC);
-    return 0;
-}
-
-#else
-#define GARBAGE
-typedef struct alloc_header_t alloc_header;
-struct alloc_header_t
-{
-// let's keep allocated data 16 byte aligned
-    alloc_header* prev;
-    alloc_header* next;
-    long deadbeef;
-    long size;
-    long type;
-    long reserved1;
-    long reserved2;
-    long reserved3;
-};
-
-#ifdef GARBAGE
-static alloc_header* last_alloc = NULL;
-static int alccnt = 0;
-#endif
-
-#define AREATYPE_CLIENT 0
-#define AREATYPE_EVENT 1
-#define AREATYPE_MUTEX 2
-#define AREATYPE_COND 3
-
-void* mreq_private(int size, int to_zero, int type);
-void* mreq_private(int size, int to_zero, int type)
-{
-    alloc_header* header;
-    if (to_zero)
-	header=calloc(size + sizeof(alloc_header), 1);
-    else
-	header=malloc(size + sizeof(alloc_header));
-#ifdef GARBAGE
-    if (!last_alloc)
-    {
-	pthread_mutex_init(&memmut, NULL);
-	pthread_mutex_lock(&memmut);
-    }
-    else
-    {
-        pthread_mutex_lock(&memmut);
-	last_alloc->next = header;  /* set next */
-    }
-
-    header->prev = last_alloc;
-    header->next = 0;
-    last_alloc = header;
-    alccnt++;
-    pthread_mutex_unlock(&memmut);
-#endif
-    header->deadbeef = 0xdeadbeef;
-    header->size = size;
-    header->type = type;
-
-    //if (alccnt < 400) printf("MY_REQ: %p\t%d     (%d)\n",  answer, size, alccnt);
-    return header + 1;
-}
-
-void* my_mreq(int size, int to_zero)
-{
-    return mreq_private(size, to_zero, AREATYPE_CLIENT);
-}
-
-
-int my_release(void* memory)
-{
-    alloc_header* header = (alloc_header*) memory - 1;
-#ifdef GARBAGE
-    alloc_header* prevmem;
-    alloc_header* nextmem;
-    if (memory == 0)
-	return 0;
-
-    pthread_mutex_lock(&memmut);
-
-    if (header->deadbeef != 0xdeadbeef)
-    {
-	printf("FATAL releasing corrupted memory!\n");
-	return 0;
-    }
-
-    switch(header->type)
-    {
-    case AREATYPE_EVENT:
-	destroy_event(memory);
-	break;
-    case AREATYPE_COND:
-	pthread_cond_destroy((pthread_cond_t*)memory);
-	break;
-    case AREATYPE_MUTEX:
-	pthread_mutex_destroy((pthread_mutex_t*)memory);
-	break;
-    }
-    	
-    prevmem = header->prev;
-    nextmem = header->next;
-
-    if (prevmem)
-	prevmem->next = nextmem;
-    if (nextmem)
-	nextmem->prev = prevmem;
-
-    if (header == last_alloc)
-	last_alloc = prevmem;
-
-    alccnt--;
-
-    if (last_alloc)
-	pthread_mutex_unlock(&memmut);
-    else
-	pthread_mutex_destroy(&memmut);
-
-    //if (alccnt < 400) printf("MY_RELEASE: %p\t%ld    (%d)\n", mem, mem[3], alccnt);
-#else
-    if (memory == 0)
-	return 0;
-#endif
-    free(header);
-    return 0;
-}
-#endif
-
-static inline int my_size(void* memory)
-{
-    return ((alloc_header*)memory)[-1].size;
-}
-
-void* my_realloc(void* memory, int size)
-{
-    void *ans = memory;
-    int osize = my_size(memory);
-    if (memory == NULL)
-	return my_mreq(size, 0);
-    if (osize < size)
-    {
-	ans = my_mreq(size, 0);
-	memcpy(ans, memory, osize);
-	my_release(memory);
-    }
-    return ans;
-}
-
-extern int unk_exp1;
-char extcode[20000];// place for 200 unresolved exports
-int pos=0;
-
-int WINAPI ext_unknown()
-{
-    printf("Unknown func called\n");
-    return 0;
-}
-int WINAPI expIsBadWritePtr(void* ptr, unsigned int count)
-{
-    int result;
-    if(count==0)
-	result=0;
-    else
-    if(ptr==0)
-        result=1;
-    else
-	result=0;
-    dbgprintf("IsBadWritePtr(0x%x, 0x%x) => %d\n", ptr, count, result);
-    return result;
-}
-int WINAPI expIsBadReadPtr(void* ptr, unsigned int count)
-{
-    int result;
-    if(count==0)
-	result=0;
-    else
-    if(ptr==0)
-        result=1;
-    else
-	result=0;
-    dbgprintf("IsBadReadPtr(0x%x, 0x%x) => %d\n", ptr, count, result);
-    return result;
-}
-void* CDECL expmalloc(int size)
-{
-//printf("malloc");
-//    return malloc(size);
-    void* result=my_mreq(size,0);
-    dbgprintf("malloc(0x%x) => 0x%x\n", size,result);
-    if(result==0)
-	printf("WARNING: malloc() failed\n");
-    return result;
-}
-void CDECL expfree(void* mem)
-{
-//    return free(mem);
-    dbgprintf("free(0x%x)\n", mem);
-    my_release(mem);
-}
-void* CDECL expnew(int size)
-{
-//    printf("NEW:: Call from address %08x\n STACK DUMP:\n", *(-1+(int*)&size));
-//    printf("%08x %08x %08x %08x\n",
-//    size, *(1+(int*)&size),
-    //    *(2+(int*)&size),*(3+(int*)&size));
-    void* result = 0;
-    assert(size >= 0);
-
-    result=my_mreq(size,0);
-    dbgprintf("new(0x%x) => 0x%x\n", size, result);
-    if (result==0)
-	printf("WARNING: new() failed\n");
-    return result;
-
-}
-int CDECL expdelete(void* memory)
-{
-    dbgprintf("delete(0x%x)\n", memory);
-    my_release(memory);
-    return 0;
-}
-int WINAPI expDisableThreadLibraryCalls(int module)
-{
-    dbgprintf("DisableThreadLibraryCalls(0x%x) => 0\n", module);
-    return 0;
-}
-int CDECL exp_initterm(int v1, int v2)
-{
-    dbgprintf("_initterm(0x%x, 0x%x) => 0\n", v1, v2);
-    return 0;
-}
-
-HMODULE WINAPI expGetDriverModuleHandle(DRVR* pdrv)
-{
-    HMODULE result;
-    if (pdrv==NULL)
-	result=0;
-    else
-        result=pdrv->hDriverModule;
-    dbgprintf("GetDriverModuleHandle(%p) => %p\n", pdrv, result);
-    return result;
-}
-
-#define	MODULE_HANDLE_kernel32	((HMODULE)0x120)
-
-HMODULE WINAPI expGetModuleHandleA(const char* name)
-{
-	WINE_MODREF* wm;
-	HMODULE result;
-	if(!name)
-	    result=0;
-	else
-	{
-    	    wm=MODULE_FindModule(name);
-		if(wm==0)result=0;
-	    else
-    		result=(HMODULE)(wm->module);
-	}
-	if(!result)
-	{
-	    if(strcasecmp(name, "kernel32")==0)
-		result=MODULE_HANDLE_kernel32;
-	}
-         dbgprintf("GetModuleHandleA('%s') => 0x%x\n", name, result);
-	return result;
-}
-
-struct th_list_t;
-typedef struct th_list_t{
-int id;
-void* thread;
-struct th_list_t* next;
-struct th_list_t* prev;
-}th_list;
-
-static th_list* list=NULL;
-
-
-
-void* WINAPI expCreateThread(void* pSecAttr, long dwStackSize, void* lpStartAddress,
-	void* lpParameter, long dwFlags, long* dwThreadId)
-{
-    pthread_t *pth;
-//    printf("CreateThread:");
-    pth=my_mreq(sizeof(pthread_t), 0);
-    pthread_create(pth, NULL, (void*(*)(void*))lpStartAddress, lpParameter);
-    if(dwFlags)
-	printf( "WARNING: CreateThread flags not supported\n");
-    if(dwThreadId)
-	*dwThreadId=(long)pth;
-    if(list==NULL)
-    {
-	list=my_mreq(sizeof(th_list), 1);
-	list->next=list->prev=NULL;
-    }
-    else
-    {
-	list->next=my_mreq(sizeof(th_list), 0);
-	list->next->prev=list;
-	list->next->next=NULL;
-	list=list->next;
-    }
-    list->thread=pth;
-    dbgprintf("CreateThread(0x%x, 0x%x, 0x%x, 0x%x, 0x%x, 0x%x) => 0x%x\n",
-	pSecAttr, dwStackSize, lpStartAddress, lpParameter, dwFlags, dwThreadId, pth);
-    return pth;
-}
-
-struct mutex_list_t;
-
-struct mutex_list_t
-{
-    char type;
-    pthread_mutex_t *pm;
-    pthread_cond_t  *pc;
-    char state;
-    char reset;
-    char name[128];
-    int  semaphore;
-    struct mutex_list_t* next;
-    struct mutex_list_t* prev;
-};
-typedef struct mutex_list_t mutex_list;
-static mutex_list* mlist=NULL;
-
-void destroy_event(void* event)
-{
-    mutex_list* pp=mlist;
-//    printf("garbage collector: destroy_event(%x)\n", event);
-    while(pp)
-    {
-	if(pp==(mutex_list*)event)
-	{
-	    if(pp->next)
-		pp->next->prev=pp->prev;
-	    if(pp->prev)
-		pp->prev->next=pp->next;
-	    if(mlist==(mutex_list*)event)
-		mlist=mlist->prev;
-/*
-	    pp=mlist;
-	    while(pp)
-	    {
-		printf("%x => ", pp);
-		pp=pp->prev;
-	    }
-	    printf("0\n");    
-*/
-	    return;
-	}
-	pp=pp->prev;
-    }
-}
-
-void* WINAPI expCreateEventA(void* pSecAttr, char bManualReset,
-    char bInitialState, const char* name)
-{
-    pthread_mutex_t *pm;
-    pthread_cond_t  *pc;
-/*
-    mutex_list* pp;
-    pp=mlist;
-    while(pp)
-    {
-	printf("%x => ", pp);
-	pp=pp->prev;
-    }
-    printf("0\n");
-*/
-    if(mlist!=NULL)
-    {
-	mutex_list* pp=mlist;
-	if(name!=NULL)
-	do
-	{
-	    if((strcmp(pp->name, name)==0) && (pp->type==0))
-	    {
-		dbgprintf("CreateEventA(0x%x, 0x%x, 0x%x, 0x%x='%s') => 0x%x\n",
-		    pSecAttr, bManualReset, bInitialState, name, name, pp->pm);
-		return pp->pm;
-	    }
-	}while((pp=pp->prev) != NULL);
-    }
-    pm=mreq_private(sizeof(pthread_mutex_t), 0, AREATYPE_MUTEX);
-    pthread_mutex_init(pm, NULL);
-    pc=mreq_private(sizeof(pthread_cond_t), 0, AREATYPE_COND);
-    pthread_cond_init(pc, NULL);
-    if(mlist==NULL)
-    {
-	mlist=mreq_private(sizeof(mutex_list), 00, AREATYPE_EVENT);
-	mlist->next=mlist->prev=NULL;
-    }
-    else
-    {
-	mlist->next=mreq_private(sizeof(mutex_list), 00, AREATYPE_EVENT);
-	mlist->next->prev=mlist;
-	mlist->next->next=NULL;
-	mlist=mlist->next;
-    }
-    mlist->type=0; /* Type Event */
-    mlist->pm=pm;
-    mlist->pc=pc;
-    mlist->state=bInitialState;
-    mlist->reset=bManualReset;
-    if(name)
-        strncpy(mlist->name, name, 127);
-    else
-	mlist->name[0]=0;
-    if(pm==NULL)
-	dbgprintf("ERROR::: CreateEventA failure\n");
-/*
-    if(bInitialState)
-        pthread_mutex_lock(pm);
-*/
-    if(name)
-    dbgprintf("CreateEventA(0x%x, 0x%x, 0x%x, 0x%x='%s') => 0x%x\n",
-        pSecAttr, bManualReset, bInitialState, name, name, mlist);
-    else
-    dbgprintf("CreateEventA(0x%x, 0x%x, 0x%x, NULL) => 0x%x\n",
-        pSecAttr, bManualReset, bInitialState, mlist);
-    return mlist;
-}
-
-void* WINAPI expSetEvent(void* event)
-{
-    mutex_list *ml = (mutex_list *)event;
-    dbgprintf("SetEvent(%x) => 0x1\n", event);
-    pthread_mutex_lock(ml->pm);
-    if (ml->state == 0) {
-	ml->state = 1;
-	pthread_cond_signal(ml->pc);
-    }
-    pthread_mutex_unlock(ml->pm);
-
-    return (void *)1;
-}
-void* WINAPI expResetEvent(void* event)
-{
-    mutex_list *ml = (mutex_list *)event;
-    dbgprintf("ResetEvent(0x%x) => 0x1\n", event);
-    pthread_mutex_lock(ml->pm);
-    ml->state = 0;
-    pthread_mutex_unlock(ml->pm);
-
-    return (void *)1;
-}
-
-void* WINAPI expWaitForSingleObject(void* object, int duration)
-{
-    mutex_list *ml = (mutex_list *)object;
-    // FIXME FIXME FIXME - this value is sometime unititialize !!!
-    int ret = WAIT_FAILED;
-    mutex_list* pp=mlist;
-    dbgprintf("WaitForSingleObject(0x%x, duration %d) =>\n",object, duration);
-
-    // loop below was slightly fixed - its used just for checking if
-    // this object really exists in our list
-    if (!ml)
-        return (void*) ret;
-    while (pp && (pp->pm != ml->pm))
-	pp = pp->prev;
-    if (!pp) {
-	dbgprintf("WaitForSingleObject: NotFound\n");
-	return (void*)ret;
-    }
-
-    pthread_mutex_lock(ml->pm);
-
-    switch(ml->type) {
-      case 0: /* Event */
-	if (duration == 0) { /* Check Only */
-		if (ml->state == 1) ret = WAIT_FAILED;
-		else                   ret = WAIT_OBJECT_0;
-	}
-	if (duration == -1) { /* INFINITE */
-		if (ml->state == 0)
-			pthread_cond_wait(ml->pc,ml->pm);
-		if (ml->reset)
-			ml->state = 0;
-		ret = WAIT_OBJECT_0;
-	}
-	if (duration > 0) {  /* Timed Wait */
-		struct timespec abstime;
-		struct timeval now;
-		gettimeofday(&now, 0);
-		abstime.tv_sec = now.tv_sec + (now.tv_usec+duration)/1000000;
-		abstime.tv_nsec = ((now.tv_usec+duration)%1000000)*1000;
-		if (ml->state == 0)
-			ret=pthread_cond_timedwait(ml->pc,ml->pm,&abstime);
-		if (ret == ETIMEDOUT) ret = WAIT_TIMEOUT;
-		else                  ret = WAIT_OBJECT_0;
-		if (ml->reset)
-			ml->state = 0;
-	}
-        break;
-      case 1:  /* Semaphore */
-        if (duration == 0) {
-		if(ml->semaphore==0) ret = WAIT_FAILED;
-		else {
-			ml->semaphore++;
-			ret = WAIT_OBJECT_0;
-		}
-        }
-	if (duration == -1) {
-		if (ml->semaphore==0)
-			pthread_cond_wait(ml->pc,ml->pm);
-		ml->semaphore--;
-	}
-        break;
-    }
-    pthread_mutex_unlock(ml->pm);
-
-    dbgprintf("WaitForSingleObject(0x%x, %d): 0x%x => 0x%x \n",object,duration,ml,ret);
-    return (void *)ret;
-}
-
-static BYTE PF[64] = {0,};
-
-WIN_BOOL WINAPI expIsProcessorFeaturePresent(DWORD v)
-{
-    WIN_BOOL result;
-    if(v>63)result=0;
-    else result=PF[v];
-    dbgprintf("IsProcessorFeaturePresent(0x%x) => 0x%x\n", v, result);
-    return result;
-}
-
-static void DumpSystemInfo(const SYSTEM_INFO* si)
-{
-    dbgprintf("  Processor architecture %d\n", si->u.s.wProcessorArchitecture);
-    dbgprintf("  Page size: %d\n", si->dwPageSize);
-    dbgprintf("  Minimum app address: %d\n", si->lpMinimumApplicationAddress);
-    dbgprintf("  Maximum app address: %d\n", si->lpMaximumApplicationAddress);
-    dbgprintf("  Active processor mask: 0x%x\n", si->dwActiveProcessorMask);
-    dbgprintf("  Number of processors: %d\n", si->dwNumberOfProcessors);
-    dbgprintf("  Processor type: 0x%x\n", si->dwProcessorType);
-    dbgprintf("  Allocation granularity: 0x%x\n", si->dwAllocationGranularity);
-    dbgprintf("  Processor level: 0x%x\n", si->wProcessorLevel);
-    dbgprintf("  Processor revision: 0x%x\n", si->wProcessorRevision);
-}
-
-void WINAPI expGetSystemInfo(SYSTEM_INFO* si)
-{
-    	/* FIXME: better values for the two entries below... */
-	static int cache = 0;
-	static SYSTEM_INFO cachedsi;
-	unsigned int regs[4];
-        dbgprintf("GetSystemInfo(%p) =>\n", si);
-
-	if (cache) {
-		memcpy(si,&cachedsi,sizeof(*si));
-		DumpSystemInfo(si);
-		return;
-	}
-	memset(PF,0,sizeof(PF));
-
-	cachedsi.u.s.wProcessorArchitecture     = PROCESSOR_ARCHITECTURE_INTEL;
-	cachedsi.dwPageSize 			= getpagesize();
-
-	/* FIXME: better values for the two entries below... */
-	cachedsi.lpMinimumApplicationAddress	= (void *)0x00000000;
-	cachedsi.lpMaximumApplicationAddress	= (void *)0x7FFFFFFF;
-	cachedsi.dwActiveProcessorMask		= 1;
-	cachedsi.dwNumberOfProcessors		= 1;
-	cachedsi.dwProcessorType		= PROCESSOR_INTEL_386;
-	cachedsi.dwAllocationGranularity	= 0x10000;
-	cachedsi.wProcessorLevel		= 5; /* pentium */
-	cachedsi.wProcessorRevision		= 0x0101;
-
-#if defined(__FreeBSD__) || defined(__NetBSD__) || defined(__svr4__)
-	do_cpuid(1, regs);
-	switch ((regs[0] >> 8) & 0xf) {			// cpu family
-	case 3: cachedsi.dwProcessorType = PROCESSOR_INTEL_386;
-		cachedsi.wProcessorLevel= 3;
-		break;
-	case 4: cachedsi.dwProcessorType = PROCESSOR_INTEL_486;
-		cachedsi.wProcessorLevel= 4;
-		break;
-	case 5: cachedsi.dwProcessorType = PROCESSOR_INTEL_PENTIUM;
-		cachedsi.wProcessorLevel= 5;
-		break;
-	case 6: cachedsi.dwProcessorType = PROCESSOR_INTEL_PENTIUM;
-		cachedsi.wProcessorLevel= 5;
-		break;
-	default:cachedsi.dwProcessorType = PROCESSOR_INTEL_PENTIUM;
-		cachedsi.wProcessorLevel= 5;
-		break;
-	}
-	cachedsi.wProcessorRevision = regs[0] & 0xf;	// stepping
-	if (regs[3] & (1 <<  8))
-	  PF[PF_COMPARE_EXCHANGE_DOUBLE] = TRUE;
-	if (regs[3] & (1 << 23))
-          PF[PF_MMX_INSTRUCTIONS_AVAILABLE] = TRUE;
-        cachedsi.dwNumberOfProcessors=1;
-#else
-	{
-	char buf[20];
-	char line[200];
-	FILE *f = fopen ("/proc/cpuinfo", "r");
-
-	if (!f)
-		return;
-	while (fgets(line,200,f)!=NULL) {
-		char	*s,*value;
-
-		/* NOTE: the ':' is the only character we can rely on */
-		if (!(value = strchr(line,':')))
-			continue;
-		/* terminate the valuename */
-		*value++ = '\0';
-		/* skip any leading spaces */
-		while (*value==' ') value++;
-		if ((s=strchr(value,'\n')))
-			*s='\0';
-
-		/* 2.1 method */
-		if (!lstrncmpiA(line, "cpu family",strlen("cpu family"))) {
-			if (isdigit (value[0])) {
-				switch (value[0] - '0') {
-				case 3: cachedsi.dwProcessorType = PROCESSOR_INTEL_386;
-					cachedsi.wProcessorLevel= 3;
-					break;
-				case 4: cachedsi.dwProcessorType = PROCESSOR_INTEL_486;
-					cachedsi.wProcessorLevel= 4;
-					break;
-				case 5: cachedsi.dwProcessorType = PROCESSOR_INTEL_PENTIUM;
-					cachedsi.wProcessorLevel= 5;
-					break;
-				case 6: cachedsi.dwProcessorType = PROCESSOR_INTEL_PENTIUM;
-					cachedsi.wProcessorLevel= 5;
-					break;
-				default:cachedsi.dwProcessorType = PROCESSOR_INTEL_PENTIUM;
-					cachedsi.wProcessorLevel= 5;
-					break;
-				}
-			}
-			/* set the CPU type of the current processor */
-			sprintf(buf,"CPU %ld",cachedsi.dwProcessorType);
-			continue;
-		}
-		/* old 2.0 method */
-		if (!lstrncmpiA(line, "cpu",strlen("cpu"))) {
-			if (	isdigit (value[0]) && value[1] == '8' &&
-				value[2] == '6' && value[3] == 0
-			) {
-				switch (value[0] - '0') {
-				case 3: cachedsi.dwProcessorType = PROCESSOR_INTEL_386;
-					cachedsi.wProcessorLevel= 3;
-					break;
-				case 4: cachedsi.dwProcessorType = PROCESSOR_INTEL_486;
-					cachedsi.wProcessorLevel= 4;
-					break;
-				case 5: cachedsi.dwProcessorType = PROCESSOR_INTEL_PENTIUM;
-					cachedsi.wProcessorLevel= 5;
-					break;
-				case 6: cachedsi.dwProcessorType = PROCESSOR_INTEL_PENTIUM;
-					cachedsi.wProcessorLevel= 5;
-					break;
-				default:cachedsi.dwProcessorType = PROCESSOR_INTEL_PENTIUM;
-					cachedsi.wProcessorLevel= 5;
-					break;
-				}
-			}
-			/* set the CPU type of the current processor */
-			sprintf(buf,"CPU %ld",cachedsi.dwProcessorType);
-			continue;
-		}
-		if (!lstrncmpiA(line,"fdiv_bug",strlen("fdiv_bug"))) {
-			if (!lstrncmpiA(value,"yes",3))
-				PF[PF_FLOATING_POINT_PRECISION_ERRATA] = TRUE;
-
-			continue;
-		}
-		if (!lstrncmpiA(line,"fpu",strlen("fpu"))) {
-			if (!lstrncmpiA(value,"no",2))
-				PF[PF_FLOATING_POINT_EMULATED] = TRUE;
-
-			continue;
-		}
-		if (!lstrncmpiA(line,"processor",strlen("processor"))) {
-			/* processor number counts up...*/
-			int	x;
-
-			if (sscanf(value,"%d",&x))
-				if (x+1>cachedsi.dwNumberOfProcessors)
-					cachedsi.dwNumberOfProcessors=x+1;
-
-			/* Create a new processor subkey on a multiprocessor
-			 * system
-			 */
-			sprintf(buf,"%d",x);
-		}
-		if (!lstrncmpiA(line,"stepping",strlen("stepping"))) {
-			int	x;
-
-			if (sscanf(value,"%d",&x))
-				cachedsi.wProcessorRevision = x;
-		}
-		if
-		( (!lstrncmpiA(line,"flags",strlen("flags")))
-		|| (!lstrncmpiA(line,"features",strlen("features"))) )
-		{
-			if (strstr(value,"cx8"))
-				PF[PF_COMPARE_EXCHANGE_DOUBLE] = TRUE;
-			if (strstr(value,"mmx"))
-				PF[PF_MMX_INSTRUCTIONS_AVAILABLE] = TRUE;
-
-		}
-	}
-	fclose (f);
-/*
- *	ad hoc fix for smp machines.
- *	some problems on WaitForSingleObject,CreateEvent,SetEvent
- *			CreateThread ...etc..
- *
- */
-        cachedsi.dwNumberOfProcessors=1;
-	}
-#endif /* __FreeBSD__ */
-	cache = 1;
-	memcpy(si,&cachedsi,sizeof(*si));
-	DumpSystemInfo(si);
-}
-
-long WINAPI expGetVersion()
-{
-    dbgprintf("GetVersion() => 0xC0000004\n");
-    return 0xC0000004;//Windows 95
-}
-
-HANDLE WINAPI expHeapCreate(long flags, long init_size, long max_size)
-{
-//    printf("HeapCreate:");
-    HANDLE result;
-    if(init_size==0)
-    	result=(HANDLE)my_mreq(0x110000, 0);
-    else
-	result=(HANDLE)my_mreq(init_size, 0);
-    dbgprintf("HeapCreate(flags 0x%x, initial size %d, maximum size %d) => 0x%x\n", flags, init_size, max_size, result);
-    return result;
-}
-void* WINAPI expHeapAlloc(HANDLE heap, int flags, int size)
-{
-    void* z;
-//    printf("HeapAlloc:");
-/**
- Morgan's m3jpeg32.dll v. 2.0 encoder expects that request for
- HeapAlloc returns area larger than size argument :-/
-**/
-    z=my_mreq(((size+4095)/4096)*4096, flags&8);
-//    z=HeapAlloc(heap,flags,size);
-    if(z==0)
-	printf("HeapAlloc failure\n");
-    dbgprintf("HeapAlloc(heap 0x%x, flags 0x%x, size 0x%x) => 0x%x\n", heap, flags, size, z);
-    return z;
-}
-long WINAPI expHeapDestroy(void* heap)
-{
-    dbgprintf("HeapDestroy(heap 0x%x) => 1\n", heap);
-    my_release(heap);
-    return 1;
-}
-
-long WINAPI expHeapFree(int arg1, int arg2, void* ptr)
-{
-    dbgprintf("HeapFree(0x%x, 0x%x, pointer 0x%x) => 1\n", arg1, arg2, ptr);
-    my_release(ptr);
-    return 1;
-}
-long WINAPI expHeapSize(int heap, int flags, void* pointer)
-{
-    long result=my_size(pointer);
-    dbgprintf("HeapSize(heap 0x%x, flags 0x%x, pointer 0x%x) => %d\n", heap, flags, pointer, result);
-    return result;
-}
-void* WINAPI expHeapReAlloc(HANDLE heap,int flags,void *lpMem,int size)
-{
-    long orgsize;
-    void *newp;
-    orgsize = my_size(lpMem);
-    dbgprintf("HeapReAlloc() Size %ld org %d\n",orgsize,size);
-    return my_realloc(lpMem, size);
-}
-long WINAPI expGetProcessHeap(void)
-{
-    dbgprintf("GetProcessHeap() => 1\n");
-    return 1;
-}
-void* WINAPI expVirtualAlloc(void* v1, long v2, long v3, long v4)
-{
-    void* z;
-    z=VirtualAlloc(v1, v2, v3, v4);
-    if(z==0)
-	printf("VirtualAlloc failure\n");
-    dbgprintf("VirtualAlloc(0x%x, %d, %d, %d) => 0x%x \n",v1,v2,v3,v4, z);
-    return z;
-}
-int WINAPI expVirtualFree(void* v1, int v2, int v3)
-{
-    int result=VirtualFree(v1,v2,v3);
-    dbgprintf("VirtualFree(0x%x, %d, %d) => %d\n",v1,v2,v3, result);
-    return result;
-}
-struct CRITSECT
-{
-    pthread_t id;
-    pthread_mutex_t mutex;
-    int locked;
-};
-
-void WINAPI expInitializeCriticalSection(CRITICAL_SECTION* c)
-{
-    struct CRITSECT cs;
-    dbgprintf("InitializeCriticalSection(0x%x)\n", c);
-/*    if(sizeof(pthread_mutex_t)>sizeof(CRITICAL_SECTION))
-    {
-	printf(" ERROR:::: sizeof(pthread_mutex_t) is %d, expected <=%d!\n",
-	     sizeof(pthread_mutex_t), sizeof(CRITICAL_SECTION));
-	return;
-    }*/
-/*    pthread_mutex_init((pthread_mutex_t*)c, NULL);   */
-    pthread_mutex_init(&cs.mutex, NULL);
-    cs.locked=0;
-    *(void**)c=malloc(sizeof cs);
-    memcpy(*(void**)c, &cs, sizeof cs);
-    return;
-}
-void WINAPI expEnterCriticalSection(CRITICAL_SECTION* c)
-{
-    struct CRITSECT* cs=*(struct CRITSECT**)c;
-    dbgprintf("EnterCriticalSection(0x%x)\n",c);
-    if (!cs)
-    {
-	expInitializeCriticalSection(c);
-	cs=*(struct CRITSECT**)c;
-	printf("Win32 Warning: Accessed uninitialized Critical Section (%p)!\n", c);
-    }
-//    cs.id=pthread_self();
-    if(cs->locked)
-	if(cs->id==pthread_self())
-	    return;
-    pthread_mutex_lock(&(cs->mutex));
-    cs->locked=1;
-    cs->id=pthread_self();
-    return;
-}
-void WINAPI expLeaveCriticalSection(CRITICAL_SECTION* c)
-{
-    struct CRITSECT* cs=*(struct CRITSECT**)c;
-//    struct CRITSECT* cs=(struct CRITSECT*)c;
-    dbgprintf("LeaveCriticalSection(0x%x)\n",c);
-    if (!cs)
-    {
-	printf("Win32 Warning: Leaving noninitialized Critical Section %p!!\n", c);
-	return;
-    }
-    cs->locked=0;
-    pthread_mutex_unlock(&(cs->mutex));
-    return;
-}
-void WINAPI expDeleteCriticalSection(CRITICAL_SECTION *c)
-{
-    struct CRITSECT* cs=*(struct CRITSECT**)c;
-//    struct CRITSECT* cs=(struct CRITSECT*)c;
-    dbgprintf("DeleteCriticalSection(0x%x)\n",c);
-    pthread_mutex_destroy(&(cs->mutex));
-    free(cs);
-    return;
-}
-int WINAPI expGetCurrentThreadId()
-{
-    dbgprintf("GetCurrentThreadId() => %d\n", getpid());
-    return getpid();
-}
-int WINAPI expGetCurrentProcess()
-{
-    dbgprintf("GetCurrentProcess() => %d\n", getpid());
-    return getpid();
-}
-
-struct tls_s {
-    void* value;
-    int used;
-    struct tls_s* prev;
-    struct tls_s* next;
-};
-
-tls_t* g_tls=NULL;
-
-void* WINAPI expTlsAlloc()
-{
-    if(g_tls==NULL)
-    {
-	g_tls=my_mreq(sizeof(tls_t), 0);
-	g_tls->next=g_tls->prev=NULL;
-    }
-    else
-    {
-	g_tls->next=my_mreq(sizeof(tls_t), 0);
-	g_tls->next->prev=g_tls;
-	g_tls->next->next=NULL;
-	g_tls=g_tls->next;
-    }
-    dbgprintf("TlsAlloc() => 0x%x\n", g_tls);
-    g_tls->value=0; /* XXX For Divx.dll */
-    return g_tls;
-}
-
-int WINAPI expTlsSetValue(tls_t* index, void* value)
-{
-    int result;
-    if(index==0)
-	result=0;
-    else
-    {
-	index->value=value;
-	result=1;
-    }
-    dbgprintf("TlsSetValue(index 0x%x, value 0x%x) => %d \n", index, value, result );
-    return result;
-}
-void* WINAPI expTlsGetValue(tls_t* index)
-{
-    void* result;
-    if(index==0)
-	result=0;
-    else
-	result=index->value;
-    dbgprintf("TlsGetValue(index 0x%x) => 0x%x\n", index, result);
-    return result;
-}
-int WINAPI expTlsFree(tls_t* index)
-{
-    int result;
-    if(index==0)
-	result=0;
-    else
-    {
-	if(index->next)
-	    index->next->prev=index->prev;
-	if(index->prev)
-    	    index->prev->next=index->next;
-	my_release((void*)index);
-	result=1;
-    }
-    dbgprintf("TlsFree(index 0x%x) => %d\n", index, result);
-    return result;
-}
-void* WINAPI expLocalAlloc(int flags, int size)
-{
-    void* z;
-    if(flags&GMEM_ZEROINIT)
-	z=my_mreq(size, 1);
-    else
-	z=my_mreq(size, 0);
-    if(z==0)
-	printf("LocalAlloc() failed\n");
-    dbgprintf("LocalAlloc(%d, flags 0x%x) => 0x%x\n", size, flags, z);
-    return z;
-}
-
-void* WINAPI expLocalReAlloc(int handle,int size, int flags)
-{
-   void *newpointer;
-   int oldsize;
-
-   newpointer=NULL;
-   if (flags & LMEM_MODIFY) {
-        dbgprintf("LocalReAlloc MODIFY\n");
-       return (void *)handle;
-   }
-   oldsize = my_size((void *)handle);
-   newpointer = my_realloc((void *)handle,size);
-   dbgprintf("LocalReAlloc(%x %d(old %d), flags 0x%x) => 0x%x\n", handle,size,oldsize, flags,newpointer);
-
-  return newpointer;
-}
-
-void* WINAPI expLocalLock(void* z)
-{
-    dbgprintf("LocalLock(0x%x) => 0x%x\n", z, z);
-    return z;
-}
-
-void* WINAPI expGlobalAlloc(int flags, int size)
-{
-    void* z;
-    dbgprintf("GlobalAlloc(%d, flags 0x%X)\n", size, flags);
-    if(flags&GMEM_ZEROINIT)
-	z=my_mreq(size, 1);
-	//z=calloc(size, 1);
-    else
-	z=my_mreq(size, 0);
-	//z=malloc(size);
-    if(z==0)
-	printf("GlobalAlloc() failed\n");
-    dbgprintf("GlobalAlloc(%d, flags 0x%x) => 0x%x\n", size, flags, z);
-    return z;
-}
-void* WINAPI expGlobalLock(void* z)
-{
-    dbgprintf("GlobalLock(0x%x) => 0x%x\n", z, z);
-    return z;
-}
-int WINAPI expLoadStringA(long instance, long  id, void* buf, long size)
-{
-    int result=LoadStringA(instance, id, buf, size);
-//    if(buf)
-    dbgprintf("LoadStringA(instance 0x%x, id 0x%x, buffer 0x%x, size %d) => %d ( %s )\n",
-	instance, id, buf, size, result, buf);
-//    else
-//    dbgprintf("LoadStringA(instance 0x%x, id 0x%x, buffer 0x%x, size %d) => %d\n",
-//	instance, id, buf, size, result);
-    return result;
-}
-
-long WINAPI expMultiByteToWideChar(long v1, long v2, char* s1, long siz1, short* s2, int siz2)
-{
-#warning FIXME
-    int i;
-    int result;
-    if(s2==0)
-    	result=1;
-    else
-    {
-    if(siz1>siz2/2)siz1=siz2/2;
-    for(i=1; i<=siz1; i++)
-    {
-    	*s2=*s1;
-	if(!*s1)break;
-	s2++;
-	s1++;
-    }
-    result=i;
-    }
-    if(s1)
-	dbgprintf("MultiByteToWideChar(codepage %d, flags 0x%x, string 0x%x='%s',"
-		  "size %d, dest buffer 0x%x, dest size %d) => %d\n",
-		  v1, v2, s1, s1, siz1, s2, siz2, result);
-    else
-	dbgprintf("MultiByteToWideChar(codepage %d, flags 0x%x, string NULL,"
-		  "size %d, dest buffer 0x%x, dest size %d) =>\n",
-		  v1, v2, siz1, s2, siz2, result);
-    return result;
-}
-static void wch_print(const short* str)
-{
-    dbgprintf("  src: ");
-    while(*str)dbgprintf("%c", *str++);
-    dbgprintf("\n");
-}
-long WINAPI expWideCharToMultiByte(long v1, long v2, short* s1, long siz1, char* s2, int siz2, char* c3, int* siz3)
-{
-    int result;
-    dbgprintf("WideCharToMultiByte(codepage %d, flags 0x%x, src 0x%x, src size %d, "
-	"dest 0x%x, dest size %d, defch 0x%x, used_defch 0x%x)", v1, v2, s1, siz1, s2, siz2, c3, siz3);
-    result=WideCharToMultiByte(v1, v2, s1, siz1, s2, siz2, c3, siz3);
-    dbgprintf("=> %d\n", result);
-    //if(s1)wch_print(s1);
-    if(s2)dbgprintf("  dest: %s\n", s2);
-    return result;
-}
-long WINAPI expGetVersionExA(OSVERSIONINFOA* c)
-{
-    dbgprintf("GetVersionExA(0x%x) => 1\n");
-    c->dwOSVersionInfoSize=sizeof(*c);
-    c->dwMajorVersion=4;
-    c->dwMinorVersion=0;
-    c->dwBuildNumber=0x4000457;
-#if 0
-    // leave it here for testing win9x-only codecs
-    c->dwPlatformId=VER_PLATFORM_WIN32_WINDOWS;
-    strcpy(c->szCSDVersion, " B");
-#else
-    c->dwPlatformId=VER_PLATFORM_WIN32_NT; // let's not make DLL assume that it can read CR* registers
-    strcpy(c->szCSDVersion, "Service Pack 3");
-#endif
-    dbgprintf("  Major version: 4\n  Minor version: 0\n  Build number: 0x4000457\n"
-    "  Platform Id: VER_PLATFORM_WIN32_NT\n Version string: 'Service Pack 3'\n");
-    return 1;
-}
-HANDLE WINAPI expCreateSemaphoreA(char* v1, long init_count, long max_count, char* name)
-{
-    pthread_mutex_t *pm;
-    pthread_cond_t  *pc;
-    mutex_list* pp;
-/*
-    printf("CreateSemaphoreA(%p = %s)\n", name, (name ? name : "<null>"));
-    pp=mlist;
-    while(pp)
-    {
-	printf("%p => ", pp);
-	pp=pp->prev;
-    }
-    printf("0\n");
-*/
-    if(mlist!=NULL)
-    {
-	mutex_list* pp=mlist;
-	if(name!=NULL)
-	do
-	{
-	    if((strcmp(pp->name, name)==0) && (pp->type==1))
-	    {
-	        dbgprintf("CreateSemaphoreA(0x%x, init_count %d, max_count %d, name 0x%x='%s') => 0x%x",
-		    v1, init_count, max_count, name, name, mlist);
-		return (HANDLE)mlist;
-	    }
-	}while((pp=pp->prev) != NULL);
-    }
-    pm=mreq_private(sizeof(pthread_mutex_t), 0, AREATYPE_MUTEX);
-    pthread_mutex_init(pm, NULL);
-    pc=mreq_private(sizeof(pthread_cond_t), 0, AREATYPE_COND);
-    pthread_cond_init(pc, NULL);
-    if(mlist==NULL)
-    {
-	mlist=mreq_private(sizeof(mutex_list), 00, AREATYPE_EVENT);
-	mlist->next=mlist->prev=NULL;
-    }
-    else
-    {
-	mlist->next=mreq_private(sizeof(mutex_list), 00, AREATYPE_EVENT);
-	mlist->next->prev=mlist;
-	mlist->next->next=NULL;
-	mlist=mlist->next;
-//	printf("new semaphore %p\n", mlist);
-    }
-    mlist->type=1; /* Type Semaphore */
-    mlist->pm=pm;
-    mlist->pc=pc;
-    mlist->state=0;
-    mlist->reset=0;
-    mlist->semaphore=init_count;
-    if(name!=NULL)
-        strncpy(mlist->name, name, 64);
-    else
-	mlist->name[0]=0;
-    if(pm==NULL)
-	dbgprintf("ERROR::: CreateSemaphoreA failure\n");
-    if(name)
-	dbgprintf("CreateSemaphoreA(0x%x, init_count %d, max_count %d, name 0x%x='%s') => 0x%x",
-	v1, init_count, max_count, name, name, mlist);
-    else
-	dbgprintf("CreateSemaphoreA(0x%x, init_count %d, max_count %d, name 0) => 0x%x",
-	v1, init_count, max_count, mlist);
-    return (HANDLE)mlist;
-}
-
-long WINAPI expReleaseSemaphore(long hsem, long increment, long* prev_count)
-{
-// The state of a semaphore object is signaled when its count
-// is greater than zero and nonsignaled when its count is equal to zero
-// Each time a waiting thread is released because of the semaphore's signaled
-// state, the count of the semaphore is decreased by one.
-    mutex_list *ml = (mutex_list *)hsem;
-
-    pthread_mutex_lock(ml->pm);
-    if (prev_count != 0) *prev_count = ml->semaphore;
-    if (ml->semaphore == 0) pthread_cond_signal(ml->pc);
-    ml->semaphore += increment;
-    pthread_mutex_unlock(ml->pm);
-    dbgprintf("ReleaseSemaphore(semaphore 0x%x, increment %d, prev_count 0x%x) => 1\n",
-	hsem, increment, prev_count);
-    return 1;
-}
-
-
-long WINAPI expRegOpenKeyExA(long key, const char* subkey, long reserved, long access, int* newkey)
-{
-    long result=RegOpenKeyExA(key, subkey, reserved, access, newkey);
-    dbgprintf("RegOpenKeyExA(key 0x%x, subkey %s, reserved %d, access 0x%x, pnewkey 0x%x) => %d\n",
-	key, subkey, reserved, access, newkey, result);
-    if(newkey)dbgprintf("  New key: 0x%x\n", *newkey);
-    return result;
-}
-long WINAPI expRegCloseKey(long key)
-{
-    long result=RegCloseKey(key);
-    dbgprintf("RegCloseKey(0x%x) => %d\n", key, result);
-    return result;
-}
-long WINAPI expRegQueryValueExA(long key, const char* value, int* reserved, int* type, int* data, int* count)
-{
-    long result=RegQueryValueExA(key, value, reserved, type, data, count);
-    dbgprintf("RegQueryValueExA(key 0x%x, value %s, reserved 0x%x, data 0x%x, count 0x%x)"
-	" => 0x%x\n", key, value, reserved, data, count, result);
-    if(data && count)dbgprintf("  read %d bytes: '%s'\n", *count, data);
-    return result;
-}
-long WINAPI expRegCreateKeyExA(long key, const char* name, long reserved,
-							   void* classs, long options, long security,
-							   void* sec_attr, int* newkey, int* status)
-{
-    long result=RegCreateKeyExA(key, name, reserved, classs, options, security, sec_attr, newkey, status);
-    dbgprintf("RegCreateKeyExA(key 0x%x, name 0x%x='%s', reserved=0x%x,"
-	" 0x%x, 0x%x, 0x%x, newkey=0x%x, status=0x%x) => %d\n",
-	    key, name, name, reserved, classs, options, security, sec_attr, newkey, status, result);
-    if(!result && newkey) dbgprintf("  New key: 0x%x\n", *newkey);
-    if(!result && status) dbgprintf("  New key status: 0x%x\n", *status);
-    return result;
-}
-long WINAPI expRegSetValueExA(long key, const char* name, long v1, long v2, void* data, long size)
-{
-    long result=RegSetValueExA(key, name, v1, v2, data, size);
-    dbgprintf("RegSetValueExA(key 0x%x, name '%s', 0x%x, 0x%x, data 0x%x -> 0x%x '%s', size=%d) => %d",
-	key, name, v1, v2, data, *(int*)data, data, size, result);
-    return result;
-}
-
-long WINAPI expRegOpenKeyA (
-long hKey,
- LPCSTR lpSubKey,
- int* phkResult
-){
-    long result=RegOpenKeyExA(hKey, lpSubKey, 0, 0, phkResult);
-    dbgprintf("RegOpenKeyExA(key 0x%x, subkey '%s', 0x%x) => %d\n",
-	hKey, lpSubKey, phkResult, result);
-    if(!result && phkResult) dbgprintf("  New key: 0x%x\n", *phkResult);
-    return result;
-}
-
-DWORD WINAPI expRegEnumValueA(HKEY hkey, DWORD index, LPSTR value, LPDWORD val_count,
-			       LPDWORD reserved, LPDWORD type, LPBYTE data, LPDWORD count)
-{
-    return RegEnumValueA(hkey, index, value, val_count,
-			 reserved, type, data, count);
-}
-
-long WINAPI expQueryPerformanceCounter(long long* z)
-{
-    longcount(z);
-    dbgprintf("QueryPerformanceCounter(0x%x) => 1 ( %Ld )\n", z, *z);
-    return 1;
-}
-
-/*
- * return CPU clock (in kHz), using linux's /proc filesystem (/proc/cpuinfo)
- */
-static double linux_cpuinfo_freq()
-{
-    double freq=-1;
-    FILE *f;
-    char line[200];
-    char *s,*value;
-
-    f = fopen ("/proc/cpuinfo", "r");
-    if (f != NULL) {
-	while (fgets(line,sizeof(line),f)!=NULL) {
-	    /* NOTE: the ':' is the only character we can rely on */
-	    if (!(value = strchr(line,':')))
-		continue;
-	    /* terminate the valuename */
-	    *value++ = '\0';
-	    /* skip any leading spaces */
-	    while (*value==' ') value++;
-	    if ((s=strchr(value,'\n')))
-		*s='\0';
-
-	    if (!strncasecmp(line, "cpu MHz",strlen("cpu MHz"))
-		&& sscanf(value, "%lf", &freq) == 1) {
-		freq*=1000;
-		break;
-	    }
-	}
-	fclose(f);
-    }
-    return freq;
-}
-
-
-static double
-solaris_kstat_freq()
-{
-#if	defined(HAVE_LIBKSTAT) && defined(KSTAT_DATA_INT32)
-    /*
-     * try to extract the CPU speed from the solaris kernel's kstat data
-     */
-    kstat_ctl_t   *kc;
-    kstat_t       *ksp;
-    kstat_named_t *kdata;
-    int            mhz = 0;
-
-    kc = kstat_open();
-    if (kc != NULL)
-    {
-	ksp = kstat_lookup(kc, "cpu_info", 0, "cpu_info0");
-
-	/* kstat found and name/value pairs? */
-	if (ksp != NULL && ksp->ks_type == KSTAT_TYPE_NAMED)
-	{
-	    /* read the kstat data from the kernel */
-	    if (kstat_read(kc, ksp, NULL) != -1)
-	    {
-		/*
-		 * lookup desired "clock_MHz" entry, check the expected
-		 * data type
-		 */
-		kdata = (kstat_named_t *)kstat_data_lookup(ksp, "clock_MHz");
-		if (kdata != NULL && kdata->data_type == KSTAT_DATA_INT32)
-		    mhz = kdata->value.i32;
-	    }
-	}
-	kstat_close(kc);
-    }
-
-    if (mhz > 0)
-	return mhz * 1000.;
-#endif	/* HAVE_LIBKSTAT */
-    return -1;		// kstat stuff is not available, CPU freq is unknown
-}
-
-/*
- * Measure CPU freq using the pentium's time stamp counter register (TSC)
- */
-static double tsc_freq()
-{
-    static double ofreq=0.0;
-    int i;
-    int x,y;
-    i=time(NULL);
-    if (ofreq != 0.0) return ofreq;
-    while(i==time(NULL));
-    x=localcount();
-    i++;
-    while(i==time(NULL));
-    y=localcount();
-    ofreq = (double)(y-x)/1000.;
-    return ofreq;
-}
-
-static double CPU_Freq()
-{
-    double freq;
-
-    if ((freq = linux_cpuinfo_freq()) > 0)
-	return freq;
-
-    if ((freq = solaris_kstat_freq()) > 0)
-	return freq;
-
-    return tsc_freq();
-}
-
-long WINAPI expQueryPerformanceFrequency(long long* z)
-{
-    *z=(long long)CPU_Freq();
-    dbgprintf("QueryPerformanceFrequency(0x%x) => 1 ( %Ld )\n", z, *z);
-    return 1;
-}
-long WINAPI exptimeGetTime()
-{
-    struct timeval t;
-    long result;
-    gettimeofday(&t, 0);
-    result=1000*t.tv_sec+t.tv_usec/1000;
-    dbgprintf("timeGetTime() => %d\n", result);
-    return result;
-}
-void* WINAPI expLocalHandle(void* v)
-{
-    dbgprintf("LocalHandle(0x%x) => 0x%x\n", v, v);
-    return v;
-}
-
-void* WINAPI expGlobalHandle(void* v)
-{
-    dbgprintf("GlobalHandle(0x%x) => 0x%x\n", v, v);
-    return v;
-}
-int WINAPI expGlobalUnlock(void* v)
-{
-    dbgprintf("GlobalUnlock(0x%x) => 1\n", v);
-    return 1;
-}
-void* WINAPI expGlobalFree(void* v)
-{
-    dbgprintf("GlobalFree(0x%x) => 0\n", v);
-    my_release(v);
-    //free(v);
-    return 0;
-}
-
-void* WINAPI expGlobalReAlloc(void* v, int size, int flags)
-{
-    void* result=my_realloc(v, size);
-    //void* result=realloc(v, size);
-    dbgprintf("GlobalReAlloc(0x%x, size %d, flags 0x%x) => 0x%x\n", v,size,flags,result);
-    return result;
-}
-
-int WINAPI expLocalUnlock(void* v)
-{
-    dbgprintf("LocalUnlock(0x%x) => 1\n", v);
-    return 1;
-}
-  //
-void* WINAPI expLocalFree(void* v)
-{
-    dbgprintf("LocalFree(0x%x) => 0\n", v);
-    my_release(v);
-    return 0;
-}
-HRSRC WINAPI expFindResourceA(HMODULE module, char* name, char* type)
-{
-    HRSRC result=FindResourceA(module, name, type);
-    dbgprintf("FindResourceA(module 0x%x, name 0x%x, type 0x%x) => 0x%x\n", module, name, type, result);
-    return result;
-}
-extern HRSRC WINAPI LoadResource(HMODULE, HRSRC);
-HGLOBAL WINAPI expLoadResource(HMODULE module, HRSRC res)
-{
-    HGLOBAL result=LoadResource(module, res);
-    dbgprintf("LoadResource(module 0x%x, resource 0x%x) => 0x%x\n", module, res, result);
-    return result;
-}
-void* WINAPI expLockResource(long res)
-{
-    void* result=LockResource(res);
-    dbgprintf("LockResource(0x%x) => 0x%x\n", res, result);
-    return result;
-}
-int WINAPI expFreeResource(long res)
-{
-    int result=FreeResource(res);
-    dbgprintf("FreeResource(0x%x) => %d\n", res, result);
-    return result;
-}
-//bool fun(HANDLE)
-//!0 on success
-int WINAPI expCloseHandle(long v1)
-{
-    dbgprintf("CloseHandle(0x%x) => 1\n", v1);
-    return 1;
-}
-
-const char* WINAPI expGetCommandLineA()
-{
-    dbgprintf("GetCommandLineA() => \"c:\\aviplay.exe\"\n");
-    return "c:\\aviplay.exe";
-}
-static short envs[]={'p', 'a', 't', 'h', ' ', 'c', ':', '\\', 0, 0};
-LPWSTR WINAPI expGetEnvironmentStringsW()
-{
- dbgprintf("GetEnvironmentStringsW() => 0\n", envs);
- return 0;
-}
-void * WINAPI expRtlZeroMemory(void *p, size_t len)
-{
-    void* result=memset(p,0,len);
-    dbgprintf("RtlZeroMemory(0x%x, len %d) => 0x%x\n",p,len,result);
-    return result;
-}
-void * WINAPI expRtlMoveMemory(void *dst, void *src, size_t len)
-{
-    void* result=memmove(dst,src,len);
-    dbgprintf("RtlMoveMemory (dest 0x%x, src 0x%x, len %d) => 0x%x\n",dst,src,len,result);
-    return result;
-}
-
-void * WINAPI expRtlFillMemory(void *p, int ch, size_t len)
-{
-    void* result=memset(p,ch,len);
-    dbgprintf("RtlFillMemory(0x%x, char 0x%x, len %d) => 0x%x\n",p,ch,len,result);
-    return result;
-}
-int WINAPI expFreeEnvironmentStringsW(short* strings)
-{
-    dbgprintf("FreeEnvironmentStringsW(0x%x) => 1\n", strings);
-    return 1;
-}
-int WINAPI expFreeEnvironmentStringsA(char* strings)
-{
- dbgprintf("FreeEnvironmentStringsA(0x%x) => 1\n", strings);
- return 1;
-}
-static const char ch_envs[]=
-    "__MSVCRT_HEAP_SELECT=__GLOBAL_HEAP_SELECTED,1\r\n"
-    "PATH=C:\\;C:\\windows\\;C:\\windows\\system\r\n";
-LPCSTR WINAPI expGetEnvironmentStrings()
-{
-    dbgprintf("GetEnvironmentStrings() => 0x%x\n", ch_envs);
-    return (LPCSTR)ch_envs;
-// dbgprintf("GetEnvironmentStrings() => 0\n");
-// return 0;
-}
-
-int WINAPI expGetStartupInfoA(STARTUPINFOA *s)
-{
-    int i;
-    dbgprintf("GetStartupInfoA(0x%x) => 1\n");
-    memset(s, 0, sizeof(*s));
-    s->cb=sizeof(*s);
-// s->lpReserved="Reserved";
-// s->lpDesktop="Desktop";
-// s->lpTitle="Title";
-// s->dwX=s->dwY=0;
-// s->dwXSize=s->dwYSize=200;
- s->dwFlags=s->wShowWindow=1;
-// s->hStdInput=s->hStdOutput=s->hStdError=0x1234;
-    dbgprintf("  cb=%d\n", s->cb);
-    dbgprintf("  lpReserved='%s'\n", s->lpReserved);
-    dbgprintf("  lpDesktop='%s'\n", s->lpDesktop);
-    dbgprintf("  lpTitle='%s'\n", s->lpTitle);
-    dbgprintf("  dwX=%d dwY=%d dwXSize=%d dwYSize=%d\n",
-	s->dwX, s->dwY, s->dwXSize, s->dwYSize);
-    dbgprintf("  dwXCountChars=%d dwYCountChars=%d dwFillAttribute=%d\n",
-	s->dwXCountChars, s->dwYCountChars, s->dwFillAttribute);
-    dbgprintf("  dwFlags=0x%x wShowWindow=0x%x cbReserved2=0x%x\n",
-	s->dwFlags, s->wShowWindow, s->cbReserved2);
-    dbgprintf("  lpReserved2=0x%x hStdInput=0x%x hStdOutput=0x%x hStdError=0x%x\n",
-	s->lpReserved2, s->hStdInput, s->hStdOutput, s->hStdError);
-    return 1;
-}
-
-int WINAPI expGetStdHandle(int z)
-{
- dbgprintf("GetStdHandle(0x%x) => 0x%x\n", z+0x1234);
- return z+0x1234;
-}
-int WINAPI expGetFileType(int handle)
-{
- dbgprintf("GetFileType(0x%x) => 0x3 = pipe\n", handle);
- return 0x3;
-}
-int WINAPI expSetHandleCount(int count)
-{
-    dbgprintf("SetHandleCount(0x%x) => 1\n", count);
-    return 1;
-}
-int WINAPI expGetACP()
-{
-    dbgprintf("GetACP() => 0\n");
-    return 0;
-}
-extern WINE_MODREF *MODULE32_LookupHMODULE(HMODULE m);
-int WINAPI expGetModuleFileNameA(int module, char* s, int len)
-{
-    WINE_MODREF *mr;
-    int result;
-//    printf("File name of module %X requested\n", module);
-    if(s==0)
-	result=0;
-    else
-    if(len<35)
-    result=0;
-    else
-    {
-	result=1;
-	strcpy(s, "c:\\windows\\system\\");
-	mr=MODULE32_LookupHMODULE(module);
-	if(mr==0)//oops
-    	    strcat(s, "aviplay.dll");
-	else
-	if(strrchr(mr->filename, '/')==NULL)
-	    strcat(s, mr->filename);
-	else
-	    strcat(s, strrchr(mr->filename, '/')+1);
-    }
-    if(!s)
-    dbgprintf("GetModuleFileNameA(0x%x, 0x%x, %d) => %d\n",
-	module, s, len, result);
-    else
-    dbgprintf("GetModuleFileNameA(0x%x, 0x%x, %d) => %d ( '%s' )",
-	module, s, len, result, s);
-    return result;
-}
-
-int WINAPI expSetUnhandledExceptionFilter(void* filter)
-{
-    dbgprintf("SetUnhandledExceptionFilter(0x%x) => 1\n", filter);
-    return 1;//unsupported and probably won't ever be supported
-}
-
-int WINAPI expLoadLibraryA(char* name)
-{
-    int result = 0;
-    char* lastbc;
-    int i;
-    if (!name)
-	return -1;
-    // we skip to the last backslash
-    // this is effectively eliminating weird characters in
-    // the text output windows
-
-    lastbc = strrchr(name, '\\');
-    if (lastbc)
-    {
-        int i;
-        lastbc++;
-	for (i = 0; 1 ;i++)
-	{
-	    name[i] = *lastbc++;
-	    if (!name[i])
-		break;
-	}
-    }
-    if(strncmp(name, "c:\\windows\\", 11)==0) name += 11;
-    if(strncmp(name, ".\\", 2)==0) name += 2;
-
-    dbgprintf("Entering LoadLibraryA(%s)\n", name);
-    // PIMJ is loading  kernel32.dll
-    if (strcasecmp(name, "kernel32.dll") == 1)
-	return (int) LookupExternal(name, 0);
-
-    result=LoadLibraryA(name);
-    dbgprintf("Returned LoadLibraryA(0x%x='%s'), win32_def_path=%s => 0x%x\n", name, name, win32_def_path, result);
-
-    return result;
-}
-int WINAPI expFreeLibrary(int module)
-{
-    int result=FreeLibrary(module);
-    dbgprintf("FreeLibrary(0x%x) => %d\n", module, result);
-    return result;
-}
-void* WINAPI expGetProcAddress(HMODULE mod, char* name)
-{
-    void* result;
-    if(mod!=MODULE_HANDLE_kernel32)
-	result=GetProcAddress(mod, name);
-    else
-	result=LookupExternalByName("kernel32.dll", name);
-    dbgprintf("GetProcAddress(0x%x, '%s') => 0x%x\n", mod, name, result);
-    return result;
-}
-
-long WINAPI expCreateFileMappingA(int hFile, void* lpAttr,
-    long flProtect, long dwMaxHigh, long dwMaxLow, const char* name)
-{
-    long result=CreateFileMappingA(hFile, lpAttr, flProtect, dwMaxHigh, dwMaxLow, name);
-    if(!name)
-	dbgprintf("CreateFileMappingA(file 0x%x, lpAttr 0x%x,"
-		  "flProtect 0x%x, dwMaxHigh 0x%x, dwMaxLow 0x%x, name 0) => %d\n",
-		  hFile, lpAttr, flProtect, dwMaxHigh, dwMaxLow, result);
-    else
-	dbgprintf("CreateFileMappingA(file 0x%x, lpAttr 0x%x,"
-		  "flProtect 0x%x, dwMaxHigh 0x%x, dwMaxLow 0x%x, name 0x%x='%s') => %d\n",
-		  hFile, lpAttr, flProtect, dwMaxHigh, dwMaxLow, name, name, result);
-    return result;
-}
-
-long WINAPI expOpenFileMappingA(long hFile, long hz, const char* name)
-{
-    long result=OpenFileMappingA(hFile, hz, name);
-    if(!name)
-	dbgprintf("OpenFileMappingA(0x%x, 0x%x, 0) => %d\n",
-	    hFile, hz, result);
-    else
-	dbgprintf("OpenFileMappingA(0x%x, 0x%x, 0x%x='%s') => %d\n",
-	    hFile, hz, name, name, result);
-    return result;
-}
-
-void* WINAPI expMapViewOfFile(HANDLE file, DWORD mode, DWORD offHigh, DWORD offLow, DWORD size)
-{
-    dbgprintf("MapViewOfFile(0x%x, 0x%x, 0x%x, 0x%x, size %d) => 0x%x\n",
-	file,mode,offHigh,offLow,size,(char*)file+offLow);
-    return (char*)file+offLow;
-}
-
-void* WINAPI expUnmapViewOfFile(void* view)
-{
-    dbgprintf("UnmapViewOfFile(0x%x) => 0\n", view);
-    return 0;
-}
-
-void* WINAPI expSleep(int time)
-{
-//    extern int avm_usleep(int);
-    dbgprintf("Sleep(%d) => 0\n", time);
-//    avm_usleep(time);
-    usleep(time);
-    return 0;
-}
- // why does IV32 codec want to call this? I don't know ...
-void* WINAPI expCreateCompatibleDC(int hdc)
-{
-        dbgprintf("CreateCompatibleDC(%d) => 0x81\n", hdc);
-        return (void*)0x81;
-}
-
-int WINAPI expGetDeviceCaps(int hdc, int unk)
-{
-        dbgprintf("GetDeviceCaps(0x%x, %d) => 0\n", hdc, unk);
-        return 0;
-}
-
-WIN_BOOL WINAPI expDeleteDC(int hdc)
-{
-        dbgprintf("DeleteDC(0x%x) => 0\n", hdc);
-        return 0;
-}
-
-int expwsprintfA(char* string, char* format, ...)
-{
-    va_list va;
-    int result;
-    va_start(va, format);
-    result=vsprintf(string, format, va);
-    dbgprintf("wsprintfA(0x%x, '%s', ...) => %d\n", string, format, result);
-    va_end(va);
-    return result;
-}
-
-int WINAPI expGetPrivateProfileIntA(const char* appname, const char* keyname, int default_value, const char* filename)
-{
-    int size=255;
-    char buffer[256];
-    char* fullname;
-    int result;
-
-    buffer[255]=0;
-    if(!(appname && keyname && filename) )
-    {
-        dbgprintf("GetPrivateProfileIntA('%s', '%s', %d, '%s') => %d\n", appname, keyname, default_value, filename, default_value );
-	return default_value;
-    }
-    fullname=(char*)malloc(50+strlen(appname)+strlen(keyname)+strlen(filename));
-    strcpy(fullname, "Software\\IniFileMapping\\");
-    strcat(fullname, appname);
-    strcat(fullname, "\\");
-    strcat(fullname, keyname);
-    strcat(fullname, "\\");
-    strcat(fullname, filename);
-    result=RegQueryValueExA(HKEY_LOCAL_MACHINE, fullname, NULL, NULL, (int*)buffer, &size);
-    if((size>=0)&&(size<256))
-	buffer[size]=0;
-//    printf("GetPrivateProfileIntA(%s, %s, %s) -> %s\n", appname, keyname, filename, buffer);
-    free(fullname);
-    if(result)
-	result=default_value;
-    else
-	result=atoi(buffer);
-    dbgprintf("GetPrivateProfileIntA('%s', '%s', %d, '%s') => %d\n", appname, keyname, default_value, filename, result);
-    return result;
-}
-int WINAPI expGetProfileIntA(const char* appname, const char* keyname, int default_value)
-{
-    dbgprintf("GetProfileIntA -> ");
-//    dbgprintf("GetProfileIntA(%s, %s, %d)\n", appname, keyname, default_value);
-    return expGetPrivateProfileIntA(appname, keyname, default_value, "default");
-}
-
-int WINAPI expGetPrivateProfileStringA(const char* appname, const char* keyname,
-	const char* def_val, char* dest, unsigned int len, const char* filename)
-{
-    int result;
-    int size;
-    char* fullname;
-    dbgprintf("GetPrivateProfileStringA('%s', '%s', def_val '%s', 0x%x, 0x%x, '%s')", appname, keyname, def_val, dest, len, filename );
-    if(!(appname && keyname && filename) ) return 0;
-    fullname=(char*)malloc(50+strlen(appname)+strlen(keyname)+strlen(filename));
-    strcpy(fullname, "Software\\IniFileMapping\\");
-    strcat(fullname, appname);
-    strcat(fullname, "\\");
-    strcat(fullname, keyname);
-    strcat(fullname, "\\");
-    strcat(fullname, filename);
-    size=len;
-    result=RegQueryValueExA(HKEY_LOCAL_MACHINE, fullname, NULL, NULL, (int*)dest, &size);
-//    printf("GetPrivateProfileStringA(%s, %s, %s, %X, %X, %s)\n", appname, keyname, def_val, dest, len, filename );
-    free(fullname);
-    if(result)
-    {
-	strncpy(dest, def_val, size);
-	if (strlen(def_val)< size) size = strlen(def_val);
-    }
-    dbgprintf(" => %d ( '%s' )\n", size, dest);
-    return size;
-}
-int WINAPI expWritePrivateProfileStringA(const char* appname, const char* keyname,
-	const char* string, const char* filename)
-{
-    int size=256;
-    char* fullname;
-    dbgprintf("WritePrivateProfileStringA('%s', '%s', '%s', '%s')", appname, keyname, string, filename );
-    if(!(appname && keyname && filename) )
-    {
-	dbgprintf(" => -1\n");
-	return -1;
-    }
-    fullname=(char*)malloc(50+strlen(appname)+strlen(keyname)+strlen(filename));
-    strcpy(fullname, "Software\\IniFileMapping\\");
-    strcat(fullname, appname);
-    strcat(fullname, "\\");
-    strcat(fullname, keyname);
-    strcat(fullname, "\\");
-    strcat(fullname, filename);
-    RegSetValueExA(HKEY_LOCAL_MACHINE, fullname, 0, REG_SZ, (int*)string, strlen(string));
-//    printf("RegSetValueExA(%s,%d)\n", string, strlen(string));
-//    printf("WritePrivateProfileStringA(%s, %s, %s, %s)\n", appname, keyname, string, filename );
-    free(fullname);
-    dbgprintf(" => 0\n");
-    return 0;
-}
-int expsprintf(char* str, const char* format, ...)
-{
-    va_list args;
-    int r;
-    dbgprintf("sprintf(%s, %s)\n", str, format);
-    va_start(args, format);
-    r = vsprintf(str, format, args);
-    va_end(args);
-    return r;
-}
-int expsscanf(const char* str, const char* format, ...)
-{
-    va_list args;
-    int r;
-    dbgprintf("sscanf(%s, %s)\n", str, format);
-    va_start(args, format);
-    r = vsscanf(str, format, args);
-    va_end(args);
-    return r;
-}
-void* expfopen(const char* path, const char* mode)
-{
-    printf("fopen: \"%s\"  mode:%s\n", path, mode);
-    //return fopen(path, mode);
-    return fdopen(0, mode); // everything on screen
-}
-int expfprintf(void* stream, const char* format, ...)
-{
-    va_list args;
-    int r = 0;
-#if 1
-    va_start(args, format);
-    r = vfprintf((FILE*) stream, format, args);
-    va_end(args);
-#endif
-    return r;
-}
-
-int expprintf(const char* format, ...)
-{
-    va_list args;
-    int r;
-    va_start(args, format);
-    r = vprintf(format, args);
-    va_end(args);
-    return r;
-}
-
-void* expwcscpy(WCHAR* dst, const WCHAR* src)
-{
-    WCHAR* p = dst;
-    while ((*p++ = *src++))
-	;
-    return dst;
-}
-
-
-unsigned int _GetPrivateProfileIntA(const char* appname, const char* keyname, INT default_value, const char* filename)
-{
-    return expGetPrivateProfileIntA(appname, keyname, default_value, filename);
-}
-int _GetPrivateProfileStringA(const char* appname, const char* keyname,
-	const char* def_val, char* dest, unsigned int len, const char* filename)
-{
-    return expGetPrivateProfileStringA(appname, keyname, def_val, dest, len, filename);
-}
-int _WritePrivateProfileStringA(const char* appname, const char* keyname,
-	const char* string, const char* filename)
-{
-    return expWritePrivateProfileStringA(appname, keyname, string, filename);
-}
-
-
-
-int WINAPI expDefDriverProc(int _private, int id, int msg, int arg1, int arg2)
-{
-    dbgprintf("DefDriverProc(0x%x, 0x%x, 0x%x, 0x%x, 0x%x) => 0\n", _private, id, msg, arg1, arg2);
-    return 0;
-}
-
-int WINAPI expSizeofResource(int v1, int v2)
-{
-    int result=SizeofResource(v1, v2);
-    dbgprintf("SizeofResource(0x%x, 0x%x) => %d\n", v1, v2, result);
-    return result;
-}
-
-int WINAPI expGetLastError()
-{
-    int result=GetLastError();
-    dbgprintf("GetLastError() => 0x%x\n", result);
-    return result;
-}
-
-void WINAPI expSetLastError(int error)
-{
-    dbgprintf("SetLastError(0x%x)\n", error);
-    SetLastError(error);
-}
-
-char* expstrrchr(char* string, int value)
-{
-    char* result=strrchr(string, value);
-    if(result)
-	dbgprintf("strrchr(0x%x='%s', %d) => 0x%x='%s'", string, string, value, result, result);
-    else
-	dbgprintf("strrchr(0x%x='%s', %d) => 0", string, string, value);
-    return result;
-}
-
-char* expstrchr(char* string, int value)
-{
-    char* result=strchr(string, value);
-    if(result)
-	dbgprintf("strchr(0x%x='%s', %d) => 0x%x='%s'", string, string, value, result, result);
-    else
-	dbgprintf("strchr(0x%x='%s', %d) => 0", string, string, value);
-    return result;
-}
-int expstrlen(char* str)
-{
-    int result=strlen(str);
-    dbgprintf("strlen(0x%x='%s') => %d\n", str, str, result);
-    return result;
-}
-int expstrcpy(char* str1, const char* str2)
-{
-    int result= (int) strcpy(str1, str2);
-    dbgprintf("strcpy(0x%x, 0x%x='%s') => %d\n", str1, str2, str2, result);
-    return result;
-}
-int expstrcmp(const char* str1, const char* str2)
-{
-    int result=strcmp(str1, str2);
-    dbgprintf("strcmp(0x%x='%s', 0x%x='%s') => %d\n", str1, str1, str2, str2, result);
-    return result;
-}
-int expstrcat(char* str1, const char* str2)
-{
-    int result= (int) strcat(str1, str2);
-    dbgprintf("strcat(0x%x='%s', 0x%x='%s') => %d\n", str1, str1, str2, str2, result);
-    return result;
-}
-int expisalnum(int c)
-{
-    int result= (int) isalnum(c);
-    dbgprintf("isalnum(0x%x='%c' => %d\n", c, c, result);
-    return result;
-}
-int expmemmove(void* dest, void* src, int n)
-{
-    int result= (int) memmove(dest, src, n);
-    dbgprintf("memmove(0x%x, 0x%x, %d) => %d\n", dest, src, n, result);
-    return result;
-}
-int expmemcmp(void* dest, void* src, int n)
-{
-    int result=memcmp(dest, src, n);
-    dbgprintf("memcmp(0x%x, 0x%x, %d) => %d\n", dest, src, n, result);
-    return result;
-}
-void *expmemcpy(void* dest, void* src, int n)
-{
-    void *result=memcpy(dest, src, n);
-    dbgprintf("memcpy(0x%x, 0x%x, %d) => %p\n", dest, src, n, result);
-    return result;
-}
-time_t exptime(time_t* t)
-{
-    time_t result=time(t);
-    dbgprintf("time(0x%x) => %d\n", t, result);
-    return result;
-}
-
-int exprand(void)
-{
-    return rand();
-}
-
-double explog10(double x)
-{
-    return log10(x);
-}
-
-double expcos(double x)
-{
-    return cos(x);
-}
-
-double exppow(double x, double y)
-{
-    return pow(x, y);
-}
-
-void expsrand(int seed)
-{
-    srand(seed);
-}
-
-int exp_ftol(float f)
-{
-    return (int)(f+.5);
-}
-
-int WINAPI expStringFromGUID2(GUID* guid, char* str, int cbMax)
-{
-    int result=snprintf(str, cbMax, "%.8x-%.4x-%.4x-%.2x%.2x%.2x%.2x%.2x%.2x%.2x%.2x",
-			guid->f1, guid->f2, guid->f3,
-			(unsigned char)guid->f4[0], (unsigned char)guid->f4[1],
-			(unsigned char)guid->f4[2], (unsigned char)guid->f4[3],
-			(unsigned char)guid->f4[4], (unsigned char)guid->f4[5],
-			(unsigned char)guid->f4[6], (unsigned char)guid->f4[7]);
-    dbgprintf("StringFromGUID2(0x%x, 0x%x='%s', %d) => %d\n", guid, str, str, cbMax, result);
-    return result;
-}
-
-
-int WINAPI expGetFileVersionInfoSizeA(const char* name, int* lpHandle)
-{
-    dbgprintf("GetFileVersionInfoSizeA(0x%x='%s', 0x%X) => 0\n", name, name, lpHandle);
-    return 0;
-}
-
-int WINAPI expIsBadStringPtrW(const short* string, int nchars)
-{
-    int result;
-    if(string==0)result=1; else result=0;
-    dbgprintf("IsBadStringPtrW(0x%x, %d) => %d", string, nchars, result);
-    if(string)wch_print(string);
-    return result;
-}
-extern long WINAPI InterlockedExchangeAdd( long* dest, long incr )
-{
-    long ret;
-    __asm__ __volatile__( "lock; xaddl %0,(%1)"
-                          : "=r" (ret) : "r" (dest), "0" (incr) : "memory" );
-    return ret;
-}
-
-extern long WINAPI expInterlockedIncrement( long* dest )
-{
-    long result=InterlockedExchangeAdd( dest, 1 ) + 1;
-    dbgprintf("InterlockedIncrement(0x%x => %d) => %d\n", dest, *dest, result);
-    return result;
-}
-extern long WINAPI expInterlockedDecrement( long* dest )
-{
-    long result=InterlockedExchangeAdd( dest, -1 ) - 1;
-    dbgprintf("InterlockedDecrement(0x%x => %d) => %d\n", dest, *dest, result);
-    return result;
-}
-
-extern void WINAPI expOutputDebugStringA( const char* string )
-{
-    dbgprintf("OutputDebugStringA(0x%x='%s')\n", string);
-    fprintf(stderr, "DEBUG: %s\n", string);
-}
-
-int WINAPI expGetDC(int hwnd)
-{
-    dbgprintf("GetDC(0x%x) => 0\n", hwnd);
-    return 0;
-}
-
-int WINAPI expGetDesktopWindow()
-{
-    dbgprintf("GetDesktopWindow() => 0\n");
-    return 0;
-}
-
-int WINAPI expReleaseDC(int hwnd, int hdc)
-{
-    dbgprintf("ReleaseDC(0x%x, 0x%x) => 0\n", hwnd, hdc);
-    return 0;
-}
-static int cursor[100];
-
-int WINAPI expLoadCursorA(int handle,LPCSTR name)
-{
-  dbgprintf("LoadCursorA(%d, 0x%x='%s') => 0x%x\n", handle, name, (int)&cursor[0]);
-  return (int)&cursor[0];
-}
-int WINAPI expSetCursor(void *cursor)
-{
-    dbgprintf("SetCursor(0x%x) => 0x%x\n", cursor, cursor);
-    return (int)cursor;
-}
-int WINAPI expGetCursorPos(void *cursor)
-{
-    dbgprintf("GetCursorPos(0x%x) => 0x%x\n", cursor, cursor);
-    return 1;
-}
-int WINAPI expRegisterWindowMessageA(char *message)
-{
-    dbgprintf("RegisterWindowMessageA(%s)\n", message);
-    return 1;
-}
-int WINAPI expGetProcessVersion(int pid)
-{
-    dbgprintf("GetProcessVersion(%d)\n", pid);
-    return 1;
-}
-int WINAPI expGetCurrentThread(void)
-{
-    dbgprintf("GetCurrentThread()\n");
-    return 1;
-}
-int WINAPI expGetOEMCP(void)
-{
-    dbgprintf("GetOEMCP()\n");
-    return 1;
-}
-int WINAPI expGetCPInfo(int cp,void *info)
-{
-    dbgprintf("GetCPInfo()\n");
-    return 0;
-}
-int WINAPI expGetSystemMetrics(int index)
-{
-    dbgprintf("GetSystemMetrics(%d)\n", index);
-    return 1;
-}
-int WINAPI expGetSysColor(int index)
-{
-    dbgprintf("GetSysColor(%d)\n", index);
-    return 1;
-}
-int WINAPI expGetSysColorBrush(int index)
-{
-    dbgprintf("GetSysColorBrush(%d)\n", index);
-    return 1;
-}
-
-
-
-int WINAPI expGetSystemPaletteEntries(int hdc, int iStartIndex, int nEntries, void* lppe)
-{
-    dbgprintf("GetSystemPaletteEntries(0x%x, 0x%x, 0x%x, 0x%x) => 0\n",
-	hdc, iStartIndex, nEntries, lppe);
-    return 0;
-}
-
-/*
-typedef struct _TIME_ZONE_INFORMATION {
-    long Bias;
-    char StandardName[32];
-    SYSTEMTIME StandardDate;
-    long StandardBias;
-    char DaylightName[32];
-    SYSTEMTIME DaylightDate;
-    long DaylightBias;
-} TIME_ZONE_INFORMATION, *LPTIME_ZONE_INFORMATION;
-*/
-
-int WINAPI expGetTimeZoneInformation(LPTIME_ZONE_INFORMATION lpTimeZoneInformation)
-{
-    const short name[]={'C', 'e', 'n', 't', 'r', 'a', 'l', ' ', 'S', 't', 'a',
-    'n', 'd', 'a', 'r', 'd', ' ', 'T', 'i', 'm', 'e', 0};
-    const short pname[]={'C', 'e', 'n', 't', 'r', 'a', 'l', ' ', 'D', 'a', 'y',
-    'l', 'i', 'g', 'h', 't', ' ', 'T', 'i', 'm', 'e', 0};
-    dbgprintf("GetTimeZoneInformation(0x%x) => TIME_ZONE_ID_STANDARD\n");
-    memset(lpTimeZoneInformation, 0, sizeof(TIME_ZONE_INFORMATION));
-    lpTimeZoneInformation->Bias=360;//GMT-6
-    memcpy(lpTimeZoneInformation->StandardName, name, sizeof(name));
-    lpTimeZoneInformation->StandardDate.wMonth=10;
-    lpTimeZoneInformation->StandardDate.wDay=5;
-    lpTimeZoneInformation->StandardDate.wHour=2;
-    lpTimeZoneInformation->StandardBias=0;
-    memcpy(lpTimeZoneInformation->DaylightName, pname, sizeof(pname));
-    lpTimeZoneInformation->DaylightDate.wMonth=4;
-    lpTimeZoneInformation->DaylightDate.wDay=1;
-    lpTimeZoneInformation->DaylightDate.wHour=2;
-    lpTimeZoneInformation->DaylightBias=-60;
-    return TIME_ZONE_ID_STANDARD;
-}
-
-void WINAPI expGetLocalTime(SYSTEMTIME* systime)
-{
-    time_t local_time;
-    struct tm *local_tm;
-    struct timeval tv;
-
-    dbgprintf("GetLocalTime(0x%x)\n");
-    gettimeofday(&tv, NULL);
-    local_time=tv.tv_sec;
-    local_tm=localtime(&local_time);
-
-    systime->wYear = local_tm->tm_year + 1900;
-    systime->wMonth = local_tm->tm_mon + 1;
-    systime->wDayOfWeek = local_tm->tm_wday;
-    systime->wDay = local_tm->tm_mday;
-    systime->wHour = local_tm->tm_hour;
-    systime->wMinute = local_tm->tm_min;
-    systime->wSecond = local_tm->tm_sec;
-    systime->wMilliseconds = (tv.tv_usec / 1000) % 1000;
-    dbgprintf("  Year: %d\n  Month: %d\n  Day of week: %d\n"
-    "  Day: %d\n  Hour: %d\n  Minute: %d\n  Second:  %d\n"
-    "  Milliseconds: %d\n",
-    systime->wYear, systime->wMonth, systime->wDayOfWeek, systime->wDay,
-    systime->wHour, systime->wMinute, systime->wSecond, systime->wMilliseconds);
-}
-
-int WINAPI expGetSystemTime(SYSTEMTIME* systime)
-{
-    time_t local_time;
-    struct tm *local_tm;
-    struct timeval tv;
-
-    dbgprintf("GetSystemTime(0x%x)\n", systime);
-    gettimeofday(&tv, NULL);
-    local_time=tv.tv_sec;
-    local_tm=gmtime(&local_time);
-
-    systime->wYear = local_tm->tm_year + 1900;
-    systime->wMonth = local_tm->tm_mon + 1;
-    systime->wDayOfWeek = local_tm->tm_wday;
-    systime->wDay = local_tm->tm_mday;
-    systime->wHour = local_tm->tm_hour;
-    systime->wMinute = local_tm->tm_min;
-    systime->wSecond = local_tm->tm_sec;
-    systime->wMilliseconds = (tv.tv_usec / 1000) % 1000;
-    dbgprintf("  Year: %d\n  Month: %d\n  Day of week: %d\n"
-    "  Day: %d\n  Hour: %d\n  Minute: %d\n  Second:  %d\n"
-    "  Milliseconds: %d\n",
-    systime->wYear, systime->wMonth, systime->wDayOfWeek, systime->wDay,
-    systime->wHour, systime->wMinute, systime->wSecond, systime->wMilliseconds);
-    return 0;
-}
-
-int WINAPI expGetEnvironmentVariableA(const char* name, char* field, int size)
-{
-    char *p;
-//    printf("%s %x %x\n", name, field, size);
-    if(field)field[0]=0;
-/*
-    p = getenv(name);
-    if (p) strncpy(field,p,size);
-*/
-    if (strcmp(name,"__MSVCRT_HEAP_SELECT")==0)
-       strcpy(field,"__GLOBAL_HEAP_SELECTED,1");
-    dbgprintf("GetEnvironmentVariableA(0x%x='%s', 0x%x, %d) => %d\n", name, name, field, size, strlen(field));
-    return strlen(field);
-}
-
-void* WINAPI expCoTaskMemAlloc(ULONG cb)
-{
-    return my_mreq(cb, 0);
-}
-void WINAPI expCoTaskMemFree(void* cb)
-{
-    my_release(cb);
-}
-
-void* CoTaskMemAlloc(ULONG cb){return expCoTaskMemAlloc(cb);}
-void CoTaskMemFree(void* cb){expCoTaskMemFree(cb);}
-
-struct COM_OBJECT_INFO
-{
-    GUID clsid;
-    long (*GetClassObject) (GUID* clsid, GUID* iid, void** ppv);
-};
-
-static struct COM_OBJECT_INFO* com_object_table=0;
-static int com_object_size=0;
-int RegisterComClass(GUID* clsid, GETCLASSOBJECT gcs)
-{
-    if(!clsid || !gcs)
-	return -1;
-    com_object_table=realloc(com_object_table, sizeof(struct COM_OBJECT_INFO)*(++com_object_size));
-    com_object_table[com_object_size-1].clsid=*clsid;
-    com_object_table[com_object_size-1].GetClassObject=gcs;
-    return 0;
-}
-
-int UnregisterComClass(GUID* clsid, GETCLASSOBJECT gcs)
-{
-    int found = 0;
-    int i = 0;
-    if(!clsid || !gcs)
-	return -1;
-
-    if (com_object_table == 0)
-	printf("Warning: UnregisterComClass() called without any registered class\n");
-    while (i < com_object_size)
-    {
-	if (found && i > 0)
-	{
-	    memcpy(&com_object_table[i - 1].clsid,
-		   &com_object_table[i].clsid, sizeof(GUID));
-	    com_object_table[i - 1].GetClassObject =
-		com_object_table[i].GetClassObject;
-	}
-	else if (memcmp(&com_object_table[i].clsid, clsid, sizeof(GUID)) == 0
-		 && com_object_table[i].GetClassObject == gcs)
-	{
-            found++;
-	}
-	i++;
-    }
-    if (found)
-    {
-	if (--com_object_size == 0)
-	{
-	    free(com_object_table);
-            com_object_table = 0;
-	}
-    }
-    return 0;
-}
-
-
-GUID IID_IUnknown={0x00000000, 0x0000, 0x0000,
-    {0xc0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x46}};
-GUID IID_IClassFactory={0x00000001, 0x0000, 0x0000,
-    {0xc0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x46}};
-
+/***********************************************************

+

+	Win32 emulation code. Functions that emulate

+	responses from corresponding Win32 API calls.

+         Since we are not going to be able to load

+       virtually any DLL, we can only implement this

+      much, adding needed functions with each new codec.

+

+      Basic principle of implementation: it's not good

+      for DLL to know too much about its environment.

+

+************************************************************/

+

+#include "config.h"

+

+#include "winbase.h"

+#include "winreg.h"

+#include "winnt.h"

+#include "winerror.h"

+#include "debugtools.h"

+#include "module.h"

+

+#include <stdio.h>

+#include "win32.h"

+

+#include "registry.h"

+#include "loader.h"

+#include "com.h"

+

+#include <stdlib.h>

+#include <assert.h>

+#include <stdarg.h>

+#include <ctype.h>

+#include <pthread.h>

+#include <errno.h>

+#ifdef HAVE_MALLOC_H

+#include <malloc.h>

+#endif

+#include <time.h>

+#include <math.h>

+#include <unistd.h>

+#include <fcntl.h>

+#include <sys/types.h>

+#include <sys/time.h>

+#include <sys/timeb.h>

+#ifdef	HAVE_KSTAT

+#include <kstat.h>

+#endif

+

+int vsscanf( const char *str, const char *format, va_list ap);

+

+extern char* win32_def_path;

+

+static void do_cpuid(unsigned int ax, unsigned int *regs)

+{

+	__asm__ __volatile__(

+	"pushl %%ebx; pushl %%ecx; pushl %%edx;"

+	".byte  0x0f, 0xa2;"

+	"movl   %%eax, (%2);"

+	"movl   %%ebx, 4(%2);"

+	"movl   %%ecx, 8(%2);"

+	"movl   %%edx, 12(%2);"

+	"popl %%edx; popl %%ecx; popl %%ebx;"

+	: "=a" (ax)

+	:  "0" (ax), "S" (regs)

+	);

+}

+static unsigned int c_localcount_tsc()

+{

+    int a;

+    __asm__ __volatile__("rdtsc\n\t"

+    :"=a"(a)

+    :

+    :"edx");

+    return a;

+}

+static void c_longcount_tsc(long long* z)

+{

+    __asm__ __volatile__(

+    "pushl %%ebx\n\t"

+    "movl %%eax, %%ebx\n\t"

+    "rdtsc\n\t"

+    "movl %%eax, 0(%%ebx)\n\t"

+    "movl %%edx, 4(%%ebx)\n\t"

+    "popl %%ebx\n\t"

+    ::"a"(z));

+}

+static unsigned int c_localcount_notsc()

+{

+    struct timeval tv;

+    unsigned limit=~0;

+    limit/=1000000;

+    gettimeofday(&tv, 0);

+    return limit*tv.tv_usec;

+}

+static void c_longcount_notsc(long long* z)

+{

+    struct timeval tv;

+    unsigned long long result;

+    unsigned limit=~0;

+    if(!z)return;

+    limit/=1000000;

+    gettimeofday(&tv, 0);

+    result=tv.tv_sec;

+    result<<=32;

+    result+=limit*tv.tv_usec;

+    *z=result;

+}

+static unsigned int localcount_stub(void);

+static void longcount_stub(long long*);

+static unsigned int (*localcount)()=localcount_stub;

+static void (*longcount)(long long*)=longcount_stub;

+

+static pthread_mutex_t memmut;

+

+static unsigned int localcount_stub(void)

+{

+    unsigned int regs[4];

+    do_cpuid(1, regs);

+    if ((regs[3] & 0x00000010) != 0)

+    {

+	localcount=c_localcount_tsc;

+	longcount=c_longcount_tsc;

+    }

+    else

+    {

+    	localcount=c_localcount_notsc;

+	longcount=c_longcount_notsc;

+    }

+    return localcount();

+}

+static void longcount_stub(long long* z)

+{

+    unsigned int regs[4];

+    do_cpuid(1, regs);

+    if ((regs[3] & 0x00000010) != 0)

+    {

+	localcount=c_localcount_tsc;

+	longcount=c_longcount_tsc;

+    }

+    else

+    {

+    	localcount=c_localcount_notsc;

+	longcount=c_longcount_notsc;

+    }

+    longcount(z);

+}

+

+int LOADER_DEBUG=1; // active only if compiled with -DDETAILED_OUT

+static inline void dbgprintf(char* fmt, ...)

+{

+#ifdef DETAILED_OUT

+    if(LOADER_DEBUG)

+    {

+	FILE* f;

+	va_list va;

+        va_start(va, fmt);

+	f=fopen("./log", "a");

+        vprintf(fmt, va);

+    	if(f)

+	{

+	    vfprintf(f, fmt, va);

+	    fsync(fileno(f));

+    	    fclose(f);

+	}

+	va_end(va);

+    }

+#endif

+}

+char export_names[500][30]={

+"name1",

+//"name2",

+//"name3"

+};

+//#define min(x,y) ((x)<(y)?(x):(y))

+

+void destroy_event(void* event);

+

+static unsigned char* heap=NULL;

+static int heap_counter=0;

+static void test_heap(void)

+{

+    int offset=0;

+    if(heap==0)

+	return;

+    while(offset<heap_counter)

+    {

+	if(*(int*)(heap+offset)!=0x433476)

+	{

+	    printf("Heap corruption at address %d\n", offset);

+	    return;

+	}

+	offset+=8+*(int*)(heap+offset+4);

+    }

+    for(;offset<min(offset+1000, 20000000); offset++)

+	if(heap[offset]!=0xCC)

+	    {

+		printf("Free heap corruption at address %d\n", offset);

+	}

+}

+#undef MEMORY_DEBUG

+

+#ifdef MEMORY_DEBUG

+

+void* my_mreq(int size, int to_zero)

+{

+    static int test=0;

+    test++;

+    if(test%10==0)printf("Memory: %d bytes allocated\n", heap_counter);

+//    test_heap();

+    if(heap==NULL)

+    {

+	heap=malloc(20000000);

+	memset(heap, 0xCC,20000000);

+    }

+    if(heap==0)

+    {

+	printf("No enough memory\n");

+	return 0;

+    }

+    if(heap_counter+size>20000000)

+    {

+	printf("No enough memory\n");

+	return 0;

+    }

+    *(int*)(heap+heap_counter)=0x433476;

+    heap_counter+=4;

+    *(int*)(heap+heap_counter)=size;

+    heap_counter+=4;

+    printf("Allocated %d bytes of memory: sys %d, user %d-%d\n", size, heap_counter-8, heap_counter, heap_counter+size);

+    if(to_zero)

+    	memset(heap+heap_counter, 0, size);

+    else

+	memset(heap+heap_counter, 0xcc, size);  // make crash reproducable

+    heap_counter+=size;

+    return heap+heap_counter-size;

+}

+int my_release(char* memory)

+{

+//    test_heap();

+    if(memory==NULL)

+    {

+	printf("ERROR: free(0)\n");

+	return 0;

+    }

+    if(*(int*)(memory-8)!=0x433476)

+    {

+	printf("MEMORY CORRUPTION !!!!!!!!!!!!!!!!!!!\n");

+	return 0;

+    }

+    printf("Freed %d bytes of memory\n", *(int*)(memory-4));

+//    memset(memory-8, *(int*)(memory-4), 0xCC);

+    return 0;

+}

+

+#else

+#define GARBAGE

+typedef struct alloc_header_t alloc_header;

+struct alloc_header_t

+{

+// let's keep allocated data 16 byte aligned

+    alloc_header* prev;

+    alloc_header* next;

+    long deadbeef;

+    long size;

+    long type;

+    long reserved1;

+    long reserved2;

+    long reserved3;

+};

+

+#ifdef GARBAGE

+static alloc_header* last_alloc = NULL;

+static int alccnt = 0;

+#endif

+

+#define AREATYPE_CLIENT 0

+#define AREATYPE_EVENT 1

+#define AREATYPE_MUTEX 2

+#define AREATYPE_COND 3

+

+void* mreq_private(int size, int to_zero, int type);

+void* mreq_private(int size, int to_zero, int type)

+{

+    alloc_header* header;

+    if (to_zero)

+	header=calloc(size + sizeof(alloc_header), 1);

+    else

+	header=malloc(size + sizeof(alloc_header));

+#ifdef GARBAGE

+    if (!last_alloc)

+    {

+	pthread_mutex_init(&memmut, NULL);

+	pthread_mutex_lock(&memmut);

+    }

+    else

+    {

+        pthread_mutex_lock(&memmut);

+	last_alloc->next = header;  /* set next */

+    }

+

+    header->prev = last_alloc;

+    header->next = 0;

+    last_alloc = header;

+    alccnt++;

+    pthread_mutex_unlock(&memmut);

+#endif

+    header->deadbeef = 0xdeadbeef;

+    header->size = size;

+    header->type = type;

+

+    //if (alccnt < 400) printf("MY_REQ: %p\t%d     (%d)\n",  answer, size, alccnt);

+    return header + 1;

+}

+

+void* my_mreq(int size, int to_zero)

+{

+    return mreq_private(size, to_zero, AREATYPE_CLIENT);

+}

+

+

+int my_release(void* memory)

+{

+    alloc_header* header = (alloc_header*) memory - 1;

+#ifdef GARBAGE

+    alloc_header* prevmem;

+    alloc_header* nextmem;

+    if (memory == 0)

+	return 0;

+

+    pthread_mutex_lock(&memmut);

+

+    if (header->deadbeef != 0xdeadbeef)

+    {

+	printf("FATAL releasing corrupted memory!\n");

+	return 0;

+    }

+

+    switch(header->type)

+    {

+    case AREATYPE_EVENT:

+	destroy_event(memory);

+	break;

+    case AREATYPE_COND:

+	pthread_cond_destroy((pthread_cond_t*)memory);

+	break;

+    case AREATYPE_MUTEX:

+	pthread_mutex_destroy((pthread_mutex_t*)memory);

+	break;

+    }

+    	

+    prevmem = header->prev;

+    nextmem = header->next;

+

+    if (prevmem)

+	prevmem->next = nextmem;

+    if (nextmem)

+	nextmem->prev = prevmem;

+

+    if (header == last_alloc)

+	last_alloc = prevmem;

+

+    alccnt--;

+

+    if (last_alloc)

+	pthread_mutex_unlock(&memmut);

+    else

+	pthread_mutex_destroy(&memmut);

+

+    //if (alccnt < 400) printf("MY_RELEASE: %p\t%ld    (%d)\n", mem, mem[3], alccnt);

+#else

+    if (memory == 0)

+	return 0;

+#endif

+    free(header);

+    return 0;

+}

+#endif

+

+static inline int my_size(void* memory)

+{

+    return ((alloc_header*)memory)[-1].size;

+}

+

+void* my_realloc(void* memory, int size)

+{

+    void *ans = memory;

+    int osize = my_size(memory);

+    if (memory == NULL)

+	return my_mreq(size, 0);

+    if (osize < size)

+    {

+	ans = my_mreq(size, 0);

+	memcpy(ans, memory, osize);

+	my_release(memory);

+    }

+    return ans;

+}

+

+extern int unk_exp1;

+char extcode[20000];// place for 200 unresolved exports

+int pos=0;

+

+int WINAPI ext_unknown()

+{

+    printf("Unknown func called\n");

+    return 0;

+}

+int WINAPI expIsBadWritePtr(void* ptr, unsigned int count)

+{

+    int result;

+    if(count==0)

+	result=0;

+    else

+    if(ptr==0)

+        result=1;

+    else

+	result=0;

+    dbgprintf("IsBadWritePtr(0x%x, 0x%x) => %d\n", ptr, count, result);

+    return result;

+}

+int WINAPI expIsBadReadPtr(void* ptr, unsigned int count)

+{

+    int result;

+    if(count==0)

+	result=0;

+    else

+    if(ptr==0)

+        result=1;

+    else

+	result=0;

+    dbgprintf("IsBadReadPtr(0x%x, 0x%x) => %d\n", ptr, count, result);

+    return result;

+}

+void* CDECL expmalloc(int size)

+{

+//printf("malloc");

+//    return malloc(size);

+    void* result=my_mreq(size,0);

+    dbgprintf("malloc(0x%x) => 0x%x\n", size,result);

+    if(result==0)

+	printf("WARNING: malloc() failed\n");

+    return result;

+}

+void CDECL expfree(void* mem)

+{

+//    return free(mem);

+    dbgprintf("free(0x%x)\n", mem);

+    my_release(mem);

+}

+void* CDECL expnew(int size)

+{

+//    printf("NEW:: Call from address %08x\n STACK DUMP:\n", *(-1+(int*)&size));

+//    printf("%08x %08x %08x %08x\n",

+//    size, *(1+(int*)&size),

+    //    *(2+(int*)&size),*(3+(int*)&size));

+    void* result = 0;

+    assert(size >= 0);

+

+    result=my_mreq(size,0);

+    dbgprintf("new(0x%x) => 0x%x\n", size, result);

+    if (result==0)

+	printf("WARNING: new() failed\n");

+    return result;

+

+}

+int CDECL expdelete(void* memory)

+{

+    dbgprintf("delete(0x%x)\n", memory);

+    my_release(memory);

+    return 0;

+}

+int WINAPI expDisableThreadLibraryCalls(int module)

+{

+    dbgprintf("DisableThreadLibraryCalls(0x%x) => 0\n", module);

+    return 0;

+}

+int CDECL exp_initterm(int v1, int v2)

+{

+    dbgprintf("_initterm(0x%x, 0x%x) => 0\n", v1, v2);

+    return 0;

+}

+

+HMODULE WINAPI expGetDriverModuleHandle(DRVR* pdrv)

+{

+    HMODULE result;

+    if (pdrv==NULL)

+	result=0;

+    else

+        result=pdrv->hDriverModule;

+    dbgprintf("GetDriverModuleHandle(%p) => %p\n", pdrv, result);

+    return result;

+}

+

+#define	MODULE_HANDLE_kernel32	((HMODULE)0x120)

+

+HMODULE WINAPI expGetModuleHandleA(const char* name)

+{

+	WINE_MODREF* wm;

+	HMODULE result;

+	if(!name)

+	    result=0;

+	else

+	{

+    	    wm=MODULE_FindModule(name);

+		if(wm==0)result=0;

+	    else

+    		result=(HMODULE)(wm->module);

+	}

+	if(!result)

+	{

+	    if(strcasecmp(name, "kernel32")==0)

+		result=MODULE_HANDLE_kernel32;

+	}

+         dbgprintf("GetModuleHandleA('%s') => 0x%x\n", name, result);

+	return result;

+}

+

+struct th_list_t;

+typedef struct th_list_t{

+int id;

+void* thread;

+struct th_list_t* next;

+struct th_list_t* prev;

+}th_list;

+

+static th_list* list=NULL;

+

+

+

+void* WINAPI expCreateThread(void* pSecAttr, long dwStackSize, void* lpStartAddress,

+	void* lpParameter, long dwFlags, long* dwThreadId)

+{

+    pthread_t *pth;

+//    printf("CreateThread:");

+    pth=my_mreq(sizeof(pthread_t), 0);

+    pthread_create(pth, NULL, (void*(*)(void*))lpStartAddress, lpParameter);

+    if(dwFlags)

+	printf( "WARNING: CreateThread flags not supported\n");

+    if(dwThreadId)

+	*dwThreadId=(long)pth;

+    if(list==NULL)

+    {

+	list=my_mreq(sizeof(th_list), 1);

+	list->next=list->prev=NULL;

+    }

+    else

+    {

+	list->next=my_mreq(sizeof(th_list), 0);

+	list->next->prev=list;

+	list->next->next=NULL;

+	list=list->next;

+    }

+    list->thread=pth;

+    dbgprintf("CreateThread(0x%x, 0x%x, 0x%x, 0x%x, 0x%x, 0x%x) => 0x%x\n",

+	pSecAttr, dwStackSize, lpStartAddress, lpParameter, dwFlags, dwThreadId, pth);

+    return pth;

+}

+

+struct mutex_list_t;

+

+struct mutex_list_t

+{

+    char type;

+    pthread_mutex_t *pm;

+    pthread_cond_t  *pc;

+    char state;

+    char reset;

+    char name[128];

+    int  semaphore;

+    struct mutex_list_t* next;

+    struct mutex_list_t* prev;

+};

+typedef struct mutex_list_t mutex_list;

+static mutex_list* mlist=NULL;

+

+void destroy_event(void* event)

+{

+    mutex_list* pp=mlist;

+//    printf("garbage collector: destroy_event(%x)\n", event);

+    while(pp)

+    {

+	if(pp==(mutex_list*)event)

+	{

+	    if(pp->next)

+		pp->next->prev=pp->prev;

+	    if(pp->prev)

+		pp->prev->next=pp->next;

+	    if(mlist==(mutex_list*)event)

+		mlist=mlist->prev;

+/*

+	    pp=mlist;

+	    while(pp)

+	    {

+		printf("%x => ", pp);

+		pp=pp->prev;

+	    }

+	    printf("0\n");    

+*/

+	    return;

+	}

+	pp=pp->prev;

+    }

+}

+

+void* WINAPI expCreateEventA(void* pSecAttr, char bManualReset,

+    char bInitialState, const char* name)

+{

+    pthread_mutex_t *pm;

+    pthread_cond_t  *pc;

+/*

+    mutex_list* pp;

+    pp=mlist;

+    while(pp)

+    {

+	printf("%x => ", pp);

+	pp=pp->prev;

+    }

+    printf("0\n");

+*/

+    if(mlist!=NULL)

+    {

+	mutex_list* pp=mlist;

+	if(name!=NULL)

+	do

+	{

+	    if((strcmp(pp->name, name)==0) && (pp->type==0))

+	    {

+		dbgprintf("CreateEventA(0x%x, 0x%x, 0x%x, 0x%x='%s') => 0x%x\n",

+		    pSecAttr, bManualReset, bInitialState, name, name, pp->pm);

+		return pp->pm;

+	    }

+	}while((pp=pp->prev) != NULL);

+    }

+    pm=mreq_private(sizeof(pthread_mutex_t), 0, AREATYPE_MUTEX);

+    pthread_mutex_init(pm, NULL);

+    pc=mreq_private(sizeof(pthread_cond_t), 0, AREATYPE_COND);

+    pthread_cond_init(pc, NULL);

+    if(mlist==NULL)

+    {

+	mlist=mreq_private(sizeof(mutex_list), 00, AREATYPE_EVENT);

+	mlist->next=mlist->prev=NULL;

+    }

+    else

+    {

+	mlist->next=mreq_private(sizeof(mutex_list), 00, AREATYPE_EVENT);

+	mlist->next->prev=mlist;

+	mlist->next->next=NULL;

+	mlist=mlist->next;

+    }

+    mlist->type=0; /* Type Event */

+    mlist->pm=pm;

+    mlist->pc=pc;

+    mlist->state=bInitialState;

+    mlist->reset=bManualReset;

+    if(name)

+        strncpy(mlist->name, name, 127);

+    else

+	mlist->name[0]=0;

+    if(pm==NULL)

+	dbgprintf("ERROR::: CreateEventA failure\n");

+/*

+    if(bInitialState)

+        pthread_mutex_lock(pm);

+*/

+    if(name)

+    dbgprintf("CreateEventA(0x%x, 0x%x, 0x%x, 0x%x='%s') => 0x%x\n",

+        pSecAttr, bManualReset, bInitialState, name, name, mlist);

+    else

+    dbgprintf("CreateEventA(0x%x, 0x%x, 0x%x, NULL) => 0x%x\n",

+        pSecAttr, bManualReset, bInitialState, mlist);

+    return mlist;

+}

+

+void* WINAPI expSetEvent(void* event)

+{

+    mutex_list *ml = (mutex_list *)event;

+    dbgprintf("SetEvent(%x) => 0x1\n", event);

+    pthread_mutex_lock(ml->pm);

+    if (ml->state == 0) {

+	ml->state = 1;

+	pthread_cond_signal(ml->pc);

+    }

+    pthread_mutex_unlock(ml->pm);

+

+    return (void *)1;

+}

+void* WINAPI expResetEvent(void* event)

+{

+    mutex_list *ml = (mutex_list *)event;

+    dbgprintf("ResetEvent(0x%x) => 0x1\n", event);

+    pthread_mutex_lock(ml->pm);

+    ml->state = 0;

+    pthread_mutex_unlock(ml->pm);

+

+    return (void *)1;

+}

+

+void* WINAPI expWaitForSingleObject(void* object, int duration)

+{

+    mutex_list *ml = (mutex_list *)object;

+    // FIXME FIXME FIXME - this value is sometime unititialize !!!

+    int ret = WAIT_FAILED;

+    mutex_list* pp=mlist;

+    dbgprintf("WaitForSingleObject(0x%x, duration %d) =>\n",object, duration);

+

+    // loop below was slightly fixed - its used just for checking if

+    // this object really exists in our list

+    if (!ml)

+        return (void*) ret;

+    while (pp && (pp->pm != ml->pm))

+	pp = pp->prev;

+    if (!pp) {

+	dbgprintf("WaitForSingleObject: NotFound\n");

+	return (void*)ret;

+    }

+

+    pthread_mutex_lock(ml->pm);

+

+    switch(ml->type) {

+      case 0: /* Event */

+	if (duration == 0) { /* Check Only */

+		if (ml->state == 1) ret = WAIT_FAILED;

+		else                   ret = WAIT_OBJECT_0;

+	}

+	if (duration == -1) { /* INFINITE */

+		if (ml->state == 0)

+			pthread_cond_wait(ml->pc,ml->pm);

+		if (ml->reset)

+			ml->state = 0;

+		ret = WAIT_OBJECT_0;

+	}

+	if (duration > 0) {  /* Timed Wait */

+		struct timespec abstime;

+		struct timeval now;

+		gettimeofday(&now, 0);

+		abstime.tv_sec = now.tv_sec + (now.tv_usec+duration)/1000000;

+		abstime.tv_nsec = ((now.tv_usec+duration)%1000000)*1000;

+		if (ml->state == 0)

+			ret=pthread_cond_timedwait(ml->pc,ml->pm,&abstime);

+		if (ret == ETIMEDOUT) ret = WAIT_TIMEOUT;

+		else                  ret = WAIT_OBJECT_0;

+		if (ml->reset)

+			ml->state = 0;

+	}

+        break;

+      case 1:  /* Semaphore */

+        if (duration == 0) {

+		if(ml->semaphore==0) ret = WAIT_FAILED;

+		else {

+			ml->semaphore++;

+			ret = WAIT_OBJECT_0;

+		}

+        }

+	if (duration == -1) {

+		if (ml->semaphore==0)

+			pthread_cond_wait(ml->pc,ml->pm);

+		ml->semaphore--;

+	}

+        break;

+    }

+    pthread_mutex_unlock(ml->pm);

+

+    dbgprintf("WaitForSingleObject(0x%x, %d): 0x%x => 0x%x \n",object,duration,ml,ret);

+    return (void *)ret;

+}

+

+static BYTE PF[64] = {0,};

+

+WIN_BOOL WINAPI expIsProcessorFeaturePresent(DWORD v)

+{

+    WIN_BOOL result;

+    if(v>63)result=0;

+    else result=PF[v];

+    dbgprintf("IsProcessorFeaturePresent(0x%x) => 0x%x\n", v, result);

+    return result;

+}

+

+static void DumpSystemInfo(const SYSTEM_INFO* si)

+{

+    dbgprintf("  Processor architecture %d\n", si->u.s.wProcessorArchitecture);

+    dbgprintf("  Page size: %d\n", si->dwPageSize);

+    dbgprintf("  Minimum app address: %d\n", si->lpMinimumApplicationAddress);

+    dbgprintf("  Maximum app address: %d\n", si->lpMaximumApplicationAddress);

+    dbgprintf("  Active processor mask: 0x%x\n", si->dwActiveProcessorMask);

+    dbgprintf("  Number of processors: %d\n", si->dwNumberOfProcessors);

+    dbgprintf("  Processor type: 0x%x\n", si->dwProcessorType);

+    dbgprintf("  Allocation granularity: 0x%x\n", si->dwAllocationGranularity);

+    dbgprintf("  Processor level: 0x%x\n", si->wProcessorLevel);

+    dbgprintf("  Processor revision: 0x%x\n", si->wProcessorRevision);

+}

+

+void WINAPI expGetSystemInfo(SYSTEM_INFO* si)

+{

+    	/* FIXME: better values for the two entries below... */

+	static int cache = 0;

+	static SYSTEM_INFO cachedsi;

+	unsigned int regs[4];

+        dbgprintf("GetSystemInfo(%p) =>\n", si);

+

+	if (cache) {

+		memcpy(si,&cachedsi,sizeof(*si));

+		DumpSystemInfo(si);

+		return;

+	}

+	memset(PF,0,sizeof(PF));

+

+	cachedsi.u.s.wProcessorArchitecture     = PROCESSOR_ARCHITECTURE_INTEL;

+	cachedsi.dwPageSize 			= getpagesize();

+

+	/* FIXME: better values for the two entries below... */

+	cachedsi.lpMinimumApplicationAddress	= (void *)0x00000000;

+	cachedsi.lpMaximumApplicationAddress	= (void *)0x7FFFFFFF;

+	cachedsi.dwActiveProcessorMask		= 1;

+	cachedsi.dwNumberOfProcessors		= 1;

+	cachedsi.dwProcessorType		= PROCESSOR_INTEL_386;

+	cachedsi.dwAllocationGranularity	= 0x10000;

+	cachedsi.wProcessorLevel		= 5; /* pentium */

+	cachedsi.wProcessorRevision		= 0x0101;

+

+#if defined(__FreeBSD__) || defined(__NetBSD__) || defined(__svr4__)

+	do_cpuid(1, regs);

+	switch ((regs[0] >> 8) & 0xf) {			// cpu family

+	case 3: cachedsi.dwProcessorType = PROCESSOR_INTEL_386;

+		cachedsi.wProcessorLevel= 3;

+		break;

+	case 4: cachedsi.dwProcessorType = PROCESSOR_INTEL_486;

+		cachedsi.wProcessorLevel= 4;

+		break;

+	case 5: cachedsi.dwProcessorType = PROCESSOR_INTEL_PENTIUM;

+		cachedsi.wProcessorLevel= 5;

+		break;

+	case 6: cachedsi.dwProcessorType = PROCESSOR_INTEL_PENTIUM;

+		cachedsi.wProcessorLevel= 5;

+		break;

+	default:cachedsi.dwProcessorType = PROCESSOR_INTEL_PENTIUM;

+		cachedsi.wProcessorLevel= 5;

+		break;

+	}

+	cachedsi.wProcessorRevision = regs[0] & 0xf;	// stepping

+	if (regs[3] & (1 <<  8))

+	  PF[PF_COMPARE_EXCHANGE_DOUBLE] = TRUE;

+	if (regs[3] & (1 << 23))

+          PF[PF_MMX_INSTRUCTIONS_AVAILABLE] = TRUE;

+        cachedsi.dwNumberOfProcessors=1;

+#else

+	{

+	char buf[20];

+	char line[200];

+	FILE *f = fopen ("/proc/cpuinfo", "r");

+

+	if (!f)

+		return;

+	while (fgets(line,200,f)!=NULL) {

+		char	*s,*value;

+

+		/* NOTE: the ':' is the only character we can rely on */

+		if (!(value = strchr(line,':')))

+			continue;

+		/* terminate the valuename */

+		*value++ = '\0';

+		/* skip any leading spaces */

+		while (*value==' ') value++;

+		if ((s=strchr(value,'\n')))

+			*s='\0';

+

+		/* 2.1 method */

+		if (!lstrncmpiA(line, "cpu family",strlen("cpu family"))) {

+			if (isdigit (value[0])) {

+				switch (value[0] - '0') {

+				case 3: cachedsi.dwProcessorType = PROCESSOR_INTEL_386;

+					cachedsi.wProcessorLevel= 3;

+					break;

+				case 4: cachedsi.dwProcessorType = PROCESSOR_INTEL_486;

+					cachedsi.wProcessorLevel= 4;

+					break;

+				case 5: cachedsi.dwProcessorType = PROCESSOR_INTEL_PENTIUM;

+					cachedsi.wProcessorLevel= 5;

+					break;

+				case 6: cachedsi.dwProcessorType = PROCESSOR_INTEL_PENTIUM;

+					cachedsi.wProcessorLevel= 5;

+					break;

+				default:cachedsi.dwProcessorType = PROCESSOR_INTEL_PENTIUM;

+					cachedsi.wProcessorLevel= 5;

+					break;

+				}

+			}

+			/* set the CPU type of the current processor */

+			sprintf(buf,"CPU %ld",cachedsi.dwProcessorType);

+			continue;

+		}

+		/* old 2.0 method */

+		if (!lstrncmpiA(line, "cpu",strlen("cpu"))) {

+			if (	isdigit (value[0]) && value[1] == '8' &&

+				value[2] == '6' && value[3] == 0

+			) {

+				switch (value[0] - '0') {

+				case 3: cachedsi.dwProcessorType = PROCESSOR_INTEL_386;

+					cachedsi.wProcessorLevel= 3;

+					break;

+				case 4: cachedsi.dwProcessorType = PROCESSOR_INTEL_486;

+					cachedsi.wProcessorLevel= 4;

+					break;

+				case 5: cachedsi.dwProcessorType = PROCESSOR_INTEL_PENTIUM;

+					cachedsi.wProcessorLevel= 5;

+					break;

+				case 6: cachedsi.dwProcessorType = PROCESSOR_INTEL_PENTIUM;

+					cachedsi.wProcessorLevel= 5;

+					break;

+				default:cachedsi.dwProcessorType = PROCESSOR_INTEL_PENTIUM;

+					cachedsi.wProcessorLevel= 5;

+					break;

+				}

+			}

+			/* set the CPU type of the current processor */

+			sprintf(buf,"CPU %ld",cachedsi.dwProcessorType);

+			continue;

+		}

+		if (!lstrncmpiA(line,"fdiv_bug",strlen("fdiv_bug"))) {

+			if (!lstrncmpiA(value,"yes",3))

+				PF[PF_FLOATING_POINT_PRECISION_ERRATA] = TRUE;

+

+			continue;

+		}

+		if (!lstrncmpiA(line,"fpu",strlen("fpu"))) {

+			if (!lstrncmpiA(value,"no",2))

+				PF[PF_FLOATING_POINT_EMULATED] = TRUE;

+

+			continue;

+		}

+		if (!lstrncmpiA(line,"processor",strlen("processor"))) {

+			/* processor number counts up...*/

+			int	x;

+

+			if (sscanf(value,"%d",&x))

+				if (x+1>cachedsi.dwNumberOfProcessors)

+					cachedsi.dwNumberOfProcessors=x+1;

+

+			/* Create a new processor subkey on a multiprocessor

+			 * system

+			 */

+			sprintf(buf,"%d",x);

+		}

+		if (!lstrncmpiA(line,"stepping",strlen("stepping"))) {

+			int	x;

+

+			if (sscanf(value,"%d",&x))

+				cachedsi.wProcessorRevision = x;

+		}

+		if

+		( (!lstrncmpiA(line,"flags",strlen("flags")))

+		|| (!lstrncmpiA(line,"features",strlen("features"))) )

+		{

+			if (strstr(value,"cx8"))

+				PF[PF_COMPARE_EXCHANGE_DOUBLE] = TRUE;

+			if (strstr(value,"mmx"))

+				PF[PF_MMX_INSTRUCTIONS_AVAILABLE] = TRUE;

+

+		}

+	}

+	fclose (f);

+/*

+ *	ad hoc fix for smp machines.

+ *	some problems on WaitForSingleObject,CreateEvent,SetEvent

+ *			CreateThread ...etc..

+ *

+ */

+        cachedsi.dwNumberOfProcessors=1;

+	}

+#endif /* __FreeBSD__ */

+	cache = 1;

+	memcpy(si,&cachedsi,sizeof(*si));

+	DumpSystemInfo(si);

+}

+

+long WINAPI expGetVersion()

+{

+    dbgprintf("GetVersion() => 0xC0000004\n");

+    return 0xC0000004;//Windows 95

+}

+

+HANDLE WINAPI expHeapCreate(long flags, long init_size, long max_size)

+{

+//    printf("HeapCreate:");

+    HANDLE result;

+    if(init_size==0)

+    	result=(HANDLE)my_mreq(0x110000, 0);

+    else

+	result=(HANDLE)my_mreq(init_size, 0);

+    dbgprintf("HeapCreate(flags 0x%x, initial size %d, maximum size %d) => 0x%x\n", flags, init_size, max_size, result);

+    return result;

+}

+void* WINAPI expHeapAlloc(HANDLE heap, int flags, int size)

+{

+    void* z;

+//    printf("HeapAlloc:");

+/**

+ Morgan's m3jpeg32.dll v. 2.0 encoder expects that request for

+ HeapAlloc returns area larger than size argument :-/

+**/

+    z=my_mreq(((size+4095)/4096)*4096, flags&8);

+//    z=HeapAlloc(heap,flags,size);

+    if(z==0)

+	printf("HeapAlloc failure\n");

+    dbgprintf("HeapAlloc(heap 0x%x, flags 0x%x, size 0x%x) => 0x%x\n", heap, flags, size, z);

+    return z;

+}

+long WINAPI expHeapDestroy(void* heap)

+{

+    dbgprintf("HeapDestroy(heap 0x%x) => 1\n", heap);

+    my_release(heap);

+    return 1;

+}

+

+long WINAPI expHeapFree(int arg1, int arg2, void* ptr)

+{

+    dbgprintf("HeapFree(0x%x, 0x%x, pointer 0x%x) => 1\n", arg1, arg2, ptr);

+    my_release(ptr);

+    return 1;

+}

+long WINAPI expHeapSize(int heap, int flags, void* pointer)

+{

+    long result=my_size(pointer);

+    dbgprintf("HeapSize(heap 0x%x, flags 0x%x, pointer 0x%x) => %d\n", heap, flags, pointer, result);

+    return result;

+}

+void* WINAPI expHeapReAlloc(HANDLE heap,int flags,void *lpMem,int size)

+{

+    long orgsize;

+    void *newp;

+    orgsize = my_size(lpMem);

+    dbgprintf("HeapReAlloc() Size %ld org %d\n",orgsize,size);

+    return my_realloc(lpMem, size);

+}

+long WINAPI expGetProcessHeap(void)

+{

+    dbgprintf("GetProcessHeap() => 1\n");

+    return 1;

+}

+void* WINAPI expVirtualAlloc(void* v1, long v2, long v3, long v4)

+{

+    void* z;

+    z=VirtualAlloc(v1, v2, v3, v4);

+    if(z==0)

+	printf("VirtualAlloc failure\n");

+    dbgprintf("VirtualAlloc(0x%x, %d, %d, %d) => 0x%x \n",v1,v2,v3,v4, z);

+    return z;

+}

+int WINAPI expVirtualFree(void* v1, int v2, int v3)

+{

+    int result=VirtualFree(v1,v2,v3);

+    dbgprintf("VirtualFree(0x%x, %d, %d) => %d\n",v1,v2,v3, result);

+    return result;

+}

+struct CRITSECT

+{

+    pthread_t id;

+    pthread_mutex_t mutex;

+    int locked;

+};

+

+void WINAPI expInitializeCriticalSection(CRITICAL_SECTION* c)

+{

+    struct CRITSECT cs;

+    dbgprintf("InitializeCriticalSection(0x%x)\n", c);

+/*    if(sizeof(pthread_mutex_t)>sizeof(CRITICAL_SECTION))

+    {

+	printf(" ERROR:::: sizeof(pthread_mutex_t) is %d, expected <=%d!\n",

+	     sizeof(pthread_mutex_t), sizeof(CRITICAL_SECTION));

+	return;

+    }*/

+/*    pthread_mutex_init((pthread_mutex_t*)c, NULL);   */

+    pthread_mutex_init(&cs.mutex, NULL);

+    cs.locked=0;

+    *(void**)c=malloc(sizeof cs);

+    memcpy(*(void**)c, &cs, sizeof cs);

+    return;

+}

+void WINAPI expEnterCriticalSection(CRITICAL_SECTION* c)

+{

+    struct CRITSECT* cs=*(struct CRITSECT**)c;

+    dbgprintf("EnterCriticalSection(0x%x)\n",c);

+    if (!cs)

+    {

+	expInitializeCriticalSection(c);

+	cs=*(struct CRITSECT**)c;

+	printf("Win32 Warning: Accessed uninitialized Critical Section (%p)!\n", c);

+    }

+//    cs.id=pthread_self();

+    if(cs->locked)

+	if(cs->id==pthread_self())

+	    return;

+    pthread_mutex_lock(&(cs->mutex));

+    cs->locked=1;

+    cs->id=pthread_self();

+    return;

+}

+void WINAPI expLeaveCriticalSection(CRITICAL_SECTION* c)

+{

+    struct CRITSECT* cs=*(struct CRITSECT**)c;

+//    struct CRITSECT* cs=(struct CRITSECT*)c;

+    dbgprintf("LeaveCriticalSection(0x%x)\n",c);

+    if (!cs)

+    {

+	printf("Win32 Warning: Leaving noninitialized Critical Section %p!!\n", c);

+	return;

+    }

+    cs->locked=0;

+    pthread_mutex_unlock(&(cs->mutex));

+    return;

+}

+void WINAPI expDeleteCriticalSection(CRITICAL_SECTION *c)

+{

+    struct CRITSECT* cs=*(struct CRITSECT**)c;

+//    struct CRITSECT* cs=(struct CRITSECT*)c;

+    dbgprintf("DeleteCriticalSection(0x%x)\n",c);

+    pthread_mutex_destroy(&(cs->mutex));

+    free(cs);

+    return;

+}

+int WINAPI expGetCurrentThreadId()

+{

+    dbgprintf("GetCurrentThreadId() => %d\n", getpid());

+    return getpid();

+}

+int WINAPI expGetCurrentProcess()

+{

+    dbgprintf("GetCurrentProcess() => %d\n", getpid());

+    return getpid();

+}

+

+struct tls_s {

+    void* value;

+    int used;

+    struct tls_s* prev;

+    struct tls_s* next;

+};

+

+tls_t* g_tls=NULL;

+

+void* WINAPI expTlsAlloc()

+{

+    if(g_tls==NULL)

+    {

+	g_tls=my_mreq(sizeof(tls_t), 0);

+	g_tls->next=g_tls->prev=NULL;

+    }

+    else

+    {

+	g_tls->next=my_mreq(sizeof(tls_t), 0);

+	g_tls->next->prev=g_tls;

+	g_tls->next->next=NULL;

+	g_tls=g_tls->next;

+    }

+    dbgprintf("TlsAlloc() => 0x%x\n", g_tls);

+    if( g_tls )

+      g_tls->value=0; /* XXX For Divx.dll */

+    else

+      printf("WIN32: g_tls is null!!!\n");

+     

+    return g_tls;

+}

+

+int WINAPI expTlsSetValue(tls_t* index, void* value)

+{

+    int result;

+    if(index==0)

+	result=0;

+    else

+    {

+	index->value=value;

+	result=1;

+    }

+    dbgprintf("TlsSetValue(index 0x%x, value 0x%x) => %d \n", index, value, result );

+    return result;

+}

+void* WINAPI expTlsGetValue(tls_t* index)

+{

+    void* result;

+    if(index==0)

+	result=0;

+    else

+	result=index->value;

+    dbgprintf("TlsGetValue(index 0x%x) => 0x%x\n", index, result);

+    return result;

+}

+int WINAPI expTlsFree(tls_t* index)

+{

+    int result;

+    if(index==0)

+	result=0;

+    else

+    {

+	if(index->next)

+	    index->next->prev=index->prev;

+	if(index->prev)

+    	    index->prev->next=index->next;

+	my_release((void*)index);

+	result=1;

+    }

+    dbgprintf("TlsFree(index 0x%x) => %d\n", index, result);

+    return result;

+}

+void* WINAPI expLocalAlloc(int flags, int size)

+{

+    void* z;

+    if(flags&GMEM_ZEROINIT)

+	z=my_mreq(size, 1);

+    else

+	z=my_mreq(size, 0);

+    if(z==0)

+	printf("LocalAlloc() failed\n");

+    dbgprintf("LocalAlloc(%d, flags 0x%x) => 0x%x\n", size, flags, z);

+    return z;

+}

+

+void* WINAPI expLocalReAlloc(int handle,int size, int flags)

+{

+   void *newpointer;

+   int oldsize;

+

+   newpointer=NULL;

+   if (flags & LMEM_MODIFY) {

+        dbgprintf("LocalReAlloc MODIFY\n");

+       return (void *)handle;

+   }

+   oldsize = my_size((void *)handle);

+   newpointer = my_realloc((void *)handle,size);

+   dbgprintf("LocalReAlloc(%x %d(old %d), flags 0x%x) => 0x%x\n", handle,size,oldsize, flags,newpointer);

+

+  return newpointer;

+}

+

+void* WINAPI expLocalLock(void* z)

+{

+    dbgprintf("LocalLock(0x%x) => 0x%x\n", z, z);

+    return z;

+}

+

+void* WINAPI expGlobalAlloc(int flags, int size)

+{

+    void* z;

+    dbgprintf("GlobalAlloc(%d, flags 0x%X)\n", size, flags);

+    if(flags&GMEM_ZEROINIT)

+	z=my_mreq(size, 1);

+	//z=calloc(size, 1);

+    else

+	z=my_mreq(size, 0);

+	//z=malloc(size);

+    if(z==0)

+	printf("GlobalAlloc() failed\n");

+    dbgprintf("GlobalAlloc(%d, flags 0x%x) => 0x%x\n", size, flags, z);

+    return z;

+}

+void* WINAPI expGlobalLock(void* z)

+{

+    dbgprintf("GlobalLock(0x%x) => 0x%x\n", z, z);

+    return z;

+}

+int WINAPI expLoadStringA(long instance, long  id, void* buf, long size)

+{

+    int result=LoadStringA(instance, id, buf, size);

+//    if(buf)

+    dbgprintf("LoadStringA(instance 0x%x, id 0x%x, buffer 0x%x, size %d) => %d ( %s )\n",

+	instance, id, buf, size, result, buf);

+//    else

+//    dbgprintf("LoadStringA(instance 0x%x, id 0x%x, buffer 0x%x, size %d) => %d\n",

+//	instance, id, buf, size, result);

+    return result;

+}

+

+long WINAPI expMultiByteToWideChar(long v1, long v2, char* s1, long siz1, short* s2, int siz2)

+{

+#warning FIXME

+    int i;

+    int result;

+    if(s2==0)

+    	result=1;

+    else

+    {

+    if(siz1>siz2/2)siz1=siz2/2;

+    for(i=1; i<=siz1; i++)

+    {

+    	*s2=*s1;

+	if(!*s1)break;

+	s2++;

+	s1++;

+    }

+    result=i;

+    }

+    if(s1)

+	dbgprintf("MultiByteToWideChar(codepage %d, flags 0x%x, string 0x%x='%s',"

+		  "size %d, dest buffer 0x%x, dest size %d) => %d\n",

+		  v1, v2, s1, s1, siz1, s2, siz2, result);

+    else

+	dbgprintf("MultiByteToWideChar(codepage %d, flags 0x%x, string NULL,"

+		  "size %d, dest buffer 0x%x, dest size %d) =>\n",

+		  v1, v2, siz1, s2, siz2, result);

+    return result;

+}

+static void wch_print(const short* str)

+{

+    dbgprintf("  src: ");

+    while(*str)dbgprintf("%c", *str++);

+    dbgprintf("\n");

+}

+long WINAPI expWideCharToMultiByte(long v1, long v2, short* s1, long siz1, char* s2, int siz2, char* c3, int* siz3)

+{

+    int result;

+    dbgprintf("WideCharToMultiByte(codepage %d, flags 0x%x, src 0x%x, src size %d, "

+	"dest 0x%x, dest size %d, defch 0x%x, used_defch 0x%x)", v1, v2, s1, siz1, s2, siz2, c3, siz3);

+    result=WideCharToMultiByte(v1, v2, s1, siz1, s2, siz2, c3, siz3);

+    dbgprintf("=> %d\n", result);

+    //if(s1)wch_print(s1);

+    if(s2)dbgprintf("  dest: %s\n", s2);

+    return result;

+}

+long WINAPI expGetVersionExA(OSVERSIONINFOA* c)

+{

+    dbgprintf("GetVersionExA(0x%x) => 1\n");

+    c->dwOSVersionInfoSize=sizeof(*c);

+    c->dwMajorVersion=4;

+    c->dwMinorVersion=0;

+    c->dwBuildNumber=0x4000457;

+#if 0

+    // leave it here for testing win9x-only codecs

+    c->dwPlatformId=VER_PLATFORM_WIN32_WINDOWS;

+    strcpy(c->szCSDVersion, " B");

+#else

+    c->dwPlatformId=VER_PLATFORM_WIN32_NT; // let's not make DLL assume that it can read CR* registers

+    strcpy(c->szCSDVersion, "Service Pack 3");

+#endif

+    dbgprintf("  Major version: 4\n  Minor version: 0\n  Build number: 0x4000457\n"

+    "  Platform Id: VER_PLATFORM_WIN32_NT\n Version string: 'Service Pack 3'\n");

+    return 1;

+}

+HANDLE WINAPI expCreateSemaphoreA(char* v1, long init_count, long max_count, char* name)

+{

+    pthread_mutex_t *pm;

+    pthread_cond_t  *pc;

+    mutex_list* pp;

+/*

+    printf("CreateSemaphoreA(%p = %s)\n", name, (name ? name : "<null>"));

+    pp=mlist;

+    while(pp)

+    {

+	printf("%p => ", pp);

+	pp=pp->prev;

+    }

+    printf("0\n");

+*/

+    if(mlist!=NULL)

+    {

+	mutex_list* pp=mlist;

+	if(name!=NULL)

+	do

+	{

+	    if((strcmp(pp->name, name)==0) && (pp->type==1))

+	    {

+	        dbgprintf("CreateSemaphoreA(0x%x, init_count %d, max_count %d, name 0x%x='%s') => 0x%x",

+		    v1, init_count, max_count, name, name, mlist);

+		return (HANDLE)mlist;

+	    }

+	}while((pp=pp->prev) != NULL);

+    }

+    pm=mreq_private(sizeof(pthread_mutex_t), 0, AREATYPE_MUTEX);

+    pthread_mutex_init(pm, NULL);

+    pc=mreq_private(sizeof(pthread_cond_t), 0, AREATYPE_COND);

+    pthread_cond_init(pc, NULL);

+    if(mlist==NULL)

+    {

+	mlist=mreq_private(sizeof(mutex_list), 00, AREATYPE_EVENT);

+	mlist->next=mlist->prev=NULL;

+    }

+    else

+    {

+	mlist->next=mreq_private(sizeof(mutex_list), 00, AREATYPE_EVENT);

+	mlist->next->prev=mlist;

+	mlist->next->next=NULL;

+	mlist=mlist->next;

+//	printf("new semaphore %p\n", mlist);

+    }

+    mlist->type=1; /* Type Semaphore */

+    mlist->pm=pm;

+    mlist->pc=pc;

+    mlist->state=0;

+    mlist->reset=0;

+    mlist->semaphore=init_count;

+    if(name!=NULL)

+        strncpy(mlist->name, name, 64);

+    else

+	mlist->name[0]=0;

+    if(pm==NULL)

+	dbgprintf("ERROR::: CreateSemaphoreA failure\n");

+    if(name)

+	dbgprintf("CreateSemaphoreA(0x%x, init_count %d, max_count %d, name 0x%x='%s') => 0x%x",

+	v1, init_count, max_count, name, name, mlist);

+    else

+	dbgprintf("CreateSemaphoreA(0x%x, init_count %d, max_count %d, name 0) => 0x%x",

+	v1, init_count, max_count, mlist);

+    return (HANDLE)mlist;

+}

+

+long WINAPI expReleaseSemaphore(long hsem, long increment, long* prev_count)

+{

+// The state of a semaphore object is signaled when its count

+// is greater than zero and nonsignaled when its count is equal to zero

+// Each time a waiting thread is released because of the semaphore's signaled

+// state, the count of the semaphore is decreased by one.

+    mutex_list *ml = (mutex_list *)hsem;

+

+    pthread_mutex_lock(ml->pm);

+    if (prev_count != 0) *prev_count = ml->semaphore;

+    if (ml->semaphore == 0) pthread_cond_signal(ml->pc);

+    ml->semaphore += increment;

+    pthread_mutex_unlock(ml->pm);

+    dbgprintf("ReleaseSemaphore(semaphore 0x%x, increment %d, prev_count 0x%x) => 1\n",

+	hsem, increment, prev_count);

+    return 1;

+}

+

+

+long WINAPI expRegOpenKeyExA(long key, const char* subkey, long reserved, long access, int* newkey)

+{

+    long result=RegOpenKeyExA(key, subkey, reserved, access, newkey);

+    dbgprintf("RegOpenKeyExA(key 0x%x, subkey %s, reserved %d, access 0x%x, pnewkey 0x%x) => %d\n",

+	key, subkey, reserved, access, newkey, result);

+    if(newkey)dbgprintf("  New key: 0x%x\n", *newkey);

+    return result;

+}

+long WINAPI expRegCloseKey(long key)

+{

+    long result=RegCloseKey(key);

+    dbgprintf("RegCloseKey(0x%x) => %d\n", key, result);

+    return result;

+}

+long WINAPI expRegQueryValueExA(long key, const char* value, int* reserved, int* type, int* data, int* count)

+{

+    long result=RegQueryValueExA(key, value, reserved, type, data, count);

+    dbgprintf("RegQueryValueExA(key 0x%x, value %s, reserved 0x%x, data 0x%x, count 0x%x)"

+	" => 0x%x\n", key, value, reserved, data, count, result);

+    if(data && count)dbgprintf("  read %d bytes: '%s'\n", *count, data);

+    return result;

+}

+long WINAPI expRegCreateKeyExA(long key, const char* name, long reserved,

+							   void* classs, long options, long security,

+							   void* sec_attr, int* newkey, int* status)

+{

+    long result=RegCreateKeyExA(key, name, reserved, classs, options, security, sec_attr, newkey, status);

+    dbgprintf("RegCreateKeyExA(key 0x%x, name 0x%x='%s', reserved=0x%x,"

+	" 0x%x, 0x%x, 0x%x, newkey=0x%x, status=0x%x) => %d\n",

+	    key, name, name, reserved, classs, options, security, sec_attr, newkey, status, result);

+    if(!result && newkey) dbgprintf("  New key: 0x%x\n", *newkey);

+    if(!result && status) dbgprintf("  New key status: 0x%x\n", *status);

+    return result;

+}

+long WINAPI expRegSetValueExA(long key, const char* name, long v1, long v2, void* data, long size)

+{

+    long result=RegSetValueExA(key, name, v1, v2, data, size);

+    dbgprintf("RegSetValueExA(key 0x%x, name '%s', 0x%x, 0x%x, data 0x%x -> 0x%x '%s', size=%d) => %d",

+	key, name, v1, v2, data, *(int*)data, data, size, result);

+    return result;

+}

+

+long WINAPI expRegOpenKeyA (

+long hKey,

+ LPCSTR lpSubKey,

+ int* phkResult

+){

+    long result=RegOpenKeyExA(hKey, lpSubKey, 0, 0, phkResult);

+    dbgprintf("RegOpenKeyExA(key 0x%x, subkey '%s', 0x%x) => %d\n",

+	hKey, lpSubKey, phkResult, result);

+    if(!result && phkResult) dbgprintf("  New key: 0x%x\n", *phkResult);

+    return result;

+}

+

+DWORD WINAPI expRegEnumValueA(HKEY hkey, DWORD index, LPSTR value, LPDWORD val_count,

+			       LPDWORD reserved, LPDWORD type, LPBYTE data, LPDWORD count)

+{

+    return RegEnumValueA(hkey, index, value, val_count,

+			 reserved, type, data, count);

+}

+

+long WINAPI expQueryPerformanceCounter(long long* z)

+{

+    longcount(z);

+    dbgprintf("QueryPerformanceCounter(0x%x) => 1 ( %Ld )\n", z, *z);

+    return 1;

+}

+

+/*

+ * return CPU clock (in kHz), using linux's /proc filesystem (/proc/cpuinfo)

+ */

+static double linux_cpuinfo_freq()

+{

+    double freq=-1;

+    FILE *f;

+    char line[200];

+    char *s,*value;

+

+    f = fopen ("/proc/cpuinfo", "r");

+    if (f != NULL) {

+	while (fgets(line,sizeof(line),f)!=NULL) {

+	    /* NOTE: the ':' is the only character we can rely on */

+	    if (!(value = strchr(line,':')))

+		continue;

+	    /* terminate the valuename */

+	    *value++ = '\0';

+	    /* skip any leading spaces */

+	    while (*value==' ') value++;

+	    if ((s=strchr(value,'\n')))

+		*s='\0';

+

+	    if (!strncasecmp(line, "cpu MHz",strlen("cpu MHz"))

+		&& sscanf(value, "%lf", &freq) == 1) {

+		freq*=1000;

+		break;

+	    }

+	}

+	fclose(f);

+    }

+    return freq;

+}

+

+

+static double

+solaris_kstat_freq()

+{

+#if	defined(HAVE_LIBKSTAT) && defined(KSTAT_DATA_INT32)

+    /*

+     * try to extract the CPU speed from the solaris kernel's kstat data

+     */

+    kstat_ctl_t   *kc;

+    kstat_t       *ksp;

+    kstat_named_t *kdata;

+    int            mhz = 0;

+

+    kc = kstat_open();

+    if (kc != NULL)

+    {

+	ksp = kstat_lookup(kc, "cpu_info", 0, "cpu_info0");

+

+	/* kstat found and name/value pairs? */

+	if (ksp != NULL && ksp->ks_type == KSTAT_TYPE_NAMED)

+	{

+	    /* read the kstat data from the kernel */

+	    if (kstat_read(kc, ksp, NULL) != -1)

+	    {

+		/*

+		 * lookup desired "clock_MHz" entry, check the expected

+		 * data type

+		 */

+		kdata = (kstat_named_t *)kstat_data_lookup(ksp, "clock_MHz");

+		if (kdata != NULL && kdata->data_type == KSTAT_DATA_INT32)

+		    mhz = kdata->value.i32;

+	    }

+	}

+	kstat_close(kc);

+    }

+

+    if (mhz > 0)

+	return mhz * 1000.;

+#endif	/* HAVE_LIBKSTAT */

+    return -1;		// kstat stuff is not available, CPU freq is unknown

+}

+

+/*

+ * Measure CPU freq using the pentium's time stamp counter register (TSC)

+ */

+static double tsc_freq()

+{

+    static double ofreq=0.0;

+    int i;

+    int x,y;

+    i=time(NULL);

+    if (ofreq != 0.0) return ofreq;

+    while(i==time(NULL));

+    x=localcount();

+    i++;

+    while(i==time(NULL));

+    y=localcount();

+    ofreq = (double)(y-x)/1000.;

+    return ofreq;

+}

+

+static double CPU_Freq()

+{

+    double freq;

+

+    if ((freq = linux_cpuinfo_freq()) > 0)

+	return freq;

+

+    if ((freq = solaris_kstat_freq()) > 0)

+	return freq;

+

+    return tsc_freq();

+}

+

+long WINAPI expQueryPerformanceFrequency(long long* z)

+{

+    *z=(long long)CPU_Freq();

+    dbgprintf("QueryPerformanceFrequency(0x%x) => 1 ( %Ld )\n", z, *z);

+    return 1;

+}

+long WINAPI exptimeGetTime()

+{

+    struct timeval t;

+    long result;

+    gettimeofday(&t, 0);

+    result=1000*t.tv_sec+t.tv_usec/1000;

+    dbgprintf("timeGetTime() => %d\n", result);

+    return result;

+}

+void* WINAPI expLocalHandle(void* v)

+{

+    dbgprintf("LocalHandle(0x%x) => 0x%x\n", v, v);

+    return v;

+}

+

+void* WINAPI expGlobalHandle(void* v)

+{

+    dbgprintf("GlobalHandle(0x%x) => 0x%x\n", v, v);

+    return v;

+}

+int WINAPI expGlobalUnlock(void* v)

+{

+    dbgprintf("GlobalUnlock(0x%x) => 1\n", v);

+    return 1;

+}

+void* WINAPI expGlobalFree(void* v)

+{

+    dbgprintf("GlobalFree(0x%x) => 0\n", v);

+    my_release(v);

+    //free(v);

+    return 0;

+}

+

+void* WINAPI expGlobalReAlloc(void* v, int size, int flags)

+{

+    void* result=my_realloc(v, size);

+    //void* result=realloc(v, size);

+    dbgprintf("GlobalReAlloc(0x%x, size %d, flags 0x%x) => 0x%x\n", v,size,flags,result);

+    return result;

+}

+

+int WINAPI expLocalUnlock(void* v)

+{

+    dbgprintf("LocalUnlock(0x%x) => 1\n", v);

+    return 1;

+}

+  //

+void* WINAPI expLocalFree(void* v)

+{

+    dbgprintf("LocalFree(0x%x) => 0\n", v);

+    my_release(v);

+    return 0;

+}

+HRSRC WINAPI expFindResourceA(HMODULE module, char* name, char* type)

+{

+    HRSRC result=FindResourceA(module, name, type);

+    dbgprintf("FindResourceA(module 0x%x, name 0x%x, type 0x%x) => 0x%x\n", module, name, type, result);

+    return result;

+}

+extern HRSRC WINAPI LoadResource(HMODULE, HRSRC);

+HGLOBAL WINAPI expLoadResource(HMODULE module, HRSRC res)

+{

+    HGLOBAL result=LoadResource(module, res);

+    dbgprintf("LoadResource(module 0x%x, resource 0x%x) => 0x%x\n", module, res, result);

+    return result;

+}

+void* WINAPI expLockResource(long res)

+{

+    void* result=LockResource(res);

+    dbgprintf("LockResource(0x%x) => 0x%x\n", res, result);

+    return result;

+}

+int WINAPI expFreeResource(long res)

+{

+    int result=FreeResource(res);

+    dbgprintf("FreeResource(0x%x) => %d\n", res, result);

+    return result;

+}

+//bool fun(HANDLE)

+//!0 on success

+int WINAPI expCloseHandle(long v1)

+{

+    dbgprintf("CloseHandle(0x%x) => 1\n", v1);

+    return 1;

+}

+

+const char* WINAPI expGetCommandLineA()

+{

+    dbgprintf("GetCommandLineA() => \"c:\\aviplay.exe\"\n");

+    return "c:\\aviplay.exe";

+}

+static short envs[]={'p', 'a', 't', 'h', ' ', 'c', ':', '\\', 0, 0};

+LPWSTR WINAPI expGetEnvironmentStringsW()

+{

+ dbgprintf("GetEnvironmentStringsW() => 0\n", envs);

+ return 0;

+}

+void * WINAPI expRtlZeroMemory(void *p, size_t len)

+{

+    void* result=memset(p,0,len);

+    dbgprintf("RtlZeroMemory(0x%x, len %d) => 0x%x\n",p,len,result);

+    return result;

+}

+void * WINAPI expRtlMoveMemory(void *dst, void *src, size_t len)

+{

+    void* result=memmove(dst,src,len);

+    dbgprintf("RtlMoveMemory (dest 0x%x, src 0x%x, len %d) => 0x%x\n",dst,src,len,result);

+    return result;

+}

+

+void * WINAPI expRtlFillMemory(void *p, int ch, size_t len)

+{

+    void* result=memset(p,ch,len);

+    dbgprintf("RtlFillMemory(0x%x, char 0x%x, len %d) => 0x%x\n",p,ch,len,result);

+    return result;

+}

+int WINAPI expFreeEnvironmentStringsW(short* strings)

+{

+    dbgprintf("FreeEnvironmentStringsW(0x%x) => 1\n", strings);

+    return 1;

+}

+int WINAPI expFreeEnvironmentStringsA(char* strings)

+{

+ dbgprintf("FreeEnvironmentStringsA(0x%x) => 1\n", strings);

+ return 1;

+}

+static const char ch_envs[]=

+    "__MSVCRT_HEAP_SELECT=__GLOBAL_HEAP_SELECTED,1\r\n"

+    "PATH=C:\\;C:\\windows\\;C:\\windows\\system\r\n";

+LPCSTR WINAPI expGetEnvironmentStrings()

+{

+    dbgprintf("GetEnvironmentStrings() => 0x%x\n", ch_envs);

+    return (LPCSTR)ch_envs;

+// dbgprintf("GetEnvironmentStrings() => 0\n");

+// return 0;

+}

+

+int WINAPI expGetStartupInfoA(STARTUPINFOA *s)

+{

+    int i;

+    dbgprintf("GetStartupInfoA(0x%x) => 1\n");

+    memset(s, 0, sizeof(*s));

+    s->cb=sizeof(*s);

+// s->lpReserved="Reserved";

+// s->lpDesktop="Desktop";

+// s->lpTitle="Title";

+// s->dwX=s->dwY=0;

+// s->dwXSize=s->dwYSize=200;

+ s->dwFlags=s->wShowWindow=1;

+// s->hStdInput=s->hStdOutput=s->hStdError=0x1234;

+    dbgprintf("  cb=%d\n", s->cb);

+    dbgprintf("  lpReserved='%s'\n", s->lpReserved);

+    dbgprintf("  lpDesktop='%s'\n", s->lpDesktop);

+    dbgprintf("  lpTitle='%s'\n", s->lpTitle);

+    dbgprintf("  dwX=%d dwY=%d dwXSize=%d dwYSize=%d\n",

+	s->dwX, s->dwY, s->dwXSize, s->dwYSize);

+    dbgprintf("  dwXCountChars=%d dwYCountChars=%d dwFillAttribute=%d\n",

+	s->dwXCountChars, s->dwYCountChars, s->dwFillAttribute);

+    dbgprintf("  dwFlags=0x%x wShowWindow=0x%x cbReserved2=0x%x\n",

+	s->dwFlags, s->wShowWindow, s->cbReserved2);

+    dbgprintf("  lpReserved2=0x%x hStdInput=0x%x hStdOutput=0x%x hStdError=0x%x\n",

+	s->lpReserved2, s->hStdInput, s->hStdOutput, s->hStdError);

+    return 1;

+}

+

+int WINAPI expGetStdHandle(int z)

+{

+ dbgprintf("GetStdHandle(0x%x) => 0x%x\n", z+0x1234);

+ return z+0x1234;

+}

+int WINAPI expGetFileType(int handle)

+{

+ dbgprintf("GetFileType(0x%x) => 0x3 = pipe\n", handle);

+ return 0x3;

+}

+int WINAPI expSetHandleCount(int count)

+{

+    dbgprintf("SetHandleCount(0x%x) => 1\n", count);

+    return 1;

+}

+int WINAPI expGetACP()

+{

+    dbgprintf("GetACP() => 0\n");

+    return 0;

+}

+extern WINE_MODREF *MODULE32_LookupHMODULE(HMODULE m);

+int WINAPI expGetModuleFileNameA(int module, char* s, int len)

+{

+    WINE_MODREF *mr;

+    int result;

+//    printf("File name of module %X requested\n", module);

+    if(s==0)

+	result=0;

+    else

+    if(len<35)

+    result=0;

+    else

+    {

+	result=1;

+	strcpy(s, "c:\\windows\\system\\");

+	mr=MODULE32_LookupHMODULE(module);

+	if(mr==0)//oops

+    	    strcat(s, "aviplay.dll");

+	else

+	if(strrchr(mr->filename, '/')==NULL)

+	    strcat(s, mr->filename);

+	else

+	    strcat(s, strrchr(mr->filename, '/')+1);

+    }

+    if(!s)

+    dbgprintf("GetModuleFileNameA(0x%x, 0x%x, %d) => %d\n",

+	module, s, len, result);

+    else

+    dbgprintf("GetModuleFileNameA(0x%x, 0x%x, %d) => %d ( '%s' )",

+	module, s, len, result, s);

+    return result;

+}

+

+int WINAPI expSetUnhandledExceptionFilter(void* filter)

+{

+    dbgprintf("SetUnhandledExceptionFilter(0x%x) => 1\n", filter);

+    return 1;//unsupported and probably won't ever be supported

+}

+

+int WINAPI expLoadLibraryA(char* name)

+{

+    int result = 0;

+    char* lastbc;

+    int i;

+    if (!name)

+	return -1;

+    // we skip to the last backslash

+    // this is effectively eliminating weird characters in

+    // the text output windows

+

+    lastbc = strrchr(name, '\\');

+    if (lastbc)

+    {

+        int i;

+        lastbc++;

+	for (i = 0; 1 ;i++)

+	{

+	    name[i] = *lastbc++;

+	    if (!name[i])

+		break;

+	}

+    }

+    if(strncmp(name, "c:\\windows\\", 11)==0) name += 11;

+    if(strncmp(name, ".\\", 2)==0) name += 2;

+

+    dbgprintf("Entering LoadLibraryA(%s)\n", name);

+    // PIMJ is loading  kernel32.dll

+    if (strcasecmp(name, "kernel32.dll") == 1)

+	return (int) LookupExternal(name, 0);

+

+    result=LoadLibraryA(name);

+    dbgprintf("Returned LoadLibraryA(0x%x='%s'), win32_def_path=%s => 0x%x\n", name, name, win32_def_path, result);

+

+    return result;

+}

+int WINAPI expFreeLibrary(int module)

+{

+    int result=FreeLibrary(module);

+    dbgprintf("FreeLibrary(0x%x) => %d\n", module, result);

+    return result;

+}

+void* WINAPI expGetProcAddress(HMODULE mod, char* name)

+{

+    void* result;

+    if(mod!=MODULE_HANDLE_kernel32)

+	result=GetProcAddress(mod, name);

+    else

+	result=LookupExternalByName("kernel32.dll", name);

+    dbgprintf("GetProcAddress(0x%x, '%s') => 0x%x\n", mod, name, result);

+    return result;

+}

+

+long WINAPI expCreateFileMappingA(int hFile, void* lpAttr,

+    long flProtect, long dwMaxHigh, long dwMaxLow, const char* name)

+{

+    long result=CreateFileMappingA(hFile, lpAttr, flProtect, dwMaxHigh, dwMaxLow, name);

+    if(!name)

+	dbgprintf("CreateFileMappingA(file 0x%x, lpAttr 0x%x,"

+		  "flProtect 0x%x, dwMaxHigh 0x%x, dwMaxLow 0x%x, name 0) => %d\n",

+		  hFile, lpAttr, flProtect, dwMaxHigh, dwMaxLow, result);

+    else

+	dbgprintf("CreateFileMappingA(file 0x%x, lpAttr 0x%x,"

+		  "flProtect 0x%x, dwMaxHigh 0x%x, dwMaxLow 0x%x, name 0x%x='%s') => %d\n",

+		  hFile, lpAttr, flProtect, dwMaxHigh, dwMaxLow, name, name, result);

+    return result;

+}

+

+long WINAPI expOpenFileMappingA(long hFile, long hz, const char* name)

+{

+    long result=OpenFileMappingA(hFile, hz, name);

+    if(!name)

+	dbgprintf("OpenFileMappingA(0x%x, 0x%x, 0) => %d\n",

+	    hFile, hz, result);

+    else

+	dbgprintf("OpenFileMappingA(0x%x, 0x%x, 0x%x='%s') => %d\n",

+	    hFile, hz, name, name, result);

+    return result;

+}

+

+void* WINAPI expMapViewOfFile(HANDLE file, DWORD mode, DWORD offHigh, DWORD offLow, DWORD size)

+{

+    dbgprintf("MapViewOfFile(0x%x, 0x%x, 0x%x, 0x%x, size %d) => 0x%x\n",

+	file,mode,offHigh,offLow,size,(char*)file+offLow);

+    return (char*)file+offLow;

+}

+

+void* WINAPI expUnmapViewOfFile(void* view)

+{

+    dbgprintf("UnmapViewOfFile(0x%x) => 0\n", view);

+    return 0;

+}

+

+void* WINAPI expSleep(int time)

+{

+//    extern int avm_usleep(int);

+    dbgprintf("Sleep(%d) => 0\n", time);

+//    avm_usleep(time);

+    usleep(time);

+    return 0;

+}

+ // why does IV32 codec want to call this? I don't know ...

+void* WINAPI expCreateCompatibleDC(int hdc)

+{

+        dbgprintf("CreateCompatibleDC(%d) => 0x81\n", hdc);

+        return (void*)0x81;

+}

+

+int WINAPI expGetDeviceCaps(int hdc, int unk)

+{

+        dbgprintf("GetDeviceCaps(0x%x, %d) => 0\n", hdc, unk);

+        return 0;

+}

+

+WIN_BOOL WINAPI expDeleteDC(int hdc)

+{

+        dbgprintf("DeleteDC(0x%x) => 0\n", hdc);

+        return 0;

+}

+

+int expwsprintfA(char* string, char* format, ...)

+{

+    va_list va;

+    int result;

+    va_start(va, format);

+    result=vsprintf(string, format, va);

+    dbgprintf("wsprintfA(0x%x, '%s', ...) => %d\n", string, format, result);

+    va_end(va);

+    return result;

+}

+

+int WINAPI expGetPrivateProfileIntA(const char* appname, const char* keyname, int default_value, const char* filename)

+{

+    int size=255;

+    char buffer[256];

+    char* fullname;

+    int result;

+

+    buffer[255]=0;

+    if(!(appname && keyname && filename) )

+    {

+        dbgprintf("GetPrivateProfileIntA('%s', '%s', %d, '%s') => %d\n", appname, keyname, default_value, filename, default_value );

+	return default_value;

+    }

+    fullname=(char*)malloc(50+strlen(appname)+strlen(keyname)+strlen(filename));

+    strcpy(fullname, "Software\\IniFileMapping\\");

+    strcat(fullname, appname);

+    strcat(fullname, "\\");

+    strcat(fullname, keyname);

+    strcat(fullname, "\\");

+    strcat(fullname, filename);

+    result=RegQueryValueExA(HKEY_LOCAL_MACHINE, fullname, NULL, NULL, (int*)buffer, &size);

+    if((size>=0)&&(size<256))

+	buffer[size]=0;

+//    printf("GetPrivateProfileIntA(%s, %s, %s) -> %s\n", appname, keyname, filename, buffer);

+    free(fullname);

+    if(result)

+	result=default_value;

+    else

+	result=atoi(buffer);

+    dbgprintf("GetPrivateProfileIntA('%s', '%s', %d, '%s') => %d\n", appname, keyname, default_value, filename, result);

+    return result;

+}

+int WINAPI expGetProfileIntA(const char* appname, const char* keyname, int default_value)

+{

+    dbgprintf("GetProfileIntA -> ");

+//    dbgprintf("GetProfileIntA(%s, %s, %d)\n", appname, keyname, default_value);

+    return expGetPrivateProfileIntA(appname, keyname, default_value, "default");

+}

+

+int WINAPI expGetPrivateProfileStringA(const char* appname, const char* keyname,

+	const char* def_val, char* dest, unsigned int len, const char* filename)

+{

+    int result;

+    int size;

+    char* fullname;

+    dbgprintf("GetPrivateProfileStringA('%s', '%s', def_val '%s', 0x%x, 0x%x, '%s')", appname, keyname, def_val, dest, len, filename );

+    if(!(appname && keyname && filename) ) return 0;

+    fullname=(char*)malloc(50+strlen(appname)+strlen(keyname)+strlen(filename));

+    strcpy(fullname, "Software\\IniFileMapping\\");

+    strcat(fullname, appname);

+    strcat(fullname, "\\");

+    strcat(fullname, keyname);

+    strcat(fullname, "\\");

+    strcat(fullname, filename);

+    size=len;

+    result=RegQueryValueExA(HKEY_LOCAL_MACHINE, fullname, NULL, NULL, (int*)dest, &size);

+//    printf("GetPrivateProfileStringA(%s, %s, %s, %X, %X, %s)\n", appname, keyname, def_val, dest, len, filename );

+    free(fullname);

+    if(result)

+    {

+	strncpy(dest, def_val, size);

+	if (strlen(def_val)< size) size = strlen(def_val);

+    }

+    dbgprintf(" => %d ( '%s' )\n", size, dest);

+    return size;

+}

+int WINAPI expWritePrivateProfileStringA(const char* appname, const char* keyname,

+	const char* string, const char* filename)

+{

+    int size=256;

+    char* fullname;

+    dbgprintf("WritePrivateProfileStringA('%s', '%s', '%s', '%s')", appname, keyname, string, filename );

+    if(!(appname && keyname && filename) )

+    {

+	dbgprintf(" => -1\n");

+	return -1;

+    }

+    fullname=(char*)malloc(50+strlen(appname)+strlen(keyname)+strlen(filename));

+    strcpy(fullname, "Software\\IniFileMapping\\");

+    strcat(fullname, appname);

+    strcat(fullname, "\\");

+    strcat(fullname, keyname);

+    strcat(fullname, "\\");

+    strcat(fullname, filename);

+    RegSetValueExA(HKEY_LOCAL_MACHINE, fullname, 0, REG_SZ, (int*)string, strlen(string));

+//    printf("RegSetValueExA(%s,%d)\n", string, strlen(string));

+//    printf("WritePrivateProfileStringA(%s, %s, %s, %s)\n", appname, keyname, string, filename );

+    free(fullname);

+    dbgprintf(" => 0\n");

+    return 0;

+}

+int expsprintf(char* str, const char* format, ...)

+{

+    va_list args;

+    int r;

+    dbgprintf("sprintf(%s, %s)\n", str, format);

+    va_start(args, format);

+    r = vsprintf(str, format, args);

+    va_end(args);

+    return r;

+}

+int expsscanf(const char* str, const char* format, ...)

+{

+    va_list args;

+    int r;

+    dbgprintf("sscanf(%s, %s)\n", str, format);

+    va_start(args, format);

+    r = vsscanf(str, format, args);

+    va_end(args);

+    return r;

+}

+void* expfopen(const char* path, const char* mode)

+{

+    printf("fopen: \"%s\"  mode:%s\n", path, mode);

+    //return fopen(path, mode);

+    return fdopen(0, mode); // everything on screen

+}

+int expfprintf(void* stream, const char* format, ...)

+{

+    va_list args;

+    int r = 0;

+#if 1

+    va_start(args, format);

+    r = vfprintf((FILE*) stream, format, args);

+    va_end(args);

+#endif

+    return r;

+}

+

+int expprintf(const char* format, ...)

+{

+    va_list args;

+    int r;

+    va_start(args, format);

+    r = vprintf(format, args);

+    va_end(args);

+    return r;

+}

+

+void* expwcscpy(WCHAR* dst, const WCHAR* src)

+{

+    WCHAR* p = dst;

+    while ((*p++ = *src++))

+	;

+    return dst;

+}

+

+

+unsigned int _GetPrivateProfileIntA(const char* appname, const char* keyname, INT default_value, const char* filename)

+{

+    return expGetPrivateProfileIntA(appname, keyname, default_value, filename);

+}

+int _GetPrivateProfileStringA(const char* appname, const char* keyname,

+	const char* def_val, char* dest, unsigned int len, const char* filename)

+{

+    return expGetPrivateProfileStringA(appname, keyname, def_val, dest, len, filename);

+}

+int _WritePrivateProfileStringA(const char* appname, const char* keyname,

+	const char* string, const char* filename)

+{

+    return expWritePrivateProfileStringA(appname, keyname, string, filename);

+}

+

+

+

+int WINAPI expDefDriverProc(int _private, int id, int msg, int arg1, int arg2)

+{

+    dbgprintf("DefDriverProc(0x%x, 0x%x, 0x%x, 0x%x, 0x%x) => 0\n", _private, id, msg, arg1, arg2);

+    return 0;

+}

+

+int WINAPI expSizeofResource(int v1, int v2)

+{

+    int result=SizeofResource(v1, v2);

+    dbgprintf("SizeofResource(0x%x, 0x%x) => %d\n", v1, v2, result);

+    return result;

+}

+

+int WINAPI expGetLastError()

+{

+    int result=GetLastError();

+    dbgprintf("GetLastError() => 0x%x\n", result);

+    return result;

+}

+

+void WINAPI expSetLastError(int error)

+{

+    dbgprintf("SetLastError(0x%x)\n", error);

+    SetLastError(error);

+}

+

+char* expstrrchr(char* string, int value)

+{

+    char* result=strrchr(string, value);

+    if(result)

+	dbgprintf("strrchr(0x%x='%s', %d) => 0x%x='%s'", string, string, value, result, result);

+    else

+	dbgprintf("strrchr(0x%x='%s', %d) => 0", string, string, value);

+    return result;

+}

+

+char* expstrchr(char* string, int value)

+{

+    char* result=strchr(string, value);

+    if(result)

+	dbgprintf("strchr(0x%x='%s', %d) => 0x%x='%s'", string, string, value, result, result);

+    else

+	dbgprintf("strchr(0x%x='%s', %d) => 0", string, string, value);

+    return result;

+}

+int expstrlen(char* str)

+{

+    int result=strlen(str);

+    dbgprintf("strlen(0x%x='%s') => %d\n", str, str, result);

+    return result;

+}

+int expstrcpy(char* str1, const char* str2)

+{

+    int result= (int) strcpy(str1, str2);

+    dbgprintf("strcpy(0x%x, 0x%x='%s') => %d\n", str1, str2, str2, result);

+    return result;

+}

+int expstrcmp(const char* str1, const char* str2)

+{

+    int result=strcmp(str1, str2);

+    dbgprintf("strcmp(0x%x='%s', 0x%x='%s') => %d\n", str1, str1, str2, str2, result);

+    return result;

+}

+int expstrcat(char* str1, const char* str2)

+{

+    int result= (int) strcat(str1, str2);

+    dbgprintf("strcat(0x%x='%s', 0x%x='%s') => %d\n", str1, str1, str2, str2, result);

+    return result;

+}

+int expisalnum(int c)

+{

+    int result= (int) isalnum(c);

+    dbgprintf("isalnum(0x%x='%c' => %d\n", c, c, result);

+    return result;

+}

+int expmemmove(void* dest, void* src, int n)

+{

+    int result= (int) memmove(dest, src, n);

+    dbgprintf("memmove(0x%x, 0x%x, %d) => %d\n", dest, src, n, result);

+    return result;

+}

+int expmemcmp(void* dest, void* src, int n)

+{

+    int result=memcmp(dest, src, n);

+    dbgprintf("memcmp(0x%x, 0x%x, %d) => %d\n", dest, src, n, result);

+    return result;

+}

+void *expmemcpy(void* dest, void* src, int n)

+{

+    void *result=memcpy(dest, src, n);

+    dbgprintf("memcpy(0x%x, 0x%x, %d) => %p\n", dest, src, n, result);

+    return result;

+}

+time_t exptime(time_t* t)

+{

+    time_t result=time(t);

+    dbgprintf("time(0x%x) => %d\n", t, result);

+    return result;

+}

+

+int exprand(void)

+{

+    return rand();

+}

+

+double explog10(double x)

+{

+    return log10(x);

+}

+

+double expcos(double x)

+{

+    return cos(x);

+}

+

+double exppow(double x, double y)

+{

+    return pow(x, y);

+}

+

+void expsrand(int seed)

+{

+    srand(seed);

+}

+

+int exp_ftol(float f)

+{

+    return (int)(f+.5);

+}

+

+int WINAPI expStringFromGUID2(GUID* guid, char* str, int cbMax)

+{

+    int result=snprintf(str, cbMax, "%.8x-%.4x-%.4x-%.2x%.2x%.2x%.2x%.2x%.2x%.2x%.2x",

+			guid->f1, guid->f2, guid->f3,

+			(unsigned char)guid->f4[0], (unsigned char)guid->f4[1],

+			(unsigned char)guid->f4[2], (unsigned char)guid->f4[3],

+			(unsigned char)guid->f4[4], (unsigned char)guid->f4[5],

+			(unsigned char)guid->f4[6], (unsigned char)guid->f4[7]);

+    dbgprintf("StringFromGUID2(0x%x, 0x%x='%s', %d) => %d\n", guid, str, str, cbMax, result);

+    return result;

+}

+

+

+int WINAPI expGetFileVersionInfoSizeA(const char* name, int* lpHandle)

+{

+    dbgprintf("GetFileVersionInfoSizeA(0x%x='%s', 0x%X) => 0\n", name, name, lpHandle);

+    return 0;

+}

+

+int WINAPI expIsBadStringPtrW(const short* string, int nchars)

+{

+    int result;

+    if(string==0)result=1; else result=0;

+    dbgprintf("IsBadStringPtrW(0x%x, %d) => %d", string, nchars, result);

+    if(string)wch_print(string);

+    return result;

+}

+extern long WINAPI InterlockedExchangeAdd( long* dest, long incr )

+{

+    long ret;

+    __asm__ __volatile__( "lock; xaddl %0,(%1)"

+                          : "=r" (ret) : "r" (dest), "0" (incr) : "memory" );

+    return ret;

+}

+

+extern long WINAPI expInterlockedIncrement( long* dest )

+{

+    long result=InterlockedExchangeAdd( dest, 1 ) + 1;

+    dbgprintf("InterlockedIncrement(0x%x => %d) => %d\n", dest, *dest, result);

+    return result;

+}

+extern long WINAPI expInterlockedDecrement( long* dest )

+{

+    long result=InterlockedExchangeAdd( dest, -1 ) - 1;

+    dbgprintf("InterlockedDecrement(0x%x => %d) => %d\n", dest, *dest, result);

+    return result;

+}

+

+extern void WINAPI expOutputDebugStringA( const char* string )

+{

+    dbgprintf("OutputDebugStringA(0x%x='%s')\n", string);

+    fprintf(stderr, "DEBUG: %s\n", string);

+}

+

+int WINAPI expGetDC(int hwnd)

+{

+    dbgprintf("GetDC(0x%x) => 0\n", hwnd);

+    return 0;

+}

+

+int WINAPI expGetDesktopWindow()

+{

+    dbgprintf("GetDesktopWindow() => 0\n");

+    return 0;

+}

+

+int WINAPI expReleaseDC(int hwnd, int hdc)

+{

+    dbgprintf("ReleaseDC(0x%x, 0x%x) => 0\n", hwnd, hdc);

+    return 0;

+}

+static int cursor[100];

+

+int WINAPI expLoadCursorA(int handle,LPCSTR name)

+{

+  dbgprintf("LoadCursorA(%d, 0x%x='%s') => 0x%x\n", handle, name, (int)&cursor[0]);

+  return (int)&cursor[0];

+}

+int WINAPI expSetCursor(void *cursor)

+{

+    dbgprintf("SetCursor(0x%x) => 0x%x\n", cursor, cursor);

+    return (int)cursor;

+}

+int WINAPI expGetCursorPos(void *cursor)

+{

+    dbgprintf("GetCursorPos(0x%x) => 0x%x\n", cursor, cursor);

+    return 1;

+}

+int WINAPI expRegisterWindowMessageA(char *message)

+{

+    dbgprintf("RegisterWindowMessageA(%s)\n", message);

+    return 1;

+}

+int WINAPI expGetProcessVersion(int pid)

+{

+    dbgprintf("GetProcessVersion(%d)\n", pid);

+    return 1;

+}

+int WINAPI expGetCurrentThread(void)

+{

+    dbgprintf("GetCurrentThread()\n");

+    return 1;

+}

+int WINAPI expGetOEMCP(void)

+{

+    dbgprintf("GetOEMCP()\n");

+    return 1;

+}

+int WINAPI expGetCPInfo(int cp,void *info)

+{

+    dbgprintf("GetCPInfo()\n");

+    return 0;

+}

+int WINAPI expGetSystemMetrics(int index)

+{

+    dbgprintf("GetSystemMetrics(%d)\n", index);

+    return 1;

+}

+int WINAPI expGetSysColor(int index)

+{

+    dbgprintf("GetSysColor(%d)\n", index);

+    return 1;

+}

+int WINAPI expGetSysColorBrush(int index)

+{

+    dbgprintf("GetSysColorBrush(%d)\n", index);

+    return 1;

+}

+

+

+

+int WINAPI expGetSystemPaletteEntries(int hdc, int iStartIndex, int nEntries, void* lppe)

+{

+    dbgprintf("GetSystemPaletteEntries(0x%x, 0x%x, 0x%x, 0x%x) => 0\n",

+	hdc, iStartIndex, nEntries, lppe);

+    return 0;

+}

+

+/*

+typedef struct _TIME_ZONE_INFORMATION {

+    long Bias;

+    char StandardName[32];

+    SYSTEMTIME StandardDate;

+    long StandardBias;

+    char DaylightName[32];

+    SYSTEMTIME DaylightDate;

+    long DaylightBias;

+} TIME_ZONE_INFORMATION, *LPTIME_ZONE_INFORMATION;

+*/

+

+int WINAPI expGetTimeZoneInformation(LPTIME_ZONE_INFORMATION lpTimeZoneInformation)

+{

+    const short name[]={'C', 'e', 'n', 't', 'r', 'a', 'l', ' ', 'S', 't', 'a',

+    'n', 'd', 'a', 'r', 'd', ' ', 'T', 'i', 'm', 'e', 0};

+    const short pname[]={'C', 'e', 'n', 't', 'r', 'a', 'l', ' ', 'D', 'a', 'y',

+    'l', 'i', 'g', 'h', 't', ' ', 'T', 'i', 'm', 'e', 0};

+    dbgprintf("GetTimeZoneInformation(0x%x) => TIME_ZONE_ID_STANDARD\n");

+    memset(lpTimeZoneInformation, 0, sizeof(TIME_ZONE_INFORMATION));

+    lpTimeZoneInformation->Bias=360;//GMT-6

+    memcpy(lpTimeZoneInformation->StandardName, name, sizeof(name));

+    lpTimeZoneInformation->StandardDate.wMonth=10;

+    lpTimeZoneInformation->StandardDate.wDay=5;

+    lpTimeZoneInformation->StandardDate.wHour=2;

+    lpTimeZoneInformation->StandardBias=0;

+    memcpy(lpTimeZoneInformation->DaylightName, pname, sizeof(pname));

+    lpTimeZoneInformation->DaylightDate.wMonth=4;

+    lpTimeZoneInformation->DaylightDate.wDay=1;

+    lpTimeZoneInformation->DaylightDate.wHour=2;

+    lpTimeZoneInformation->DaylightBias=-60;

+    return TIME_ZONE_ID_STANDARD;

+}

+

+void WINAPI expGetLocalTime(SYSTEMTIME* systime)

+{

+    time_t local_time;

+    struct tm *local_tm;

+    struct timeval tv;

+

+    dbgprintf("GetLocalTime(0x%x)\n");

+    gettimeofday(&tv, NULL);

+    local_time=tv.tv_sec;

+    local_tm=localtime(&local_time);

+

+    systime->wYear = local_tm->tm_year + 1900;

+    systime->wMonth = local_tm->tm_mon + 1;

+    systime->wDayOfWeek = local_tm->tm_wday;

+    systime->wDay = local_tm->tm_mday;

+    systime->wHour = local_tm->tm_hour;

+    systime->wMinute = local_tm->tm_min;

+    systime->wSecond = local_tm->tm_sec;

+    systime->wMilliseconds = (tv.tv_usec / 1000) % 1000;

+    dbgprintf("  Year: %d\n  Month: %d\n  Day of week: %d\n"

+    "  Day: %d\n  Hour: %d\n  Minute: %d\n  Second:  %d\n"

+    "  Milliseconds: %d\n",

+    systime->wYear, systime->wMonth, systime->wDayOfWeek, systime->wDay,

+    systime->wHour, systime->wMinute, systime->wSecond, systime->wMilliseconds);

+}

+

+int WINAPI expGetSystemTime(SYSTEMTIME* systime)

+{

+    time_t local_time;

+    struct tm *local_tm;

+    struct timeval tv;

+

+    dbgprintf("GetSystemTime(0x%x)\n", systime);

+    gettimeofday(&tv, NULL);

+    local_time=tv.tv_sec;

+    local_tm=gmtime(&local_time);

+

+    systime->wYear = local_tm->tm_year + 1900;

+    systime->wMonth = local_tm->tm_mon + 1;

+    systime->wDayOfWeek = local_tm->tm_wday;

+    systime->wDay = local_tm->tm_mday;

+    systime->wHour = local_tm->tm_hour;

+    systime->wMinute = local_tm->tm_min;

+    systime->wSecond = local_tm->tm_sec;

+    systime->wMilliseconds = (tv.tv_usec / 1000) % 1000;

+    dbgprintf("  Year: %d\n  Month: %d\n  Day of week: %d\n"

+    "  Day: %d\n  Hour: %d\n  Minute: %d\n  Second:  %d\n"

+    "  Milliseconds: %d\n",

+    systime->wYear, systime->wMonth, systime->wDayOfWeek, systime->wDay,

+    systime->wHour, systime->wMinute, systime->wSecond, systime->wMilliseconds);

+    return 0;

+}

+

+int WINAPI expGetEnvironmentVariableA(const char* name, char* field, int size)

+{

+    char *p;

+//    printf("%s %x %x\n", name, field, size);

+    if(field)field[0]=0;

+/*

+    p = getenv(name);

+    if (p) strncpy(field,p,size);

+*/

+    if (strcmp(name,"__MSVCRT_HEAP_SELECT")==0)

+       strcpy(field,"__GLOBAL_HEAP_SELECTED,1");

+    dbgprintf("GetEnvironmentVariableA(0x%x='%s', 0x%x, %d) => %d\n", name, name, field, size, strlen(field));

+    return strlen(field);

+}

+

+void* WINAPI expCoTaskMemAlloc(ULONG cb)

+{

+    return my_mreq(cb, 0);

+}

+void WINAPI expCoTaskMemFree(void* cb)

+{

+    my_release(cb);

+}

+

+void* CoTaskMemAlloc(ULONG cb){return expCoTaskMemAlloc(cb);}

+void CoTaskMemFree(void* cb){expCoTaskMemFree(cb);}

+

+struct COM_OBJECT_INFO

+{

+    GUID clsid;

+    long (*GetClassObject) (GUID* clsid, GUID* iid, void** ppv);

+};

+

+static struct COM_OBJECT_INFO* com_object_table=0;

+static int com_object_size=0;

+int RegisterComClass(GUID* clsid, GETCLASSOBJECT gcs)

+{

+    if(!clsid || !gcs)

+	return -1;

+    com_object_table=realloc(com_object_table, sizeof(struct COM_OBJECT_INFO)*(++com_object_size));

+    com_object_table[com_object_size-1].clsid=*clsid;

+    com_object_table[com_object_size-1].GetClassObject=gcs;

+    return 0;

+}

+

+int UnregisterComClass(GUID* clsid, GETCLASSOBJECT gcs)

+{

+    int found = 0;

+    int i = 0;

+    if(!clsid || !gcs)

+	return -1;

+

+    if (com_object_table == 0)

+	printf("Warning: UnregisterComClass() called without any registered class\n");

+    while (i < com_object_size)

+    {

+	if (found && i > 0)

+	{

+	    memcpy(&com_object_table[i - 1].clsid,

+		   &com_object_table[i].clsid, sizeof(GUID));

+	    com_object_table[i - 1].GetClassObject =

+		com_object_table[i].GetClassObject;

+	}

+	else if (memcmp(&com_object_table[i].clsid, clsid, sizeof(GUID)) == 0

+		 && com_object_table[i].GetClassObject == gcs)

+	{

+            found++;

+	}

+	i++;

+    }

+    if (found)

+    {

+	if (--com_object_size == 0)

+	{

+	    free(com_object_table);

+            com_object_table = 0;

+	}

+    }

+    return 0;

+}

+

+

+GUID IID_IUnknown={0x00000000, 0x0000, 0x0000,

+    {0xc0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x46}};

+GUID IID_IClassFactory={0x00000001, 0x0000, 0x0000,

+    {0xc0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x46}};

+

 long WINAPI expCoCreateInstance(GUID* rclsid, struct IUnknown* pUnkOuter,

-                    long dwClsContext, GUID* riid, void** ppv)
-{
-    int i;
-    struct COM_OBJECT_INFO* ci=0;
-    for(i=0; i<com_object_size; i++)
-	if(!memcmp(rclsid, &com_object_table[i].clsid, sizeof(GUID)))
-	    ci=&com_object_table[i];
-    if(!ci)return 0x80040154;
-    // in 'real' world we should mess with IClassFactory here
-    i=ci->GetClassObject(rclsid, riid, ppv);
-    return i;
-}
-
+                    long dwClsContext, GUID* riid, void** ppv)

+{

+    int i;

+    struct COM_OBJECT_INFO* ci=0;

+    for(i=0; i<com_object_size; i++)

+	if(!memcmp(rclsid, &com_object_table[i].clsid, sizeof(GUID)))

+	    ci=&com_object_table[i];

+    if(!ci)return 0x80040154;

+    // in 'real' world we should mess with IClassFactory here

+    i=ci->GetClassObject(rclsid, riid, ppv);

+    return i;

+}

+

 long CoCreateInstance(GUID* rclsid, struct IUnknown* pUnkOuter,

-                    long dwClsContext, GUID* riid, void** ppv)
-{
-    return expCoCreateInstance(rclsid, pUnkOuter, dwClsContext, riid, ppv);
-}
-
-int WINAPI
 expIsRectEmpty(
CONST RECT *lprc)
-{
-    dbgprintf("IsRectEmpty(0x%x)");
-    if((!lprc) || (lprc->right==lprc->left) || (lprc->top==lprc->bottom))
-    {
-	dbgprintf(" => TRUE\n");
-	return TRUE;
-    }
-    dbgprintf(" => FALSE\n");
-    return FALSE;
-}
-
-int _adjust_fdiv=0; //what's this?
-
-
-
-
-unsigned int WINAPI expGetTempPathA(unsigned int len, char* path)
-{
-    dbgprintf("GetTempPathA(%d, 0x%x)", len, path);
-    if(len<5)
-    {
-	dbgprintf(" => 0\n");
-	return 0;
-    }
-    strcpy(path, "/tmp");
-    dbgprintf(" => 5 ( '/tmp' )\n");
-    return 5;
-}
-/*
-FYI:
-typedef struct
-{
-    DWORD     dwFileAttributes;
-    FILETIME  ftCreationTime;
-    FILETIME  ftLastAccessTime;
-    FILETIME  ftLastWriteTime;
-    DWORD     nFileSizeHigh;
-    DWORD     nFileSizeLow;
-    DWORD     dwReserved0;
-    DWORD     dwReserved1;
-    CHAR      cFileName[260];
-    CHAR      cAlternateFileName[14];
-} WIN32_FIND_DATAA, *LPWIN32_FIND_DATAA;
-*/
-
-HANDLE WINAPI expFindFirstFileA(LPCSTR s, LPWIN32_FIND_DATAA lpfd)
-{
-    dbgprintf("FindFirstFileA(0x%x='%s', 0x%x) => 0\n", s, s, lpfd);
-    strcpy(lpfd->cFileName, "msms001.vwp");
-    strcpy(lpfd->cAlternateFileName, "msms001.vwp");
-    return (HANDLE)0;
-}
-WIN_BOOL WINAPI expFindNextFileA(HANDLE h,LPWIN32_FIND_DATAA p)
-{
-    dbgprintf("FindNextFileA(0x%x, 0x%x) => 0\n", h, p);
-    return 0;
-}
-WIN_BOOL WINAPI expFindClose(HANDLE h)
-{
-    dbgprintf("FindClose(0x%x) => 0\n", h);
-    return 0;
-}
-UINT WINAPI expSetErrorMode(UINT i)
-{
-    dbgprintf("SetErrorMode(%d) => 0\n", i);
-    return 0;
-}
-UINT      WINAPI expGetWindowsDirectoryA(LPSTR s,UINT c)
-{
-    char windir[]="c:\\windows";
-    int result;
-    strncpy(s, windir, c);
-    result=1+((c<strlen(windir))?c:strlen(windir));
-    dbgprintf("GetWindowsDirectoryA(0x%x, %d) => %d\n", s, c, result);
-    return result;
-}
-
-WIN_BOOL  WINAPI expDeleteFileA(LPCSTR s)
-{
-    dbgprintf("DeleteFileA(0x%x='%s') => 0\n", s, s);
-    return 0;
-}
-WIN_BOOL  WINAPI expFileTimeToLocalFileTime(const FILETIME* cpf, LPFILETIME pf)
-{
-    dbgprintf("FileTimeToLocalFileTime(0x%x, 0x%x) => 0\n", cpf, pf);
-    return 0;
-}
-
-UINT WINAPI expGetTempFileNameA(LPCSTR cs1,LPCSTR cs2,UINT i,LPSTR ps)
-{
-    char mask[16]="/tmp/AP_XXXXXX";
-    int result;
-    dbgprintf("GetTempFileNameA(0x%x='%s', 0x%x='%s', %d, 0x%x)", cs1, cs1, cs2, cs2, i, ps);
-    if(i && i<10)
-    {
-	dbgprintf(" => -1\n");
-	return -1;
-    }
-    result=mkstemp(mask);
-    sprintf(ps, "AP%d", result);
-    dbgprintf(" => %d\n", strlen(ps));
-    return strlen(ps);
-}
-//
-// This func might need proper implementation if we want AngelPotion codec.
-// They try to open APmpeg4v1.apl with it.
-// DLL will close opened file with CloseHandle().
-//
-HANDLE WINAPI expCreateFileA(LPCSTR cs1,DWORD i1,DWORD i2,
-    LPSECURITY_ATTRIBUTES p1, DWORD i3,DWORD i4,HANDLE i5)
-{
-    dbgprintf("CreateFileA(0x%x='%s', %d, %d, 0x%x, %d, %d, 0x%x)\n", cs1, cs1, i1,
-	     i2, p1, i3, i4, i5);
-    if((!cs1) || (strlen(cs1)<2))return -1;
-    if(strncmp(cs1, "AP", 2))
-    {
-	int result;
-	char* tmp=(char*)malloc(strlen(win32_def_path)+50);
-	strcpy(tmp, win32_def_path);
-	strcat(tmp, "/");
-	strcat(tmp, "APmpg4v1.apl");
-	result=open(tmp, O_RDONLY);
-	free(tmp);
-	return result;
-    };
-    return atoi(cs1+2);
-}
-static char sysdir[]=".";
-LPCSTR WINAPI expGetSystemDirectoryA()
-{
-    dbgprintf("GetSystemDirectoryA() => 0x%x='%s'\n", sysdir, sysdir);
-    return sysdir;
-}
-WIN_BOOL WINAPI expReadFile(HANDLE h,LPVOID pv,DWORD size,LPDWORD rd,LPOVERLAPPED unused)
-{
-    int result;
-    dbgprintf("ReadFile(%d, 0x%x, %d -> 0x%x)\n", h, pv, size, rd);
-    result=read(h, pv, size);
-    if(rd)*rd=result;
-    if(!result)return 0;
-    return 1;
-}
-
-WIN_BOOL WINAPI expWriteFile(HANDLE h,LPCVOID pv,DWORD size,LPDWORD wr,LPOVERLAPPED unused)
-{
-    int result;
-    dbgprintf("WriteFile(%d, 0x%x, %d -> 0x%x)\n", h, pv, size, wr);
-    if(h==1234)h=1;
-    result=write(h, pv, size);
-    if(wr)*wr=result;
-    if(!result)return 0;
-    return 1;
-}
-DWORD  WINAPI expSetFilePointer(HANDLE h, LONG val, LPLONG ext, DWORD whence)
-{
-    int wh;
-    dbgprintf("SetFilePointer(%d, %d, 0x%x, %d)\n", h, val, ext, whence);
-//why would DLL want temporary file with >2Gb size?
-    switch(whence)
-    {
-    case FILE_BEGIN:
-	wh=SEEK_SET;break;
-    case FILE_END:
-	wh=SEEK_END;break;
-    case FILE_CURRENT:
-	wh=SEEK_CUR;break;
-    default:
-	return -1;
-    }
-    return lseek(h, val, wh);
-}
-
-HDRVR WINAPI expOpenDriverA(LPCSTR szDriverName, LPCSTR szSectionName,
-                             LPARAM lParam2)
-{
-    dbgprintf("OpenDriverA(0x%x='%s', 0x%x='%s', 0x%x) => -1\n", szDriverName,  szDriverName, szSectionName, szSectionName, lParam2);
-    return -1;
-}
-HDRVR WINAPI expOpenDriver(LPCSTR szDriverName, LPCSTR szSectionName,
-                             LPARAM lParam2)
-{
-    dbgprintf("OpenDriver(0x%x='%s', 0x%x='%s', 0x%x) => -1\n", szDriverName, szDriverName, szSectionName, szSectionName, lParam2);
-    return -1;
-}
-
-
-WIN_BOOL
 WINAPI
 expGetProcessAffinityMask(

+                    long dwClsContext, GUID* riid, void** ppv)

+{

+    return expCoCreateInstance(rclsid, pUnkOuter, dwClsContext, riid, ppv);

+}

+

+int WINAPI

+ expIsRectEmpty(

+CONST RECT *lprc)

+{

+    dbgprintf("IsRectEmpty(0x%x)");

+    if((!lprc) || (lprc->right==lprc->left) || (lprc->top==lprc->bottom))

+    {

+	dbgprintf(" => TRUE\n");

+	return TRUE;

+    }

+    dbgprintf(" => FALSE\n");

+    return FALSE;

+}

+

+int _adjust_fdiv=0; //what's this?

+

+

+

+

+unsigned int WINAPI expGetTempPathA(unsigned int len, char* path)

+{

+    dbgprintf("GetTempPathA(%d, 0x%x)", len, path);

+    if(len<5)

+    {

+	dbgprintf(" => 0\n");

+	return 0;

+    }

+    strcpy(path, "/tmp");

+    dbgprintf(" => 5 ( '/tmp' )\n");

+    return 5;

+}

+/*

+FYI:

+typedef struct

+{

+    DWORD     dwFileAttributes;

+    FILETIME  ftCreationTime;

+    FILETIME  ftLastAccessTime;

+    FILETIME  ftLastWriteTime;

+    DWORD     nFileSizeHigh;

+    DWORD     nFileSizeLow;

+    DWORD     dwReserved0;

+    DWORD     dwReserved1;

+    CHAR      cFileName[260];

+    CHAR      cAlternateFileName[14];

+} WIN32_FIND_DATAA, *LPWIN32_FIND_DATAA;

+*/

+

+HANDLE WINAPI expFindFirstFileA(LPCSTR s, LPWIN32_FIND_DATAA lpfd)

+{

+    dbgprintf("FindFirstFileA(0x%x='%s', 0x%x) => 0\n", s, s, lpfd);

+    strcpy(lpfd->cFileName, "msms001.vwp");

+    strcpy(lpfd->cAlternateFileName, "msms001.vwp");

+    return (HANDLE)0;

+}

+WIN_BOOL WINAPI expFindNextFileA(HANDLE h,LPWIN32_FIND_DATAA p)

+{

+    dbgprintf("FindNextFileA(0x%x, 0x%x) => 0\n", h, p);

+    return 0;

+}

+WIN_BOOL WINAPI expFindClose(HANDLE h)

+{

+    dbgprintf("FindClose(0x%x) => 0\n", h);

+    return 0;

+}

+UINT WINAPI expSetErrorMode(UINT i)

+{

+    dbgprintf("SetErrorMode(%d) => 0\n", i);

+    return 0;

+}

+UINT      WINAPI expGetWindowsDirectoryA(LPSTR s,UINT c)

+{

+    char windir[]="c:\\windows";

+    int result;

+    strncpy(s, windir, c);

+    result=1+((c<strlen(windir))?c:strlen(windir));

+    dbgprintf("GetWindowsDirectoryA(0x%x, %d) => %d\n", s, c, result);

+    return result;

+}

+

+WIN_BOOL  WINAPI expDeleteFileA(LPCSTR s)

+{

+    dbgprintf("DeleteFileA(0x%x='%s') => 0\n", s, s);

+    return 0;

+}

+WIN_BOOL  WINAPI expFileTimeToLocalFileTime(const FILETIME* cpf, LPFILETIME pf)

+{

+    dbgprintf("FileTimeToLocalFileTime(0x%x, 0x%x) => 0\n", cpf, pf);

+    return 0;

+}

+

+UINT WINAPI expGetTempFileNameA(LPCSTR cs1,LPCSTR cs2,UINT i,LPSTR ps)

+{

+    char mask[16]="/tmp/AP_XXXXXX";

+    int result;

+    dbgprintf("GetTempFileNameA(0x%x='%s', 0x%x='%s', %d, 0x%x)", cs1, cs1, cs2, cs2, i, ps);

+    if(i && i<10)

+    {

+	dbgprintf(" => -1\n");

+	return -1;

+    }

+    result=mkstemp(mask);

+    sprintf(ps, "AP%d", result);

+    dbgprintf(" => %d\n", strlen(ps));

+    return strlen(ps);

+}

+//

+// This func might need proper implementation if we want AngelPotion codec.

+// They try to open APmpeg4v1.apl with it.

+// DLL will close opened file with CloseHandle().

+//

+HANDLE WINAPI expCreateFileA(LPCSTR cs1,DWORD i1,DWORD i2,

+    LPSECURITY_ATTRIBUTES p1, DWORD i3,DWORD i4,HANDLE i5)

+{

+    dbgprintf("CreateFileA(0x%x='%s', %d, %d, 0x%x, %d, %d, 0x%x)\n", cs1, cs1, i1,

+	     i2, p1, i3, i4, i5);

+    if((!cs1) || (strlen(cs1)<2))return -1;

+    if(strncmp(cs1, "AP", 2))

+    {

+	int result;

+	char* tmp=(char*)malloc(strlen(win32_def_path)+50);

+	strcpy(tmp, win32_def_path);

+	strcat(tmp, "/");

+	strcat(tmp, "APmpg4v1.apl");

+	result=open(tmp, O_RDONLY);

+	free(tmp);

+	return result;

+    };

+    return atoi(cs1+2);

+}

+static char sysdir[]=".";

+LPCSTR WINAPI expGetSystemDirectoryA()

+{

+    dbgprintf("GetSystemDirectoryA() => 0x%x='%s'\n", sysdir, sysdir);

+    return sysdir;

+}

+WIN_BOOL WINAPI expReadFile(HANDLE h,LPVOID pv,DWORD size,LPDWORD rd,LPOVERLAPPED unused)

+{

+    int result;

+    dbgprintf("ReadFile(%d, 0x%x, %d -> 0x%x)\n", h, pv, size, rd);

+    result=read(h, pv, size);

+    if(rd)*rd=result;

+    if(!result)return 0;

+    return 1;

+}

+

+WIN_BOOL WINAPI expWriteFile(HANDLE h,LPCVOID pv,DWORD size,LPDWORD wr,LPOVERLAPPED unused)

+{

+    int result;

+    dbgprintf("WriteFile(%d, 0x%x, %d -> 0x%x)\n", h, pv, size, wr);

+    if(h==1234)h=1;

+    result=write(h, pv, size);

+    if(wr)*wr=result;

+    if(!result)return 0;

+    return 1;

+}

+DWORD  WINAPI expSetFilePointer(HANDLE h, LONG val, LPLONG ext, DWORD whence)

+{

+    int wh;

+    dbgprintf("SetFilePointer(%d, %d, 0x%x, %d)\n", h, val, ext, whence);

+//why would DLL want temporary file with >2Gb size?

+    switch(whence)

+    {

+    case FILE_BEGIN:

+	wh=SEEK_SET;break;

+    case FILE_END:

+	wh=SEEK_END;break;

+    case FILE_CURRENT:

+	wh=SEEK_CUR;break;

+    default:

+	return -1;

+    }

+    return lseek(h, val, wh);

+}

+

+HDRVR WINAPI expOpenDriverA(LPCSTR szDriverName, LPCSTR szSectionName,

+                             LPARAM lParam2)

+{

+    dbgprintf("OpenDriverA(0x%x='%s', 0x%x='%s', 0x%x) => -1\n", szDriverName,  szDriverName, szSectionName, szSectionName, lParam2);

+    return -1;

+}

+HDRVR WINAPI expOpenDriver(LPCSTR szDriverName, LPCSTR szSectionName,

+                             LPARAM lParam2)

+{

+    dbgprintf("OpenDriver(0x%x='%s', 0x%x='%s', 0x%x) => -1\n", szDriverName, szDriverName, szSectionName, szSectionName, lParam2);

+    return -1;

+}

+

+

+WIN_BOOL

+ WINAPI

+ expGetProcessAffinityMask(

     HANDLE hProcess,

     LPDWORD lpProcessAffinityMask,

     LPDWORD lpSystemAffinityMask

-    )
-{
-    dbgprintf("GetProcessAffinityMask(0x%x, 0x%x, 0x%x) => 1\n",
-	hProcess, lpProcessAffinityMask, lpSystemAffinityMask);
-    if(lpProcessAffinityMask)*lpProcessAffinityMask=1;
-    if(lpSystemAffinityMask)*lpSystemAffinityMask=1;
-    return 1;
-}
-
-int WINAPI expMulDiv(int nNumber, int nNumerator, int nDenominator)
-{
-    static const long long max_int=0x7FFFFFFFLL;
-    static const long long min_int=-0x80000000LL;
-    long long tmp=(long long)nNumber*(long long)nNumerator;
-    if(!nDenominator)return 1;
-    tmp/=nDenominator;
-    if(tmp<min_int) return 1;
-    if(tmp>max_int) return 1;
-    return (int)tmp;
-}
-
-LONG WINAPI explstrcmpiA(const char* str1, const char* str2)
-{
-    LONG result=strcasecmp(str1, str2);
-    dbgprintf("strcmpi(0x%x='%s', 0x%x='%s') => %d\n", str1, str1, str2, str2, result);
-    return result;
-}
-
-LONG WINAPI explstrlenA(const char* str1)
-{
-    LONG result=strlen(str1);
-    dbgprintf("strlen(0x%x='%s') => %d\n", str1, str1, result);
-    return result;
-}
-
-LONG WINAPI explstrcpyA(char* str1, const char* str2)
-{
-    int result= (int) strcpy(str1, str2);
-    dbgprintf("strcpy(0x%x, 0x%x='%s') => %d\n", str1, str2, str2, result);
-    return result;
-}
-LONG WINAPI explstrcpynA(char* str1, const char* str2,int len)
-{
-    int result;
-    if (strlen(str2)>len)
-      result =  (int) strncpy(str1, str2,len);
-    else
-      result =  (int) strcpy(str1,str2);
-    dbgprintf("strncpy(0x%x, 0x%x='%s' len %d strlen %d) => %x\n", str1, str2, str2,len, strlen(str2),result);
-    return result;
-}
-LONG WINAPI explstrcatA(char* str1, const char* str2)
-{
-    int result= (int) strcat(str1, str2);
-    dbgprintf("strcat(0x%x, 0x%x='%s') => %d\n", str1, str2, str2, result);
-    return result;
-}
-
-
-LONG WINAPI expInterlockedExchange(long *dest, long l)
-{
-	long retval;
-	retval = *dest;
-	*dest = l;
-	return retval;
-}
-
-void WINAPI expInitCommonControls(void)
-{
-    printf("InitCommonControls called!\n");
-    return;
-}
-
-struct exports
-{
-    char name[64];
-    int id;
-    void* func;
-};
-struct libs
-{
-    char name[64];
-    int length;
-    struct exports* exps;
-};
-
-#define FF(X,Y) \
-{#X, Y, (void*)exp##X},
-
-struct exports exp_kernel32[]={
-FF(IsBadWritePtr, 357)
-FF(IsBadReadPtr, 354)
-FF(IsBadStringPtrW, -1)
-FF(DisableThreadLibraryCalls, -1)
-FF(CreateThread, -1)
-FF(CreateEventA, -1)
-FF(SetEvent, -1)
-FF(ResetEvent, -1)
-FF(WaitForSingleObject, -1)
-FF(GetSystemInfo, -1)
-FF(GetVersion, 332)
-FF(HeapCreate, 461)
-FF(HeapAlloc, -1)
-FF(HeapDestroy, -1)
-FF(HeapFree, -1)
-FF(HeapSize, -1)
-FF(HeapReAlloc,-1)
-FF(GetProcessHeap, -1)
-FF(VirtualAlloc, -1)
-FF(VirtualFree, -1)
-FF(InitializeCriticalSection, -1)
-FF(EnterCriticalSection, -1)
-FF(LeaveCriticalSection, -1)
-FF(DeleteCriticalSection, -1)
-FF(TlsAlloc, -1)
-FF(TlsFree, -1)
-FF(TlsGetValue, -1)
-FF(TlsSetValue, -1)
-FF(GetCurrentThreadId, -1)
-FF(GetCurrentProcess, -1)
-FF(LocalAlloc, -1)
-FF(LocalReAlloc,-1)
-FF(LocalLock, -1)
-FF(GlobalAlloc, -1)
-FF(GlobalReAlloc, -1)
-FF(GlobalLock, -1)
-FF(MultiByteToWideChar, 427)
-FF(WideCharToMultiByte, -1)
-FF(GetVersionExA, -1)
-FF(CreateSemaphoreA, -1)
-FF(QueryPerformanceCounter, -1)
-FF(QueryPerformanceFrequency, -1)
-FF(LocalHandle, -1)
-FF(LocalUnlock, -1)
-FF(LocalFree, -1)
-FF(GlobalHandle, -1)
-FF(GlobalUnlock, -1)
-FF(GlobalFree, -1)
-FF(LoadResource, -1)
-FF(ReleaseSemaphore, -1)
-FF(FindResourceA, -1)
-FF(LockResource, -1)
-FF(FreeResource, -1)
-FF(SizeofResource, -1)
-FF(CloseHandle, -1)
-FF(GetCommandLineA, -1)
-FF(GetEnvironmentStringsW, -1)
-FF(FreeEnvironmentStringsW, -1)
-FF(FreeEnvironmentStringsA, -1)
-FF(GetEnvironmentStrings, -1)
-FF(GetStartupInfoA, -1)
-FF(GetStdHandle, -1)
-FF(GetFileType, -1)
-FF(SetHandleCount, -1)
-FF(GetACP, -1)
-FF(GetModuleFileNameA, -1)
-FF(SetUnhandledExceptionFilter, -1)
-FF(LoadLibraryA, -1)
-FF(GetProcAddress, -1)
-FF(FreeLibrary, -1)
-FF(CreateFileMappingA, -1)
-FF(OpenFileMappingA, -1)
-FF(MapViewOfFile, -1)
-FF(UnmapViewOfFile, -1)
-FF(Sleep, -1)
-FF(GetModuleHandleA, -1)
-FF(GetProfileIntA, -1)
-FF(GetPrivateProfileIntA, -1)
-FF(GetPrivateProfileStringA, -1)
-FF(WritePrivateProfileStringA, -1)
-FF(GetLastError, -1)
-FF(SetLastError, -1)
-FF(InterlockedIncrement, -1)
-FF(InterlockedDecrement, -1)
-FF(GetTimeZoneInformation, -1)
-FF(OutputDebugStringA, -1)
-FF(GetLocalTime, -1)
-FF(GetSystemTime, -1)
-FF(GetEnvironmentVariableA, -1)
-FF(RtlZeroMemory,-1)
-FF(RtlMoveMemory,-1)
-FF(RtlFillMemory,-1)
-FF(GetTempPathA,-1)
-FF(FindFirstFileA,-1)
-FF(FindNextFileA,-1)
-FF(FindClose,-1)
-FF(FileTimeToLocalFileTime,-1)
-FF(DeleteFileA,-1)
-FF(ReadFile,-1)
-FF(WriteFile,-1)
-FF(SetFilePointer,-1)
-FF(GetTempFileNameA,-1)
-FF(CreateFileA,-1)
-FF(GetSystemDirectoryA,-1)
-FF(GetWindowsDirectoryA,-1)
-FF(SetErrorMode, -1)
-FF(IsProcessorFeaturePresent, -1)
-FF(GetProcessAffinityMask, -1)
-FF(InterlockedExchange, -1)
-FF(MulDiv, -1)
-FF(lstrcmpiA, -1)
-FF(lstrlenA, -1)
-FF(lstrcpyA, -1)
-FF(lstrcatA, -1)
-FF(lstrcpynA,-1)
-FF(GetProcessVersion,-1)
-FF(GetCurrentThread,-1)
-FF(GetOEMCP,-1)
-FF(GetCPInfo,-1)
-};
-
-struct exports exp_msvcrt[]={
-FF(malloc, -1)
-FF(_initterm, -1)
-FF(free, -1)
-{"??3@YAXPAX@Z", -1, expdelete},
-{"??2@YAPAXI@Z", -1, expnew},
-{"_adjust_fdiv", -1, (void*)&_adjust_fdiv},
-FF(strrchr, -1)
-FF(strchr, -1)
-FF(strlen, -1)
-FF(strcpy, -1)
-FF(strcmp, -1)
-FF(strcat, -1)
-FF(isalnum, -1)
-FF(memmove, -1)
-FF(memcmp, -1)
-FF(time, -1)
-FF(_ftol,-1)
-FF(rand, -1)
-FF(log10, -1)
-FF(pow, -1)
-FF(cos, -1)
-FF(srand, -1)
-FF(sprintf,-1)
-FF(sscanf,-1)
-FF(fopen,-1)
-FF(fprintf,-1)
-FF(printf,-1)
-};
-struct exports exp_winmm[]={
-FF(GetDriverModuleHandle, -1)
-FF(timeGetTime, -1)
-FF(DefDriverProc, -1)
-FF(OpenDriverA, -1)
-FF(OpenDriver, -1)
-};
-struct exports exp_user32[]={
-FF(LoadStringA, -1)
-FF(wsprintfA, -1)
-FF(GetDC, -1)
-FF(GetDesktopWindow, -1)
-FF(ReleaseDC, -1)
-FF(IsRectEmpty, -1)
-FF(LoadCursorA,-1)
-FF(SetCursor,-1)
-FF(GetCursorPos,-1)
-FF(GetCursorPos,-1)
-FF(RegisterWindowMessageA,-1)
-FF(GetSystemMetrics,-1)
-FF(GetSysColor,-1)
-FF(GetSysColorBrush,-1)
-};
-struct exports exp_advapi32[]={
-FF(RegOpenKeyA, -1)
-FF(RegOpenKeyExA, -1)
-FF(RegCreateKeyExA, -1)
-FF(RegQueryValueExA, -1)
-FF(RegSetValueExA, -1)
-FF(RegCloseKey, -1)
-FF(RegEnumValueA, -1)
-};
-struct exports exp_gdi32[]={
-FF(CreateCompatibleDC, -1)
-FF(GetDeviceCaps, -1)
-FF(DeleteDC, -1)
-FF(GetSystemPaletteEntries, -1)
-};
-struct exports exp_version[]={
-FF(GetFileVersionInfoSizeA, -1)
-};
-struct exports exp_ole32[]={
-FF(CoTaskMemAlloc, -1)
-FF(CoTaskMemFree, -1)
-FF(CoCreateInstance, -1)
-FF(StringFromGUID2, -1)
-};
-struct exports exp_crtdll[]={
-FF(memcpy, -1)
-FF(wcscpy, -1)
-};
-struct exports exp_comctl32[]={
-FF(StringFromGUID2, -1)
-FF(InitCommonControls, 17)
-};
-
-#define LL(X) \
-{#X".dll", sizeof(exp_##X)/sizeof(struct exports), exp_##X},
-
-struct libs libraries[]={
-LL(kernel32)
-LL(msvcrt)
-LL(winmm)
-LL(user32)
-LL(advapi32)
-LL(gdi32)
-LL(version)
-LL(ole32)
-LL(crtdll)
-LL(comctl32)
-};
-
-
-void* LookupExternal(const char* library, int ordinal)
-{
-    char* answ;
-    int i,j;
-    if(library==0)
-    {
-	printf("ERROR: library=0\n");
-	return (void*)ext_unknown;
-    }
-//    printf("%x %x\n", &unk_exp1, &unk_exp2);
-
-    for(i=0; i<sizeof(libraries)/sizeof(struct libs); i++)
-    {
-	if(strcasecmp(library, libraries[i].name))
-	    continue;
-	for(j=0; j<libraries[i].length; j++)
-	{
-	    if(ordinal!=libraries[i].exps[j].id)
-		continue;
-	    //printf("Hit: 0x%p\n", libraries[i].exps[j].func);
-	    return libraries[i].exps[j].func;
-	}
-    }
-    printf("External func %s:%d\n", library, ordinal);
-    if(pos>150)return 0;
-    answ=(char*)extcode+pos*0x64;
-    memcpy(answ, &unk_exp1, 0x64);
-    *(int*)(answ+9)=pos;
-    *(int*)(answ+47)-=((int)answ-(int)&unk_exp1);
-    sprintf(export_names[pos], "%s:%d", library, ordinal);
-    pos++;
-    return (void*)answ;
-}
-
-void* LookupExternalByName(const char* library, const char* name)
-{
-    char* answ;
-    int i,j;
-//   return (void*)ext_unknown;
-    if(library==0)
-    {
-	printf("ERROR: library=0\n");
-	return (void*)ext_unknown;
-    }
-    if(name==0)
-    {
-	printf("ERROR: name=0\n");
-	return (void*)ext_unknown;
-    }
-    //printf("External func %s:%s\n", library, name);
-    for(i=0; i<sizeof(libraries)/sizeof(struct libs); i++)
-    {
-	if(strcasecmp(library, libraries[i].name))
-	    continue;
-	for(j=0; j<libraries[i].length; j++)
-	{
-	    if(strcmp(name, libraries[i].exps[j].name))
-		continue;
-//	    printf("Hit: 0x%08X\n", libraries[i].exps[j].func);
-	    return libraries[i].exps[j].func;
-	}
-    }
-//    printf("%s %s\n", library, name);
-    if(pos>150)return 0;
-    strcpy(export_names[pos], name);
-    answ=(char*)extcode+pos*0x64;
-    memcpy(answ, &unk_exp1, 0x64);
-    *(int*)(answ+9)=pos;
-    *(int*)(answ+47)-=((int)answ-(int)&unk_exp1);
-    pos++;
-    return (void*)answ;
-//    memcpy(extcode, &unk_exp1, 0x64);
-//    *(int*)(extcode+52)-=((int)extcode-(int)&unk_exp1);
-//    return (void*)extcode;
-//    printf("Unknown func %s:%s\n", library, name);
-//    return (void*)ext_unknown;
-}
-
-void my_garbagecollection(void)
-{
-#ifdef GARBAGE
-    int unfree = 0, unfreecnt = 0;
-
-    while (last_alloc)
-    {
-	alloc_header* mem = last_alloc + 1;
-	unfree += my_size(mem);
-        unfreecnt++;
-	my_release(mem);
-    }
-    printf("Total Unfree %d bytes cnt %d [%p,%d]\n",unfree, unfreecnt, last_alloc, alccnt);
-#endif
-}
+    )

+{

+    dbgprintf("GetProcessAffinityMask(0x%x, 0x%x, 0x%x) => 1\n",

+	hProcess, lpProcessAffinityMask, lpSystemAffinityMask);

+    if(lpProcessAffinityMask)*lpProcessAffinityMask=1;

+    if(lpSystemAffinityMask)*lpSystemAffinityMask=1;

+    return 1;

+}

+

+int WINAPI expMulDiv(int nNumber, int nNumerator, int nDenominator)

+{

+    static const long long max_int=0x7FFFFFFFLL;

+    static const long long min_int=-0x80000000LL;

+    long long tmp=(long long)nNumber*(long long)nNumerator;

+    if(!nDenominator)return 1;

+    tmp/=nDenominator;

+    if(tmp<min_int) return 1;

+    if(tmp>max_int) return 1;

+    return (int)tmp;

+}

+

+LONG WINAPI explstrcmpiA(const char* str1, const char* str2)

+{

+    LONG result=strcasecmp(str1, str2);

+    dbgprintf("strcmpi(0x%x='%s', 0x%x='%s') => %d\n", str1, str1, str2, str2, result);

+    return result;

+}

+

+LONG WINAPI explstrlenA(const char* str1)

+{

+    LONG result=strlen(str1);

+    dbgprintf("strlen(0x%x='%s') => %d\n", str1, str1, result);

+    return result;

+}

+

+LONG WINAPI explstrcpyA(char* str1, const char* str2)

+{

+    int result= (int) strcpy(str1, str2);

+    dbgprintf("strcpy(0x%x, 0x%x='%s') => %d\n", str1, str2, str2, result);

+    return result;

+}

+LONG WINAPI explstrcpynA(char* str1, const char* str2,int len)

+{

+    int result;

+    if (strlen(str2)>len)

+      result =  (int) strncpy(str1, str2,len);

+    else

+      result =  (int) strcpy(str1,str2);

+    dbgprintf("strncpy(0x%x, 0x%x='%s' len %d strlen %d) => %x\n", str1, str2, str2,len, strlen(str2),result);

+    return result;

+}

+LONG WINAPI explstrcatA(char* str1, const char* str2)

+{

+    int result= (int) strcat(str1, str2);

+    dbgprintf("strcat(0x%x, 0x%x='%s') => %d\n", str1, str2, str2, result);

+    return result;

+}

+

+

+LONG WINAPI expInterlockedExchange(long *dest, long l)

+{

+	long retval;

+	retval = *dest;

+	*dest = l;

+	return retval;

+}

+

+void WINAPI expInitCommonControls(void)

+{

+    printf("InitCommonControls called!\n");

+    return;

+}

+

+struct exports

+{

+    char name[64];

+    int id;

+    void* func;

+};

+struct libs

+{

+    char name[64];

+    int length;

+    struct exports* exps;

+};

+

+#define FF(X,Y) \

+{#X, Y, (void*)exp##X},

+

+struct exports exp_kernel32[]={

+FF(IsBadWritePtr, 357)

+FF(IsBadReadPtr, 354)

+FF(IsBadStringPtrW, -1)

+FF(DisableThreadLibraryCalls, -1)

+FF(CreateThread, -1)

+FF(CreateEventA, -1)

+FF(SetEvent, -1)

+FF(ResetEvent, -1)

+FF(WaitForSingleObject, -1)

+FF(GetSystemInfo, -1)

+FF(GetVersion, 332)

+FF(HeapCreate, 461)

+FF(HeapAlloc, -1)

+FF(HeapDestroy, -1)

+FF(HeapFree, -1)

+FF(HeapSize, -1)

+FF(HeapReAlloc,-1)

+FF(GetProcessHeap, -1)

+FF(VirtualAlloc, -1)

+FF(VirtualFree, -1)

+FF(InitializeCriticalSection, -1)

+FF(EnterCriticalSection, -1)

+FF(LeaveCriticalSection, -1)

+FF(DeleteCriticalSection, -1)

+FF(TlsAlloc, -1)

+FF(TlsFree, -1)

+FF(TlsGetValue, -1)

+FF(TlsSetValue, -1)

+FF(GetCurrentThreadId, -1)

+FF(GetCurrentProcess, -1)

+FF(LocalAlloc, -1)

+FF(LocalReAlloc,-1)

+FF(LocalLock, -1)

+FF(GlobalAlloc, -1)

+FF(GlobalReAlloc, -1)

+FF(GlobalLock, -1)

+FF(MultiByteToWideChar, 427)

+FF(WideCharToMultiByte, -1)

+FF(GetVersionExA, -1)

+FF(CreateSemaphoreA, -1)

+FF(QueryPerformanceCounter, -1)

+FF(QueryPerformanceFrequency, -1)

+FF(LocalHandle, -1)

+FF(LocalUnlock, -1)

+FF(LocalFree, -1)

+FF(GlobalHandle, -1)

+FF(GlobalUnlock, -1)

+FF(GlobalFree, -1)

+FF(LoadResource, -1)

+FF(ReleaseSemaphore, -1)

+FF(FindResourceA, -1)

+FF(LockResource, -1)

+FF(FreeResource, -1)

+FF(SizeofResource, -1)

+FF(CloseHandle, -1)

+FF(GetCommandLineA, -1)

+FF(GetEnvironmentStringsW, -1)

+FF(FreeEnvironmentStringsW, -1)

+FF(FreeEnvironmentStringsA, -1)

+FF(GetEnvironmentStrings, -1)

+FF(GetStartupInfoA, -1)

+FF(GetStdHandle, -1)

+FF(GetFileType, -1)

+FF(SetHandleCount, -1)

+FF(GetACP, -1)

+FF(GetModuleFileNameA, -1)

+FF(SetUnhandledExceptionFilter, -1)

+FF(LoadLibraryA, -1)

+FF(GetProcAddress, -1)

+FF(FreeLibrary, -1)

+FF(CreateFileMappingA, -1)

+FF(OpenFileMappingA, -1)

+FF(MapViewOfFile, -1)

+FF(UnmapViewOfFile, -1)

+FF(Sleep, -1)

+FF(GetModuleHandleA, -1)

+FF(GetProfileIntA, -1)

+FF(GetPrivateProfileIntA, -1)

+FF(GetPrivateProfileStringA, -1)

+FF(WritePrivateProfileStringA, -1)

+FF(GetLastError, -1)

+FF(SetLastError, -1)

+FF(InterlockedIncrement, -1)

+FF(InterlockedDecrement, -1)

+FF(GetTimeZoneInformation, -1)

+FF(OutputDebugStringA, -1)

+FF(GetLocalTime, -1)

+FF(GetSystemTime, -1)

+FF(GetEnvironmentVariableA, -1)

+FF(RtlZeroMemory,-1)

+FF(RtlMoveMemory,-1)

+FF(RtlFillMemory,-1)

+FF(GetTempPathA,-1)

+FF(FindFirstFileA,-1)

+FF(FindNextFileA,-1)

+FF(FindClose,-1)

+FF(FileTimeToLocalFileTime,-1)

+FF(DeleteFileA,-1)

+FF(ReadFile,-1)

+FF(WriteFile,-1)

+FF(SetFilePointer,-1)

+FF(GetTempFileNameA,-1)

+FF(CreateFileA,-1)

+FF(GetSystemDirectoryA,-1)

+FF(GetWindowsDirectoryA,-1)

+FF(SetErrorMode, -1)

+FF(IsProcessorFeaturePresent, -1)

+FF(GetProcessAffinityMask, -1)

+FF(InterlockedExchange, -1)

+FF(MulDiv, -1)

+FF(lstrcmpiA, -1)

+FF(lstrlenA, -1)

+FF(lstrcpyA, -1)

+FF(lstrcatA, -1)

+FF(lstrcpynA,-1)

+FF(GetProcessVersion,-1)

+FF(GetCurrentThread,-1)

+FF(GetOEMCP,-1)

+FF(GetCPInfo,-1)

+};

+

+struct exports exp_msvcrt[]={

+FF(malloc, -1)

+FF(_initterm, -1)

+FF(free, -1)

+{"??3@YAXPAX@Z", -1, expdelete},

+{"??2@YAPAXI@Z", -1, expnew},

+{"_adjust_fdiv", -1, (void*)&_adjust_fdiv},

+FF(strrchr, -1)

+FF(strchr, -1)

+FF(strlen, -1)

+FF(strcpy, -1)

+FF(strcmp, -1)

+FF(strcat, -1)

+FF(isalnum, -1)

+FF(memmove, -1)

+FF(memcmp, -1)

+FF(time, -1)

+FF(_ftol,-1)

+FF(rand, -1)

+FF(log10, -1)

+FF(pow, -1)

+FF(cos, -1)

+FF(srand, -1)

+FF(sprintf,-1)

+FF(sscanf,-1)

+FF(fopen,-1)

+FF(fprintf,-1)

+FF(printf,-1)

+};

+struct exports exp_winmm[]={

+FF(GetDriverModuleHandle, -1)

+FF(timeGetTime, -1)

+FF(DefDriverProc, -1)

+FF(OpenDriverA, -1)

+FF(OpenDriver, -1)

+};

+struct exports exp_user32[]={

+FF(LoadStringA, -1)

+FF(wsprintfA, -1)

+FF(GetDC, -1)

+FF(GetDesktopWindow, -1)

+FF(ReleaseDC, -1)

+FF(IsRectEmpty, -1)

+FF(LoadCursorA,-1)

+FF(SetCursor,-1)

+FF(GetCursorPos,-1)

+FF(GetCursorPos,-1)

+FF(RegisterWindowMessageA,-1)

+FF(GetSystemMetrics,-1)

+FF(GetSysColor,-1)

+FF(GetSysColorBrush,-1)

+};

+struct exports exp_advapi32[]={

+FF(RegOpenKeyA, -1)

+FF(RegOpenKeyExA, -1)

+FF(RegCreateKeyExA, -1)

+FF(RegQueryValueExA, -1)

+FF(RegSetValueExA, -1)

+FF(RegCloseKey, -1)

+FF(RegEnumValueA, -1)

+};

+struct exports exp_gdi32[]={

+FF(CreateCompatibleDC, -1)

+FF(GetDeviceCaps, -1)

+FF(DeleteDC, -1)

+FF(GetSystemPaletteEntries, -1)

+};

+struct exports exp_version[]={

+FF(GetFileVersionInfoSizeA, -1)

+};

+struct exports exp_ole32[]={

+FF(CoTaskMemAlloc, -1)

+FF(CoTaskMemFree, -1)

+FF(CoCreateInstance, -1)

+FF(StringFromGUID2, -1)

+};

+struct exports exp_crtdll[]={

+FF(memcpy, -1)

+FF(wcscpy, -1)

+};

+struct exports exp_comctl32[]={

+FF(StringFromGUID2, -1)

+FF(InitCommonControls, 17)

+};

+

+#define LL(X) \

+{#X".dll", sizeof(exp_##X)/sizeof(struct exports), exp_##X},

+

+struct libs libraries[]={

+LL(kernel32)

+LL(msvcrt)

+LL(winmm)

+LL(user32)

+LL(advapi32)

+LL(gdi32)

+LL(version)

+LL(ole32)

+LL(crtdll)

+LL(comctl32)

+};

+

+

+void* LookupExternal(const char* library, int ordinal)

+{

+    char* answ;

+    int i,j;

+    if(library==0)

+    {

+	printf("ERROR: library=0\n");

+	return (void*)ext_unknown;

+    }

+//    printf("%x %x\n", &unk_exp1, &unk_exp2);

+

+    for(i=0; i<sizeof(libraries)/sizeof(struct libs); i++)

+    {

+	if(strcasecmp(library, libraries[i].name))

+	    continue;

+	for(j=0; j<libraries[i].length; j++)

+	{

+	    if(ordinal!=libraries[i].exps[j].id)

+		continue;

+	    //printf("Hit: 0x%p\n", libraries[i].exps[j].func);

+	    return libraries[i].exps[j].func;

+	}

+    }

+    printf("External func %s:%d\n", library, ordinal);

+    if(pos>150)return 0;

+    answ=(char*)extcode+pos*0x64;

+    memcpy(answ, &unk_exp1, 0x64);

+    *(int*)(answ+9)=pos;

+    *(int*)(answ+47)-=((int)answ-(int)&unk_exp1);

+    sprintf(export_names[pos], "%s:%d", library, ordinal);

+    pos++;

+    return (void*)answ;

+}

+

+void* LookupExternalByName(const char* library, const char* name)

+{

+    char* answ;

+    int i,j;

+//   return (void*)ext_unknown;

+    if(library==0)

+    {

+	printf("ERROR: library=0\n");

+	return (void*)ext_unknown;

+    }

+    if(name==0)

+    {

+	printf("ERROR: name=0\n");

+	return (void*)ext_unknown;

+    }

+    //printf("External func %s:%s\n", library, name);

+    for(i=0; i<sizeof(libraries)/sizeof(struct libs); i++)

+    {

+	if(strcasecmp(library, libraries[i].name))

+	    continue;

+	for(j=0; j<libraries[i].length; j++)

+	{

+	    if(strcmp(name, libraries[i].exps[j].name))

+		continue;

+//	    printf("Hit: 0x%08X\n", libraries[i].exps[j].func);

+	    return libraries[i].exps[j].func;

+	}

+    }

+//    printf("%s %s\n", library, name);

+    if(pos>150)return 0;

+    strcpy(export_names[pos], name);

+    answ=(char*)extcode+pos*0x64;

+    memcpy(answ, &unk_exp1, 0x64);

+    *(int*)(answ+9)=pos;

+    *(int*)(answ+47)-=((int)answ-(int)&unk_exp1);

+    pos++;

+    return (void*)answ;

+//    memcpy(extcode, &unk_exp1, 0x64);

+//    *(int*)(extcode+52)-=((int)extcode-(int)&unk_exp1);

+//    return (void*)extcode;

+//    printf("Unknown func %s:%s\n", library, name);

+//    return (void*)ext_unknown;

+}

+

+void my_garbagecollection(void)

+{

+#ifdef GARBAGE

+    int unfree = 0, unfreecnt = 0;

+

+    while (last_alloc)

+    {

+	alloc_header* mem = last_alloc + 1;

+	unfree += my_size(mem);

+        unfreecnt++;

+	my_release(mem);

+    }

+    printf("Total Unfree %d bytes cnt %d [%p,%d]\n",unfree, unfreecnt, last_alloc, alccnt);

+#endif

+}