jscript: Throw range errors in Array functions.
[wine] / dlls / wmiutils / statuscode.c
1 /*
2  * Copyright 2009 Hans Leidekker for CodeWeavers
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 #define COBJMACROS
20
21 #include "config.h"
22 #include <stdarg.h>
23 #include <stdio.h>
24
25 #include "windef.h"
26 #include "winbase.h"
27 #include "winuser.h"
28 #include "initguid.h"
29 #include "ole2.h"
30 #include "wbemcli.h"
31
32 #include "wine/debug.h"
33 #include "wine/unicode.h"
34 #include "wmiutils_private.h"
35
36 WINE_DEFAULT_DEBUG_CHANNEL(wmiutils);
37
38 typedef struct status_code
39 {
40     const IWbemStatusCodeTextVtbl *vtbl;
41     LONG refs;
42 } status_code;
43
44 static inline status_code *impl_from_IWbemStatusCodeText( IWbemStatusCodeText *iface )
45 {
46     return (status_code *)((char *)iface - FIELD_OFFSET( status_code, vtbl ));
47 }
48
49 static ULONG WINAPI status_code_AddRef(
50     IWbemStatusCodeText *iface )
51 {
52     status_code *status_code = impl_from_IWbemStatusCodeText( iface );
53     return InterlockedIncrement( &status_code->refs );
54 }
55
56 static ULONG WINAPI status_code_Release(
57     IWbemStatusCodeText *iface )
58 {
59     status_code *status_code = impl_from_IWbemStatusCodeText( iface );
60     LONG refs = InterlockedDecrement( &status_code->refs );
61     if (!refs)
62     {
63         TRACE("destroying %p\n", status_code);
64         HeapFree( GetProcessHeap(), 0, status_code );
65     }
66     return refs;
67 }
68
69 static HRESULT WINAPI status_code_QueryInterface(
70     IWbemStatusCodeText *iface,
71     REFIID riid,
72     void **ppvObject )
73 {
74     status_code *This = impl_from_IWbemStatusCodeText( iface );
75
76     TRACE("%p %s %p\n", This, debugstr_guid( riid ), ppvObject );
77
78     if ( IsEqualGUID( riid, &IID_IWbemStatusCodeText ) ||
79          IsEqualGUID( riid, &IID_IUnknown ) )
80     {
81         *ppvObject = iface;
82     }
83     else
84     {
85         FIXME("interface %s not implemented\n", debugstr_guid(riid));
86         return E_NOINTERFACE;
87     }
88     IWbemStatusCodeText_AddRef( iface );
89     return S_OK;
90 }
91
92 static HRESULT WINAPI status_code_GetErrorCodeText(
93     IWbemStatusCodeText *iface,
94     HRESULT res,
95     LCID lcid,
96     LONG flags,
97     BSTR *text )
98 {
99     static const WCHAR fmt[] =
100         {'E','r','r','o','r',' ','c','o','d','e',':',' ','0','x','%','0','8','x',0};
101     WCHAR msg[32];
102
103     FIXME("%p, 0x%08x, 0x%04x, 0x%08x, %p\n", iface, res, lcid, flags, text);
104
105     sprintfW(msg, fmt, res);
106     *text = SysAllocString(msg);
107     return WBEM_S_NO_ERROR;
108 }
109
110 static HRESULT WINAPI status_code_GetFacilityCodeText(
111     IWbemStatusCodeText *iface,
112     HRESULT res,
113     LCID lcid,
114     LONG flags,
115     BSTR *text )
116 {
117     static const WCHAR fmt[] =
118         {'F','a','c','i','l','i','t','y',' ','c','o','d','e',':',' ','0','x','%','0','8','x',0};
119     WCHAR msg[32];
120
121     FIXME("%p, 0x%08x, 0x%04x, 0x%08x, %p\n", iface, res, lcid, flags, text);
122
123     sprintfW(msg, fmt, res);
124     *text = SysAllocString(msg);
125     return WBEM_S_NO_ERROR;
126 }
127
128 static const struct IWbemStatusCodeTextVtbl status_code_vtbl =
129 {
130     status_code_QueryInterface,
131     status_code_AddRef,
132     status_code_Release,
133     status_code_GetErrorCodeText,
134     status_code_GetFacilityCodeText
135 };
136
137 HRESULT WbemStatusCodeText_create( IUnknown *pUnkOuter, LPVOID *ppObj )
138 {
139     status_code *sc;
140
141     TRACE("(%p,%p)\n", pUnkOuter, ppObj);
142
143     sc = HeapAlloc( GetProcessHeap(), 0, sizeof(*sc) );
144     if (!sc) return E_OUTOFMEMORY;
145
146     sc->vtbl = &status_code_vtbl;
147     sc->refs = 1;
148
149     *ppObj = &sc->vtbl;
150
151     TRACE("returning iface %p\n", *ppObj);
152     return S_OK;
153 }