[WPE][GTK] Bump minimum versions of GLib, GTK, libsoup, ATK, GStreamer, and Cairo
[WebKit-https.git] / Source / WebCore / accessibility / atk / WebKitAccessible.cpp
1 /*
2  * Copyright (C) 2008 Nuanti Ltd.
3  * Copyright (C) 2009 Jan Alonzo
4  * Copyright (C) 2009, 2010, 2011, 2012, 2019 Igalia S.L.
5  * Copyright (C) 2013 Samsung Electronics
6  *
7  * Portions from Mozilla a11y, copyright as follows:
8  *
9  * The Original Code is mozilla.org code.
10  *
11  * The Initial Developer of the Original Code is
12  * Sun Microsystems, Inc.
13  * Portions created by the Initial Developer are Copyright (C) 2002
14  * the Initial Developer. All Rights Reserved.
15  *
16  * This library is free software; you can redistribute it and/or
17  * modify it under the terms of the GNU Library General Public
18  * License as published by the Free Software Foundation; either
19  * version 2 of the License, or (at your option) any later version.
20  *
21  * This library is distributed in the hope that it will be useful,
22  * but WITHOUT ANY WARRANTY; without even the implied warranty of
23  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
24  * Library General Public License for more details.
25  *
26  * You should have received a copy of the GNU Library General Public License
27  * along with this library; see the file COPYING.LIB.  If not, write to
28  * the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
29  * Boston, MA 02110-1301, USA.
30  */
31
32 #include "config.h"
33 #include "WebKitAccessible.h"
34
35 #if HAVE(ACCESSIBILITY)
36
37 #include "AXObjectCache.h"
38 #include "AccessibilityList.h"
39 #include "AccessibilityListBoxOption.h"
40 #include "AccessibilityTable.h"
41 #include "AccessibilityTableCell.h"
42 #include "AccessibilityTableRow.h"
43 #include "Document.h"
44 #include "Editing.h"
45 #include "Frame.h"
46 #include "FrameView.h"
47 #include "HTMLNames.h"
48 #include "HTMLTableElement.h"
49 #include "HostWindow.h"
50 #include "RenderAncestorIterator.h"
51 #include "RenderBlock.h"
52 #include "RenderObject.h"
53 #include "SVGElement.h"
54 #include "Settings.h"
55 #include "TextIterator.h"
56 #include "VisibleUnits.h"
57 #include "WebKitAccessibleHyperlink.h"
58 #include "WebKitAccessibleInterfaceAction.h"
59 #include "WebKitAccessibleInterfaceComponent.h"
60 #include "WebKitAccessibleInterfaceDocument.h"
61 #include "WebKitAccessibleInterfaceEditableText.h"
62 #include "WebKitAccessibleInterfaceHyperlinkImpl.h"
63 #include "WebKitAccessibleInterfaceHypertext.h"
64 #include "WebKitAccessibleInterfaceImage.h"
65 #include "WebKitAccessibleInterfaceSelection.h"
66 #include "WebKitAccessibleInterfaceTable.h"
67 #include "WebKitAccessibleInterfaceTableCell.h"
68 #include "WebKitAccessibleInterfaceText.h"
69 #include "WebKitAccessibleInterfaceValue.h"
70 #include "WebKitAccessibleUtil.h"
71 #include <glib/gprintf.h>
72 #include <wtf/glib/WTFGType.h>
73 #include <wtf/text/CString.h>
74
75 using namespace WebCore;
76
77 struct _WebKitAccessiblePrivate {
78     AccessibilityObject* object;
79
80     // Cached data for AtkObject.
81     CString accessibleName;
82     CString accessibleDescription;
83
84     // Cached data for AtkAction.
85     CString actionName;
86     CString actionKeyBinding;
87
88     // Cached data for AtkDocument.
89     CString documentLocale;
90     CString documentType;
91     CString documentEncoding;
92     CString documentURI;
93
94     // Cached data for AtkImage.
95     CString imageDescription;
96 };
97
98 WEBKIT_DEFINE_TYPE(WebKitAccessible, webkit_accessible, ATK_TYPE_OBJECT)
99
100 static AccessibilityObject* fallbackObject()
101 {
102     static AccessibilityObject* object = &AccessibilityListBoxOption::create().leakRef();
103     return object;
104 }
105
106 static const gchar* webkitAccessibleGetName(AtkObject* object)
107 {
108     auto* accessible = WEBKIT_ACCESSIBLE(object);
109     returnValIfWebKitAccessibleIsInvalid(accessible, nullptr);
110
111     Vector<AccessibilityText> textOrder;
112     accessible->priv->object->accessibilityText(textOrder);
113
114     for (const auto& text : textOrder) {
115         // FIXME: This check is here because AccessibilityNodeObject::titleElementText()
116         // appends an empty String for the LabelByElementText source when there is a
117         // titleUIElement(). Removing this check makes some fieldsets lose their name.
118         if (text.text.isEmpty())
119             continue;
120
121         // WebCore Accessibility should provide us with the text alternative computation
122         // in the order defined by that spec. So take the first thing that our platform
123         // does not expose via the AtkObject description.
124         if (text.textSource != AccessibilityTextSource::Help && text.textSource != AccessibilityTextSource::Summary)
125             return webkitAccessibleCacheAndReturnAtkProperty(accessible, AtkCachedAccessibleName, text.text.utf8());
126     }
127
128     return webkitAccessibleCacheAndReturnAtkProperty(accessible, AtkCachedAccessibleName, "");
129 }
130
131 static const gchar* webkitAccessibleGetDescription(AtkObject* object)
132 {
133     auto* accessible = WEBKIT_ACCESSIBLE(object);
134     returnValIfWebKitAccessibleIsInvalid(accessible, nullptr);
135
136     Vector<AccessibilityText> textOrder;
137     accessible->priv->object->accessibilityText(textOrder);
138
139     bool nameTextAvailable = false;
140     for (const auto& text : textOrder) {
141         // WebCore Accessibility should provide us with the text alternative computation
142         // in the order defined by that spec. So take the first thing that our platform
143         // does not expose via the AtkObject name.
144         if (text.textSource == AccessibilityTextSource::Help || text.textSource == AccessibilityTextSource::Summary)
145             return webkitAccessibleCacheAndReturnAtkProperty(accessible, AtkCachedAccessibleDescription, text.text.utf8());
146
147         // If there is no other text alternative, the title tag contents will have been
148         // used for the AtkObject name. We don't want to duplicate it here.
149         if (text.textSource == AccessibilityTextSource::TitleTag && nameTextAvailable)
150             return webkitAccessibleCacheAndReturnAtkProperty(accessible, AtkCachedAccessibleDescription, text.text.utf8());
151
152         nameTextAvailable = true;
153     }
154
155     return webkitAccessibleCacheAndReturnAtkProperty(accessible, AtkCachedAccessibleDescription, "");
156 }
157
158 static void removeAtkRelationByType(AtkRelationSet* relationSet, AtkRelationType relationType)
159 {
160     int count = atk_relation_set_get_n_relations(relationSet);
161     for (int i = 0; i < count; i++) {
162         AtkRelation* relation = atk_relation_set_get_relation(relationSet, i);
163         if (atk_relation_get_relation_type(relation) == relationType) {
164             atk_relation_set_remove(relationSet, relation);
165             break;
166         }
167     }
168 }
169
170 static void setAtkRelationSetFromCoreObject(AccessibilityObject* coreObject, AtkRelationSet* relationSet)
171 {
172     // Elements with aria-labelledby should have the labelled-by relation as per the ARIA AAM spec.
173     // Controls with a label element and fieldsets with a legend element should also use this relation
174     // as per the HTML AAM spec. The reciprocal label-for relation should also be used.
175     removeAtkRelationByType(relationSet, ATK_RELATION_LABELLED_BY);
176     removeAtkRelationByType(relationSet, ATK_RELATION_LABEL_FOR);
177     if (coreObject->isControl()) {
178         if (AccessibilityObject* label = coreObject->correspondingLabelForControlElement())
179             atk_relation_set_add_relation_by_type(relationSet, ATK_RELATION_LABELLED_BY, ATK_OBJECT(label->wrapper()));
180     } else if (coreObject->isFieldset()) {
181         if (AccessibilityObject* label = coreObject->titleUIElement())
182             atk_relation_set_add_relation_by_type(relationSet, ATK_RELATION_LABELLED_BY, ATK_OBJECT(label->wrapper()));
183     } else if (coreObject->roleValue() == AccessibilityRole::Legend) {
184         if (RenderBlock* renderFieldset = ancestorsOfType<RenderBlock>(*coreObject->renderer()).first()) {
185             if (renderFieldset->isFieldset()) {
186                 AccessibilityObject* fieldset = coreObject->axObjectCache()->getOrCreate(renderFieldset);
187                 atk_relation_set_add_relation_by_type(relationSet, ATK_RELATION_LABEL_FOR, ATK_OBJECT(fieldset->wrapper()));
188             }
189         }
190     } else if (AccessibilityObject* control = coreObject->correspondingControlForLabelElement())
191         atk_relation_set_add_relation_by_type(relationSet, ATK_RELATION_LABEL_FOR, ATK_OBJECT(control->wrapper()));
192     else {
193         AccessibilityObject::AccessibilityChildrenVector ariaLabelledByElements;
194         coreObject->ariaLabelledByElements(ariaLabelledByElements);
195         for (const auto& accessibilityObject : ariaLabelledByElements)
196             atk_relation_set_add_relation_by_type(relationSet, ATK_RELATION_LABELLED_BY, ATK_OBJECT(accessibilityObject->wrapper()));
197     }
198
199     // Elements referenced by aria-labelledby should have the label-for relation as per the ARIA AAM spec.
200     AccessibilityObject::AccessibilityChildrenVector labels;
201     coreObject->ariaLabelledByReferencingElements(labels);
202     for (const auto& accessibilityObject : labels)
203         atk_relation_set_add_relation_by_type(relationSet, ATK_RELATION_LABEL_FOR, ATK_OBJECT(accessibilityObject->wrapper()));
204
205     // Elements with aria-flowto should have the flows-to relation as per the ARIA AAM spec.
206     removeAtkRelationByType(relationSet, ATK_RELATION_FLOWS_TO);
207     AccessibilityObject::AccessibilityChildrenVector ariaFlowToElements;
208     coreObject->ariaFlowToElements(ariaFlowToElements);
209     for (const auto& accessibilityObject : ariaFlowToElements)
210         atk_relation_set_add_relation_by_type(relationSet, ATK_RELATION_FLOWS_TO, ATK_OBJECT(accessibilityObject->wrapper()));
211
212     // Elements referenced by aria-flowto should have the flows-from relation as per the ARIA AAM spec.
213     removeAtkRelationByType(relationSet, ATK_RELATION_FLOWS_FROM);
214     AccessibilityObject::AccessibilityChildrenVector flowFrom;
215     coreObject->ariaFlowToReferencingElements(flowFrom);
216     for (const auto& accessibilityObject : flowFrom)
217         atk_relation_set_add_relation_by_type(relationSet, ATK_RELATION_FLOWS_FROM, ATK_OBJECT(accessibilityObject->wrapper()));
218
219     // Elements with aria-describedby should have the described-by relation as per the ARIA AAM spec.
220     removeAtkRelationByType(relationSet, ATK_RELATION_DESCRIBED_BY);
221     AccessibilityObject::AccessibilityChildrenVector ariaDescribedByElements;
222     coreObject->ariaDescribedByElements(ariaDescribedByElements);
223     for (const auto& accessibilityObject : ariaDescribedByElements)
224         atk_relation_set_add_relation_by_type(relationSet, ATK_RELATION_DESCRIBED_BY, ATK_OBJECT(accessibilityObject->wrapper()));
225
226     // Elements referenced by aria-describedby should have the description-for relation as per the ARIA AAM spec.
227     removeAtkRelationByType(relationSet, ATK_RELATION_DESCRIPTION_FOR);
228     AccessibilityObject::AccessibilityChildrenVector describers;
229     coreObject->ariaDescribedByReferencingElements(describers);
230     for (const auto& accessibilityObject : describers)
231         atk_relation_set_add_relation_by_type(relationSet, ATK_RELATION_DESCRIPTION_FOR, ATK_OBJECT(accessibilityObject->wrapper()));
232
233     // Elements with aria-controls should have the controller-for relation as per the ARIA AAM spec.
234     removeAtkRelationByType(relationSet, ATK_RELATION_CONTROLLER_FOR);
235     AccessibilityObject::AccessibilityChildrenVector ariaControls;
236     coreObject->ariaControlsElements(ariaControls);
237     for (const auto& accessibilityObject : ariaControls)
238         atk_relation_set_add_relation_by_type(relationSet, ATK_RELATION_CONTROLLER_FOR, ATK_OBJECT(accessibilityObject->wrapper()));
239
240     // Elements referenced by aria-controls should have the controlled-by relation as per the ARIA AAM spec.
241     removeAtkRelationByType(relationSet, ATK_RELATION_CONTROLLED_BY);
242     AccessibilityObject::AccessibilityChildrenVector controllers;
243     coreObject->ariaControlsReferencingElements(controllers);
244     for (const auto& accessibilityObject : controllers)
245         atk_relation_set_add_relation_by_type(relationSet, ATK_RELATION_CONTROLLED_BY, ATK_OBJECT(accessibilityObject->wrapper()));
246
247     // Elements with aria-owns should have the node-parent-of relation as per the ARIA AAM spec.
248     removeAtkRelationByType(relationSet, ATK_RELATION_NODE_PARENT_OF);
249     AccessibilityObject::AccessibilityChildrenVector ariaOwns;
250     coreObject->ariaOwnsElements(ariaOwns);
251     for (const auto& accessibilityObject : ariaOwns)
252         atk_relation_set_add_relation_by_type(relationSet, ATK_RELATION_NODE_PARENT_OF, ATK_OBJECT(accessibilityObject->wrapper()));
253
254     // Elements referenced by aria-owns should have the node-child-of relation as per the ARIA AAM spec.
255     removeAtkRelationByType(relationSet, ATK_RELATION_NODE_CHILD_OF);
256     AccessibilityObject::AccessibilityChildrenVector owners;
257     coreObject->ariaOwnsReferencingElements(owners);
258     for (const auto& accessibilityObject : owners)
259         atk_relation_set_add_relation_by_type(relationSet, ATK_RELATION_NODE_CHILD_OF, ATK_OBJECT(accessibilityObject->wrapper()));
260
261 #if ATK_CHECK_VERSION(2, 25, 2)
262     // Elements with aria-details should have the details relation as per the ARIA AAM spec.
263     removeAtkRelationByType(relationSet, ATK_RELATION_DETAILS);
264     AccessibilityObject::AccessibilityChildrenVector ariaDetails;
265     coreObject->ariaDetailsElements(ariaDetails);
266     for (const auto& accessibilityObject : ariaDetails)
267         atk_relation_set_add_relation_by_type(relationSet, ATK_RELATION_DETAILS, ATK_OBJECT(accessibilityObject->wrapper()));
268
269     // Elements referenced by aria-details should have the details-for relation as per the ARIA AAM spec.
270     removeAtkRelationByType(relationSet, ATK_RELATION_DETAILS_FOR);
271     AccessibilityObject::AccessibilityChildrenVector details;
272     coreObject->ariaDetailsReferencingElements(details);
273     for (const auto& accessibilityObject : details)
274         atk_relation_set_add_relation_by_type(relationSet, ATK_RELATION_DETAILS_FOR, ATK_OBJECT(accessibilityObject->wrapper()));
275
276     // Elements with aria-errormessage should have the error-message relation as per the ARIA AAM spec.
277     removeAtkRelationByType(relationSet, ATK_RELATION_ERROR_MESSAGE);
278     AccessibilityObject::AccessibilityChildrenVector ariaErrorMessage;
279     coreObject->ariaErrorMessageElements(ariaErrorMessage);
280     for (const auto& accessibilityObject : ariaErrorMessage)
281         atk_relation_set_add_relation_by_type(relationSet, ATK_RELATION_ERROR_MESSAGE, ATK_OBJECT(accessibilityObject->wrapper()));
282
283     // Elements referenced by aria-errormessage should have the error-for relation as per the ARIA AAM spec.
284     removeAtkRelationByType(relationSet, ATK_RELATION_ERROR_FOR);
285     AccessibilityObject::AccessibilityChildrenVector errors;
286     coreObject->ariaErrorMessageReferencingElements(errors);
287     for (const auto& accessibilityObject : errors)
288         atk_relation_set_add_relation_by_type(relationSet, ATK_RELATION_ERROR_FOR, ATK_OBJECT(accessibilityObject->wrapper()));
289 #endif
290 }
291
292 static bool isRootObject(AccessibilityObject* coreObject)
293 {
294     // The root accessible object in WebCore is always an object with
295     // the ScrolledArea role with one child with the WebArea role.
296     if (!coreObject || !coreObject->isScrollView())
297         return false;
298
299     AccessibilityObject* firstChild = coreObject->firstChild();
300     return firstChild && firstChild->isWebArea();
301 }
302
303 static AtkObject* webkitAccessibleGetParent(AtkObject* object)
304 {
305     auto* accessible = WEBKIT_ACCESSIBLE(object);
306     returnValIfWebKitAccessibleIsInvalid(accessible, nullptr);
307
308     // Check first if the parent has been already set.
309     AtkObject* accessibleParent = ATK_OBJECT_CLASS(webkit_accessible_parent_class)->get_parent(object);
310     if (accessibleParent)
311         return accessibleParent;
312
313     // Parent not set yet, so try to find it in the hierarchy.
314     auto* coreObject = accessible->priv->object;
315     auto* coreParent = coreObject->parentObjectUnignored();
316     if (!coreParent && isRootObject(coreObject)) {
317         // The top level object claims to not have a parent. This makes it
318         // impossible for assistive technologies to ascend the accessible
319         // hierarchy all the way to the application. (Bug 30489)
320         if (!coreObject->document())
321             return nullptr;
322     }
323
324     return coreParent ? ATK_OBJECT(coreParent->wrapper()) : nullptr;
325 }
326
327 static gint webkitAccessibleGetNChildren(AtkObject* object)
328 {
329     auto* accessible = WEBKIT_ACCESSIBLE(object);
330     returnValIfWebKitAccessibleIsInvalid(accessible, 0);
331
332     return accessible->priv->object->children().size();
333 }
334
335 static AtkObject* webkitAccessibleRefChild(AtkObject* object, gint index)
336 {
337     auto* accessible = WEBKIT_ACCESSIBLE(object);
338     returnValIfWebKitAccessibleIsInvalid(accessible, nullptr);
339
340     if (index < 0)
341         return nullptr;
342
343     const auto& children = accessible->priv->object->children();
344     if (static_cast<size_t>(index) >= children.size())
345         return nullptr;
346
347     auto& coreChild = children[index];
348     if (!coreChild)
349         return nullptr;
350
351     auto* child = coreChild->wrapper();
352     if (!child)
353         return nullptr;
354
355     atk_object_set_parent(ATK_OBJECT(child), object);
356     return ATK_OBJECT(g_object_ref(child));
357 }
358
359 static gint webkitAccessibleGetIndexInParent(AtkObject* object)
360 {
361     auto* accessible = WEBKIT_ACCESSIBLE(object);
362     returnValIfWebKitAccessibleIsInvalid(accessible, -1);
363
364     auto* coreObject = accessible->priv->object;
365     auto* parent = coreObject->parentObjectUnignored();
366     if (!parent && isRootObject(coreObject)) {
367         if (!coreObject->document())
368             return -1;
369
370         auto* atkParent = parent ? ATK_OBJECT(parent->wrapper()) : nullptr;
371         if (!atkParent)
372             return -1;
373
374         unsigned count = atk_object_get_n_accessible_children(atkParent);
375         for (unsigned i = 0; i < count; ++i) {
376             GRefPtr<AtkObject> child = adoptGRef(atk_object_ref_accessible_child(atkParent, i));
377             if (child.get() == object)
378                 return i;
379         }
380     }
381
382     if (!parent)
383         return -1;
384
385     size_t index = parent->children().find(coreObject);
386     return (index == WTF::notFound) ? -1 : index;
387 }
388
389 static AtkAttributeSet* webkitAccessibleGetAttributes(AtkObject* object)
390 {
391     auto* accessible = WEBKIT_ACCESSIBLE(object);
392     returnValIfWebKitAccessibleIsInvalid(accessible, nullptr);
393
394     AtkAttributeSet* attributeSet = nullptr;
395 #if PLATFORM(GTK)
396     attributeSet = addToAtkAttributeSet(attributeSet, "toolkit", "WebKitGtk");
397 #elif PLATFORM(WPE)
398     attributeSet = addToAtkAttributeSet(attributeSet, "toolkit", "WPEWebKit");
399 #endif
400
401     auto* coreObject = accessible->priv->object;
402
403     // Hack needed for WebKit2 tests because obtaining an element by its ID
404     // cannot be done from the UIProcess. Assistive technologies have no need
405     // for this information.
406     Element* element = coreObject->element() ? coreObject->element() : coreObject->actionElement();
407     if (element) {
408         String tagName = element->tagName();
409         if (!tagName.isEmpty())
410             attributeSet = addToAtkAttributeSet(attributeSet, "tag", tagName.convertToASCIILowercase().utf8().data());
411         String id = element->getIdAttribute().string();
412         if (!id.isEmpty())
413             attributeSet = addToAtkAttributeSet(attributeSet, "html-id", id.utf8().data());
414     }
415
416     int level = coreObject->isHeading() ? coreObject->headingLevel() : coreObject->hierarchicalLevel();
417     if (level) {
418         String value = String::number(level);
419         attributeSet = addToAtkAttributeSet(attributeSet, "level", value.utf8().data());
420     }
421
422     if (coreObject->roleValue() == AccessibilityRole::MathElement) {
423         if (coreObject->isMathMultiscriptObject(AccessibilityMathMultiscriptObjectType::PreSuperscript) || coreObject->isMathMultiscriptObject(AccessibilityMathMultiscriptObjectType::PreSubscript))
424             attributeSet = addToAtkAttributeSet(attributeSet, "multiscript-type", "pre");
425         else if (coreObject->isMathMultiscriptObject(AccessibilityMathMultiscriptObjectType::PostSuperscript) || coreObject->isMathMultiscriptObject(AccessibilityMathMultiscriptObjectType::PostSubscript))
426             attributeSet = addToAtkAttributeSet(attributeSet, "multiscript-type", "post");
427     }
428
429     if (is<AccessibilityTable>(*coreObject) && downcast<AccessibilityTable>(*coreObject).isExposableThroughAccessibility()) {
430         auto& table = downcast<AccessibilityTable>(*coreObject);
431         int rowCount = table.axRowCount();
432         if (rowCount)
433             attributeSet = addToAtkAttributeSet(attributeSet, "rowcount", String::number(rowCount).utf8().data());
434
435         int columnCount = table.axColumnCount();
436         if (columnCount)
437             attributeSet = addToAtkAttributeSet(attributeSet, "colcount", String::number(columnCount).utf8().data());
438     } else if (is<AccessibilityTableRow>(*coreObject)) {
439         auto& row = downcast<AccessibilityTableRow>(*coreObject);
440         int rowIndex = row.axRowIndex();
441         if (rowIndex != -1)
442             attributeSet = addToAtkAttributeSet(attributeSet, "rowindex", String::number(rowIndex).utf8().data());
443     } else if (is<AccessibilityTableCell>(*coreObject)) {
444         auto& cell = downcast<AccessibilityTableCell>(*coreObject);
445         int rowIndex = cell.axRowIndex();
446         if (rowIndex != -1)
447             attributeSet = addToAtkAttributeSet(attributeSet, "rowindex", String::number(rowIndex).utf8().data());
448
449         int columnIndex = cell.axColumnIndex();
450         if (columnIndex != -1)
451             attributeSet = addToAtkAttributeSet(attributeSet, "colindex", String::number(columnIndex).utf8().data());
452
453         int rowSpan = cell.axRowSpan();
454         if (rowSpan != -1)
455             attributeSet = addToAtkAttributeSet(attributeSet, "rowspan", String::number(rowSpan).utf8().data());
456
457         int columnSpan = cell.axColumnSpan();
458         if (columnSpan != -1)
459             attributeSet = addToAtkAttributeSet(attributeSet, "colspan", String::number(columnSpan).utf8().data());
460     }
461
462     String placeholder = coreObject->placeholderValue();
463     if (!placeholder.isEmpty())
464         attributeSet = addToAtkAttributeSet(attributeSet, "placeholder-text", placeholder.utf8().data());
465
466     if (coreObject->supportsAutoComplete())
467         attributeSet = addToAtkAttributeSet(attributeSet, "autocomplete", coreObject->autoCompleteValue().utf8().data());
468
469     if (coreObject->supportsHasPopup())
470         attributeSet = addToAtkAttributeSet(attributeSet, "haspopup", coreObject->hasPopupValue().utf8().data());
471
472     if (coreObject->supportsCurrent())
473         attributeSet = addToAtkAttributeSet(attributeSet, "current", coreObject->currentValue().utf8().data());
474
475     // The Core AAM states that an explicitly-set value should be exposed, including "none".
476     if (coreObject->hasAttribute(HTMLNames::aria_sortAttr)) {
477         switch (coreObject->sortDirection()) {
478         case AccessibilitySortDirection::Invalid:
479             break;
480         case AccessibilitySortDirection::Ascending:
481             attributeSet = addToAtkAttributeSet(attributeSet, "sort", "ascending");
482             break;
483         case AccessibilitySortDirection::Descending:
484             attributeSet = addToAtkAttributeSet(attributeSet, "sort", "descending");
485             break;
486         case AccessibilitySortDirection::Other:
487             attributeSet = addToAtkAttributeSet(attributeSet, "sort", "other");
488             break;
489         case AccessibilitySortDirection::None:
490             attributeSet = addToAtkAttributeSet(attributeSet, "sort", "none");
491         }
492     }
493
494     if (coreObject->supportsPosInSet())
495         attributeSet = addToAtkAttributeSet(attributeSet, "posinset", String::number(coreObject->posInSet()).utf8().data());
496
497     if (coreObject->supportsSetSize())
498         attributeSet = addToAtkAttributeSet(attributeSet, "setsize", String::number(coreObject->setSize()).utf8().data());
499
500     String isReadOnly = coreObject->readOnlyValue();
501     if (!isReadOnly.isEmpty())
502         attributeSet = addToAtkAttributeSet(attributeSet, "readonly", isReadOnly.utf8().data());
503
504     String valueDescription = coreObject->valueDescription();
505     if (!valueDescription.isEmpty())
506         attributeSet = addToAtkAttributeSet(attributeSet, "valuetext", valueDescription.utf8().data());
507
508     // According to the W3C Core Accessibility API Mappings 1.1, section 5.4.1 General Rules:
509     // "User agents must expose the WAI-ARIA role string if the API supports a mechanism to do so."
510     // In the case of ATK, the mechanism to do so is an object attribute pair (xml-roles:"string").
511     // We cannot use the computedRoleString for this purpose because it is not limited to elements
512     // with ARIA roles, and it might not contain the actual ARIA role value (e.g. DPub ARIA).
513     String roleString = coreObject->getAttribute(HTMLNames::roleAttr);
514     if (!roleString.isEmpty())
515         attributeSet = addToAtkAttributeSet(attributeSet, "xml-roles", roleString.utf8().data());
516
517     String computedRoleString = coreObject->computedRoleString();
518     if (!computedRoleString.isEmpty()) {
519         attributeSet = addToAtkAttributeSet(attributeSet, "computed-role", computedRoleString.utf8().data());
520
521         // The HTML AAM maps several elements to ARIA landmark roles. In order for the type of landmark
522         // to be obtainable in the same fashion as an ARIA landmark, fall back on the computedRoleString.
523         if (coreObject->ariaRoleAttribute() == AccessibilityRole::Unknown && coreObject->isLandmark())
524             attributeSet = addToAtkAttributeSet(attributeSet, "xml-roles", computedRoleString.utf8().data());
525     }
526
527     String roleDescription = coreObject->roleDescription();
528     if (!roleDescription.isEmpty())
529         attributeSet = addToAtkAttributeSet(attributeSet, "roledescription", roleDescription.utf8().data());
530
531     // We need to expose the live region attributes even if the live region is currently disabled/off.
532     if (auto liveContainer = coreObject->liveRegionAncestor(false)) {
533         String liveStatus = liveContainer->liveRegionStatus();
534         String relevant = liveContainer->liveRegionRelevant();
535         bool isAtom = liveContainer->liveRegionAtomic();
536         String liveRole = roleString.isEmpty() ? computedRoleString : roleString;
537
538         // According to the Core AAM, we need to expose the above properties with "container-" prefixed
539         // object attributes regardless of whether the container is this object, or an ancestor of it.
540         attributeSet = addToAtkAttributeSet(attributeSet, "container-live", liveStatus.utf8().data());
541         attributeSet = addToAtkAttributeSet(attributeSet, "container-relevant", relevant.utf8().data());
542         if (isAtom)
543             attributeSet = addToAtkAttributeSet(attributeSet, "container-atomic", "true");
544         if (!liveRole.isEmpty())
545             attributeSet = addToAtkAttributeSet(attributeSet, "container-live-role", liveRole.utf8().data());
546
547         // According to the Core AAM, if this object is the live region (rather than its descendant),
548         // we must expose the above properties on the object without a "container-" prefix.
549         if (liveContainer == coreObject) {
550             attributeSet = addToAtkAttributeSet(attributeSet, "live", liveStatus.utf8().data());
551             attributeSet = addToAtkAttributeSet(attributeSet, "relevant", relevant.utf8().data());
552             if (isAtom)
553                 attributeSet = addToAtkAttributeSet(attributeSet, "atomic", "true");
554         } else if (!isAtom && coreObject->liveRegionAtomic())
555             attributeSet = addToAtkAttributeSet(attributeSet, "atomic", "true");
556     }
557
558     // The Core AAM states the author-provided value should be exposed as-is.
559     String dropEffect = coreObject->getAttribute(HTMLNames::aria_dropeffectAttr);
560     if (!dropEffect.isEmpty())
561         attributeSet = addToAtkAttributeSet(attributeSet, "dropeffect", dropEffect.utf8().data());
562
563     if (coreObject->isARIAGrabbed())
564         attributeSet = addToAtkAttributeSet(attributeSet, "grabbed", "true");
565     else if (coreObject->supportsARIADragging())
566         attributeSet = addToAtkAttributeSet(attributeSet, "grabbed", "false");
567
568     // The Core AAM states the author-provided value should be exposed as-is.
569     const AtomString& keyShortcuts = coreObject->keyShortcutsValue();
570     if (!keyShortcuts.isEmpty())
571         attributeSet = addToAtkAttributeSet(attributeSet, "keyshortcuts", keyShortcuts.string().utf8().data());
572
573     return attributeSet;
574 }
575
576 static AtkRole atkRole(AccessibilityObject* coreObject)
577 {
578     switch (coreObject->roleValue()) {
579     case AccessibilityRole::ApplicationAlert:
580         return ATK_ROLE_ALERT;
581     case AccessibilityRole::ApplicationAlertDialog:
582     case AccessibilityRole::ApplicationDialog:
583         return ATK_ROLE_DIALOG;
584     case AccessibilityRole::ApplicationStatus:
585         return ATK_ROLE_STATUSBAR;
586     case AccessibilityRole::Unknown:
587         return ATK_ROLE_UNKNOWN;
588     case AccessibilityRole::Audio:
589         return ATK_ROLE_AUDIO;
590     case AccessibilityRole::Video:
591         return ATK_ROLE_VIDEO;
592     case AccessibilityRole::Button:
593         return ATK_ROLE_PUSH_BUTTON;
594     case AccessibilityRole::Switch:
595     case AccessibilityRole::ToggleButton:
596         return ATK_ROLE_TOGGLE_BUTTON;
597     case AccessibilityRole::RadioButton:
598         return ATK_ROLE_RADIO_BUTTON;
599     case AccessibilityRole::CheckBox:
600         return ATK_ROLE_CHECK_BOX;
601     case AccessibilityRole::Slider:
602         return ATK_ROLE_SLIDER;
603     case AccessibilityRole::TabGroup:
604     case AccessibilityRole::TabList:
605         return ATK_ROLE_PAGE_TAB_LIST;
606     case AccessibilityRole::TextField:
607     case AccessibilityRole::TextArea:
608     case AccessibilityRole::SearchField:
609         return ATK_ROLE_ENTRY;
610     case AccessibilityRole::StaticText:
611         return ATK_ROLE_STATIC;
612     case AccessibilityRole::Outline:
613     case AccessibilityRole::Tree:
614         return ATK_ROLE_TREE;
615     case AccessibilityRole::TreeItem:
616         return ATK_ROLE_TREE_ITEM;
617     case AccessibilityRole::MenuBar:
618         return ATK_ROLE_MENU_BAR;
619     case AccessibilityRole::MenuListPopup:
620     case AccessibilityRole::Menu:
621         return ATK_ROLE_MENU;
622     case AccessibilityRole::MenuListOption:
623     case AccessibilityRole::MenuItem:
624     case AccessibilityRole::MenuButton:
625         return ATK_ROLE_MENU_ITEM;
626     case AccessibilityRole::MenuItemCheckbox:
627         return ATK_ROLE_CHECK_MENU_ITEM;
628     case AccessibilityRole::MenuItemRadio:
629         return ATK_ROLE_RADIO_MENU_ITEM;
630     case AccessibilityRole::Column:
631         // return ATK_ROLE_TABLE_COLUMN_HEADER; // Is this right?
632         return ATK_ROLE_UNKNOWN; // Matches Mozilla
633     case AccessibilityRole::Row:
634         return ATK_ROLE_TABLE_ROW;
635     case AccessibilityRole::Toolbar:
636         return ATK_ROLE_TOOL_BAR;
637     case AccessibilityRole::Meter:
638         return ATK_ROLE_LEVEL_BAR;
639     case AccessibilityRole::BusyIndicator:
640     case AccessibilityRole::ProgressIndicator:
641         return ATK_ROLE_PROGRESS_BAR;
642     case AccessibilityRole::Window:
643         return ATK_ROLE_WINDOW;
644     case AccessibilityRole::PopUpButton:
645         return coreObject->hasPopup() ? ATK_ROLE_PUSH_BUTTON : ATK_ROLE_COMBO_BOX;
646     case AccessibilityRole::ComboBox:
647         return ATK_ROLE_COMBO_BOX;
648     case AccessibilityRole::SplitGroup:
649         return ATK_ROLE_SPLIT_PANE;
650     case AccessibilityRole::Splitter:
651         return ATK_ROLE_SEPARATOR;
652 #if PLATFORM(GTK)
653     case AccessibilityRole::ColorWell:
654         // ATK_ROLE_COLOR_CHOOSER is defined as a dialog (i.e. it's what appears when you push the button).
655         return ATK_ROLE_PUSH_BUTTON;
656 #endif
657     case AccessibilityRole::List:
658         return ATK_ROLE_LIST;
659     case AccessibilityRole::ScrollBar:
660         return ATK_ROLE_SCROLL_BAR;
661     case AccessibilityRole::ScrollArea:
662     case AccessibilityRole::TabPanel:
663         return ATK_ROLE_SCROLL_PANE;
664     case AccessibilityRole::Grid:
665     case AccessibilityRole::Table:
666         return ATK_ROLE_TABLE;
667     case AccessibilityRole::TreeGrid:
668         return ATK_ROLE_TREE_TABLE;
669     case AccessibilityRole::Application:
670         return ATK_ROLE_APPLICATION;
671     case AccessibilityRole::ApplicationGroup:
672     case AccessibilityRole::Feed:
673     case AccessibilityRole::Figure:
674     case AccessibilityRole::GraphicsObject:
675     case AccessibilityRole::Group:
676     case AccessibilityRole::RadioGroup:
677     case AccessibilityRole::SVGRoot:
678         return ATK_ROLE_PANEL;
679     case AccessibilityRole::RowHeader:
680         return ATK_ROLE_ROW_HEADER;
681     case AccessibilityRole::ColumnHeader:
682         return ATK_ROLE_COLUMN_HEADER;
683     case AccessibilityRole::Caption:
684         return ATK_ROLE_CAPTION;
685     case AccessibilityRole::Cell:
686     case AccessibilityRole::GridCell:
687         return coreObject->inheritsPresentationalRole() ? ATK_ROLE_SECTION : ATK_ROLE_TABLE_CELL;
688     case AccessibilityRole::Link:
689     case AccessibilityRole::WebCoreLink:
690     case AccessibilityRole::ImageMapLink:
691         return ATK_ROLE_LINK;
692     case AccessibilityRole::ImageMap:
693         return ATK_ROLE_IMAGE_MAP;
694     case AccessibilityRole::GraphicsSymbol:
695     case AccessibilityRole::Image:
696         return ATK_ROLE_IMAGE;
697     case AccessibilityRole::ListMarker:
698         return ATK_ROLE_TEXT;
699     case AccessibilityRole::DocumentArticle:
700         return ATK_ROLE_ARTICLE;
701     case AccessibilityRole::Document:
702     case AccessibilityRole::GraphicsDocument:
703         return ATK_ROLE_DOCUMENT_FRAME;
704     case AccessibilityRole::DocumentNote:
705         return ATK_ROLE_COMMENT;
706     case AccessibilityRole::Heading:
707         return ATK_ROLE_HEADING;
708     case AccessibilityRole::ListBox:
709         // https://rawgit.com/w3c/aria/master/core-aam/core-aam.html#role-map-listbox
710         return coreObject->isDescendantOfRole(AccessibilityRole::ComboBox) ? ATK_ROLE_MENU : ATK_ROLE_LIST_BOX;
711     case AccessibilityRole::ListItem:
712         return coreObject->inheritsPresentationalRole() ? ATK_ROLE_SECTION : ATK_ROLE_LIST_ITEM;
713     case AccessibilityRole::ListBoxOption:
714         return coreObject->isDescendantOfRole(AccessibilityRole::ComboBox) ? ATK_ROLE_MENU_ITEM : ATK_ROLE_LIST_ITEM;
715     case AccessibilityRole::Paragraph:
716         return ATK_ROLE_PARAGRAPH;
717     case AccessibilityRole::Label:
718     case AccessibilityRole::Legend:
719         return ATK_ROLE_LABEL;
720     case AccessibilityRole::Blockquote:
721         return ATK_ROLE_BLOCK_QUOTE;
722 #if ATK_CHECK_VERSION(2, 25, 2)
723     case AccessibilityRole::Footnote:
724         return ATK_ROLE_FOOTNOTE;
725 #endif
726     case AccessibilityRole::ApplicationTextGroup:
727     case AccessibilityRole::Div:
728     case AccessibilityRole::Pre:
729     case AccessibilityRole::SVGText:
730     case AccessibilityRole::TextGroup:
731         return ATK_ROLE_SECTION;
732     case AccessibilityRole::Footer:
733         return ATK_ROLE_FOOTER;
734     case AccessibilityRole::Form:
735         if (coreObject->ariaRoleAttribute() != AccessibilityRole::Unknown)
736             return ATK_ROLE_LANDMARK;
737         return ATK_ROLE_FORM;
738     case AccessibilityRole::Canvas:
739         return ATK_ROLE_CANVAS;
740     case AccessibilityRole::HorizontalRule:
741         return ATK_ROLE_SEPARATOR;
742     case AccessibilityRole::SpinButton:
743         return ATK_ROLE_SPIN_BUTTON;
744     case AccessibilityRole::Tab:
745         return ATK_ROLE_PAGE_TAB;
746     case AccessibilityRole::UserInterfaceTooltip:
747         return ATK_ROLE_TOOL_TIP;
748     case AccessibilityRole::WebArea:
749         return ATK_ROLE_DOCUMENT_WEB;
750     case AccessibilityRole::WebApplication:
751         return ATK_ROLE_EMBEDDED;
752     case AccessibilityRole::ApplicationLog:
753         return ATK_ROLE_LOG;
754     case AccessibilityRole::ApplicationMarquee:
755         return ATK_ROLE_MARQUEE;
756     case AccessibilityRole::ApplicationTimer:
757         return ATK_ROLE_TIMER;
758     case AccessibilityRole::Definition:
759         return ATK_ROLE_DEFINITION;
760     case AccessibilityRole::DocumentMath:
761         return ATK_ROLE_MATH;
762     case AccessibilityRole::MathElement:
763         if (coreObject->isMathRow())
764             return ATK_ROLE_PANEL;
765         if (coreObject->isMathTable())
766             return ATK_ROLE_TABLE;
767         if (coreObject->isMathTableRow())
768             return ATK_ROLE_TABLE_ROW;
769         if (coreObject->isMathTableCell())
770             return ATK_ROLE_TABLE_CELL;
771         if (coreObject->isMathSubscriptSuperscript() || coreObject->isMathMultiscript())
772             return ATK_ROLE_SECTION;
773         if (coreObject->isMathFraction())
774             return ATK_ROLE_MATH_FRACTION;
775         if (coreObject->isMathSquareRoot() || coreObject->isMathRoot())
776             return ATK_ROLE_MATH_ROOT;
777         if (coreObject->isMathScriptObject(AccessibilityMathScriptObjectType::Subscript)
778             || coreObject->isMathMultiscriptObject(AccessibilityMathMultiscriptObjectType::PreSubscript) || coreObject->isMathMultiscriptObject(AccessibilityMathMultiscriptObjectType::PostSubscript))
779             return ATK_ROLE_SUBSCRIPT;
780         if (coreObject->isMathScriptObject(AccessibilityMathScriptObjectType::Superscript)
781             || coreObject->isMathMultiscriptObject(AccessibilityMathMultiscriptObjectType::PreSuperscript) || coreObject->isMathMultiscriptObject(AccessibilityMathMultiscriptObjectType::PostSuperscript))
782             return ATK_ROLE_SUPERSCRIPT;
783         if (coreObject->isMathToken())
784             return ATK_ROLE_STATIC;
785         return ATK_ROLE_UNKNOWN;
786     case AccessibilityRole::LandmarkBanner:
787     case AccessibilityRole::LandmarkComplementary:
788     case AccessibilityRole::LandmarkContentInfo:
789     case AccessibilityRole::LandmarkDocRegion:
790     case AccessibilityRole::LandmarkMain:
791     case AccessibilityRole::LandmarkNavigation:
792     case AccessibilityRole::LandmarkRegion:
793     case AccessibilityRole::LandmarkSearch:
794         return ATK_ROLE_LANDMARK;
795     case AccessibilityRole::DescriptionList:
796         return ATK_ROLE_DESCRIPTION_LIST;
797     case AccessibilityRole::Term:
798     case AccessibilityRole::DescriptionListTerm:
799         return ATK_ROLE_DESCRIPTION_TERM;
800     case AccessibilityRole::DescriptionListDetail:
801         return ATK_ROLE_DESCRIPTION_VALUE;
802     case AccessibilityRole::Inline:
803         if (coreObject->isSubscriptStyleGroup())
804             return ATK_ROLE_SUBSCRIPT;
805         if (coreObject->isSuperscriptStyleGroup())
806             return ATK_ROLE_SUPERSCRIPT;
807         return ATK_ROLE_STATIC;
808     case AccessibilityRole::SVGTextPath:
809     case AccessibilityRole::SVGTSpan:
810     case AccessibilityRole::Time:
811         return ATK_ROLE_STATIC;
812     default:
813         return ATK_ROLE_UNKNOWN;
814     }
815 }
816
817 static AtkRole webkitAccessibleGetRole(AtkObject* object)
818 {
819     // ATK_ROLE_UNKNOWN should only be applied in cases where there is a valid
820     // WebCore accessible object for which the platform role mapping is unknown.
821     auto* accessible = WEBKIT_ACCESSIBLE(object);
822     returnValIfWebKitAccessibleIsInvalid(accessible, ATK_ROLE_INVALID);
823
824     // Note: Why doesn't WebCore have a password field for this
825     if (accessible->priv->object->isPasswordField())
826         return ATK_ROLE_PASSWORD_TEXT;
827
828     return atkRole(accessible->priv->object);
829 }
830
831 static bool isTextWithCaret(AccessibilityObject* coreObject)
832 {
833     if (!coreObject || !coreObject->isAccessibilityRenderObject())
834         return false;
835
836     Document* document = coreObject->document();
837     if (!document)
838         return false;
839
840     Frame* frame = document->frame();
841     if (!frame)
842         return false;
843
844     if (!frame->settings().caretBrowsingEnabled())
845         return false;
846
847     // Check text objects and paragraphs only.
848     auto* axObject = coreObject->wrapper();
849     AtkRole role = axObject ? atk_object_get_role(ATK_OBJECT(axObject)) : ATK_ROLE_INVALID;
850     if (role != ATK_ROLE_TEXT && role != ATK_ROLE_PARAGRAPH)
851         return false;
852
853     // Finally, check whether the caret is set in the current object.
854     VisibleSelection selection = coreObject->selection();
855     if (!selection.isCaret())
856         return false;
857
858     return selectionBelongsToObject(coreObject, selection);
859 }
860
861 static void setAtkStateSetFromCoreObject(AccessibilityObject* coreObject, AtkStateSet* stateSet)
862 {
863     AccessibilityObject* parent = coreObject->parentObject();
864     bool isListBoxOption = parent && parent->isListBox();
865
866     // Please keep the state list in alphabetical order
867     if ((isListBoxOption && coreObject->isSelectedOptionActive())
868         || coreObject->currentState() != AccessibilityCurrentState::False)
869         atk_state_set_add_state(stateSet, ATK_STATE_ACTIVE);
870
871     if (coreObject->isBusy())
872         atk_state_set_add_state(stateSet, ATK_STATE_BUSY);
873
874     if (coreObject->supportsChecked() && coreObject->canSetValueAttribute())
875         atk_state_set_add_state(stateSet, ATK_STATE_CHECKABLE);
876
877     if (coreObject->isChecked())
878         atk_state_set_add_state(stateSet, ATK_STATE_CHECKED);
879
880     if ((coreObject->isTextControl() || coreObject->isNonNativeTextControl()) && coreObject->canSetValueAttribute())
881         atk_state_set_add_state(stateSet, ATK_STATE_EDITABLE);
882
883     // FIXME: Put both ENABLED and SENSITIVE together here for now
884     if (coreObject->isEnabled()) {
885         atk_state_set_add_state(stateSet, ATK_STATE_ENABLED);
886         atk_state_set_add_state(stateSet, ATK_STATE_SENSITIVE);
887     }
888
889     if (coreObject->canSetExpandedAttribute())
890         atk_state_set_add_state(stateSet, ATK_STATE_EXPANDABLE);
891
892     if (coreObject->isExpanded())
893         atk_state_set_add_state(stateSet, ATK_STATE_EXPANDED);
894
895     if (coreObject->canSetFocusAttribute())
896         atk_state_set_add_state(stateSet, ATK_STATE_FOCUSABLE);
897
898     // According to the Core AAM, if the element which is focused has a valid aria-activedescendant,
899     // we should not expose the focused state on the element which is actually focused, but instead
900     // on its active descendant.
901     if ((coreObject->isFocused() && !coreObject->activeDescendant()) || isTextWithCaret(coreObject))
902         atk_state_set_add_state(stateSet, ATK_STATE_FOCUSED);
903     else if (coreObject->isActiveDescendantOfFocusedContainer()) {
904         atk_state_set_add_state(stateSet, ATK_STATE_FOCUSABLE);
905         atk_state_set_add_state(stateSet, ATK_STATE_FOCUSED);
906     }
907
908     if (coreObject->orientation() == AccessibilityOrientation::Horizontal)
909         atk_state_set_add_state(stateSet, ATK_STATE_HORIZONTAL);
910     else if (coreObject->orientation() == AccessibilityOrientation::Vertical)
911         atk_state_set_add_state(stateSet, ATK_STATE_VERTICAL);
912
913     if (coreObject->hasPopup())
914         atk_state_set_add_state(stateSet, ATK_STATE_HAS_POPUP);
915
916     if (coreObject->isIndeterminate())
917         atk_state_set_add_state(stateSet, ATK_STATE_INDETERMINATE);
918     else if (coreObject->isCheckboxOrRadio() || coreObject->isMenuItem() || coreObject->isToggleButton()) {
919         if (coreObject->checkboxOrRadioValue() == AccessibilityButtonState::Mixed)
920             atk_state_set_add_state(stateSet, ATK_STATE_INDETERMINATE);
921     }
922
923     if (coreObject->isModalNode())
924         atk_state_set_add_state(stateSet, ATK_STATE_MODAL);
925
926     if (coreObject->invalidStatus() != "false")
927         atk_state_set_add_state(stateSet, ATK_STATE_INVALID_ENTRY);
928
929     if (coreObject->isMultiSelectable())
930         atk_state_set_add_state(stateSet, ATK_STATE_MULTISELECTABLE);
931
932     // TODO: ATK_STATE_OPAQUE
933
934     if (coreObject->isPressed())
935         atk_state_set_add_state(stateSet, ATK_STATE_PRESSED);
936
937     if (!coreObject->canSetValueAttribute() && (coreObject->supportsReadOnly()))
938         atk_state_set_add_state(stateSet, ATK_STATE_READ_ONLY);
939
940     if (coreObject->isRequired())
941         atk_state_set_add_state(stateSet, ATK_STATE_REQUIRED);
942
943     // TODO: ATK_STATE_SELECTABLE_TEXT
944
945     if (coreObject->canSetSelectedAttribute()) {
946         atk_state_set_add_state(stateSet, ATK_STATE_SELECTABLE);
947         // Items in focusable lists have both STATE_SELECT{ABLE,ED}
948         // and STATE_FOCUS{ABLE,ED}. We'll fake the latter based on
949         // the former.
950         if (isListBoxOption)
951             atk_state_set_add_state(stateSet, ATK_STATE_FOCUSABLE);
952     }
953
954     if (coreObject->isSelected()) {
955         atk_state_set_add_state(stateSet, ATK_STATE_SELECTED);
956         // Items in focusable lists have both STATE_SELECT{ABLE,ED}
957         // and STATE_FOCUS{ABLE,ED}. We'll fake the latter based on the
958         // former.
959         if (isListBoxOption)
960             atk_state_set_add_state(stateSet, ATK_STATE_FOCUSED);
961     }
962
963     // FIXME: Group both SHOWING and VISIBLE here for now
964     // Not sure how to handle this in WebKit, see bug
965     // http://bugzilla.gnome.org/show_bug.cgi?id=509650 for other
966     // issues with SHOWING vs VISIBLE.
967     if (!coreObject->isOffScreen()) {
968         atk_state_set_add_state(stateSet, ATK_STATE_SHOWING);
969         atk_state_set_add_state(stateSet, ATK_STATE_VISIBLE);
970     }
971
972     // Mutually exclusive, so we group these two
973     if (coreObject->roleValue() == AccessibilityRole::TextArea || coreObject->ariaIsMultiline())
974         atk_state_set_add_state(stateSet, ATK_STATE_MULTI_LINE);
975     else if (coreObject->roleValue() == AccessibilityRole::TextField || coreObject->roleValue() == AccessibilityRole::SearchField)
976         atk_state_set_add_state(stateSet, ATK_STATE_SINGLE_LINE);
977
978     // TODO: ATK_STATE_SENSITIVE
979
980     if (coreObject->supportsAutoComplete() && coreObject->autoCompleteValue() != "none")
981         atk_state_set_add_state(stateSet, ATK_STATE_SUPPORTS_AUTOCOMPLETION);
982
983     if (coreObject->isVisited())
984         atk_state_set_add_state(stateSet, ATK_STATE_VISITED);
985 }
986
987 static AtkStateSet* webkitAccessibleRefStateSet(AtkObject* object)
988 {
989     auto* accessible = WEBKIT_ACCESSIBLE(object);
990     AtkStateSet* stateSet = ATK_OBJECT_CLASS(webkit_accessible_parent_class)->ref_state_set(object);
991
992     // Make sure the layout is updated to really know whether the object
993     // is defunct or not, so we can return the proper state.
994     accessible->priv->object->updateBackingStore();
995
996     if (accessible->priv->object == fallbackObject()) {
997         atk_state_set_add_state(stateSet, ATK_STATE_DEFUNCT);
998         return stateSet;
999     }
1000
1001     // Text objects must be focusable.
1002     AtkRole role = atk_object_get_role(object);
1003     if (role == ATK_ROLE_TEXT || role == ATK_ROLE_PARAGRAPH)
1004         atk_state_set_add_state(stateSet, ATK_STATE_FOCUSABLE);
1005
1006     setAtkStateSetFromCoreObject(accessible->priv->object, stateSet);
1007     return stateSet;
1008 }
1009
1010 static AtkRelationSet* webkitAccessibleRefRelationSet(AtkObject* object)
1011 {
1012     auto* accessible = WEBKIT_ACCESSIBLE(object);
1013     returnValIfWebKitAccessibleIsInvalid(accessible, nullptr);
1014
1015     AtkRelationSet* relationSet = ATK_OBJECT_CLASS(webkit_accessible_parent_class)->ref_relation_set(object);
1016     setAtkRelationSetFromCoreObject(accessible->priv->object, relationSet);
1017     return relationSet;
1018 }
1019
1020 static void webkitAccessibleInit(AtkObject* object, gpointer data)
1021 {
1022     if (ATK_OBJECT_CLASS(webkit_accessible_parent_class)->initialize)
1023         ATK_OBJECT_CLASS(webkit_accessible_parent_class)->initialize(object, data);
1024
1025     WebKitAccessible* accessible = WEBKIT_ACCESSIBLE(object);
1026     accessible->priv->object = reinterpret_cast<AccessibilityObject*>(data);
1027 }
1028
1029 static const gchar* webkitAccessibleGetObjectLocale(AtkObject* object)
1030 {
1031     auto* accessible = WEBKIT_ACCESSIBLE(object);
1032     returnValIfWebKitAccessibleIsInvalid(accessible, nullptr);
1033
1034     if (ATK_IS_DOCUMENT(object)) {
1035         // TODO: Should we fall back on lang xml:lang when the following comes up empty?
1036         String language = accessible->priv->object->language();
1037         if (!language.isEmpty())
1038             return webkitAccessibleCacheAndReturnAtkProperty(accessible, AtkCachedDocumentLocale, language.utf8());
1039
1040     } else if (ATK_IS_TEXT(object)) {
1041         const gchar* locale = nullptr;
1042
1043         AtkAttributeSet* textAttributes = atk_text_get_default_attributes(ATK_TEXT(object));
1044         for (auto* attributes = textAttributes; attributes; attributes = attributes->next) {
1045             auto* atkAttribute = static_cast<AtkAttribute*>(attributes->data);
1046             if (!strcmp(atkAttribute->name, atk_text_attribute_get_name(ATK_TEXT_ATTR_LANGUAGE))) {
1047                 locale = webkitAccessibleCacheAndReturnAtkProperty(accessible, AtkCachedDocumentLocale, atkAttribute->value);
1048                 break;
1049             }
1050         }
1051         atk_attribute_set_free(textAttributes);
1052
1053         return locale;
1054     }
1055
1056     return nullptr;
1057 }
1058
1059 static void webkit_accessible_class_init(WebKitAccessibleClass* klass)
1060 {
1061     auto* atkObjectClass = ATK_OBJECT_CLASS(klass);
1062     atkObjectClass->initialize = webkitAccessibleInit;
1063     atkObjectClass->get_name = webkitAccessibleGetName;
1064     atkObjectClass->get_description = webkitAccessibleGetDescription;
1065     atkObjectClass->get_parent = webkitAccessibleGetParent;
1066     atkObjectClass->get_n_children = webkitAccessibleGetNChildren;
1067     atkObjectClass->ref_child = webkitAccessibleRefChild;
1068     atkObjectClass->get_role = webkitAccessibleGetRole;
1069     atkObjectClass->ref_state_set = webkitAccessibleRefStateSet;
1070     atkObjectClass->get_index_in_parent = webkitAccessibleGetIndexInParent;
1071     atkObjectClass->get_attributes = webkitAccessibleGetAttributes;
1072     atkObjectClass->ref_relation_set = webkitAccessibleRefRelationSet;
1073     atkObjectClass->get_object_locale = webkitAccessibleGetObjectLocale;
1074 }
1075
1076 static const GInterfaceInfo atkInterfacesInitFunctions[] = {
1077     {reinterpret_cast<GInterfaceInitFunc>(reinterpret_cast<GCallback>(webkitAccessibleActionInterfaceInit)), nullptr, nullptr},
1078     {reinterpret_cast<GInterfaceInitFunc>(reinterpret_cast<GCallback>(webkitAccessibleSelectionInterfaceInit)), nullptr, nullptr},
1079     {reinterpret_cast<GInterfaceInitFunc>(reinterpret_cast<GCallback>(webkitAccessibleEditableTextInterfaceInit)), nullptr, nullptr},
1080     {reinterpret_cast<GInterfaceInitFunc>(reinterpret_cast<GCallback>(webkitAccessibleTextInterfaceInit)), nullptr, nullptr},
1081     {reinterpret_cast<GInterfaceInitFunc>(reinterpret_cast<GCallback>(webkitAccessibleComponentInterfaceInit)), nullptr, nullptr},
1082     {reinterpret_cast<GInterfaceInitFunc>(reinterpret_cast<GCallback>(webkitAccessibleImageInterfaceInit)), nullptr, nullptr},
1083     {reinterpret_cast<GInterfaceInitFunc>(reinterpret_cast<GCallback>(webkitAccessibleTableInterfaceInit)), nullptr, nullptr},
1084     {reinterpret_cast<GInterfaceInitFunc>(reinterpret_cast<GCallback>(webkitAccessibleTableCellInterfaceInit)), nullptr, nullptr},
1085     {reinterpret_cast<GInterfaceInitFunc>(reinterpret_cast<GCallback>(webkitAccessibleHypertextInterfaceInit)), nullptr, nullptr},
1086     {reinterpret_cast<GInterfaceInitFunc>(reinterpret_cast<GCallback>(webkitAccessibleHyperlinkImplInterfaceInit)), nullptr, nullptr},
1087     {reinterpret_cast<GInterfaceInitFunc>(reinterpret_cast<GCallback>(webkitAccessibleDocumentInterfaceInit)), nullptr, nullptr},
1088     {reinterpret_cast<GInterfaceInitFunc>(reinterpret_cast<GCallback>(webkitAccessibleValueInterfaceInit)), nullptr, nullptr}
1089 };
1090
1091 enum WAIType {
1092     WAIAction,
1093     WAISelection,
1094     WAIEditableText,
1095     WAIText,
1096     WAIComponent,
1097     WAIImage,
1098     WAITable,
1099     WAITableCell,
1100     WAIHypertext,
1101     WAIHyperlink,
1102     WAIDocument,
1103     WAIValue,
1104 };
1105
1106 static GType atkInterfaceTypeFromWAIType(WAIType type)
1107 {
1108     switch (type) {
1109     case WAIAction:
1110         return ATK_TYPE_ACTION;
1111     case WAISelection:
1112         return ATK_TYPE_SELECTION;
1113     case WAIEditableText:
1114         return ATK_TYPE_EDITABLE_TEXT;
1115     case WAIText:
1116         return ATK_TYPE_TEXT;
1117     case WAIComponent:
1118         return ATK_TYPE_COMPONENT;
1119     case WAIImage:
1120         return ATK_TYPE_IMAGE;
1121     case WAITable:
1122         return ATK_TYPE_TABLE;
1123     case WAITableCell:
1124         return ATK_TYPE_TABLE_CELL;
1125     case WAIHypertext:
1126         return ATK_TYPE_HYPERTEXT;
1127     case WAIHyperlink:
1128         return ATK_TYPE_HYPERLINK_IMPL;
1129     case WAIDocument:
1130         return ATK_TYPE_DOCUMENT;
1131     case WAIValue:
1132         return ATK_TYPE_VALUE;
1133     }
1134
1135     return G_TYPE_INVALID;
1136 }
1137
1138 static bool roleIsTextType(AccessibilityRole role)
1139 {
1140     return role == AccessibilityRole::Paragraph
1141         || role == AccessibilityRole::Heading
1142         || role == AccessibilityRole::Div
1143         || role == AccessibilityRole::Cell
1144         || role == AccessibilityRole::Link
1145         || role == AccessibilityRole::WebCoreLink
1146         || role == AccessibilityRole::ListItem
1147         || role == AccessibilityRole::Pre
1148         || role == AccessibilityRole::GridCell
1149         || role == AccessibilityRole::TextGroup
1150         || role == AccessibilityRole::ApplicationTextGroup
1151         || role == AccessibilityRole::ApplicationGroup;
1152 }
1153
1154 static guint16 interfaceMaskFromObject(AccessibilityObject* coreObject)
1155 {
1156     guint16 interfaceMask = 0;
1157
1158     // Component interface is always supported
1159     interfaceMask |= 1 << WAIComponent;
1160
1161     AccessibilityRole role = coreObject->roleValue();
1162
1163     // Action
1164     // As the implementation of the AtkAction interface is a very
1165     // basic one (just relays in executing the default action for each
1166     // object, and only supports having one action per object), it is
1167     // better just to implement this interface for every instance of
1168     // the WebKitAccessible class and let WebCore decide what to do.
1169     interfaceMask |= 1 << WAIAction;
1170
1171     // Selection
1172     if (coreObject->canHaveSelectedChildren() || coreObject->isMenuList())
1173         interfaceMask |= 1 << WAISelection;
1174
1175     // Get renderer if available.
1176     RenderObject* renderer = nullptr;
1177     if (coreObject->isAccessibilityRenderObject())
1178         renderer = coreObject->renderer();
1179
1180     // Hyperlink (links and embedded objects).
1181     if (coreObject->isLink() || (renderer && renderer->isReplaced()))
1182         interfaceMask |= 1 << WAIHyperlink;
1183
1184     // Text, Editable Text & Hypertext
1185     if (role == AccessibilityRole::StaticText || coreObject->isMenuListOption())
1186         interfaceMask |= 1 << WAIText;
1187     else if (coreObject->isTextControl() || coreObject->isNonNativeTextControl()) {
1188         interfaceMask |= 1 << WAIText;
1189         if (coreObject->canSetValueAttribute())
1190             interfaceMask |= 1 << WAIEditableText;
1191     } else if (!coreObject->isWebArea()) {
1192         if (role != AccessibilityRole::Table) {
1193             interfaceMask |= 1 << WAIHypertext;
1194             if ((renderer && renderer->childrenInline()) || roleIsTextType(role) || coreObject->isMathToken())
1195                 interfaceMask |= 1 << WAIText;
1196         }
1197
1198         // Add the TEXT interface for list items whose
1199         // first accessible child has a text renderer
1200         if (role == AccessibilityRole::ListItem) {
1201             const auto& children = coreObject->children();
1202             if (!children.isEmpty())
1203                 interfaceMask |= interfaceMaskFromObject(children[0].get());
1204         }
1205     }
1206
1207     // Image
1208     if (coreObject->isImage())
1209         interfaceMask |= 1 << WAIImage;
1210
1211     // Table
1212     if (coreObject->isTable())
1213         interfaceMask |= 1 << WAITable;
1214
1215     if (role == AccessibilityRole::Cell || role == AccessibilityRole::GridCell || role == AccessibilityRole::ColumnHeader || role == AccessibilityRole::RowHeader)
1216         interfaceMask |= 1 << WAITableCell;
1217
1218     // Document
1219     if (role == AccessibilityRole::WebArea)
1220         interfaceMask |= 1 << WAIDocument;
1221
1222     // Value
1223     if (coreObject->supportsRangeValue())
1224         interfaceMask |= 1 << WAIValue;
1225
1226 #if ENABLE(INPUT_TYPE_COLOR)
1227     // Color type.
1228     if (role == AccessibilityRole::ColorWell)
1229         interfaceMask |= 1 << WAIText;
1230 #endif
1231
1232     return interfaceMask;
1233 }
1234
1235 static const char* uniqueAccessibilityTypeName(guint16 interfaceMask)
1236 {
1237 #define WAI_TYPE_NAME_LEN (30) // Enough for prefix + 5 hex characters (max).
1238     static char name[WAI_TYPE_NAME_LEN + 1];
1239
1240     g_sprintf(name, "WAIType%x", interfaceMask);
1241     name[WAI_TYPE_NAME_LEN] = '\0';
1242
1243     return name;
1244 }
1245
1246 static GType accessibilityTypeFromObject(AccessibilityObject* coreObject)
1247 {
1248     static const GTypeInfo typeInfo = {
1249         sizeof(WebKitAccessibleClass),
1250         nullptr, // GBaseInitFunc
1251         nullptr, // GBaseFinalizeFunc
1252         nullptr, // GClassInitFunc
1253         nullptr, // GClassFinalizeFunc
1254         nullptr, // class data
1255         sizeof(WebKitAccessible), // instance size
1256         0, // nb preallocs
1257         nullptr, // GInstanceInitFunc
1258         nullptr // value table
1259     };
1260
1261     guint16 interfaceMask = interfaceMaskFromObject(coreObject);
1262     const char* atkTypeName = uniqueAccessibilityTypeName(interfaceMask);
1263     if (GType type = g_type_from_name(atkTypeName))
1264         return type;
1265
1266     GType type = g_type_register_static(WEBKIT_TYPE_ACCESSIBLE, atkTypeName, &typeInfo, static_cast<GTypeFlags>(0));
1267     for (unsigned i = 0; i < G_N_ELEMENTS(atkInterfacesInitFunctions); ++i) {
1268         if (interfaceMask & (1 << i)) {
1269             g_type_add_interface_static(type,
1270                 atkInterfaceTypeFromWAIType(static_cast<WAIType>(i)),
1271                 &atkInterfacesInitFunctions[i]);
1272         }
1273     }
1274
1275     return type;
1276 }
1277
1278 WebKitAccessible* webkitAccessibleNew(AccessibilityObject* coreObject)
1279 {
1280     auto* object = ATK_OBJECT(g_object_new(accessibilityTypeFromObject(coreObject), nullptr));
1281     atk_object_initialize(object, coreObject);
1282     return WEBKIT_ACCESSIBLE(object);
1283 }
1284
1285 AccessibilityObject& webkitAccessibleGetAccessibilityObject(WebKitAccessible* accessible)
1286 {
1287     ASSERT(WEBKIT_IS_ACCESSIBLE(accessible));
1288     return *accessible->priv->object;
1289 }
1290
1291 void webkitAccessibleDetach(WebKitAccessible* accessible)
1292 {
1293     ASSERT(WEBKIT_IS_ACCESSIBLE(accessible));
1294     ASSERT(accessible->priv->object != fallbackObject());
1295
1296     if (accessible->priv->object->roleValue() == AccessibilityRole::WebArea)
1297         atk_object_notify_state_change(ATK_OBJECT(accessible), ATK_STATE_DEFUNCT, TRUE);
1298
1299     // We replace the WebCore AccessibilityObject with a fallback object that
1300     // provides default implementations to avoid repetitive null-checking after
1301     // detachment.
1302     accessible->priv->object = fallbackObject();
1303 }
1304
1305 bool webkitAccessibleIsDetached(WebKitAccessible* accessible)
1306 {
1307     ASSERT(WEBKIT_IS_ACCESSIBLE(accessible));
1308     return accessible->priv->object == fallbackObject();
1309 }
1310
1311 const char* webkitAccessibleCacheAndReturnAtkProperty(WebKitAccessible* accessible, AtkCachedProperty property, CString&& value)
1312 {
1313     ASSERT(WEBKIT_IS_ACCESSIBLE(accessible));
1314
1315     WebKitAccessiblePrivate* priv = accessible->priv;
1316     CString* propertyPtr = nullptr;
1317
1318     switch (property) {
1319     case AtkCachedAccessibleName:
1320         propertyPtr = &priv->accessibleName;
1321         break;
1322     case AtkCachedAccessibleDescription:
1323         propertyPtr = &priv->accessibleDescription;
1324         break;
1325     case AtkCachedActionName:
1326         propertyPtr = &priv->actionName;
1327         break;
1328     case AtkCachedActionKeyBinding:
1329         propertyPtr = &priv->actionKeyBinding;
1330         break;
1331     case AtkCachedDocumentLocale:
1332         propertyPtr = &priv->documentLocale;
1333         break;
1334     case AtkCachedDocumentType:
1335         propertyPtr = &priv->documentType;
1336         break;
1337     case AtkCachedDocumentEncoding:
1338         propertyPtr = &priv->documentEncoding;
1339         break;
1340     case AtkCachedDocumentURI:
1341         propertyPtr = &priv->documentURI;
1342         break;
1343     case AtkCachedImageDescription:
1344         propertyPtr = &priv->imageDescription;
1345         break;
1346     default:
1347         ASSERT_NOT_REACHED();
1348     }
1349
1350     // Don't invalidate old memory if not stricly needed, since other
1351     // callers might be still holding on to it.
1352     if (*propertyPtr != value)
1353         *propertyPtr = WTFMove(value);
1354
1355     return (*propertyPtr).data();
1356 }
1357
1358 #endif // HAVE(ACCESSIBILITY)