From c32e95890ee4608d15909e1bb5bc594a1596950d Mon Sep 17 00:00:00 2001
From: Pietro Gagliardi <pietro10@mac.com>
Date: Sun, 9 Nov 2014 13:04:04 -0500
Subject: [PATCH] Started the work to add accessibility to the new Windows
 Table. Also adjusted winapi_windows.h to accomodate this (defined CINTERFACE
 and included <oleacc.h>).

---
 winapi_windows.h         |   2 +
 wintable/accessibility.c | 118 +++++++++++++++++++++++++++++++++++++++
 wintable/main.c          |   2 +
 3 files changed, 122 insertions(+)
 create mode 100644 wintable/accessibility.c

diff --git a/winapi_windows.h b/winapi_windows.h
index ba38abc..b6b436a 100644
--- a/winapi_windows.h
+++ b/winapi_windows.h
@@ -8,6 +8,7 @@
 #define _UNICODE
 #define STRICT
 #define STRICT_TYPED_ITEMIDS
+#define CINTERFACE
 // get Windows version right; right now Windows XP
 #define WINVER 0x0501
 #define _WIN32_WINNT 0x0501
@@ -24,6 +25,7 @@
 #include <vsstyle.h>
 #include <vssym32.h>
 #include <stdarg.h>
+#include <oleacc.h>
 
 // if by some stroke of luck Go ever supports compiling with MSVC, this will need to change
 // noe that this has to come after the headers above because it's not predefined
diff --git a/wintable/accessibility.c b/wintable/accessibility.c
new file mode 100644
index 0000000..6d50a96
--- /dev/null
+++ b/wintable/accessibility.c
@@ -0,0 +1,118 @@
+// 9 november 2014
+#define UNICODE
+#define _UNICODE
+#define STRICT
+#define STRICT_TYPED_ITEMIDS
+#define CINTERFACE
+// get Windows version right; right now Windows XP
+#define WINVER 0x0501
+#define _WIN32_WINNT 0x0501
+#define _WIN32_WINDOWS 0x0501		/* according to Microsoft's winperf.h */
+#define _WIN32_IE 0x0600			/* according to Microsoft's sdkddkver.h */
+#define NTDDI_VERSION 0x05010000	/* according to Microsoft's sdkddkver.h */
+#include <windows.h>
+#include <commctrl.h>
+#include <stdint.h>
+#include <uxtheme.h>
+#include <string.h>
+#include <wchar.h>
+#include <windowsx.h>
+#include <vsstyle.h>
+#include <vssym32.h>
+#include <oleacc.h>
+
+struct tableAccessible {
+	IAccessibleVtbl vtbl;
+	volatile ULONG refcount;		// TODO ensure this is aligned
+	struct table *t;
+};
+
+static IAccessibleVtbl aaccessible = {
+	// IUnknkown
+	.QueryInterface = taQueryInterface,
+	.AddRef = taAddRef,
+	.Release = taRelease,
+	// IDispatch
+	.GetTypeInfoCount = taGetTypeInfoCount,
+	.GetTypeInfo = taGetTypeInfo,
+	.GetIDsOfNames = taGetIDsOfNames,
+	.Invoke = taInvoke,
+	// IAccessible
+	...
+};
+
+HRESULT STDMETHODCALLTYPE taQueryInterface(IUnknown *this, REFIID riid, void **ppvObject)
+{
+	if (ppvObject == NULL)
+		return E_POINTER;
+	// we're required to return the same pointer for IUnknown
+	// since this is a straight singly-derived interface inheritance, we can exploit the structure layout and just return the same pointer for everything
+	// at least I hope... (TODO)
+	if (IsEqualIID(riid, IID_IUnknown) ||
+		IsEqualIID(riid, IID_IDispatch) ||
+		IsEqualIID(riid, IID_IAccessible)) {
+		this->AddRef(this);
+		*ppvObject = (void *) this;
+		return S_OK;
+	}
+	// we're not making a special class for this
+	*ppvObject = NULL;
+	return E_NOINTERFACE;
+}
+
+ULONG STDMETHODCALLTYPE taAddRef(IUnknown *this)
+{
+	// TODO is the signed conversion safe?
+	return (ULONG) InterlockedIncrement((volatile LONG *) (&(((tableAccessible *) this)->refcount)));
+}
+
+ULONG STDMETHODCALLTYPE taRelease(IUnknown *this)
+{
+	ULONG rc;
+
+	rc = (ULONG) InterlockedDecrement((volatile LONG *) (&(((tableAccessible *) this)->refcount)));
+	// TODO pull the refcount back out?
+	if (rc == 0)
+		free((tableAccessible *) this);
+	// TODO pull the refcount back out?
+	return rc;
+}
+
+// here's the IDispatch member functions
+// we actually /don't/ need to define any of these!
+// see also http://msdn.microsoft.com/en-us/library/windows/desktop/cc307844.aspx
+
+HRESULT STDMETHODCALLTYPE taGetTypeInfoCount(IDispatch *this, UINT *pctinfo)
+{
+	if (pctinfo == NULL)
+		return E_INVALIDARG;
+	// TODO really set this to zero?
+	*pctinfo = 0;
+	return E_NOTIMPL;
+}
+
+HRESULT STDMETHODCALLTYPE taGetTypeInfo(IDispatch *this, UINT iTInfo, LCID lcid, ITypeInfo **ppTInfo)
+{
+	if (pctinfo == NULL)
+		return E_INVALIDARG;
+	*ppTInfo = NULL;
+	// let's do this just to be safe
+	if (iTInfo == 0)
+		return DISP_E_BADINDEX;
+	return E_NOTIMPL;
+}
+
+HRESULT STDMETHODCALLTYPE taGetIDsOfNames(IDispatch *this, REFIID riid, LPOLESTR *rgszNames, UINT cNames, LCID lcid, DISPID *rgDispId)
+{
+	// rgDispId is an array of LONGs; setting it to NULL is useless
+	// TODO should we clear the array?
+	return E_NOTIMPL;
+}
+
+HRESULT STDMETHODCALLTYPE taInvoke(IDispatch *this, DISPID dispIdMember, REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams, VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
+{
+	// TODO set anything to NULL or 0?
+	return E_NOTIMPL;
+}
+
+// ok that's it for IDispatch; now for IAccessible!
diff --git a/wintable/main.c b/wintable/main.c
index dca29e9..9f09bb3 100644
--- a/wintable/main.c
+++ b/wintable/main.c
@@ -3,6 +3,7 @@
 #define _UNICODE
 #define STRICT
 #define STRICT_TYPED_ITEMIDS
+#define CINTERFACE
 // get Windows version right; right now Windows XP
 #define WINVER 0x0501
 #define _WIN32_WINNT 0x0501
@@ -18,6 +19,7 @@
 #include <windowsx.h>
 #include <vsstyle.h>
 #include <vssym32.h>
+#include <oleacc.h>
 
 // #qo LIBS: user32 kernel32 gdi32 comctl32