/*

 * Copyright (c) 2011, 2013, Oracle and/or its affiliates. All rights reserved.

 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.

 *

 * This code is free software; you can redistribute it and/or modify it

 * under the terms of the GNU General Public License version 2 only, as

 * published by the Free Software Foundation.  Oracle designates this

 * particular file as subject to the "Classpath" exception as provided

 * by Oracle in the LICENSE file that accompanied this code.

 *

 * This code is distributed in the hope that it will be useful, but WITHOUT

 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or

 * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License

 * version 2 for more details (a copy is included in the LICENSE file that

 * accompanied this code).

 *

 * You should have received a copy of the GNU General Public License version

 * 2 along with this work; if not, write to the Free Software Foundation,

 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.

 *

 * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA

 * or visit www.oracle.com if you need additional information or have any

 * questions.

 */

// External Java Accessibility links:

//

// <http://java.sun.com/j2se/1.4.2/docs/guide/access/index.html>

// <http://www-106.ibm.com/developerworks/library/j-access/?n-j-10172>

// <http://archives.java.sun.com/archives/java-access.html> (Sun's mailing list for Java accessibility)

#import "JavaComponentAccessibility.h"

#import "sun_lwawt_macosx_CAccessibility.h"

#import <AppKit/AppKit.h>

#import <JavaNativeFoundation/JavaNativeFoundation.h>

#import <JavaRuntimeSupport/JavaRuntimeSupport.h>

#import <dlfcn.h>

#import "JavaAccessibilityAction.h"

#import "JavaAccessibilityUtilities.h"

#import "JavaTextAccessibility.h"

#import "ThreadUtilities.h"

#import "AWTView.h"

// these constants are duplicated in CAccessibility.java

#define JAVA_AX_ALL_CHILDREN (-1)

#define JAVA_AX_SELECTED_CHILDREN (-2)

#define JAVA_AX_VISIBLE_CHILDREN (-3)

// If the value is >=0, it's an index

static JNF_STATIC_MEMBER_CACHE(jm_getChildrenAndRoles, sjc_CAccessibility, "getChildrenAndRoles", "(Ljavax/accessibility/Accessible;Ljava/awt/Component;IZ)[Ljava/lang/Object;");

static JNF_STATIC_MEMBER_CACHE(sjm_getAccessibleComponent, sjc_CAccessibility, "getAccessibleComponent", "(Ljavax/accessibility/Accessible;Ljava/awt/Component;)Ljavax/accessibility/AccessibleComponent;");

static JNF_STATIC_MEMBER_CACHE(sjm_getAccessibleValue, sjc_CAccessibility, "getAccessibleValue", "(Ljavax/accessibility/Accessible;Ljava/awt/Component;)Ljavax/accessibility/AccessibleValue;");

static JNF_STATIC_MEMBER_CACHE(sjm_getAccessibleName, sjc_CAccessibility, "getAccessibleName", "(Ljavax/accessibility/Accessible;Ljava/awt/Component;)Ljava/lang/String;");

static JNF_STATIC_MEMBER_CACHE(sjm_getAccessibleDescription, sjc_CAccessibility, "getAccessibleDescription", "(Ljavax/accessibility/Accessible;Ljava/awt/Component;)Ljava/lang/String;");

static JNF_STATIC_MEMBER_CACHE(sjm_isFocusTraversable, sjc_CAccessibility, "isFocusTraversable", "(Ljavax/accessibility/Accessible;Ljava/awt/Component;)Z");

static JNF_STATIC_MEMBER_CACHE(sjm_getAccessibleIndexInParent, sjc_CAccessibility, "getAccessibleIndexInParent", "(Ljavax/accessibility/Accessible;Ljava/awt/Component;)I");

static JNF_CLASS_CACHE(sjc_CAccessible, "sun/lwawt/macosx/CAccessible");

static JNF_MEMBER_CACHE(jf_ptr, sjc_CAccessible, "ptr", "J");

static JNF_STATIC_MEMBER_CACHE(sjm_getCAccessible, sjc_CAccessible, "getCAccessible", "(Ljavax/accessibility/Accessible;)Lsun/lwawt/macosx/CAccessible;");

