/*

 * Copyright (c) 2010, 2016, 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.

 */

package jdk.nashorn.internal.objects;

import static jdk.dynalink.StandardNamespace.METHOD;

import static jdk.dynalink.StandardNamespace.PROPERTY;

import static jdk.dynalink.StandardOperation.GET;

import static jdk.dynalink.StandardOperation.SET;

import static jdk.nashorn.internal.lookup.Lookup.MH;

import static jdk.nashorn.internal.runtime.ECMAErrors.typeError;

import static jdk.nashorn.internal.runtime.ScriptRuntime.UNDEFINED;

import java.lang.invoke.MethodHandle;

import java.lang.invoke.MethodHandles;

import java.lang.invoke.MethodType;

import java.nio.ByteBuffer;

import java.util.ArrayList;

import java.util.Collection;

import java.util.HashSet;

import java.util.List;

import java.util.Set;

import java.util.concurrent.Callable;

import jdk.dynalink.CallSiteDescriptor;

import jdk.dynalink.Operation;

import jdk.dynalink.beans.BeansLinker;

import jdk.dynalink.beans.StaticClass;

import jdk.dynalink.linker.GuardedInvocation;

import jdk.dynalink.linker.GuardingDynamicLinker;

import jdk.dynalink.linker.LinkRequest;

import jdk.dynalink.linker.support.SimpleLinkRequest;

import jdk.nashorn.api.scripting.ScriptObjectMirror;

import jdk.nashorn.internal.lookup.Lookup;

import jdk.nashorn.internal.objects.annotations.Attribute;

import jdk.nashorn.internal.objects.annotations.Constructor;

import jdk.nashorn.internal.objects.annotations.Function;

import jdk.nashorn.internal.objects.annotations.ScriptClass;

import jdk.nashorn.internal.objects.annotations.Where;

import jdk.nashorn.internal.runtime.AccessorProperty;

import jdk.nashorn.internal.runtime.ECMAException;

import jdk.nashorn.internal.runtime.JSType;

import jdk.nashorn.internal.runtime.Property;

import jdk.nashorn.internal.runtime.PropertyMap;

import jdk.nashorn.internal.runtime.ScriptObject;

import jdk.nashorn.internal.runtime.ScriptRuntime;

import jdk.nashorn.internal.runtime.arrays.ArrayData;

import jdk.nashorn.internal.runtime.linker.Bootstrap;

import jdk.nashorn.internal.runtime.linker.InvokeByName;

import jdk.nashorn.internal.runtime.linker.NashornBeansLinker;

import jdk.nashorn.internal.runtime.linker.NashornCallSiteDescriptor;

/**

 * ECMA 15.2 Object objects

 *

 * JavaScript Object constructor/prototype. Note: instances of this class are

 * never created. This class is not even a subclass of ScriptObject. But, we use

 * this class to generate prototype and constructor for "Object".

 *

 */

@ScriptClass("Object")

public final class NativeObject {

    /** Methodhandle to proto getter */

    public static final MethodHandle GET__PROTO__ = findOwnMH("get__proto__", ScriptObject.class, Object.class);

    /** Methodhandle to proto setter */

    public static final MethodHandle SET__PROTO__ = findOwnMH("set__proto__", Object.class, Object.class, Object.class);

    private static final Object TO_STRING = new Object();

    private static InvokeByName getTO_STRING() {

        return Global.instance().getInvokeByName(TO_STRING,

                new Callable<InvokeByName>() {

                    @Override

                    public InvokeByName call() {

                        return new InvokeByName("toString", ScriptObject.class);

                    }

                });

    }

    private static final Operation GET_METHOD   = GET.withNamespace(METHOD);

    private static final Operation GET_PROPERTY = GET.withNamespace(PROPERTY);

    private static final Operation SET_PROPERTY = SET.withNamespace(PROPERTY);

    @SuppressWarnings("unused")

    private static ScriptObject get__proto__(final Object self) {

        // See ES6 draft spec: B.2.2.1.1 get Object.prototype.__proto__

        // Step 1 Let O be the result of calling ToObject passing the this.

        final ScriptObject sobj = Global.checkObject(Global.toObject(self));

        return sobj.getProto();

    }

    @SuppressWarnings("unused")

