7#define GNUC_OLDER_3_4_4 \
9 ((__GNUC__ <= 3) && (__GNUC_MINOR__ < 4)) || \
10 ((__GNUC__ <= 3) && (__GNUC_MINOR__ <= 4) && (__GNUC_PATCHLEVEL__ <= 4)))
12#if (defined(__GNUC__)) && (GNUC_OLDER_3_4_4)
13#ifndef NONAMELESSUNION
14#define NONAMELESSUNION 1
24#if defined(HAVE_TYPE_IMULTILANGUAGE2) || defined(HAVE_TYPE_IMULTILANGUAGE)
29#ifdef HAVE_STDARG_PROTOTYPES
31#define va_init_list(a,b) va_start(a,b)
34#define va_init_list(a,b) va_start(a)
38#define DOUT fprintf(stderr,"%s(%d)\n", __FILE__, __LINE__)
39#define DOUTS(x) fprintf(stderr,"%s(%d):" #x "=%s\n",__FILE__, __LINE__,x)
40#define DOUTMSG(x) fprintf(stderr, "%s(%d):" #x "\n",__FILE__, __LINE__)
41#define DOUTI(x) fprintf(stderr, "%s(%d):" #x "=%d\n",__FILE__, __LINE__,x)
42#define DOUTD(x) fprintf(stderr, "%s(%d):" #x "=%f\n",__FILE__, __LINE__,x)
44#if (defined(__GNUC__)) && (GNUC_OLDER_3_4_4)
45#define V_UNION1(X, Y) ((X)->u.Y)
47#define V_UNION1(X, Y) ((X)->Y)
50#if (defined(__GNUC__)) && (GNUC_OLDER_3_4_4)
52#define V_UNION(X,Y) ((X)->n1.n2.n3.Y)
55#define V_VT(X) ((X)->n1.n2.vt)
58#define V_BOOL(X) V_UNION(X,boolVal)
62#define V_I1REF(X) V_UNION(X, pcVal)
66#define V_UI2REF(X) V_UNION(X, puiVal)
70#define V_INT(X) V_UNION(X, intVal)
74#define V_INTREF(X) V_UNION(X, pintVal)
78#define V_UINT(X) V_UNION(X, uintVal)
82#define V_UINTREF(X) V_UNION(X, puintVal)
86#define I8_2_NUM LL2NUM
87#define UI8_2_NUM ULL2NUM
88#define NUM2I8 RB_NUM2LL
89#define NUM2UI8 RB_NUM2ULL
91#define I8_2_NUM RB_INT2NUM
92#define UI8_2_NUM RB_UINT2NUM
93#define NUM2I8 RB_NUM2INT
94#define NUM2UI8 RB_NUM2UINT
97#define OLE_ADDREF(X) (X) ? ((X)->lpVtbl->AddRef(X)) : 0
98#define OLE_RELEASE(X) (X) ? ((X)->lpVtbl->Release(X)) : 0
100 if(ole_initialized() == TRUE) {\
108#define OLE_GET_TYPEATTR(X, Y) ((X)->lpVtbl->GetTypeAttr((X), (Y)))
109#define OLE_RELEASE_TYPEATTR(X, Y) ((X)->lpVtbl->ReleaseTypeAttr((X), (Y)))
130#define WC2VSTR(x) ole_wc2vstr((x), TRUE)
typedef HRESULT(STDAPICALLTYPE FNCOCREATEINSTANCEEX)(REFCLSID
HRESULT ole_docinfo_from_type(ITypeInfo *pTypeInfo, BSTR *name, BSTR *helpstr, DWORD *helpcontext, BSTR *helpfile)
LPWSTR ole_vstr2wc(VALUE vstr)
VALUE ole_typedesc2val(ITypeInfo *pTypeInfo, TYPEDESC *pTypeDesc, VALUE typedetails)
VALUE reg_get_val2(HKEY hkey, const char *subkey)
HRESULT ole_val_ary2variant_ary(VALUE val, VARIANT *var, VARTYPE vt)
LONG reg_open_key(HKEY hkey, const char *name, HKEY *phkey)
VALUE ole_wc2vstr(LPWSTR pw, BOOL isfree)
void ole_val2variant_ex(VALUE val, VARIANT *var, VARTYPE vt)
VALUE default_inspect(VALUE self, const char *class_name)
VALUE ole_variant2val(VARIANT *pvar)
void ole_val2variant2(VALUE val, VARIANT *var)
struct oledata * oledata_get_struct(VALUE obj)
VALUE reg_get_val(HKEY hkey, const char *subkey)
BOOL ole_initialized(void)
void ole_initialize(void)
VOID * val2variant_ptr(VALUE val, VARIANT *var, VARTYPE vt)
VALUE make_inspect(const char *class_name, VALUE detail)
char * ole_wc2mb(LPWSTR pw)
void ole_val2variant(VALUE val, VARIANT *var)
LONG reg_open_vkey(HKEY hkey, VALUE key, HKEY *phkey)
VALUE reg_enum_key(HKEY hkey, DWORD i)
HRESULT typelib_from_val(VALUE obj, ITypeLib **pTypeLib)