static jobject sAccessibilityClass = NULL;

// sAttributeNamesForRoleCache holds the names of the attributes to which each java

// AccessibleRole responds (see AccessibleRole.java).

// This cache is queried before attempting to access a given attribute for a particular role.

static NSMutableDictionary *sAttributeNamesForRoleCache = nil;

static NSObject *sAttributeNamesLOCK = nil;

@interface TabGroupAccessibility : JavaComponentAccessibility {

    NSInteger _numTabs;

}

- (id)currentTabWithEnv:(JNIEnv *)env withAxContext:(jobject)axContext;

- (NSArray *)tabControlsWithEnv:(JNIEnv *)env withTabGroupAxContext:(jobject)axContext withTabCode:(NSInteger)whichTabs allowIgnored:(BOOL)allowIgnored;

- (NSArray *)contentsWithEnv:(JNIEnv *)env withTabGroupAxContext:(jobject)axContext withTabCode:(NSInteger)whichTabs allowIgnored:(BOOL)allowIgnored;

- (NSArray *)initializeAttributeNamesWithEnv:(JNIEnv *)env;

- (NSArray *)accessibilityArrayAttributeValues:(NSString *)attribute index:(NSUInteger)index maxCount:(NSUInteger)maxCount;

- (NSArray *)accessibilityChildrenAttribute;

- (id) accessibilityTabsAttribute;

- (BOOL)accessibilityIsTabsAttributeSettable;

- (NSArray *)accessibilityContentsAttribute;

- (BOOL)accessibilityIsContentsAttributeSettable;

- (id) accessibilityValueAttribute;

@end

@interface TabGroupControlAccessibility : JavaComponentAccessibility {

    jobject fTabGroupAxContext;

}

- (id)initWithParent:(NSObject *)parent withEnv:(JNIEnv *)env withAccessible:(jobject)accessible withIndex:(jint)index withTabGroup:(jobject)tabGroup withView:(NSView *)view withJavaRole:(NSString *)javaRole;

- (jobject)tabGroup;

- (void)getActionsWithEnv:(JNIEnv *)env;

- (id)accessibilityValueAttribute;

@end

@interface ScrollAreaAccessibility : JavaComponentAccessibility {

}

- (NSArray *)initializeAttributeNamesWithEnv:(JNIEnv *)env;

- (NSArray *)accessibilityContentsAttribute;

- (BOOL)accessibilityIsContentsAttributeSettable;

- (id)accessibilityVerticalScrollBarAttribute;

- (BOOL)accessibilityIsVerticalScrollBarAttributeSettable;

- (id)accessibilityHorizontalScrollBarAttribute;

- (BOOL)accessibilityIsHorizontalScrollBarAttributeSettable;

@end

@implementation JavaComponentAccessibility

- (NSString *)description

{

    return [NSString stringWithFormat:@"%@(title:'%@', desc:'%@', value:'%@')", [self accessibilityRoleAttribute],

        [self accessibilityTitleAttribute], [self accessibilityRoleDescriptionAttribute], [self accessibilityValueAttribute]];

}

- (id)initWithParent:(NSObject *)parent withEnv:(JNIEnv *)env withAccessible:(jobject)accessible withIndex:(jint)index withView:(NSView *)view withJavaRole:(NSString *)javaRole

{

    self = [super init];

    if (self)

    {

        fParent = [parent retain];

        fView = [view retain];

        fJavaRole = [javaRole retain];

        fAccessible = JNFNewGlobalRef(env, accessible);

        fComponent = JNFNewGlobalRef(env, [(AWTView *)fView awtComponent:env]);

        fIndex = index;

        fActions = nil;

        fActionsLOCK = [[NSObject alloc] init];

    }

    return self;

}

- (void)unregisterFromCocoaAXSystem

