//+------------------------------------------------------------------------- // // Microsoft Windows // // Copyright (C) Microsoft Corporation, 1998 - 1999 // // File: dms.h // //-------------------------------------------------------------------------- // // dms.h : david's funky stuff // // CLONETO, QIOVERLOAD: see d3drmVisualObj.cpp // // // #include "basetsd.h" extern long g_debuglevel; #ifdef DEBUG #define DPF(n,o) {if (g_debuglevel >= n) { OutputDebugString(o);}} #define DPF1(n,o,p) {if (g_debuglevel >= n) {char szOutN[1024]; wsprintf(szOutN,o,p);OutputDebugString(szOutN);}} #define DPF2(n,o,p,e) {if (g_debuglevel >= n) {char szOutN[1024]; wsprintf(szOutN,o,p,e);OutputDebugString(szOutN);}} #else #ifdef DBG #define DPF(n,o) {if (g_debuglevel >= n) { OutputDebugString(o);}} #define DPF1(n,o,p) {if (g_debuglevel >= n) {char szOutN[1024]; wsprintf(szOutN,o,p);OutputDebugString(szOutN);}} #define DPF2(n,o,p,e) {if (g_debuglevel >= n) {char szOutN[1024]; wsprintf(szOutN,o,p,e);OutputDebugString(szOutN);}} #else #define DPF(n,o) #define DPF1(n,o,p) #define DPF2(n,o,p,e) #endif #endif #define INTERNAL_CREATE_RETOBJ(objType,objOther,retval,classobj) \ { C##objType##Object *prev=NULL; \ *retval = NULL; \ for(C##objType##Object *ptr=(C##objType##Object *)g##objType##; ptr; ptr=(C##objType##Object *)ptr->nextobj) \ { IUnknown *unk=0; \ ptr->InternalGetObject(&unk); \ if(unk == objOther) \ { \ *retval = (I##objType*)ptr->pinterface; \ IUNK(ptr->pinterface)->AddRef(); \ IUNK(objOther)->Release(); \ classobj=ptr; \ break; \ } \ prev = ptr; \ } \ if(!ptr) \ { C##objType##Object *c=new CComObject;if( c == NULL ) { objOther->Release(); return E_FAIL;} \ c->parent = this; \ ((I##objType *)this)->AddRef(); \ c->InternalSetObject(objOther); \ if (FAILED( ((I##objType *)c)->QueryInterface(IID_I##objType, (void **)retval))) \ return E_FAIL; \ c->pinterface = (void*)*retval; \ classobj=c; \ } } #define INTERNAL_CREATE_STRUCT(objType,retval) { C##objType##Object *c=new CComObject;\ if (c==NULL) return E_OUTOFMEMORY;\ if (FAILED(((I##objType *)c)->QueryInterface(IID_I##objType, (void **)retval))) return E_FAIL;\ } #define INTERNAL_CREATE_NOADDREF(objType,objOther,retval) {C##objType##Object *prev=NULL; *retval = NULL; \ for(C##objType##Object *ptr=(C##objType##Object *)g##objType##; ptr; ptr=(C##objType##Object *)ptr->nextobj){IUnknown *unk=0;ptr->InternalGetObject(&unk); if(unk == objOther) { *retval = (I##objType*)ptr->pinterface; IUNK(ptr->pinterface)->AddRef(); IUNK(objOther)->Release(); break; } prev = ptr; } \ if(!ptr) { C##objType##Object *c=new CComObject; if( c == NULL ) { objOther->Release();return E_FAIL;} c->InternalSetObject(objOther); if FAILED(((I##objType *)c)->QueryInterface(IID_I##objType, (void **)retval)) return E_FAIL; c->pinterface = (void*)*retval; }} // Given a java interface (objtype), envoke InternalSetObject and set the given // DIRECTX pointer (objOther). Also envoke QueryInterface and set a ** interface // ptr to a DIRECTX object (retval). So we create a DIRECTX object. //#define INTERNAL_CREATE(objType,objOther,retval){C##objType##Object *c=new CComObject;if( c == NULL ) { objOther->Release(); return E_FAIL;} \ //c->parent = this; AddRef(); c->InternalSetObject(objOther);if (FAILED(c->QueryInterface(IID_I##objType, (void **)retval))) return E_FAIL; } // if (FAILED(ptr->QueryInterface(IID_I##objType, (void **)retval))) return E_FAIL; #ifdef _DEBUG #define INTERNAL_CREATE(objType,objOther,retval) \ { \ DWORD refcount; char buffer[256]; wsprintf(buffer,"INTERNAL_CREATE %s \n",__FILE__); \ OutputDebugString(buffer); \ C##objType##Object *prev=NULL; \ *retval = NULL; \ for(C##objType##Object *ptr=(C##objType##Object *)g##objType##; ptr; ptr=(C##objType##Object *)ptr->nextobj) \ {\ IUnknown *unk=0; \ ptr->InternalGetObject(&unk); \ if(unk == objOther) \ { \ *retval = (I##objType*)ptr->pinterface;\ IUNK(ptr->pinterface)->AddRef();\ IUNK(objOther)->Release(); \ refcount = *(((DWORD*)ptr)+1); \ wsprintf(buffer," Retrived Object [%s] RefCount %d \n\r",__FILE__, refcount);\ OutputDebugString(buffer);\ break; \ } \ prev = ptr; \ } \ if(!ptr) \ { \ C##objType##Object *c=new CComObject;if( c == NULL ) { objOther->Release(); return E_FAIL;} \ c->parent = this; \ ((I##objType *)this)->AddRef(); \ refcount = *(((DWORD*)this)+1); \ wsprintf(buffer,"Object [%s] RefCount[%d]\n\r",__FILE__, refcount);\ OutputDebugString(buffer);\ c->InternalSetObject(objOther);if (FAILED(( ((I##objType *)c))->QueryInterface(IID_I##objType, (void **)retval))) return E_FAIL; \ c->pinterface = (void*)*retval; \ } \ } #else #define INTERNAL_CREATE(objType,objOther,retval) \ { \ C##objType##Object *prev=NULL; \ *retval = NULL; \ for(C##objType##Object *ptr=(C##objType##Object *)g##objType##; ptr; ptr=(C##objType##Object *)ptr->nextobj) \ {\ IUnknown *unk=0; \ ptr->InternalGetObject(&unk); \ if(unk == objOther) \ { \ *retval = (I##objType*)ptr->pinterface; \ IUNK(ptr->pinterface)->AddRef(); \ IUNK(objOther)->Release(); \ break; \ } \ prev = ptr; \ } \ if(!ptr) \ { \ C##objType##Object *c=new CComObject;if( c == NULL ) { objOther->Release(); return E_FAIL;} \ c->parent = this; \ ((I##objType *)this)->AddRef(); \ c->InternalSetObject(objOther); \ if (FAILED( ((I##objType *)c)->QueryInterface(IID_I##objType, (void **)retval))) return E_FAIL; \ c->pinterface = (void*)*retval; \ } \ } #endif #define INTERNAL_CREATE_NO_PARENT(objType,objOther,retval) \ { \ C##objType##Object *prev=NULL; \ *retval = NULL; \ for(C##objType##Object *ptr=(C##objType##Object *)g##objType##; ptr; ptr=(C##objType##Object *)ptr->nextobj) \ {\ IUnknown *unk=0; \ ptr->InternalGetObject(&unk); \ if(unk == objOther) \ { \ *retval = (I##objType*)ptr->pinterface; \ IUNK(ptr->pinterface)->AddRef(); \ IUNK(objOther)->Release(); \ break; \ } \ prev = ptr; \ } \ if(!ptr) \ { \ C##objType##Object *c=new CComObject;if( c == NULL ) { objOther->Release(); return E_FAIL;} \ c->InternalSetObject(objOther); \ if (FAILED( ((I##objType *)c)->QueryInterface(IID_I##objType, (void **)retval))) return E_FAIL; \ c->pinterface = (void*)*retval; \ } \ } #define INTERNAL_CREATE_ADDRESS(objType,objOther,retval) \ { \ C##objType##Object *c=new CComObject;if( c == NULL ) { objOther->Release(); return E_FAIL;} \ c->InternalSetObject(objOther); \ if (FAILED( ((I##objType *)c)->QueryInterface(IID_I##objType, (void **)retval))) return E_FAIL; \ c->pinterface = (void*)*retval; \ } #define INTERNAL_CREATE_2REFS(objType,objParentType,objParent, objOther,retval) \ { \ C##objType##Object *prev=NULL; \ *retval = NULL; \ for(C##objType##Object *ptr=(C##objType##Object *)g##objType##; ptr; ptr=(C##objType##Object *)ptr->nextobj) \ {\ IUnknown *unk=0; \ ptr->InternalGetObject(&unk); \ if(unk == objOther) \ { \ *retval = (I##objType*)ptr->pinterface; \ IUNK(ptr->pinterface)->AddRef(); \ IUNK(objOther)->Release(); \ break; \ } \ prev = ptr; \ } \ if(!ptr) \ { \ C##objType##Object *c=new CComObject;if( c == NULL ) { objOther->Release(); return E_FAIL;} \ c->parent = this; \ c->parent2 = IUNK(objParent); \ ((I##objType *)this)->AddRef(); \ ((I##objParentType*)objParent)->AddRef(); \ c->InternalSetObject(objOther); \ if (FAILED( ((I##objType *)c)->QueryInterface(IID_I##objType, (void **)retval))) return E_FAIL; \ c->pinterface = (void*)*retval; \ } \ } #define INTERNAL_CREATE_1REFS(objType,objParentType,objParent, objOther,retval) \ { \ C##objType##Object *prev=NULL; \ *retval = NULL; \ for(C##objType##Object *ptr=(C##objType##Object *)g##objType##; ptr; ptr=(C##objType##Object *)ptr->nextobj) \ {\ IUnknown *unk=0; \ ptr->InternalGetObject(&unk); \ if(unk == objOther) \ { \ *retval = (I##objType*)ptr->pinterface; \ IUNK(ptr->pinterface)->AddRef(); \ IUNK(objOther)->Release(); \ break; \ } \ prev = ptr; \ } \ if(!ptr) \ { \ C##objType##Object *c=new CComObject; \ if( c == NULL ) \ { objOther->Release(); return E_FAIL;} \ c->parent = IUNK(objParent); \ ((I##objParentType*)objParent)->AddRef(); \ c->InternalSetObject(objOther); \ if (FAILED( ((I##objType *)c)->QueryInterface(IID_I##objType, (void **)retval))) return E_FAIL; \ c->pinterface = (void*)*retval; \ } \ } ///////////////////////////////////////////////////////////////////////// #define MAX_INTERNAL_STR_LEN 256 struct JavaString { DWORD nBytes; WCHAR Item[MAX_INTERNAL_STR_LEN]; }; ///////////////////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////////////////// // mod:dp helper macros for stuffing expanded unions in DirectX Structures #define IUNK(o) ((IUnknown*)(void*)(o)) #define IS_NULLGUID(g) (\ (g->data1==0) && \ (g->data2==0) && \ (g->data3==0) && \ (g->data4[0]==0) && \ (g->data4[1]==0) && \ (g->data4[2]==0) && \ (g->data4[3]==0) && \ (g->data4[4]==0) && \ (g->data4[5]==0) && \ (g->data4[6]==0) && \ (g->data4[7]==0) ) ///////////////////////////////////////////////////////////////////////// #define JAVASTRING(item) {sizeof(item)*2-2, L##item} #define PASS_THROUGH(cl,m) STDMETHODIMP C##cl##Object::m() { return m_##cl->m();} #define PASS_THROUGH1(c,m,t1) STDMETHODIMP C##c##Object::m(t1 v1) { return m_##c->m(v1);} #define PASS_THROUGH2(c,m,t1,t2) STDMETHODIMP C##c##Object::m(t1 v1, t2 v2) { return m_##c->m(v1, v2);} #define PASS_THROUGH3(c,m,t1,t2,t3) STDMETHODIMP C##c##Object::m(t1 v1, t2 v2,t3 v3) { return m_##c->m(v1, v2,v3);} #define PASS_THROUGH4(c,m,t1,t2,t3,t4) STDMETHODIMP C##c##Object::m(t1 v1,t2 v2,t3 v3,t4 v4){return m_##c->m(v1, v2,v3,v4);} #define PASS_THROUGH5(c,m,t1,t2,t3,t4,t5) STDMETHODIMP C##c##Object::m(t1 v1,t2 v2,t3 v3,t4 v4,t5 v5){return m_##c->m(v1, v2,v3,v4,v5);} #define PASS_THROUGH6(c,m,t1,t2,t3,t4,t5,t6) STDMETHODIMP C##c##Object::m(t1 v1,t2 v2,t3 v3,t4 v4,t5 v5,t6 v6){return m_##c->m(v1, v2,v3,v4,v5,v6);} #define PASS_THROUGH7(c,m,t1,t2,t3,t4,t5,t6,t7) STDMETHODIMP C##c##Object::m(t1 v1,t2 v2,t3 v3,t4 v4,t5 v5,t6 v6,t7 v7){return m_##c->m(v1, v2,v3,v4,v5,v6,v7);} #define PASS_THROUGH8(c,m,t1,t2,t3,t4,t5,t6,t7,t8) STDMETHODIMP C##c##Object::m(t1 v1,t2 v2,t3 v3,t4 v4,t5 v5,t6 v6,t7 v7,t8 v8){return m_##c->m(v1,v2,v3,v4,v5,v6,v7,v8);} #define PASS_THROUGH_CAST_1(c,m,t1,tt1) STDMETHODIMP C##c##Object::m(t1 v1) { return m_##c->m(tt1 v1);} #define PASS_THROUGH_CAST_2(c,m,t1,tt1,t2,tt2) STDMETHODIMP C##c##Object::m(t1 v1, t2 v2) { return m_##c->m(tt1 v1, tt2 v2);} #define PASS_THROUGH_CAST_3(c,m,t1,tt1,t2,tt2,t3,tt3) STDMETHODIMP C##c##Object::m(t1 v1, t2 v2,t3 v3) { return m_##c->m(tt1 v1,tt2 v2,tt3 v3);} #define PASS_THROUGH_CAST_4(c,m,t1,tt1,t2,tt2,t3,tt3,t4,tt4) STDMETHODIMP C##c##Object::m(t1 v1,t2 v2,t3 v3,t4 v4){return m_##c->m(tt1 v1, tt2 v2,tt3 v3,tt4 v4);} #define PASS_THROUGH_CAST_5(c,m,t1,tt1,t2,tt2,t3,tt3,t4,tt4,t5,tt5) STDMETHODIMP C##c##Object::m(t1 v1,t2 v2,t3 v3,t4 v4,t5 v5){return m_##c->m(tt1 v1,tt2 v2,tt3 v3,tt4 v4,tt5 v5);} #define PASS_THROUGH_CAST_6(c,m,t1,tt1,t2,tt2,t3,tt3,t4,tt4,t5,tt5,t6,tt6) STDMETHODIMP C##c##Object::m(t1 v1,t2 v2,t3 v3,t4 v4,t5 v5,t6 v6){return m_##c->m(tt1 v1,tt2 v2,tt3 v3,tt4 v4,tt5 v5,tt6 v6);} #define PASS_THROUGH_CAST_7(c,m,t1,tt1,t2,tt2,t3,tt3,t4,tt4,t5,tt5,t6,tt6,t7,tt7) STDMETHODIMP C##c##Object::m(t1 v1,t2 v2,t3 v3,t4 v4,t5 v5,t6 v6,t7 v7){return m_##c->m(tt1 v1,tt2 v2,tt3 v3,tt4 v4,tt5 v5,tt6 v6,tt7 v7);} #define PASS_THROUGH_CAST_8(c,m,t1,tt1,t2,tt2,t3,tt3,t4,tt4,t5,tt5,t6,tt6,t7,tt7,t8,tt8) STDMETHODIMP C##c##Object::m(t1 v1,t2 v2,t3 v3,t4 v4,t5 v5,t6 v6,t7 v7,t8 v8){return m_##c->m(tt1 v1,tt2 v2,tt3 v3,tt4 v4,tt5 v5,tt6 v6,tt7 v7,tt8 v8);} //mod:dp additions due to renaming #define PASS_THROUGH_R(c,m1,m2) STDMETHODIMP C##c##Object::m1() { if(m_##c==NULL)return E_FAIL; return m_##c->m2();} #define PASS_THROUGH1_R(c,m1,m2,t1) STDMETHODIMP C##c##Object::m1(t1 v1) { if(m_##c==NULL)return E_FAIL; return m_##c->m2(v1);} #define PASS_THROUGH2_R(c,m1,m2,t1,t2) STDMETHODIMP C##c##Object::m1(t1 v1, t2 v2) { if(m_##c==NULL)return E_FAIL; return m_##c->m2(v1, v2);} #define PASS_THROUGH3_R(c,m1,m2,t1,t2,t3) STDMETHODIMP C##c##Object::m1(t1 v1, t2 v2,t3 v3) { if(m_##c==NULL)return E_FAIL; return m_##c->m2(v1, v2,v3);} #define PASS_THROUGH4_R(c,m1,m2,t1,t2,t3,t4) STDMETHODIMP C##c##Object::m1(t1 v1,t2 v2,t3 v3,t4 v4){ if(m_##c==NULL)return E_FAIL; return m_##c->m2(v1, v2,v3,v4);} #define PASS_THROUGH5_R(c,m1,m2,t1,t2,t3,t4,t5) STDMETHODIMP C##c##Object::m1(t1 v1,t2 v2,t3 v3,t4 v4,t5 v5){ if(m_##c==NULL)return E_FAIL; return m_##c->m2(v1, v2,v3,v4,v5);} #define PASS_THROUGH6_R(c,m1,m2,t1,t2,t3,t4,t5,t6) STDMETHODIMP C##c##Object::m1(t1 v1,t2 v2,t3 v3,t4 v4,t5 v5,t6 v6){ if(m_##c==NULL)return E_FAIL; return m_##c->m2(v1, v2,v3,v4,v5,v6);} #define PASS_THROUGH7_R(c,m1,m2,t1,t2,t3,t4,t5,t6,t7) STDMETHODIMP C##c##Object::m1(t1 v1,t2 v2,t3 v3,t4 v4,t5 v5,t6 v6,t7 v7){if(m_##c==NULL)return E_FAIL; return m_##c->m2(v1, v2,v3,v4,v5,v6,v7);} #define PASS_THROUGH8_R(c,m1,m2,t1,t2,t3,t4,t5,t6,t7,t8) STDMETHODIMP C##c##Object::m1(t1 v1,t2 v2,t3 v3,t4 v4,t5 v5,t6 v6,t7 v7,t8 v8){ if(m_##c==NULL)return E_FAIL; return m_##c->m2(v1,v2,v3,v4,v5,v6,v7,v8);} #define PASS_THROUGH_CAST_1_R(c,m1,m2,t1,tt1) STDMETHODIMP C##c##Object::m1(t1 v1) { if(m_##c==NULL)return E_FAIL; return m_##c->m2(tt1 v1);} #define PASS_THROUGH_CAST_2_R(c,m1,m2,t1,tt1,t2,tt2) STDMETHODIMP C##c##Object::m1(t1 v1, t2 v2) { if(m_##c==NULL)return E_FAIL; return m_##c->m2(tt1 v1, tt2 v2);} #define PASS_THROUGH_CAST_3_R(c,m1,m2,t1,tt1,t2,tt2,t3,tt3) STDMETHODIMP C##c##Object::m1(t1 v1, t2 v2,t3 v3) { if(m_##c==NULL)return E_FAIL; return m_##c->m2(tt1 v1,tt2 v2,tt3 v3);} #define PASS_THROUGH_CAST_4_R(c,m1,m2,t1,tt1,t2,tt2,t3,tt3,t4,tt4) STDMETHODIMP C##c##Object::m1(t1 v1,t2 v2,t3 v3,t4 v4){ if(m_##c==NULL)return E_FAIL; return m_##c->m2(tt1 v1, tt2 v2,tt3 v3,tt4 v4);} #define PASS_THROUGH_CAST_5_R(c,m1,m2,t1,tt1,t2,tt2,t3,tt3,t4,tt4,t5,tt5) STDMETHODIMP C##c##Object::m1(t1 v1,t2 v2,t3 v3,t4 v4,t5 v5){ if(m_##c==NULL)return E_FAIL; return m_##c->m2(tt1 v1,tt2 v2,tt3 v3,tt4 v4,tt5 v5);} #define PASS_THROUGH_CAST_6_R(c,m1,m2,t1,tt1,t2,tt2,t3,tt3,t4,tt4,t5,tt5,t6,tt6) STDMETHODIMP C##c##Object::m1(t1 v1,t2 v2,t3 v3,t4 v4,t5 v5,t6 v6){ if(m_##c==NULL)return E_FAIL; return m_##c->m2(tt1 v1,tt2 v2,tt3 v3,tt4 v4,tt5 v5,tt6 v6);} #define PASS_THROUGH_CAST_7_R(c,m1,m2,t1,tt1,t2,tt2,t3,tt3,t4,tt4,t5,tt5,t6,tt6,t7,tt7) STDMETHODIMP C##c##Object::m1(t1 v1,t2 v2,t3 v3,t4 v4,t5 v5,t6 v6,t7 v7){ if(m_##c==NULL)return E_FAIL; return m_##c->m2(tt1 v1,tt2 v2,tt3 v3,tt4 v4,tt5 v5,tt6 v6,tt7 v7);} #define PASS_THROUGH_CAST_8_R(c,m1,m2,t1,tt1,t2,tt2,t3,tt3,t4,tt4,t5,tt5,t6,tt6,t7,tt7,t8,tt8) STDMETHODIMP C##c##Object::m1(t1 v1,t2 v2,t3 v3,t4 v4,t5 v5,t6 v6,t7 v7,t8 v8){ if(m_##c==NULL)return E_FAIL; return m_##c->m2(tt1 v1,tt2 v2,tt3 v3,tt4 v4,tt5 v5,tt6 v6,tt7 v7,tt8 v8);} #define COPY_OR_CLEAR(dest, src, si) {if(src) memcpy((void *)dest, (void *)src, si);else memset((void *)dest, si, 0);} #define COPY(dest, src, si) memcpy((void *)dest, (void *)src, si) // ?? #define DECLSET_OBJECT(ifacevar, var, typ) {if(var) var->Release(); var = (typ)ifacevar;} #define DECLGET_OBJECT(ifacevar, var){*ifacevar = (IUnknown *)var;} #define ISEQUAL(c) \ STDMETHODIMP C##c##Object::isEqual(I##c *d, int *retval)\ { IUnknown *IU1;\ IUnknown *IU2;\ if (d == NULL)\ return E_FAIL; \ this->InternalGetObject((IUnknown **)(&IU1)); \ d->InternalGetObject((IUnknown **)(&IU2)); \ if (IU1 == IU2) \ *retval = TRUE; \ else \ *retval = FALSE; \ return S_OK;} #define DX3J_GLOBAL_LINKS( obj_type ) \ int creationid;\ void *parent; \ void *pinterface; \ void *nextobj; /*STDMETHOD(isEqual)(IUnknown *pobj, int *ret)*/; // Given a class (c) #define GETSET_OBJECT(c) \ STDMETHODIMP C##c##Object::InternalSetObject(IUnknown *l)\ {DECLSET_OBJECT(l,m_##c,typedef_##c);return S_OK;} \ STDMETHODIMP C##c##Object::InternalGetObject(IUnknown **l)\ {DECLGET_OBJECT(l,m_##c);return S_OK;} //ISEQUAL(c); // Given a java interface, go get a pointer_to_a_pointer to a DIRECTX object //pac DO_GETOBJECT_NOTNULL is too dangerous and is commented. use DO_GETOBJECT_NOTNULL //#define DO_GETOBJECT(t,v,i) t v;i->InternalGetObject((IUnknown **)(&v)); #define DO_GETOBJECT_NOTNULL(t,v,i) t v=NULL;if(i) i->InternalGetObject((IUnknown **)(&v)); // extern int g_creationcount; #ifdef _DEBUG #define CONSTRUCTOR(c, o) C##c##Object::C##c##Object(){ \ m_##c = NULL; parent = NULL; pinterface = NULL; \ nextobj = g##c##;\ creationid = ++g_creationcount;\ char buffer[256];\ wsprintf(buffer,"Constructor Creation Id [%d] %s",g_creationcount,__FILE__);\ OutputDebugString(buffer);\ g##c## = (void *)this; o } #else #define CONSTRUCTOR(c, o) C##c##Object::C##c##Object(){ \ m_##c = NULL; parent = NULL; pinterface = NULL; \ nextobj = (void*)g##c##; \ creationid = ++g_creationcount; \ g##c## = (void*)this; o} #endif #ifdef _DEBUG #define DESTRUCTOR(c, o) C##c##Object::~C##c##Object(){o; \ char buffer[256]; \ wsprintf(buffer,"Destructor Id[%d] %s ",creationid,__FILE__); \ OutputDebugString(buffer); C##c##Object *prev=NULL; \ for(C##c##Object *ptr=(C##c##Object *)g##c##; ptr; ptr=(C##c##Object *)ptr->nextobj) \ {\ if(ptr == this) \ { \ if(prev) \ prev->nextobj = ptr->nextobj; \ else \ g##c## = (void*)ptr->nextobj; \ break; \ } \ prev = ptr; \ } \ if(m_##c){ int count = IUNK(m_##c)->Release(); wsprintf(buffer,"DirectX %s Ref count [%d]",__FILE__,count); OutputDebugString(buffer); \ if(count==0){ char szOut[512];wsprintf(szOut,"\n Real %s released \n",__FILE__); OutputDebugString(szOut); m_##c = NULL; } \ } \ if(parent) IUNK(parent)->Release(); \ } #else #define DESTRUCTOR(c, o) C##c##Object::~C##c##Object(){o; \ C##c##Object *prev=NULL; \ for(C##c##Object *ptr=(C##c##Object *)g##c##; ptr; ptr=(C##c##Object *)ptr->nextobj) \ {\ if(ptr == this) \ { \ if(prev) \ prev->nextobj = ptr->nextobj; \ else \ g##c## = (void*)ptr->nextobj; \ break; \ } \ prev = ptr; \ } \ if(m_##c){ \ if (IUNK(m_##c)->Release()==0) m_##c = NULL; \ } \ if(parent) IUNK(parent)->Release();\ } #endif #define OBJCHECK(lable, c) { \ char buffer[256];\ if ( g##c ) \ {\ int count = 0; \ C##c##Object *prev=NULL; \ C##c##Object *ptr;\ for(ptr=(C##c##Object *)g##c##; ptr; ptr=(C##c##Object *)ptr->nextobj) \ {\ DWORD refcount = *(((DWORD*)ptr)+1);\ wsprintf( buffer,"%s: Ref Count [%d] CreateId [%d]\n\r",lable,refcount,ptr->creationid);\ OutputDebugString(buffer);\ count++;\ }\ wsprintf(buffer,"%s: %d \n\r",lable,count);\ OutputDebugString(buffer);\ }\ } #ifdef _DEBUG #define CONSTRUCTOR_STRUCT(c, o) C##c##Object::C##c##Object(){ nextobj = g##c##;\ creationid = ++g_creationcount;\ char buffer[256];\ wsprintf(buffer,"Creation Id [%d]",g_creationcount);\ OutputDebugString(buffer);\ g##c## = (void*)this;o} #else #define CONSTRUCTOR_STRUCT(c, o) C##c##Object::C##c##Object(){ \ nextobj =(void*) g##c##; \ creationid = ++g_creationcount; \ g##c## = (void*)this; \ o} #endif #define DESTRUCTOR_STRUCT(c, o) C##c##Object::~C##c##Object(){o; \ C##c##Object *prev=NULL; \ for(C##c##Object *ptr=(C##c##Object *)g##c##; ptr; ptr=(C##c##Object *)ptr->nextobj) \ {\ if(ptr == this) \ { \ if(prev) \ prev->nextobj = ptr->nextobj; \ else \ g##c## = (void*)ptr->nextobj; \ break; \ } \ prev = ptr; \ } \ } // Given a java class (c), create a DIRECTX object and an interface ** ptr to it. #define RETURN_NEW_ITEM(c,m,oc) STDMETHODIMP C##c##Object::m(I##oc **rv){typedef_##oc lp;\ if( m_##c->m(&lp) != S_OK)return E_FAIL;INTERNAL_CREATE(oc, lp, rv);\ return S_OK;} #define RETURN_NEW_ITEM_CAST(c,m,oc, ty) STDMETHODIMP C##c##Object::m(I##oc **rv){typedef_##oc lp;\ if( m_##c->m(ty &lp) != S_OK)return E_FAIL;INTERNAL_CREATE(oc, lp, rv);\ return S_OK;} #define RETURN_NEW_ITEM_NOREL(c,m,oc) STDMETHODIMP C##c##Object::m(I##oc **rv){typedef_##oc lp;\ if( m_##c->m(&lp) != S_OK)return E_FAIL;INTERNAL_CREATE_NOREL(oc, lp, rv);\ return S_OK;} #define RETURN_NEW_ITEM1(c,m,oc,t1) STDMETHODIMP C##c##Object::m(t1 v1, I##oc **rv){typedef_##oc lp;\ if( m_##c->m(v1,&lp) != S_OK)return E_FAIL;INTERNAL_CREATE(oc, lp, rv);\ return S_OK;} #define RETURN_NEW_ITEM2(c,m,oc,t1,t2) STDMETHODIMP C##c##Object::m(t1 v1, t2 v2,I##oc **rv){typedef_##oc lp;\ if( m_##c->m(v1,v2,&lp) != S_OK)return E_FAIL;INTERNAL_CREATE(oc, lp, rv);\ return S_OK;} #define RETURN_NEW_ITEM_CAST_1(c,m,oc,t1,tt1) STDMETHODIMP C##c##Object::m(t1 v1, I##oc **rv){typedef_##oc lp;\ if( m_##c->m(tt1 v1,&lp) != S_OK)return E_FAIL;INTERNAL_CREATE(oc, lp, rv);\ return S_OK;} #define RETURN_NEW_ITEM_CAST_2(c,m,oc,t1,tt1,t2,tt2) STDMETHODIMP C##c##Object::m(t1 v1, t2 v2,I##oc **rv){typedef_##oc lp;\ if( m_##c->m(tt1 v1,tt2 v2,&lp) != S_OK)return E_FAIL;INTERNAL_CREATE(oc, lp, rv);\ return S_OK;} #define RETURN_NEW_ITEM_CAST_3(c,m,oc,t1,tt1,t2,tt2,t3,tt3) STDMETHODIMP C##c##Object::m(t1 v1, t2 v2, t3 v3, I##oc **rv){typedef_##oc lp;\ if( m_##c->m(tt1 v1,tt2 v2,tt3 v3,&lp) != S_OK)return E_FAIL;INTERNAL_CREATE(oc, lp, rv);\ return S_OK;} //mod:dp additions due to renaming // Given a java class (c), create a DIRECTX object and an interface ** ptr to it. #define RETURN_NEW_ITEM_R(c,m,m2,oc) STDMETHODIMP C##c##Object::m(I##oc **rv){typedef_##oc lp;\ if( m_##c->m2(&lp) != S_OK)return E_FAIL;INTERNAL_CREATE(oc, lp, rv);\ return S_OK;} #define RETURN_NEW_ITEM1_R(c,m,m2,oc,t1) STDMETHODIMP C##c##Object::m(t1 v1, I##oc **rv){typedef_##oc lp;\ if( m_##c->m2(v1,&lp) != S_OK)return E_FAIL;INTERNAL_CREATE(oc, lp, rv);\ return S_OK;} #define RETURN_NEW_ITEM2_R(c,m,m2,oc,t1,t2) STDMETHODIMP C##c##Object::m(t1 v1, t2 v2,I##oc **rv){typedef_##oc lp;\ if( m_##c->m2(v1,v2,&lp) != S_OK)return E_FAIL;INTERNAL_CREATE(oc, lp, rv);\ return S_OK;} #define RETURN_NEW_ITEM_CAST_R(c,m,m2,oc,ty) STDMETHODIMP C##c##Object::m(I##oc **rv){typedef_##oc lp;\ if( m_##c->m2(ty &lp) != S_OK)return E_FAIL;INTERNAL_CREATE(oc, lp, rv);\ return S_OK;} #define RETURN_NEW_ITEM_CAST_1_R(c,m,m2,oc,t1,tt1) STDMETHODIMP C##c##Object::m(t1 v1, I##oc **rv){typedef_##oc lp;\ if( m_##c->m2(tt1 v1,&lp) != S_OK)return E_FAIL;INTERNAL_CREATE(oc, lp, rv);\ return S_OK;} #define RETURN_NEW_ITEM_CAST_2_R(c,m,m2,oc,t1,tt1,t2,tt2) STDMETHODIMP C##c##Object::m(t1 v1, t2 v2,I##oc **rv){typedef_##oc lp;\ if( m_##c->m2(tt1 v1,tt2 v2,&lp) != S_OK)return E_FAIL;INTERNAL_CREATE(oc, lp, rv);\ return S_OK;} #if 0 #define RETURN_NEW_ITEM_NOREL(c,m,oc) STDMETHODIMP C##c##Object::m(I##oc **rv){typedef_##oc lp;\ if( m_##c->m(&lp) != S_OK)return E_FAIL;INTERNAL_CREATE_NOREL(oc, lp, rv);\ return S_OK;} #define RETURN_NEW_ITEM_CAST_3(c,m,oc,t1,tt1,t2,tt2,t3,tt3) STDMETHODIMP C##c##Object::m(t1 v1, t2 v2, t3 v3, I##oc **rv){typedef_##oc lp;\ if( m_##c->m(tt1 v1,tt2 v2,tt3 v3,&lp) != S_OK)return E_FAIL;INTERNAL_CREATE(oc, lp, rv);\ return S_OK;} #endif // Return a primitive value by reference. #define GET_DIRECT(cl,met,t) STDMETHODIMP C##cl##Object::met(t *h){*h=(t)m_##cl->met();return S_OK;} #define GET_DIRECT1(cl,met,t,t1) STDMETHODIMP C##cl##Object::met(t1 v1,t *h){*h=(t)m_##cl->met(v1);return S_OK;} #define GET_DIRECT2(cl,met,t,t1,t2) STDMETHODIMP C##cl##Object::met(t1 v1, t2 v2, t *h){*h=(t)m_##cl->met(v1,v2);return S_OK;} #define GET_DIRECT_R(cl,met,met2,t) STDMETHODIMP C##cl##Object::met(t *h){*h=(t)m_##cl->met2();return S_OK;} #define GET_DIRECT1_R(cl,met,met2,t,t1) STDMETHODIMP C##cl##Object::met(t1 v1,t *h){*h=(t)m_##cl->met2(v1);return S_OK;} #define GET_DIRECT2_R(cl,met,met2,t,t1,t2) STDMETHODIMP C##cl##Object::met(t1 v1, t2 v2, t *h){*h=(t)m_##cl->met2(v1,v2);return S_OK;} // Return a pointer to a primitive value as a ** ptr. #define GET_DIRECTPTR(cl,met,t) STDMETHODIMP C##cl##Object::met(t **h){*h=(struct t*)m_##cl->met();return S_OK;} #define GET_DIRECTPTR1(cl,met,t,t1) STDMETHODIMP C##cl##Object::met(t1 v1,t **h){*h=(struct t*)m_##cl->met(v1);return S_OK;} #define GET_DIRECTPTR2(cl,met,t,t1,t2) STDMETHODIMP C##cl##Object::met(t1 v1, t2 v2, t **h){*h=(struct t*)m_##cl->met(v1,v2);return S_OK;} //Do a DO_GETOBJECT_NOTNULL and then call a method on the object #define DO_GETOBJECT_ANDUSEIT(cl,me,iface) STDMETHODIMP C##cl##Object::me(I##iface *vis) \ {DO_GETOBJECT_NOTNULL( typedef_##iface, lp, vis); if ( m_##cl == NULL ) return E_FAIL; return m_##cl->me(lp); } #define DO_GETOBJECT_ANDUSEIT_CAST(cl,me,iface, t1) STDMETHODIMP C##cl##Object::me(I##iface *vis) \ {DO_GETOBJECT_NOTNULL( typedef_##iface, lp, vis); if ( m_##cl == NULL ) return E_FAIL; return m_##cl->me((t1)lp); } #define DO_GETOBJECT_ANDUSEIT1(cl,me,iface,t1) STDMETHODIMP C##cl##Object::me(t1 v1,I##iface *vis) \ {DO_GETOBJECT_NOTNULL( typedef_##iface, lp, vis); if ( m_##cl == NULL ) return E_FAIL; return m_##cl->me(v1, lp); } #define DO_GETOBJECT_ANDUSEIT2(cl,me,iface,t1,t2) STDMETHODIMP C##cl##Object::me(t1 v1,t2 v2,I##iface *vis) \ {DO_GETOBJECT_NOTNULL( typedef_##iface, lp, vis); if ( m_##cl == NULL ) return E_FAIL; return m_##cl->me(v1, v2, lp); } //mod:dp additions due to renaming //Do a DO_GETOBJECT_NOTNULL and then call a method on the object #define DO_GETOBJECT_ANDUSEIT_R(cl,me, m2, iface) STDMETHODIMP C##cl##Object::me(I##iface *vis) \ {DO_GETOBJECT_NOTNULL( typedef_##iface, lp, vis); if ( m_##cl == NULL ) return E_FAIL; return m_##cl->m2(lp); } #define DO_GETOBJECT_ANDUSEIT_CAST_R(cl,me, m2, iface, t1) STDMETHODIMP C##cl##Object::me(I##iface *vis) \ {DO_GETOBJECT_NOTNULL( typedef_##iface, lp, vis); if ( m_##cl == NULL ) return E_FAIL; return m_##cl->m2((t1)lp); } #define DO_GETOBJECT_ANDUSEIT1_R(cl,me, m2, iface,t1) STDMETHODIMP C##cl##Object::me(t1 v1,I##iface *vis) \ {DO_GETOBJECT_NOTNULL( typedef_##iface, lp, vis); if ( m_##cl == NULL ) return E_FAIL; return m_##cl->m2(v1, lp); } #define DO_GETOBJECT_ANDUSEIT2_R(cl,me, m2, iface,t1,t2) STDMETHODIMP C##cl##Object::me(t1 v1,t2 v2,I##iface *vis) \ {DO_GETOBJECT_NOTNULL( typedef_##iface, lp, vis); if ( m_##cl == NULL ) return E_FAIL; return m_##cl->m2(v1, v2, lp); } // Make a copy of an object! //#define CLONE(cl) STDMETHODIMP C##cl##Object::Clone(Id3drmObject **retval){typedef_##cl lp;\ // m_##cl->Clone(0,IID_I##cl,(void **)&lp);INTERNAL_CREATE(cl,lp,retval);return S_OK;} //#define CLONE(cl) STDMETHODIMP C##cl##Object::Clone(I##cl **retval){typedef_##cl lp;\ //m_##cl->Clone(0,IID_I##cl,(void **)&lp);INTERNAL_CREATE(cl, lp, retval); return S_OK;} //#define CLONE_R(cl,c2) STDMETHODIMP C##cl##Object::clone(I##cl **retval){typedef_##cl lp;\ //m_##cl->Clone(0,IID_I##c2,(void **)&lp);INTERNAL_CREATE(cl, lp, retval); return S_OK;} #define CLONE_R(cl,c2) STDMETHODIMP C##cl##Object::clone(IUnknown **retval){typedef_##cl lp;\ m_##cl->Clone(0,IID_I##c2,(void **)&lp);INTERNAL_CREATE(cl, lp, (I##cl **)retval); return S_OK;} #define GETNAME(cl) STDMETHODIMP C##cl##Object::GetName(BSTR *n){return _GetName(m_##cl, n, TRUE);} #define GETCLASSNAME(cl) STDMETHODIMP C##cl##Object::GetClassName(BSTR *n){return _GetName(m_##cl, n, FALSE);} #define SETNAME(cl) STDMETHODIMP C##cl##Object::SetName(BSTR Name){ \ USES_CONVERSION;\ LPSTR str = W2T(Name); return m_##cl->SetName( str );} #define GETNAME_R(cl) STDMETHODIMP C##cl##Object::getName(BSTR *n){return _GetName(m_##cl, n, TRUE);} #define GETCLASSNAME_R(cl) STDMETHODIMP C##cl##Object::getClassName(BSTR *n){return _GetName(m_##cl, n, FALSE);} #define SETNAME_R(cl) STDMETHODIMP C##cl##Object::setName(BSTR Name){ \ USES_CONVERSION;\ LPSTR str = W2T(Name); return m_##cl->SetName( str );} #define CLONETO(clMe, cl, ifaceThat) STDMETHODIMP C##clMe##Object::Get##cl(I##cl **retval) \ { typedef_##cl lp; if (m_##clMe->QueryInterface(ifaceThat, (void **) &lp) != S_OK) return S_FALSE; \ INTERNAL_CREATE( cl, lp, retval); return S_OK; } #define ISSAFEARRAY1D(ppsa,count) ((*ppsa) && ( ((SAFEARRAY*)*ppsa)->cDims==1) && (((SAFEARRAY*)*ppsa)->rgsabound[0].cElements >= count)) /**********************************************************************************************/ extern "C" BOOL ParseWaveResource(void *pvRes, WAVEFORMATEX **ppWaveHeader, BYTE **ppbWaveData, DWORD *pcbWaveSize); extern "C" BOOL GetWaveResource(HMODULE hModule, LPCTSTR lpName, WAVEFORMATEX **ppWaveHeader, BYTE **ppbWaveData, DWORD *pcbWaveSize); extern "C" DWORD bppToddbd(int bpp); extern "C" void PassBackUnicode(LPSTR str, BSTR *Name, DWORD cnt); extern "C" void ctojDSBufferDesc( LPDSBUFFERDESC lpdd, DSBUFFERDESC_CDESC *ddsb, WAVEFORMATEX_CDESC *wave); extern "C" void jtocDSBufferDesc( LPDSBUFFERDESC lpdd, DSBUFFERDESC_CDESC *ddsb, WAVEFORMATEX_CDESC *wave); extern "C" void ctojWaveFormatEx( LPWAVEFORMATEX lpdd, WAVEFORMATEX_CDESC *wave); extern "C" void CopyFloats(D3DVALUE *mat1, D3DVALUE *mat2, DWORD count); extern "C" BOOL PASCAL myEnumSoundDriversCallback(GUID &SPGuid, LPSTR description, LPSTR module, void *lpArg); extern "C" BOOL CALLBACK myEnumDeviceObjectsCallback( LPCDIDEVICEOBJECTINSTANCE pI, LPVOID lpArg ) ; extern "C" BOOL CALLBACK myEnumCreatedEffectObjectsCallback(LPDIRECTINPUTEFFECT peff, LPVOID lpArg ); extern "C" BOOL CALLBACK myEnumEffectsCallback( LPCDIEFFECTINFO pdei, LPVOID lpArg ); extern "C" BOOL CALLBACK myEnumInputDevicesCallback( LPDIDEVICEINSTANCE lpddi, LPVOID pvRef ); ////////////////////////////////////////////////////////////////////////// /* ********************************************************************** * INTERNAL_CREATE(thisClass, var, retval) * thisClass class we are working on * var variable created in routine to get DirectX object * retval return value back to java * * wrap a DirectX object in one of ours and shove it in the return value *********************************************************************** * INTERNAL_CREATE_NOREL(thisClass, var, retval) * thisClass class we are working on * var variable created in routine to get DirectX object * retval return value back to java * * wrap a DirectX object in one of ours and shove it in the return value * If the layer obejct fails, DONT release the DirectX object *********************************************************************** * DO_GETOBJECT_NOTNULL(type,var,iface) * type type of variable we are creating * var variable we are creating * iface layer iface where we are getting the object from * * declare and get a DirectX object from a layer object *********************************************************************** * DO_GETOBJECT_NOTNULL(type,var,iface) * type type of variable we are creating * var variable we are creating * iface layer iface where we are getting the object from * * same as DO_GETOBJECT_NOTNULL except that we check for iface==NULL before calling *********************************************************************** * PASS_THROUGH[x](class,method,[...]) * class this class * method method to call * * pass call straight through *********************************************************************** * PASS_THROUGH_CAST_[x](class,method,[...]) * class this class * method method to call * * pass call straight through, casting the parameters to allow the call to pass *********************************************************************** * RETURN_NEW_ITEM(thisClass,method,OtherClass) * thisClass class being worked on * method method working on * otherClass class whose object we want * * call DirectX method to get the DirectX object, then wrap it in one of our layer * objects *********************************************************************** * RETURN_NEW_ITEM[1,2](thisClass,method,OtherClass,type) * thisClass class being worked on * method method working on * otherClass class whose object we want * type type of parameter * * Same as RETURN_NEWITEM except that there is an extra parameter (or two) BEFORE the * returned one *********************************************************************** * RETURN_NEW_ITEM_CAST_[1,2](thisClass,method,OtherClass,type) * thisClass class being worked on * method method working on * otherClass class whose object we want * type type of parameter * * Same as RETURN_NEW_ITEM[1,2] except that there the extra parameter(s) are type cast ****************************************************************************** * RETURN_NEW_ITEM_NOREL(thisClass,method,OtherClass) * thisClass class being worked on * method method working on * otherClass class whose object we want * * same as RETURN_NEW_ITEM except that calls INTERNAL_CREATE_NOTREL instead of * INTERNAL_CREATE ****************************************************************************** * GET_DIRECT(cl,met,t) * class class being worked on * method method being worked on * t type of the variable being returned * * DirectX returns value directly (no HRESULT), we get the value from Direct and * then return S_OK. (see CddSurfaceObject::Restore, may need to be added). * Note: the value is passed back via a pointer to that value. ****************************************************************************** * GET_DIRECT[1,2](cl,met,t,t1) * class class being worked on * method method being worked on * t type of the variable being returned * t1 type of extra variable(s) BEFORE retval * * same as GET_DIRECT but there is another parameter (or two) BEFORE the returned one **************************************************************************************** * GET_DIRECTPTR(cl,met,t) * class class being worked on * method method being worked on * t type of the variable being returned * * DirectX returns a pointer to a value directly (no HRESULT), we get the value from * Direct and then return S_OK. In this case it is a pointer to a pointer. *************************************************************************************** * GET_DIRECTPTR[1,2](cl,met,t,t1) * class class being worked on * method method being worked on * t type of the variable being returned * t1 type of extra variable(s) BEFORE retval * * same as GET_DIRECTPTR but there is a parameter (or two) BEFORE the one returned. *************************************************************************************** * DO_GETOBJECT_ANDUSEIT(cl,me,iface) * class class being worked on * method method being worked on * iface secondary interface we are interested in * * get an internal object from iface and use it in the method. we return from the method *************************************************************************************** * DO_GETOBJECT_ANDUSEIT_CAST(cl,me,iface,type) * class class being worked on * method method being worked on * iface secondary interface we are interested in * type type to cast to in the actual call. * get an internal object from iface and use it in the method. we return from the method *************************************************************************************** * DO_GETOBJECT_ANDUSEIT[1,2](cl,me,iface,ty) * class class being worked on * method method being worked on * iface secondary interface we are interested in * type type of parameter BEFORE 2nd object * * same as DO_GETOBJECT_ANDUSEIT except there is another parameter (or two) BEFORE * the object one ************************************************************************************ * CLONE(cl) * class class to clone * * >>>>>>> THIS IS A D3DRMOBJECT METHOD <<<<<<<<<< ************************************************************************************ * GETNAME(cl) * class class to retive name of * >>>>>>> THIS IS A D3DRMOBJECT METHOD <<<<<<<<<< ************************************************************************************ * GETCLASSNAME(cl) * class class to retive name of * >>>>>>> THIS IS A D3DRMOBJECT METHOD <<<<<<<<<< ************************************************************************************ * DELETEDESTROYCALLBACK(cl) * class class to retive name of * >>>>>>> THIS IS A D3DRMOBJECT METHOD <<<<<<<<<< ************************************************************************************ * QIOVERLOAD(cl, ifaceThat, clThat) * class class being worked on * iface iface of DIRECT object. Should really typedef_## this! * clThat object we are going to create * * this is really bright - overloading QI to get new objects ************************************************************************************ * CLONETO(cl, clThat, ifaceThat) * class class being worked on * iface iface of DIRECT object. Should really typedef_## this! * clThat object we are going to create * * this is really bright - overloading QI to get new objects ************************************************************************************ */ extern void *g_dxj_DirectSound3dListener; extern void *g_dxj_DirectSoundBuffer; extern void *g_dxj_DirectSound3dBuffer; extern void *g_dxj_DirectSound; extern void *g_dxj_DirectSoundCapture; extern void *g_dxj_DirectSoundCaptureBuffer; extern void *g_dxj_DirectSoundNotify; extern void *g_dxj_DirectInput8; extern void *g_dxj_DirectInputDevice8; extern void *g_dxj_DirectInputEffect; extern void *g_dxj_DirectPlayVoiceClient; extern void *g_dxj_DirectPlayVoiceServer; extern void *g_dxj_DirectPlayVoiceSetup; #define DXHEAPALLOC malloc #define DXSTACKALLOC lalloc #define DXHEAPFREE free #define DXALLOCBSTR SysAllocString #define Byte unsigned char