    private static Object set__proto__(final Object self, final Object proto) {

        // See ES6 draft spec: B.2.2.1.2 set Object.prototype.__proto__

        // Step 1

        Global.checkObjectCoercible(self);

        // Step 4

        if (! (self instanceof ScriptObject)) {

            return UNDEFINED;

        }

        final ScriptObject sobj = (ScriptObject)self;

        // __proto__ assignment ignores non-nulls and non-objects

        // step 3: If Type(proto) is neither Object nor Null, then return undefined.

        if (proto == null || proto instanceof ScriptObject) {

            sobj.setPrototypeOf(proto);

        }

        return UNDEFINED;

    }

    private static final MethodType MIRROR_GETTER_TYPE = MethodType.methodType(Object.class, ScriptObjectMirror.class);

    private static final MethodType MIRROR_SETTER_TYPE = MethodType.methodType(Object.class, ScriptObjectMirror.class, Object.class);

    // initialized by nasgen

    @SuppressWarnings("unused")

    private static PropertyMap $nasgenmap$;

    private NativeObject() {

        // don't create me!

        throw new UnsupportedOperationException();

    }

    private static ECMAException notAnObject(final Object obj) {

        return typeError("not.an.object", ScriptRuntime.safeToString(obj));

    }

    /**

     * Nashorn extension: setIndexedPropertiesToExternalArrayData

     *

     * @param self self reference

     * @param obj object whose index properties are backed by buffer

     * @param buf external buffer - should be a nio ByteBuffer

     * @return the 'obj' object

     */

    @Function(attributes = Attribute.NOT_ENUMERABLE, where = Where.CONSTRUCTOR)

    public static ScriptObject setIndexedPropertiesToExternalArrayData(final Object self, final Object obj, final Object buf) {

        Global.checkObject(obj);

        final ScriptObject sobj = (ScriptObject)obj;

        if (buf instanceof ByteBuffer) {

            sobj.setArray(ArrayData.allocate((ByteBuffer)buf));

        } else {

            throw typeError("not.a.bytebuffer", "setIndexedPropertiesToExternalArrayData's buf argument");

        }

        return sobj;

    }

    /**

     * ECMA 15.2.3.2 Object.getPrototypeOf ( O )

     *

     * @param  self self reference

     * @param  obj object to get prototype from

     * @return the prototype of an object

     */

    @Function(attributes = Attribute.NOT_ENUMERABLE, where = Where.CONSTRUCTOR)

    public static Object getPrototypeOf(final Object self, final Object obj) {

        if (obj instanceof ScriptObject) {

            return ((ScriptObject)obj).getProto();

        } else if (obj instanceof ScriptObjectMirror) {

            return ((ScriptObjectMirror)obj).getProto();

        } else {

            final JSType type = JSType.of(obj);

            if (type == JSType.OBJECT) {

                // host (Java) objects have null __proto__

                return null;

            }

            // must be some JS primitive

            throw notAnObject(obj);

        }

    }

    /**

     * Nashorn extension: Object.setPrototypeOf ( O, proto )

     * Also found in ES6 draft specification.

     *

     * @param  self self reference

     * @param  obj object to set prototype for

     * @param  proto prototype object to be used

     * @return object whose prototype is set

     */

    @Function(attributes = Attribute.NOT_ENUMERABLE, where = Where.CONSTRUCTOR)

    public static Object setPrototypeOf(final Object self, final Object obj, final Object proto) {

        if (obj instanceof ScriptObject) {

            ((ScriptObject)obj).setPrototypeOf(proto);

            return obj;

        } else if (obj instanceof ScriptObjectMirror) {

            ((ScriptObjectMirror)obj).setProto(proto);

            return obj;

        }

        throw notAnObject(obj);

    }

    /**

     * ECMA 15.2.3.3 Object.getOwnPropertyDescriptor ( O, P )

     *

     * @param self  self reference

     * @param obj   object from which to get property descriptor for {@code ToString(prop)}

     * @param prop  property descriptor

     * @return property descriptor

     */

    @Function(attributes = Attribute.NOT_ENUMERABLE, where = Where.CONSTRUCTOR)

    public static Object getOwnPropertyDescriptor(final Object self, final Object obj, final Object prop) {

        if (obj instanceof ScriptObject) {

            final String       key  = JSType.toString(prop);

            final ScriptObject sobj = (ScriptObject)obj;

            return sobj.getOwnPropertyDescriptor(key);

        } else if (obj instanceof ScriptObjectMirror) {

            final String       key  = JSType.toString(prop);

            final ScriptObjectMirror sobjMirror = (ScriptObjectMirror)obj;

            return sobjMirror.getOwnPropertyDescriptor(key);

        } else {

            throw notAnObject(obj);

        }

    }