{

    AWT_ASSERT_APPKIT_THREAD;

    static dispatch_once_t initialize_unregisterUniqueId_once;

    static void (*unregisterUniqueId)(id);

    dispatch_once(&initialize_unregisterUniqueId_once, ^{

        void *jrsFwk = dlopen("/System/Library/Frameworks/JavaVM.framework/Frameworks/JavaRuntimeSupport.framework/JavaRuntimeSupport", RTLD_LAZY | RTLD_LOCAL);

        unregisterUniqueId = dlsym(jrsFwk, "JRSAccessibilityUnregisterUniqueIdForUIElement");

    });

    if (unregisterUniqueId) unregisterUniqueId(self);

}

- (void)dealloc

{

    [self unregisterFromCocoaAXSystem];

    JNIEnv *env = [ThreadUtilities getJNIEnvUncached];

    JNFDeleteGlobalRef(env, fAccessible);

    fAccessible = NULL;

    JNFDeleteGlobalRef(env, fComponent);

    fComponent = NULL;

    [fParent release];

    fParent = nil;

    [fNSRole release];

    fNSRole = nil;

    [fJavaRole release];

    fJavaRole = nil;

    [fView release];

    fView = nil;

    [fActions release];

    fActions = nil;

    [fActionsLOCK release];

    fActionsLOCK = nil;

    [super dealloc];

}

- (void)postValueChanged

{

    AWT_ASSERT_APPKIT_THREAD;

    NSAccessibilityPostNotification(self, NSAccessibilityValueChangedNotification);

}

- (void)postSelectionChanged

{

    AWT_ASSERT_APPKIT_THREAD;

    NSAccessibilityPostNotification(self, NSAccessibilitySelectedTextChangedNotification);

}

- (BOOL)isEqual:(id)anObject

{

    if (![anObject isKindOfClass:[self class]]) return NO;

    JavaComponentAccessibility *accessibility = (JavaComponentAccessibility *)anObject;

    JNIEnv* env = [ThreadUtilities getJNIEnv];

    return (*env)->IsSameObject(env, accessibility->fAccessible, fAccessible);

}

- (BOOL)isAccessibleWithEnv:(JNIEnv *)env forAccessible:(jobject)accessible

{

    return (*env)->IsSameObject(env, fAccessible, accessible);

}

+ (void)initialize

{

    if (sAttributeNamesForRoleCache == nil) {

        sAttributeNamesLOCK = [[NSObject alloc] init];

        sAttributeNamesForRoleCache = [[NSMutableDictionary alloc] initWithCapacity:10];

    }

    if (sRoles == nil) {

        initializeRoles();

    }

    if (sAccessibilityClass == NULL) {

        JNF_STATIC_MEMBER_CACHE(jm_getAccessibility, sjc_CAccessibility, "getAccessibility", "([Ljava/lang/String;)Lsun/lwawt/macosx/CAccessibility;");

#ifdef JAVA_AX_NO_IGNORES

        NSArray *ignoredKeys = [NSArray array];

#else

        NSArray *ignoredKeys = [sRoles allKeysForObject:JavaAccessibilityIgnore];

#endif

        jobjectArray result = NULL;

        jsize count = [ignoredKeys count];

        JNIEnv *env = [ThreadUtilities getJNIEnv];

        static JNF_CLASS_CACHE(jc_String, "java/lang/String");

        result = JNFNewObjectArray(env, &jc_String, count);

        if (!result) {

            NSLog(@"In %s, can't create Java array of String objects", __FUNCTION__);

            return;

        }

        NSInteger i;

        for (i = 0; i < count; i++) {

            jstring jString = JNFNSToJavaString(env, [ignoredKeys objectAtIndex:i]);

            (*env)->SetObjectArrayElement(env, result, i, jString);

            (*env)->DeleteLocalRef(env, jString);

        }

        sAccessibilityClass = JNFCallStaticObjectMethod(env, jm_getAccessibility, result); // AWT_THREADING Safe (known object)

    }

}

+ (void)postFocusChanged:(id)message

{

    AWT_ASSERT_APPKIT_THREAD;

    NSAccessibilityPostNotification([NSApp accessibilityFocusedUIElement], NSAccessibilityFocusedUIElementChangedNotification);

}

