[INTL] Implement Intl.Collator.prototype.resolvedOptions ()
[WebKit-https.git] / Source / JavaScriptCore / runtime / IntlCollatorPrototype.cpp
1 /*
2  * Copyright (C) 2015 Andy VanWagoner (thetalecrafter@gmail.com)
3  *
4  * Redistribution and use in source and binary forms, with or without
5  * modification, are permitted provided that the following conditions
6  * are met:
7  * 1. Redistributions of source code must retain the above copyright
8  *    notice, this list of conditions and the following disclaimer.
9  * 2. Redistributions in binary form must reproduce the above copyright
10  *    notice, this list of conditions and the following disclaimer in the
11  *    documentation and/or other materials provided with the distribution.
12  *
13  * THIS SOFTWARE IS PROVIDED BY APPLE INC. AND ITS CONTRIBUTORS ``AS IS''
14  * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
15  * THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
16  * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL APPLE INC. OR ITS CONTRIBUTORS
17  * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
18  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
19  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
20  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
21  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
22  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
23  * THE POSSIBILITY OF SUCH DAMAGE.
24  */
25
26 #include "config.h"
27 #include "IntlCollatorPrototype.h"
28
29 #if ENABLE(INTL)
30
31 #include "Error.h"
32 #include "IntlCollator.h"
33 #include "JSBoundFunction.h"
34 #include "JSCJSValueInlines.h"
35 #include "JSCellInlines.h"
36 #include "JSObject.h"
37 #include "ObjectConstructor.h"
38 #include "StructureInlines.h"
39
40 namespace JSC {
41
42 static EncodedJSValue JSC_HOST_CALL IntlCollatorPrototypeGetterCompare(ExecState*);
43 static EncodedJSValue JSC_HOST_CALL IntlCollatorPrototypeFuncResolvedOptions(ExecState*);
44
45 }
46
47 #include "IntlCollatorPrototype.lut.h"
48
49 namespace JSC {
50
51 const ClassInfo IntlCollatorPrototype::s_info = { "Object", &IntlCollator::s_info, &collatorPrototypeTable, CREATE_METHOD_TABLE(IntlCollatorPrototype) };
52
53 /* Source for IntlCollatorPrototype.lut.h
54 @begin collatorPrototypeTable
55   compare          IntlCollatorPrototypeGetterCompare        DontEnum|Accessor
56   resolvedOptions  IntlCollatorPrototypeFuncResolvedOptions  DontEnum|Function 0
57 @end
58 */
59
60 IntlCollatorPrototype* IntlCollatorPrototype::create(VM& vm, JSGlobalObject*, Structure* structure)
61 {
62     IntlCollatorPrototype* object = new (NotNull, allocateCell<IntlCollatorPrototype>(vm.heap)) IntlCollatorPrototype(vm, structure);
63     object->finishCreation(vm);
64     return object;
65 }
66
67 Structure* IntlCollatorPrototype::createStructure(VM& vm, JSGlobalObject* globalObject, JSValue prototype)
68 {
69     return Structure::create(vm, globalObject, prototype, TypeInfo(ObjectType, StructureFlags), info());
70 }
71
72 IntlCollatorPrototype::IntlCollatorPrototype(VM& vm, Structure* structure)
73     : IntlCollator(vm, structure)
74 {
75 }
76
77 void IntlCollatorPrototype::finishCreation(VM& vm)
78 {
79     Base::finishCreation(vm);
80 }
81
82 bool IntlCollatorPrototype::getOwnPropertySlot(JSObject* object, ExecState* exec, PropertyName propertyName, PropertySlot& slot)
83 {
84     return getStaticFunctionSlot<JSObject>(exec, collatorPrototypeTable, jsCast<IntlCollatorPrototype*>(object), propertyName, slot);
85 }
86
87 EncodedJSValue JSC_HOST_CALL IntlCollatorPrototypeGetterCompare(ExecState* exec)
88 {
89     // 10.3.3 Intl.Collator.prototype.compare (ECMA-402 2.0)
90     // 1. Let collator be this Collator object.
91     IntlCollator* collator = jsDynamicCast<IntlCollator*>(exec->thisValue());
92     if (!collator)
93         return JSValue::encode(throwTypeError(exec, ASCIILiteral("Intl.Collator.prototype.compare called on value that's not an object initialized as a Collator")));
94
95     JSBoundFunction* boundCompare = collator->boundCompare();
96     // 2. If collator.[[boundCompare]] is undefined,
97     if (!boundCompare) {
98         VM& vm = exec->vm();
99         JSGlobalObject* globalObject = collator->globalObject();
100         // a. Let F be a new built-in function object as defined in 11.3.4.
101         // b. The value of F’s length property is 2.
102         JSFunction* targetObject = JSFunction::create(vm, globalObject, 2, ASCIILiteral("compare"), IntlCollatorFuncCompare, NoIntrinsic);
103         JSArray* boundArgs = JSArray::tryCreateUninitialized(vm, globalObject->arrayStructureForIndexingTypeDuringAllocation(ArrayWithUndecided), 0);
104         if (!boundArgs)
105             return JSValue::encode(throwOutOfMemoryError(exec));
106
107         // c. Let bc be BoundFunctionCreate(F, «this value»).
108         boundCompare = JSBoundFunction::create(vm, globalObject, targetObject, collator, boundArgs, 2, ASCIILiteral("compare"));
109         // d. Set collator.[[boundCompare]] to bc.
110         collator->setBoundCompare(vm, boundCompare);
111     }
112     // 3. Return collator.[[boundCompare]].
113     return JSValue::encode(boundCompare);
114 }
115
116 EncodedJSValue JSC_HOST_CALL IntlCollatorPrototypeFuncResolvedOptions(ExecState* exec)
117 {
118     // 10.3.5 Intl.Collator.prototype.resolvedOptions() (ECMA-402 2.0)
119     IntlCollator* collator = jsDynamicCast<IntlCollator*>(exec->thisValue());
120     if (!collator)
121         return JSValue::encode(throwTypeError(exec, ASCIILiteral("Intl.Collator.prototype.resolvedOptions called on value that's not an object initialized as a Collator")));
122
123     // The function returns a new object whose properties and attributes are set as if
124     // constructed by an object literal assigning to each of the following properties the
125     // value of the corresponding internal slot of this Collator object (see 10.4): locale,
126     // usage, sensitivity, ignorePunctuation, collation, as well as those properties shown
127     // in Table 1 whose keys are included in the %Collator%[[relevantExtensionKeys]]
128     // internal slot of the standard built-in object that is the initial value of
129     // Intl.Collator.
130
131     VM& vm = exec->vm();
132     JSObject* options = constructEmptyObject(exec);
133     options->putDirect(vm, vm.propertyNames->locale, jsString(exec, collator->locale()));
134     options->putDirect(vm, vm.propertyNames->usage, jsString(exec, collator->usage()));
135     options->putDirect(vm, vm.propertyNames->sensitivity, jsString(exec, collator->sensitivity()));
136     options->putDirect(vm, vm.propertyNames->ignorePunctuation, jsBoolean(collator->ignorePunctuation()));
137     options->putDirect(vm, vm.propertyNames->collation, jsString(exec, collator->collation()));
138     options->putDirect(vm, vm.propertyNames->numeric, jsBoolean(collator->numeric()));
139     return JSValue::encode(options);
140 }
141
142 } // namespace JSC
143
144 #endif // ENABLE(INTL)