    /**

     * ECMA 15.2.3.4 Object.getOwnPropertyNames ( O )

     *

     * @param self self reference

     * @param obj  object to query for property names

     * @return array of property names

     */

    @Function(attributes = Attribute.NOT_ENUMERABLE, where = Where.CONSTRUCTOR)

    public static ScriptObject getOwnPropertyNames(final Object self, final Object obj) {

        if (obj instanceof ScriptObject) {

            return new NativeArray(((ScriptObject)obj).getOwnKeys(true));

        } else if (obj instanceof ScriptObjectMirror) {

            return new NativeArray(((ScriptObjectMirror)obj).getOwnKeys(true));

        } else {

            throw notAnObject(obj);

        }

    }

    /**

     * ECMA 2 19.1.2.8 Object.getOwnPropertySymbols ( O )

     *

     * @param self self reference

     * @param obj  object to query for property names

     * @return array of property names

     */

    @Function(attributes = Attribute.NOT_ENUMERABLE, where = Where.CONSTRUCTOR)

    public static ScriptObject getOwnPropertySymbols(final Object self, final Object obj) {

        if (obj instanceof ScriptObject) {

            return new NativeArray(((ScriptObject)obj).getOwnSymbols(true));

        } else {

            // TODO: we don't support this on ScriptObjectMirror objects yet

            throw notAnObject(obj);

        }

    }

    /**

     * ECMA 15.2.3.5 Object.create ( O [, Properties] )

     *

     * @param self  self reference

     * @param proto prototype object

     * @param props properties to define

     * @return object created

     */

    @Function(attributes = Attribute.NOT_ENUMERABLE, where = Where.CONSTRUCTOR)

    public static ScriptObject create(final Object self, final Object proto, final Object props) {

        if (proto != null) {

            Global.checkObject(proto);

        }

        // FIXME: should we create a proper object with correct number of

        // properties?

        final ScriptObject newObj = Global.newEmptyInstance();

        newObj.setProto((ScriptObject)proto);

        if (props != UNDEFINED) {

            NativeObject.defineProperties(self, newObj, props);

        }

        return newObj;

    }

    /**

     * ECMA 15.2.3.6 Object.defineProperty ( O, P, Attributes )

     *

     * @param self self reference

     * @param obj  object in which to define a property

     * @param prop property to define

     * @param attr attributes for property descriptor

     * @return object

     */

    @Function(attributes = Attribute.NOT_ENUMERABLE, where = Where.CONSTRUCTOR)

    public static ScriptObject defineProperty(final Object self, final Object obj, final Object prop, final Object attr) {

        final ScriptObject sobj = Global.checkObject(obj);

        sobj.defineOwnProperty(JSType.toPropertyKey(prop), attr, true);

        return sobj;

    }

    /**

     * ECMA 5.2.3.7 Object.defineProperties ( O, Properties )

     *

     * @param self  self reference

     * @param obj   object in which to define properties

     * @param props properties

     * @return object

     */

    @Function(attributes = Attribute.NOT_ENUMERABLE, where = Where.CONSTRUCTOR)

    public static ScriptObject defineProperties(final Object self, final Object obj, final Object props) {

        final ScriptObject sobj     = Global.checkObject(obj);

        final Object       propsObj = Global.toObject(props);

        if (propsObj instanceof ScriptObject) {

            final Object[] keys = ((ScriptObject)propsObj).getOwnKeys(false);

            for (final Object key : keys) {

                final String prop = JSType.toString(key);

                sobj.defineOwnProperty(prop, ((ScriptObject)propsObj).get(prop), true);

            }

        }

        return sobj;

    }

    /**

     * ECMA 15.2.3.8 Object.seal ( O )

     *

     * @param self self reference

     * @param obj  object to seal

     * @return sealed object

     */

    @Function(attributes = Attribute.NOT_ENUMERABLE, where = Where.CONSTRUCTOR)

    public static Object seal(final Object self, final Object obj) {

        if (obj instanceof ScriptObject) {

            return ((ScriptObject)obj).seal();

        } else if (obj instanceof ScriptObjectMirror) {

            return ((ScriptObjectMirror)obj).seal();

        } else {

            throw notAnObject(obj);

        }

    }

    /**

     * ECMA 15.2.3.9 Object.freeze ( O )

     *

     * @param self self reference

     * @param obj object to freeze

     * @return frozen object

     */

    @Function(attributes = Attribute.NOT_ENUMERABLE, where = Where.CONSTRUCTOR)