+ (jobject) getCAccessible:(jobject)jaccessible withEnv:(JNIEnv *)env {

    if (JNFIsInstanceOf(env, jaccessible, &sjc_CAccessible)) {

        return jaccessible;

    }

    else if (JNFIsInstanceOf(env, jaccessible, &sjc_Accessible)) {

        return JNFCallStaticObjectMethod(env, sjm_getCAccessible, jaccessible);

    }

    return NULL;

}

+ (NSArray *)childrenOfParent:(JavaComponentAccessibility *)parent withEnv:(JNIEnv *)env withChildrenCode:(NSInteger)whichChildren allowIgnored:(BOOL)allowIgnored

{

    jobjectArray jchildrenAndRoles = JNFCallStaticObjectMethod(env, jm_getChildrenAndRoles, parent->fAccessible, parent->fComponent, whichChildren, allowIgnored); // AWT_THREADING Safe (AWTRunLoop)

    if (jchildrenAndRoles == NULL) return nil;

    jsize arrayLen = (*env)->GetArrayLength(env, jchildrenAndRoles);

    NSMutableArray *children = [NSMutableArray arrayWithCapacity:arrayLen/2]; //childrenAndRoles array contains two elements (child, role) for each child

    NSInteger i;

    NSUInteger childIndex = (whichChildren >= 0) ? whichChildren : 0; // if we're getting one particular child, make sure to set its index correctly

    for(i = 0; i < arrayLen; i+=2)

    {

        jobject /* Accessible */ jchild = (*env)->GetObjectArrayElement(env, jchildrenAndRoles, i);

        jobject /* String */ jchildJavaRole = (*env)->GetObjectArrayElement(env, jchildrenAndRoles, i+1);

        NSString *childJavaRole = nil;

        if (jchildJavaRole != NULL) {

            childJavaRole = JNFJavaToNSString(env, JNFGetObjectField(env, jchildJavaRole, sjf_key));

        }

        JavaComponentAccessibility *child = [self createWithParent:parent accessible:jchild role:childJavaRole index:childIndex withEnv:env withView:parent->fView];

        [children addObject:child];

        childIndex++;

    }

    return children;

}

+ (JavaComponentAccessibility *)createWithAccessible:(jobject)jaccessible withEnv:(JNIEnv *)env withView:(NSView *)view

{

    jobject jcomponent = [(AWTView *)view awtComponent:env];

    jint index = JNFCallStaticIntMethod(env, sjm_getAccessibleIndexInParent, jaccessible, jcomponent);

    NSString *javaRole = getJavaRole(env, jaccessible, jcomponent);

    return [self createWithAccessible:jaccessible role:javaRole index:index withEnv:env withView:view];

}

+ (JavaComponentAccessibility *) createWithAccessible:(jobject)jaccessible role:(NSString *)javaRole index:(jint)index withEnv:(JNIEnv *)env withView:(NSView *)view

{

    return [self createWithParent:nil accessible:jaccessible role:javaRole index:index withEnv:env withView:view];

}

+ (JavaComponentAccessibility *) createWithParent:(JavaComponentAccessibility *)parent accessible:(jobject)jaccessible role:(NSString *)javaRole index:(jint)index withEnv:(JNIEnv *)env withView:(NSView *)view

{

    // try to fetch the jCAX from Java, and return autoreleased

    jobject jCAX = [JavaComponentAccessibility getCAccessible:jaccessible withEnv:env];

    if (jCAX == NULL) return nil;

    JavaComponentAccessibility *value = (JavaComponentAccessibility *) jlong_to_ptr(JNFGetLongField(env, jCAX, jf_ptr));

    if (value != nil) return [[value retain] autorelease];

    // otherwise, create a new instance

    JavaComponentAccessibility *newChild = nil;

    if ([javaRole isEqualToString:@"pagetablist"]) {

        newChild = [TabGroupAccessibility alloc];

    } else if ([javaRole isEqualToString:@"scrollpane"]) {

        newChild = [ScrollAreaAccessibility alloc];

    } else {

        NSString *nsRole = [sRoles objectForKey:javaRole];

        if ([nsRole isEqualToString:NSAccessibilityStaticTextRole] || [nsRole isEqualToString:NSAccessibilityTextAreaRole] || [nsRole isEqualToString:NSAccessibilityTextFieldRole]) {

            newChild = [JavaTextAccessibility alloc];

        } else {

            newChild = [JavaComponentAccessibility alloc];

        }

    }

    // must init freshly -alloc'd object

    [newChild initWithParent:parent withEnv:env withAccessible:jCAX withIndex:index withView:view withJavaRole:javaRole]; // must init new instance

    // must hard retain pointer poked into Java object

    [newChild retain];

    JNFSetLongField(env, jCAX, jf_ptr, ptr_to_jlong(newChild));

    // return autoreleased instance

    return [newChild autorelease];

}

