xref: /PHP-5.4/ext/com_dotnet/com_dotnet.c (revision daa1fb8b)
1 /*
2    +----------------------------------------------------------------------+
3    | PHP Version 5                                                        |
4    +----------------------------------------------------------------------+
5    | Copyright (c) 1997-2014 The PHP Group                                |
6    +----------------------------------------------------------------------+
7    | This source file is subject to version 3.01 of the PHP license,      |
8    | that is bundled with this package in the file LICENSE, and is        |
9    | available through the world-wide-web at the following url:           |
10    | http://www.php.net/license/3_01.txt                                  |
11    | If you did not receive a copy of the PHP license and are unable to   |
12    | obtain it through the world-wide-web, please send a note to          |
13    | license@php.net so we can mail you a copy immediately.               |
14    +----------------------------------------------------------------------+
15    | Author: Wez Furlong  <wez@thebrainroom.com>                          |
16    +----------------------------------------------------------------------+
17  */
18 
19 /* $Id$ */
20 
21 #ifdef HAVE_CONFIG_H
22 #include "config.h"
23 #endif
24 
25 #include "php.h"
26 
27 #if HAVE_MSCOREE_H
28 # include "php_ini.h"
29 # include "ext/standard/info.h"
30 # include "php_com_dotnet.h"
31 # include "php_com_dotnet_internal.h"
32 # include "Zend/zend_exceptions.h"
33 # include <mscoree.h>
34 
35 /* Since there is no official public mscorlib.h header file, and since
36  * generating your own version from the elusive binary .tlb file takes a lot of
37  * hacking and results in a 3MB header file (!), we opt for this slightly
38  * voodoo approach.  The following is just enough definition to be able to
39  * reach the _AppDomain::CreateInstance method that we need to use to be able
40  * to fire up .Net objects.  We used to use IDispatch for this, but it would
41  * not always work.
42  *
43  * The following info was obtained using OleView to export the IDL from
44  * mscorlib.tlb.  Note that OleView is unable to generate C headers for this
45  * particular tlb... hence this mess.
46  */
47 
48 const GUID IID_mscorlib_System_AppDomain = {
49 0x05F696DC, 0x2B29, 0x3663, {0xAD, 0x8B, 0xC4, 0x38, 0x9C, 0xF2, 0xA7, 0x13 }};
50 
51 typedef struct _Imscorlib_System_AppDomain IAppDomain;
52 
53 struct _Imscorlib_System_AppDomainVtbl {
54 	BEGIN_INTERFACE
55 
56 	HRESULT ( STDMETHODCALLTYPE *QueryInterface )(
57 		IAppDomain * This,
58 		/* [in] */ REFIID riid,
59 		/* [iid_is][out] */ void **ppvObject);
60 
61 	ULONG ( STDMETHODCALLTYPE *AddRef )(
62 		IAppDomain * This);
63 
64 	ULONG ( STDMETHODCALLTYPE *Release )(
65 		IAppDomain * This);
66 
67 	/* this is padding to get CreateInstance into the correct position */
68 #define DUMMY_METHOD(x)		HRESULT ( STDMETHODCALLTYPE *dummy_##x )(IAppDomain *This)
69 
70 	DUMMY_METHOD(GetTypeInfoCount);
71 	DUMMY_METHOD(GetTypeInfo);
72 	DUMMY_METHOD(GetIDsOfNames);
73 	DUMMY_METHOD(Invoke);
74 	DUMMY_METHOD(ToString);
75 	DUMMY_METHOD(Equals);
76 	DUMMY_METHOD(GetHashCode);
77 	DUMMY_METHOD(GetType);
78 	DUMMY_METHOD(InitializeLifetimeService);
79 	DUMMY_METHOD(GetLifetimeService);
80 	DUMMY_METHOD(Evidence);
81 	DUMMY_METHOD(add_DomainUnload);
82 	DUMMY_METHOD(remove_DomainUnload);
83 	DUMMY_METHOD(add_AssemblyLoad);
84 	DUMMY_METHOD(remove_AssemblyLoad);
85 	DUMMY_METHOD(add_ProcessExit);
86 	DUMMY_METHOD(remove_ProcessExit);
87 	DUMMY_METHOD(add_TypeResolve);
88 	DUMMY_METHOD(remove_TypeResolve);
89 	DUMMY_METHOD(add_ResourceResolve);
90 	DUMMY_METHOD(remove_ResourceResolve);
91 	DUMMY_METHOD(add_AssemblyResolve);
92 	DUMMY_METHOD(remove_AssemblyResolve);
93 	DUMMY_METHOD(add_UnhandledException);
94 	DUMMY_METHOD(remove_UnhandledException);
95 	DUMMY_METHOD(DefineDynamicAssembly);
96 	DUMMY_METHOD(DefineDynamicAssembly_2);
97 	DUMMY_METHOD(DefineDynamicAssembly_3);
98 	DUMMY_METHOD(DefineDynamicAssembly_4);
99 	DUMMY_METHOD(DefineDynamicAssembly_5);
100 	DUMMY_METHOD(DefineDynamicAssembly_6);
101 	DUMMY_METHOD(DefineDynamicAssembly_7);
102 	DUMMY_METHOD(DefineDynamicAssembly_8);
103 	DUMMY_METHOD(DefineDynamicAssembly_9);
104 
105 	HRESULT ( STDMETHODCALLTYPE *CreateInstance )(IAppDomain * This, BSTR AssemblyName, BSTR typeName, IUnknown **pRetVal);
106 	HRESULT ( STDMETHODCALLTYPE *CreateInstanceFrom )(IAppDomain * This, BSTR AssemblyFile, BSTR typeName, IUnknown **pRetVal);
107 
108 	/* more methods live here */
109 
110 	END_INTERFACE
111 };
112 
113 struct _Imscorlib_System_AppDomain {
114 	struct _Imscorlib_System_AppDomainVtbl *lpVtbl;
115 };
116 
117 
118 struct dotnet_runtime_stuff {
119 	ICorRuntimeHost *dotnet_host;
120 	IAppDomain 		*dotnet_domain;
121 	DISPID create_instance;
122 };
123 
dotnet_init(char ** p_where TSRMLS_DC)124 static HRESULT dotnet_init(char **p_where TSRMLS_DC)
125 {
126 	HRESULT hr;
127 	struct dotnet_runtime_stuff *stuff;
128 	IUnknown *unk = NULL;
129 	char *where = "";
130 
131 	stuff = malloc(sizeof(*stuff));
132 	if (!stuff) {
133 		return S_FALSE;
134 	}
135 	memset(stuff, 0, sizeof(*stuff));
136 
137 	where = "CoCreateInstance";
138 	hr = CoCreateInstance(&CLSID_CorRuntimeHost, NULL, CLSCTX_ALL,
139 			&IID_ICorRuntimeHost, (LPVOID*)&stuff->dotnet_host);
140 
141 	if (FAILED(hr))
142 		goto out;
143 
144 	/* fire up the host and get the domain object */
145 	where = "ICorRuntimeHost_Start\n";
146 	hr = ICorRuntimeHost_Start(stuff->dotnet_host);
147 	if (FAILED(hr))
148 		goto out;
149 
150 	where = "ICorRuntimeHost_GetDefaultDomain";
151 	hr = ICorRuntimeHost_GetDefaultDomain(stuff->dotnet_host, &unk);
152 	if (FAILED(hr))
153 		goto out;
154 
155 	where = "QI: System._AppDomain";
156 	hr = IUnknown_QueryInterface(unk, &IID_mscorlib_System_AppDomain, (LPVOID*)&stuff->dotnet_domain);
157 	if (FAILED(hr))
158 		goto out;
159 
160 	COMG(dotnet_runtime_stuff) = stuff;
161 
162 out:
163 	if (unk) {
164 		IUnknown_Release(unk);
165 	}
166 	if (COMG(dotnet_runtime_stuff) == NULL) {
167 		/* clean up */
168 		if (stuff->dotnet_domain) {
169 			IUnknown_Release(stuff->dotnet_domain);
170 		}
171 		if (stuff->dotnet_host) {
172 			ICorRuntimeHost_Stop(stuff->dotnet_host);
173 			ICorRuntimeHost_Release(stuff->dotnet_host);
174 		}
175 		free(stuff);
176 
177 		*p_where = where;
178 
179 		return hr;
180 	}
181 
182 	return S_OK;
183 }
184 
185 /* {{{ com_dotnet_create_instance - ctor for DOTNET class */
PHP_FUNCTION(com_dotnet_create_instance)186 PHP_FUNCTION(com_dotnet_create_instance)
187 {
188 	zval *object = getThis();
189 	php_com_dotnet_object *obj;
190 	char *assembly_name, *datatype_name;
191 	int assembly_name_len, datatype_name_len;
192 	struct dotnet_runtime_stuff *stuff;
193 	OLECHAR *oleassembly, *oletype;
194 	BSTR oleassembly_sys, oletype_sys;
195 	HRESULT hr;
196 	int ret = FAILURE;
197 	char *where = "";
198 	IUnknown *unk = NULL;
199 
200 	php_com_initialize(TSRMLS_C);
201 	stuff = (struct dotnet_runtime_stuff*)COMG(dotnet_runtime_stuff);
202 	if (stuff == NULL) {
203 		hr = dotnet_init(&where TSRMLS_CC);
204 		if (FAILED(hr)) {
205 			char buf[1024];
206 			char *err = php_win32_error_to_msg(hr);
207 			snprintf(buf, sizeof(buf), "Failed to init .Net runtime [%s] %s", where, err);
208 			if (err)
209 				LocalFree(err);
210 			php_com_throw_exception(hr, buf TSRMLS_CC);
211 			ZVAL_NULL(object);
212 			return;
213 		}
214 		stuff = (struct dotnet_runtime_stuff*)COMG(dotnet_runtime_stuff);
215 
216 	} else if (stuff->dotnet_domain == NULL) {
217 		where = "ICorRuntimeHost_GetDefaultDomain";
218 		hr = ICorRuntimeHost_GetDefaultDomain(stuff->dotnet_host, &unk);
219 		if (FAILED(hr)) {
220 			char buf[1024];
221 			char *err = php_win32_error_to_msg(hr);
222 			snprintf(buf, sizeof(buf), "Failed to re-init .Net domain [%s] %s", where, err);
223 			if (err)
224 				LocalFree(err);
225 			php_com_throw_exception(hr, buf TSRMLS_CC);
226 			ZVAL_NULL(object);
227 			return;
228 		}
229 
230 		where = "QI: System._AppDomain";
231 		hr = IUnknown_QueryInterface(unk, &IID_mscorlib_System_AppDomain, (LPVOID*)&stuff->dotnet_domain);
232 		if (FAILED(hr)) {
233 			char buf[1024];
234 			char *err = php_win32_error_to_msg(hr);
235 			snprintf(buf, sizeof(buf), "Failed to re-init .Net domain [%s] %s", where, err);
236 			if (err)
237 				LocalFree(err);
238 			php_com_throw_exception(hr, buf TSRMLS_CC);
239 			ZVAL_NULL(object);
240 			return;
241 		}
242 	}
243 
244 	obj = CDNO_FETCH(object);
245 
246 	if (FAILURE == zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "ss|l",
247 			&assembly_name, &assembly_name_len,
248 			&datatype_name, &datatype_name_len,
249 			&obj->code_page)) {
250 		php_com_throw_exception(E_INVALIDARG, "Could not create .Net object - invalid arguments!" TSRMLS_CC);
251 		ZVAL_NULL(object);
252 		return;
253 	}
254 
255 	oletype = php_com_string_to_olestring(datatype_name, datatype_name_len, obj->code_page TSRMLS_CC);
256 	oleassembly = php_com_string_to_olestring(assembly_name, assembly_name_len, obj->code_page TSRMLS_CC);
257 	oletype_sys = SysAllocString(oletype);
258 	oleassembly_sys = SysAllocString(oleassembly);
259 	where = "CreateInstance";
260 	hr = stuff->dotnet_domain->lpVtbl->CreateInstance(stuff->dotnet_domain, oleassembly_sys, oletype_sys, &unk);
261 	efree(oletype);
262 	efree(oleassembly);
263 	SysFreeString(oletype_sys);
264 	SysFreeString(oleassembly_sys);
265 
266 	if (SUCCEEDED(hr)) {
267 		VARIANT unwrapped;
268 		IObjectHandle *handle = NULL;
269 
270 		where = "QI: IObjectHandle";
271 		hr = IUnknown_QueryInterface(unk, &IID_IObjectHandle, &handle);
272 
273 		if (SUCCEEDED(hr)) {
274 			where = "IObjectHandle_Unwrap";
275 			hr = IObjectHandle_Unwrap(handle, &unwrapped);
276 			if (SUCCEEDED(hr)) {
277 
278 				if (V_VT(&unwrapped) == VT_UNKNOWN) {
279 					where = "Unwrapped, QI for IDispatch";
280 					hr = IUnknown_QueryInterface(V_UNKNOWN(&unwrapped), &IID_IDispatch, &V_DISPATCH(&obj->v));
281 
282 					if (SUCCEEDED(hr)) {
283 						V_VT(&obj->v) = VT_DISPATCH;
284 
285 						/* get its type-info */
286 						IDispatch_GetTypeInfo(V_DISPATCH(&obj->v), 0, LANG_NEUTRAL, &obj->typeinfo);
287 						ret = SUCCESS;
288 					}
289 				} else if (V_VT(&unwrapped) == VT_DISPATCH) {
290 					/* unwrapped is now the dispatch pointer we want */
291 					V_DISPATCH(&obj->v) = V_DISPATCH(&unwrapped);
292 					V_VT(&obj->v) = VT_DISPATCH;
293 
294 					/* get its type-info */
295 					IDispatch_GetTypeInfo(V_DISPATCH(&obj->v), 0, LANG_NEUTRAL, &obj->typeinfo);
296 
297 					ret = SUCCESS;
298 				} else {
299 					/* shouldn't happen, but let's be ready for it */
300 					VariantClear(&unwrapped);
301 					hr = E_INVALIDARG;
302 				}
303 			}
304 			IObjectHandle_Release(handle);
305 		}
306 		IUnknown_Release(unk);
307 	}
308 
309 	if (ret == FAILURE) {
310 		char buf[1024];
311 		char *err = php_win32_error_to_msg(hr);
312 		snprintf(buf, sizeof(buf), "Failed to instantiate .Net object [%s] [0x%08x] %s", where, hr, err);
313 		if (err && err[0]) {
314 			LocalFree(err);
315 		}
316 		php_com_throw_exception(hr, buf TSRMLS_CC);
317 		ZVAL_NULL(object);
318 		return;
319 	}
320 }
321 /* }}} */
322 
php_com_dotnet_mshutdown(TSRMLS_D)323 void php_com_dotnet_mshutdown(TSRMLS_D)
324 {
325 	struct dotnet_runtime_stuff *stuff = COMG(dotnet_runtime_stuff);
326 
327 	if (stuff->dotnet_domain) {
328 		IDispatch_Release(stuff->dotnet_domain);
329 	}
330 	if (stuff->dotnet_host) {
331 		ICorRuntimeHost_Stop(stuff->dotnet_host);
332 		ICorRuntimeHost_Release(stuff->dotnet_host);
333 		stuff->dotnet_host = NULL;
334 	}
335 	free(stuff);
336 	COMG(dotnet_runtime_stuff) = NULL;
337 }
338 
php_com_dotnet_rshutdown(TSRMLS_D)339 void php_com_dotnet_rshutdown(TSRMLS_D)
340 {
341 	struct dotnet_runtime_stuff *stuff = COMG(dotnet_runtime_stuff);
342 
343 	if (stuff->dotnet_domain) {
344 		IDispatch_Release(stuff->dotnet_domain);
345 		stuff->dotnet_domain = NULL;
346 	}
347 }
348 
349 #endif /* HAVE_MSCOREE_H */
350