    public static Object freeze(final Object self, final Object obj) {

        if (obj instanceof ScriptObject) {

            return ((ScriptObject)obj).freeze();

        } else if (obj instanceof ScriptObjectMirror) {

            return ((ScriptObjectMirror)obj).freeze();

        } else {

            throw notAnObject(obj);

        }

    }

    /**

     * ECMA 15.2.3.10 Object.preventExtensions ( O )

     *

     * @param self self reference

     * @param obj  object, for which to set the internal extensible property to false

     * @return object

     */

    @Function(attributes = Attribute.NOT_ENUMERABLE, where = Where.CONSTRUCTOR)

    public static Object preventExtensions(final Object self, final Object obj) {

        if (obj instanceof ScriptObject) {

            return ((ScriptObject)obj).preventExtensions();

        } else if (obj instanceof ScriptObjectMirror) {

            return ((ScriptObjectMirror)obj).preventExtensions();

        } else {

            throw notAnObject(obj);

        }

    }

    /**

     * ECMA 15.2.3.11 Object.isSealed ( O )

     *

     * @param self self reference

     * @param obj check whether an object is sealed

     * @return true if sealed, false otherwise

     */

    @Function(attributes = Attribute.NOT_ENUMERABLE, where = Where.CONSTRUCTOR)

    public static boolean isSealed(final Object self, final Object obj) {

        if (obj instanceof ScriptObject) {

            return ((ScriptObject)obj).isSealed();

        } else if (obj instanceof ScriptObjectMirror) {

            return ((ScriptObjectMirror)obj).isSealed();

        } else {

            throw notAnObject(obj);

        }

    }

    /**

     * ECMA 15.2.3.12 Object.isFrozen ( O )

     *

     * @param self self reference

     * @param obj check whether an object

     * @return true if object is frozen, false otherwise

     */

    @Function(attributes = Attribute.NOT_ENUMERABLE, where = Where.CONSTRUCTOR)

    public static boolean isFrozen(final Object self, final Object obj) {

        if (obj instanceof ScriptObject) {

            return ((ScriptObject)obj).isFrozen();

        } else if (obj instanceof ScriptObjectMirror) {

            return ((ScriptObjectMirror)obj).isFrozen();

        } else {

            throw notAnObject(obj);

        }

    }

    /**

     * ECMA 15.2.3.13 Object.isExtensible ( O )

     *

     * @param self self reference

     * @param obj check whether an object is extensible

     * @return true if object is extensible, false otherwise

     */

    @Function(attributes = Attribute.NOT_ENUMERABLE, where = Where.CONSTRUCTOR)

    public static boolean isExtensible(final Object self, final Object obj) {

        if (obj instanceof ScriptObject) {

            return ((ScriptObject)obj).isExtensible();

        } else if (obj instanceof ScriptObjectMirror) {

            return ((ScriptObjectMirror)obj).isExtensible();

        } else {

            throw notAnObject(obj);

        }

    }

    /**

     * ECMA 15.2.3.14 Object.keys ( O )

     *

     * @param self self reference

     * @param obj  object from which to extract keys

     * @return array of keys in object

     */

    @Function(attributes = Attribute.NOT_ENUMERABLE, where = Where.CONSTRUCTOR)

    public static ScriptObject keys(final Object self, final Object obj) {

        if (obj instanceof ScriptObject) {

            final ScriptObject sobj = (ScriptObject)obj;

            return new NativeArray(sobj.getOwnKeys(false));

        } else if (obj instanceof ScriptObjectMirror) {

            final ScriptObjectMirror sobjMirror = (ScriptObjectMirror)obj;

            return new NativeArray(sobjMirror.getOwnKeys(false));

        } else {

            throw notAnObject(obj);

        }

    }

    /**

     * ECMA 15.2.2.1 , 15.2.1.1 new Object([value]) and Object([value])

     *

     * Constructor

     *

     * @param newObj is the new object instantiated with the new operator

     * @param self   self reference

     * @param value  value of object to be instantiated

     * @return the new NativeObject

     */

    @Constructor

    public static Object construct(final boolean newObj, final Object self, final Object value) {

        final JSType type = JSType.ofNoFunction(value);

        // Object(null), Object(undefined), Object() are same as "new Object()"

        if (newObj || type == JSType.NULL || type == JSType.UNDEFINED) {

            switch (type) {

            case BOOLEAN:

            case NUMBER:

            case STRING:

            case SYMBOL:

                return Global.toObject(value);

            case OBJECT:

                return value;

            case NULL:

            case UNDEFINED:

                // fall through..

            default:

                break;

            }