- (NSArray *)initializeAttributeNamesWithEnv:(JNIEnv *)env

{

    static JNF_STATIC_MEMBER_CACHE(jm_getInitialAttributeStates, sjc_CAccessibility, "getInitialAttributeStates", "(Ljavax/accessibility/Accessible;Ljava/awt/Component;)[Z");

    NSMutableArray *attributeNames = [NSMutableArray arrayWithCapacity:10];

    [attributeNames retain];

    // all elements respond to parent, role, role description, window, topLevelUIElement, help

    [attributeNames addObject:NSAccessibilityParentAttribute];

    [attributeNames addObject:NSAccessibilityRoleAttribute];

    [attributeNames addObject:NSAccessibilityRoleDescriptionAttribute];

    [attributeNames addObject:NSAccessibilityHelpAttribute];

    // cmcnote: AXMenu usually doesn't respond to window / topLevelUIElement. But menus within a Java app's window

    // probably should. Should we use some role other than AXMenu / AXMenuBar for Java menus?

    [attributeNames addObject:NSAccessibilityWindowAttribute];

    [attributeNames addObject:NSAccessibilityTopLevelUIElementAttribute];

    // set accessible subrole

    NSString *javaRole = [self javaRole];

    if (javaRole != nil && [javaRole isEqualToString:@"passwordtext"]) {

        //cmcnote: should turn this into a constant

        [attributeNames addObject:NSAccessibilitySubroleAttribute];

    }

    // Get all the other accessibility attributes states we need in one swell foop.

    // javaRole isn't pulled in because we need protected access to AccessibleRole.key

    jbooleanArray attributeStates = JNFCallStaticObjectMethod(env, jm_getInitialAttributeStates, fAccessible, fComponent); // AWT_THREADING Safe (AWTRunLoop)

    if (attributeStates == NULL) return nil;

    jboolean *attributeStatesArray = (*env)->GetBooleanArrayElements(env, attributeStates, 0);

    if (attributeStatesArray == NULL) {

        // Note: Java will not be on the stack here so a java exception can't happen and no need to call ExceptionCheck.

        NSLog(@"%s failed calling GetBooleanArrayElements", __FUNCTION__);

        return nil;

    }

    // if there's a component, it can be enabled and it has a size/position

    if (attributeStatesArray[0]) {

        [attributeNames addObject:NSAccessibilityEnabledAttribute];

        [attributeNames addObject:NSAccessibilitySizeAttribute];

        [attributeNames addObject:NSAccessibilityPositionAttribute];

    }

    // According to javadoc, a component that is focusable will return true from isFocusTraversable,

    // as well as having AccessibleState.FOCUSABLE in it's AccessibleStateSet.

    // We use the former heuristic; if the component focus-traversable, add a focused attribute

    // See also: accessibilityIsFocusedAttributeSettable

    if (attributeStatesArray[1])

    {

        [attributeNames addObject:NSAccessibilityFocusedAttribute];

    }

    // if it's a pagetab / radiobutton, it has a value but no min/max value.

    BOOL hasAxValue = attributeStatesArray[2];

    if ([javaRole isEqualToString:@"pagetab"] || [javaRole isEqualToString:@"radiobutton"]) {

        [attributeNames addObject:NSAccessibilityValueAttribute];

    } else {

        // if not a pagetab/radio button, and it has a value, it has a min/max/current value.

        if (hasAxValue) {

            // er, it has a min/max/current value if it's not a button.

            // See AppKit/NSButtonCellAccessibility.m

            if (![javaRole isEqualToString:@"pushbutton"]) {

                //cmcnote: make this (and "passwordtext") constants instead of magic strings

                [attributeNames addObject:NSAccessibilityMinValueAttribute];

                [attributeNames addObject:NSAccessibilityMaxValueAttribute];

                [attributeNames addObject:NSAccessibilityValueAttribute];

            }

        }

    }

    // does it have an orientation?

    if (attributeStatesArray[4]) {

        [attributeNames addObject:NSAccessibilityOrientationAttribute];

    }

    // name

    if (attributeStatesArray[5]) {

        [attributeNames addObject:NSAccessibilityTitleAttribute];

    }

    // children

    if (attributeStatesArray[6]) {

        [attributeNames addObject:NSAccessibilityChildrenAttribute];

//        [attributeNames addObject:NSAccessibilitySelectedChildrenAttribute];

//        [attributeNames addObject:NSAccessibilityVisibleChildrenAttribute];

                //According to AXRoles.txt:

                //VisibleChildren: radio group, list, row, table row subrole

                //SelectedChildren: list

    }

    // Cleanup

    (*env)->ReleaseBooleanArrayElements(env, attributeStates, attributeStatesArray, JNI_ABORT);

    return attributeNames;

}

