2 * Copyright 2008 Jacek Caban for CodeWeavers
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.
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.
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
21 #include "wine/debug.h"
23 WINE_DEFAULT_DEBUG_CHANNEL(jscript
);
29 static const WCHAR toStringW
[] = {'t','o','S','t','r','i','n','g',0};
30 static const WCHAR toLocaleStringW
[] = {'t','o','L','o','c','a','l','e','S','t','r','i','n','g',0};
31 static const WCHAR hasOwnPropertyW
[] = {'h','a','s','O','w','n','P','r','o','p','e','r','t','y',0};
32 static const WCHAR propertyIsEnumerableW
[] =
33 {'p','r','o','p','e','r','t','y','I','s','E','n','u','m','e','r','a','b','l','e',0};
34 static const WCHAR isPrototypeOfW
[] = {'i','s','P','r','o','t','o','t','y','p','e','O','f',0};
36 static HRESULT
RegExp_toString(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
37 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
43 static HRESULT
RegExp_toLocaleString(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
44 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
50 static HRESULT
RegExp_hasOwnProperty(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
51 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
57 static HRESULT
RegExp_propertyIsEnumerable(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
58 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
64 static HRESULT
RegExp_isPrototypeOf(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
65 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
71 static HRESULT
RegExp_value(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
72 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
78 static void RegExp_destructor(DispatchEx
*dispex
)
83 static const builtin_prop_t RegExp_props
[] = {
84 {hasOwnPropertyW
, RegExp_hasOwnProperty
, PROPF_METHOD
},
85 {isPrototypeOfW
, RegExp_isPrototypeOf
, PROPF_METHOD
},
86 {propertyIsEnumerableW
, RegExp_propertyIsEnumerable
, PROPF_METHOD
},
87 {toLocaleStringW
, RegExp_toLocaleString
, PROPF_METHOD
},
88 {toStringW
, RegExp_toString
, PROPF_METHOD
}
91 static const builtin_info_t RegExp_info
= {
93 {NULL
, RegExp_value
, 0},
94 sizeof(RegExp_props
)/sizeof(*RegExp_props
),
100 static HRESULT
alloc_regexp(script_ctx_t
*ctx
, BOOL use_constr
, RegExpInstance
**ret
)
102 RegExpInstance
*regexp
;
105 regexp
= heap_alloc_zero(sizeof(RegExpInstance
));
107 return E_OUTOFMEMORY
;
110 hres
= init_dispex_from_constr(®exp
->dispex
, ctx
, &RegExp_info
, ctx
->regexp_constr
);
112 hres
= init_dispex(®exp
->dispex
, ctx
, &RegExp_info
, NULL
);
123 static HRESULT
RegExpConstr_value(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
124 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
130 HRESULT
create_regexp_constr(script_ctx_t
*ctx
, DispatchEx
**ret
)
132 RegExpInstance
*regexp
;
135 hres
= alloc_regexp(ctx
, FALSE
, ®exp
);
139 hres
= create_builtin_function(ctx
, RegExpConstr_value
, PROPF_CONSTR
, ®exp
->dispex
, ret
);
141 jsdisp_release(®exp
->dispex
);