ReactOS  0.4.14-dev-358-gbef841c
enumerator.c
Go to the documentation of this file.
1 /*
2  * Copyright 2019 Andreas Maier
3  *
4  * This library is free software; you can redistribute it and/or
5  * modify it under the terms of the GNU Lesser General Public
6  * License as published by the Free Software Foundation; either
7  * version 2.1 of the License, or (at your option) any later version.
8  *
9  * This library is distributed in the hope that it will be useful,
10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12  * Lesser General Public License for more details.
13  *
14  * You should have received a copy of the GNU Lesser General Public
15  * License along with this library; if not, write to the Free Software
16  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
17  */
18 
19 #include <assert.h>
20 
21 #include "jscript.h"
22 
23 #include "wine/debug.h"
24 
26 
27 typedef struct {
29  /* IEnumVARIANT returned by _NewEnum */
31  /* current item */
35 
36 static const WCHAR atEndW[] = {'a','t','E','n','d',0};
37 static const WCHAR itemW[] = {'i','t','e','m',0};
38 static const WCHAR moveFirstW[] = {'m','o','v','e','F','i','r','s','t',0};
39 static const WCHAR moveNextW[] = {'m','o','v','e','N','e','x','t',0};
40 
42 {
43  return CONTAINING_RECORD(jsdisp, EnumeratorInstance, dispex);
44 }
45 
47 {
48  return enumerator_from_jsdisp(vdisp->u.jsdisp);
49 }
50 
52 {
53  return is_vclass(jsthis, JSCLASS_ENUMERATOR) ? enumerator_from_vdisp(jsthis) : NULL;
54 }
55 
57 {
58  HRESULT hres;
60 
61  if (This->atend)
62  return S_OK;
63 
64  /* don't leak previous value */
65  jsval_release(This->item);
66 
67  /* not at end ... get next item */
69  hres = IEnumVARIANT_Next(This->enumvar, 1, &nextitem, NULL);
70  if (hres == S_OK)
71  {
72  hres = variant_to_jsval(&nextitem, &This->item);
74  if (FAILED(hres))
75  {
76  WARN("failed to convert jsval to variant!\n");
77  This->item = jsval_undefined();
78  return hres;
79  }
80  }
81  else
82  {
83  This->item = jsval_undefined();
84  This->atend = TRUE;
85  }
86 
87  return S_OK;
88 }
89 
90 static void Enumerator_destructor(jsdisp_t *dispex)
91 {
93 
94  TRACE("\n");
95 
96  jsval_release(This->item);
97  heap_free(dispex);
98 }
99 
101  jsval_t *r)
102 {
104 
105  if (!(This = enumerator_this(jsthis)))
107 
108  TRACE("%d\n", This->atend);
109 
110  if (r)
111  *r = jsval_bool(This->atend);
112  return S_OK;
113 }
114 
116  jsval_t *r)
117 {
119 
120  TRACE("\n");
121 
122  if (!(This = enumerator_this(jsthis)))
124 
125  return r ? jsval_copy(This->item, r) : S_OK;
126 }
127 
129  jsval_t *r)
130 {
132  HRESULT hres = S_OK;
133 
134  TRACE("\n");
135 
136  if (!(This = enumerator_this(jsthis)))
138 
139  if (This->enumvar)
140  {
141  hres = IEnumVARIANT_Reset(This->enumvar);
142  if (FAILED(hres))
143  return hres;
144 
145  This->atend = FALSE;
147  if(FAILED(hres))
148  return hres;
149  }
150 
151  if (r)
152  *r = jsval_undefined();
153  return S_OK;
154 }
155 
157  jsval_t *r)
158 {
160  HRESULT hres = S_OK;
161 
162  TRACE("\n");
163 
164  if (!(This = enumerator_this(jsthis)))
166 
167  if (This->enumvar)
168  {
170  if (FAILED(hres))
171  return hres;
172  }
173 
174  if (r)
175  *r = jsval_undefined();
176  return S_OK;
177 }
178 
184 };
185 
188  {NULL, NULL, 0},
191  NULL,
192  NULL
193 };
194 
197  {NULL, NULL, 0, NULL},
198  0,
199  NULL,
201  NULL
202 };
203 
205 {
206  EnumeratorInstance *enumerator;
207  HRESULT hres;
208 
209  enumerator = heap_alloc_zero(sizeof(EnumeratorInstance));
210  if(!enumerator)
211  return E_OUTOFMEMORY;
212 
213  if(object_prototype)
214  hres = init_dispex(&enumerator->dispex, ctx, &Enumerator_info, object_prototype);
215  else
217  ctx->enumerator_constr);
218 
219  if(FAILED(hres))
220  {
221  heap_free(enumerator);
222  return hres;
223  }
224 
225  *ret = enumerator;
226  return S_OK;
227 }
228 
230 {
231  EnumeratorInstance *enumerator;
232  HRESULT hres;
233  IDispatch *obj;
234  DISPPARAMS dispparams = {NULL, NULL, 0, 0};
236 
237  if (argv)
238  {
239  VARIANT varresult;
240 
241  if (!is_object_instance(*argv))
242  {
243  FIXME("I don't know how to handle this type!\n");
244  return E_NOTIMPL;
245  }
246 
247  obj = get_object(*argv);
248 
249  /* Try to get a IEnumVARIANT by _NewEnum */
250  VariantInit(&varresult);
251  hres = IDispatch_Invoke(obj, DISPID_NEWENUM, &IID_NULL, LOCALE_NEUTRAL,
252  DISPATCH_METHOD, &dispparams, &varresult, NULL, NULL);
253  if (FAILED(hres))
254  {
255  WARN("Enumerator: no DISPID_NEWENUM.\n");
256  return E_INVALIDARG;
257  }
258 
259  if ((V_VT(&varresult) == VT_DISPATCH) || (V_VT(&varresult) == VT_UNKNOWN))
260  {
261  hres = IUnknown_QueryInterface(V_UNKNOWN(&varresult),
262  &IID_IEnumVARIANT, (void**)&enumvar);
263  }
264  else
265  {
266  FIXME("Enumerator: NewEnum unexpected type of varresult (%d).\n", V_VT(&varresult));
267  hres = E_INVALIDARG;
268  }
269  VariantClear(&varresult);
270  if (FAILED(hres))
271  return hres;
272  }
273 
274  hres = alloc_enumerator(ctx, NULL, &enumerator);
275  if (FAILED(hres))
276  {
277  if (enumvar)
278  IEnumVARIANT_Release(enumvar);
279  return hres;
280  }
281 
282  enumerator->enumvar = enumvar;
283  enumerator->atend = !enumvar;
284  hres = enumvar_get_next_item(enumerator);
285  if (FAILED(hres))
286  {
287  jsdisp_release(&enumerator->dispex);
288  return hres;
289  }
290 
291  *ret = &enumerator->dispex;
292  return S_OK;
293 }
294 
296  jsval_t *r)
297 {
298  jsdisp_t *obj;
299  HRESULT hres;
300 
301  TRACE("\n");
302 
303  switch(flags) {
304  case DISPATCH_CONSTRUCT: {
305  if (argc > 1)
307 
308  hres = create_enumerator(ctx, (argc == 1) ? &argv[0] : 0, &obj);
309  if(FAILED(hres))
310  return hres;
311 
312  *r = jsval_obj(obj);
313  break;
314  }
315  default:
316  FIXME("unimplemented flags: %x\n", flags);
317  return E_NOTIMPL;
318  }
319 
320  return S_OK;
321 }
322 
326  0,
327  NULL,
328  NULL,
329  NULL
330 };
331 
333 {
334  EnumeratorInstance *enumerator;
335  HRESULT hres;
336  static const WCHAR EnumeratorW[] = {'E','n','u','m','e','r','a','t','o','r',0};
337 
338  hres = alloc_enumerator(ctx, object_prototype, &enumerator);
339  if(FAILED(hres))
340  return hres;
341 
344  PROPF_CONSTR|7, &enumerator->dispex, ret);
345  jsdisp_release(&enumerator->dispex);
346 
347  return hres;
348 }
LOCAL void nextitem(arg_t *ap)
Definition: match.c:428
Definition: jsval.h:54
static int argc
Definition: ServiceArgs.c:12
void jsval_release(jsval_t val)
Definition: jsutils.c:191
#define TRUE
Definition: types.h:120
jsdisp_t * enumerator_constr
Definition: jscript.h:446
static const builtin_info_t EnumeratorInst_info
Definition: enumerator.c:195
static IDispatch * get_object(jsval_t v)
Definition: jsval.h:219
GLdouble GLdouble GLdouble r
Definition: gl.h:2055
#define WARN(fmt,...)
Definition: debug.h:111
#define PROPF_CONSTR
Definition: jscript.h:98
HRESULT create_builtin_constructor(script_ctx_t *ctx, builtin_invoke_t value_proc, const WCHAR *name, const builtin_info_t *builtin_info, DWORD flags, jsdisp_t *prototype, jsdisp_t **ret)
Definition: function.c:686
static HRESULT Enumerator_item(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
Definition: enumerator.c:115
static HRESULT enumvar_get_next_item(EnumeratorInstance *This)
Definition: enumerator.c:56
void WINAPI VariantInit(VARIANTARG *pVarg)
Definition: variant.c:571
#define argv
Definition: mplay32.c:18
static HRESULT Enumerator_atEnd(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
Definition: enumerator.c:100
#define DISPATCH_METHOD
Definition: oleauto.h:1006
GLsizei GLsizei GLuint * obj
Definition: glext.h:6042
static const WCHAR moveNextW[]
Definition: enumerator.c:39
#define E_OUTOFMEMORY
Definition: ddrawi.h:100
static EnumeratorInstance * enumerator_from_jsdisp(jsdisp_t *jsdisp)
Definition: enumerator.c:41
unsigned int BOOL
Definition: ntddk_ex.h:94
HRESULT jsval_copy(jsval_t v, jsval_t *r)
Definition: jsutils.c:231
#define FIXME(fmt,...)
Definition: debug.h:110
static const WCHAR EnumeratorW[]
Definition: global.c:54
#define E_INVALIDARG
Definition: ddrawi.h:101
static const WCHAR atEndW[]
Definition: enumerator.c:36
smooth NULL
Definition: ftsmooth.c:416
HRESULT throw_syntax_error(script_ctx_t *ctx, HRESULT error, const WCHAR *str)
Definition: error.c:435
HRESULT create_enumerator_constr(script_ctx_t *ctx, jsdisp_t *object_prototype, jsdisp_t **ret)
Definition: enumerator.c:332
jsdisp_t * jsdisp
Definition: jscript.h:144
static BOOL is_object_instance(jsval_t v)
Definition: jsval.h:166
HRESULT variant_to_jsval(VARIANT *var, jsval_t *r)
Definition: jsutils.c:258
static HRESULT create_enumerator(script_ctx_t *ctx, jsval_t *argv, jsdisp_t **ret)
Definition: enumerator.c:229
union vdisp_t::@425 u
static HRESULT Enumerator_moveFirst(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
Definition: enumerator.c:128
PFLT_MESSAGE_WAITER_QUEUE CONTAINING_RECORD(Csq, DEVICE_EXTENSION, IrpQueue)) -> WaiterQ.mLock) _IRQL_raises_(DISPATCH_LEVEL) VOID NTAPI FltpAcquireMessageWaiterLock(_In_ PIO_CSQ Csq, _Out_ PKIRQL Irql)
Definition: Messaging.c:560
#define JS_E_INVALIDARG
Definition: jscript.h:529
#define TRACE(s)
Definition: solgame.cpp:4
HRESULT hres
Definition: protocol.c:465
__wchar_t WCHAR
Definition: xmlstorage.h:180
static HRESULT alloc_enumerator(script_ctx_t *ctx, jsdisp_t *object_prototype, EnumeratorInstance **ret)
Definition: enumerator.c:204
LONG HRESULT
Definition: typedefs.h:77
static const WCHAR moveFirstW[]
Definition: enumerator.c:38
static BOOL is_vclass(vdisp_t *vdisp, jsclass_t class)
Definition: jscript.h:509
WINE_DEFAULT_DEBUG_CHANNEL(jscript)
unsigned short WORD
Definition: ntddk_ex.h:93
#define JS_E_ENUMERATOR_EXPECTED
Definition: jscript.h:562
GLbitfield flags
Definition: glext.h:7161
static const builtin_prop_t Enumerator_props[]
Definition: enumerator.c:179
int ret
HRESULT WINAPI DECLSPEC_HOTPATCH VariantClear(VARIANTARG *pVarg)
Definition: variant.c:651
#define IID_NULL
Definition: guiddef.h:98
#define V_VT(A)
Definition: oleauto.h:211
static const builtin_info_t EnumeratorConstr_info
Definition: enumerator.c:323
static const builtin_info_t Enumerator_info
Definition: enumerator.c:186
#define V_UNKNOWN(A)
Definition: oleauto.h:281
#define DEFAULT_FUNCTION_VALUE
Definition: jscript.h:315
static jsval_t jsval_undefined(void)
Definition: jsval.h:137
#define S_OK
Definition: intsafe.h:59
static EnumeratorInstance * enumerator_from_vdisp(vdisp_t *vdisp)
Definition: enumerator.c:46
#define PROPF_METHOD
Definition: jscript.h:97
#define ARRAY_SIZE(a)
Definition: main.h:24
#define E_NOTIMPL
Definition: ddrawi.h:99
static HRESULT EnumeratorConstr_value(script_ctx_t *ctx, vdisp_t *vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
Definition: enumerator.c:295
static void jsdisp_release(jsdisp_t *jsdisp)
Definition: jscript.h:268
static EnumeratorInstance * enumerator_this(vdisp_t *jsthis)
Definition: enumerator.c:51
static const WCHAR itemW[]
Definition: enumerator.c:37
HRESULT init_dispex(jsdisp_t *dispex, script_ctx_t *ctx, const builtin_info_t *builtin_info, jsdisp_t *prototype)
Definition: dispex.c:919
static jsval_t jsval_obj(jsdisp_t *obj)
Definition: jsval.h:125
struct stdole::DISPPARAMS DISPPARAMS
HRESULT throw_type_error(script_ctx_t *ctx, HRESULT error, const WCHAR *str)
Definition: error.c:440
#define LOCALE_NEUTRAL
static jsval_t jsval_bool(BOOL b)
Definition: jsval.h:101
IEnumVARIANT * enumvar
Definition: enumerator.c:30
static HRESULT Enumerator_moveNext(script_ctx_t *ctx, vdisp_t *jsthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
Definition: enumerator.c:156
HRESULT init_dispex_from_constr(jsdisp_t *dispex, script_ctx_t *ctx, const builtin_info_t *builtin_info, jsdisp_t *constr)
Definition: dispex.c:1030
static void Enumerator_destructor(jsdisp_t *dispex)
Definition: enumerator.c:90
static BOOL heap_free(void *mem)
Definition: appwiz.h:75