- (NSDictionary *)getActions:(JNIEnv *)env

{

    @synchronized(fActionsLOCK) {

        if (fActions == nil) {

            fActions = [[NSMutableDictionary alloc] initWithCapacity:3];

            [self getActionsWithEnv:env];

        }

    }

    return fActions;

}

- (void)getActionsWithEnv:(JNIEnv *)env

{

    static JNF_STATIC_MEMBER_CACHE(jm_getAccessibleAction, sjc_CAccessibility, "getAccessibleAction", "(Ljavax/accessibility/Accessible;Ljava/awt/Component;)Ljavax/accessibility/AccessibleAction;");

    // On MacOSX, text doesn't have actions, in java it does.

    // cmcnote: NOT TRUE - Editable text has AXShowMenu. Textfields have AXConfirm. Static text has no actions.

    jobject axAction = JNFCallStaticObjectMethod(env, jm_getAccessibleAction, fAccessible, fComponent); // AWT_THREADING Safe (AWTRunLoop)

    if (axAction != NULL) {

        //+++gdb NOTE: In MacOSX, there is just a single Action, not multiple. In java,

        //  the first one seems to be the most basic, so this will be used.

        // cmcnote: NOT TRUE - Sometimes there are multiple actions, eg sliders have AXDecrement AND AXIncrement (radr://3893192)

        JavaAxAction *action = [[JavaAxAction alloc] initWithEnv:env withAccessibleAction:axAction withIndex:0 withComponent:fComponent];

        [fActions setObject:action forKey:[self isMenu] ? NSAccessibilityPickAction : NSAccessibilityPressAction];

        [action release];

    }

}

- (jobject)axContextWithEnv:(JNIEnv *)env

{

    return getAxContext(env, fAccessible, fComponent);

}

- (id)parent

{

    static JNF_STATIC_MEMBER_CACHE(sjm_getAccessibleParent, sjc_CAccessibility, "getAccessibleParent", "(Ljavax/accessibility/Accessible;Ljava/awt/Component;)Ljavax/accessibility/Accessible;");

    if(fParent == nil) {

        JNIEnv* env = [ThreadUtilities getJNIEnv];

        jobject jparent = JNFCallStaticObjectMethod(env, sjm_getAccessibleParent, fAccessible, fComponent);

        if (jparent == NULL) {

            fParent = fView;

        } else {

            fParent = [JavaComponentAccessibility createWithAccessible:jparent withEnv:env withView:fView];

            if (fParent == nil) {

                fParent = fView;

            }

        }

        [fParent retain];

    }

    return fParent;

}

- (NSView *)view

{

    return fView;

}

- (NSWindow *)window

{

    return [[self view] window];

}

- (NSString *)javaRole

{

    if(fJavaRole == nil) {

        JNIEnv* env = [ThreadUtilities getJNIEnv];

        fJavaRole = getJavaRole(env, fAccessible, fComponent);

        [fJavaRole retain];

    }

    return fJavaRole;

}