/*

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

 */

package jdk.nashorn.internal.objects;

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

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

import static jdk.nashorn.internal.runtime.linker.Lookup.MH;

import java.io.IOException;

import java.io.PrintWriter;

import java.lang.invoke.MethodHandle;

import java.lang.invoke.MethodHandles;

import java.lang.ref.SoftReference;

import java.util.LinkedHashMap;

import java.util.List;

import java.util.Map;

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

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

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

import jdk.nashorn.internal.runtime.ConsString;

import jdk.nashorn.internal.runtime.Context;

import jdk.nashorn.internal.runtime.GlobalFunctions;

import jdk.nashorn.internal.runtime.GlobalObject;

import jdk.nashorn.internal.runtime.JSType;

import jdk.nashorn.internal.runtime.NativeJavaPackage;

import jdk.nashorn.internal.runtime.OptionsObject;

import jdk.nashorn.internal.runtime.PropertyDescriptor;

import jdk.nashorn.internal.runtime.Scope;

import jdk.nashorn.internal.runtime.ScriptFunction;

import jdk.nashorn.internal.runtime.ScriptObject;

import jdk.nashorn.internal.runtime.ScriptRuntime;

import jdk.nashorn.internal.runtime.ScriptingFunctions;

import jdk.nashorn.internal.runtime.Source;

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

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

import jdk.nashorn.internal.scripts.JO$;

import org.dynalang.dynalink.linker.GuardedInvocation;

/**

 * Representation of global scope.

 */

@ScriptClass("Global")

public final class Global extends ScriptObject implements GlobalObject, Scope {

    private static final InvokeByName TO_STRING = new InvokeByName("toString", ScriptObject.class);

    private static final InvokeByName VALUE_OF  = new InvokeByName("valueOf",  ScriptObject.class);

    /** ECMA 15.1.2.2 parseInt (string , radix) */

    @Property(attributes = Attribute.NOT_ENUMERABLE)

    public Object parseInt;

    /** ECMA 15.1.2.3 parseFloat (string) */

    @Property(attributes = Attribute.NOT_ENUMERABLE)

    public Object parseFloat;

    /** ECMA 15.1.2.4 isNaN (number) */

    @Property(attributes = Attribute.NOT_ENUMERABLE)

    public Object isNaN;

    /** ECMA 15.1.2.5 isFinite (number) */

    @Property(attributes = Attribute.NOT_ENUMERABLE)

    public Object isFinite;

    /** ECMA 15.1.3.3 encodeURI */

    @Property(attributes = Attribute.NOT_ENUMERABLE)

    public Object encodeURI;

    /** ECMA 15.1.3.4 encodeURIComponent */

    @Property(attributes = Attribute.NOT_ENUMERABLE)

    public Object encodeURIComponent;

    /** ECMA 15.1.3.1 decodeURI */

    @Property(attributes = Attribute.NOT_ENUMERABLE)

    public Object decodeURI;

    /** ECMA 15.1.3.2 decodeURIComponent */

    @Property(attributes = Attribute.NOT_ENUMERABLE)

    public Object decodeURIComponent;

    /** ECMA B.2.1 escape (string) */

    @Property(attributes = Attribute.NOT_ENUMERABLE)

    public Object escape;

    /** ECMA B.2.2 unescape (string) */

    @Property(attributes = Attribute.NOT_ENUMERABLE)

    public Object unescape;

    /** Nashorn extension: global.print */

    @Property(attributes = Attribute.NOT_ENUMERABLE)

    public Object print;

    /** Nashorn extension: global.load */

    @Property(attributes = Attribute.NOT_ENUMERABLE)

    public Object load;

    /** Value property NaN of the Global Object - ECMA 15.1.1.1 NaN */

    @Property(attributes = Attribute.NON_ENUMERABLE_CONSTANT)

    public final Object NaN = Double.NaN;

    /** Value property Infinity of the Global Object - ECMA 15.1.1.2 Infinity */

    @Property(attributes = Attribute.NON_ENUMERABLE_CONSTANT)

    public final Object Infinity = Double.POSITIVE_INFINITY;

    /** Value property Undefined of the Global Object - ECMA 15.1.1.3 Undefined */

    @Property(attributes = Attribute.NON_ENUMERABLE_CONSTANT)

    public final Object undefined = UNDEFINED;

    /** ECMA 15.1.2.1 eval(x) */

    @Property(attributes = Attribute.NOT_ENUMERABLE)

    public Object eval;

    /** ECMA 15.1.4.1 Object constructor. */

    @Property(name = "Object", attributes = Attribute.NOT_ENUMERABLE)

    public volatile Object object;

    /** ECMA 15.1.4.2 Function constructor. */

    @Property(name = "Function", attributes = Attribute.NOT_ENUMERABLE)

    public volatile Object function;

    /** ECMA 15.1.4.3 Array constructor. */

    @Property(name = "Array", attributes = Attribute.NOT_ENUMERABLE)

    public volatile Object array;

    /** ECMA 15.1.4.4 String constructor */

    @Property(name = "String", attributes = Attribute.NOT_ENUMERABLE)

    public volatile Object string;

    /** ECMA 15.1.4.5 Boolean constructor */

    @Property(name = "Boolean", attributes = Attribute.NOT_ENUMERABLE)

    public volatile Object _boolean;

    /** ECMA 15.1.4.6 - Number constructor */

    @Property(name = "Number", attributes = Attribute.NOT_ENUMERABLE)

    public volatile Object number;

    /** ECMA 15.1.4.7 Date constructor */

    @Property(name = "Date", attributes = Attribute.NOT_ENUMERABLE)

    public volatile Object date;

    /** ECMA 15.1.4.8 RegExp constructor */

    @Property(name = "RegExp", attributes = Attribute.NOT_ENUMERABLE)

    public volatile Object regexp;

    /** ECMA 15.12 - The JSON object */

    @Property(name = "JSON", attributes = Attribute.NOT_ENUMERABLE)

    public volatile Object json;

    /** Nashorn extension: global.JSAdapter */

    @Property(name = "JSAdapter", attributes = Attribute.NOT_ENUMERABLE)

    public volatile Object jsadapter;

    /** ECMA 15.8 - The Math object */

    @Property(name = "Math", attributes = Attribute.NOT_ENUMERABLE)

    public volatile Object math;

    /** Error object */

    @Property(name = "Error", attributes = Attribute.NOT_ENUMERABLE)

    public volatile Object error;

    /** EvalError object */

    @Property(name = "EvalError", attributes = Attribute.NOT_ENUMERABLE)

    public volatile Object evalError;

    /** RangeError object */

    @Property(name = "RangeError", attributes = Attribute.NOT_ENUMERABLE)

    public volatile Object rangeError;

    /** ReferenceError object */

    @Property(name = "ReferenceError", attributes = Attribute.NOT_ENUMERABLE)

    public volatile Object referenceError;

    /** SyntaxError object */

    @Property(name = "SyntaxError", attributes = Attribute.NOT_ENUMERABLE)

    public volatile Object syntaxError;

    /** TypeError object */

    @Property(name = "TypeError", attributes = Attribute.NOT_ENUMERABLE)

    public volatile Object typeError;

    /** URIError object */

    @Property(name = "URIError", attributes = Attribute.NOT_ENUMERABLE)

    public volatile Object uriError;

    /** ArrayBuffer object */

    @Property(name = "ArrayBuffer", attributes = Attribute.NOT_ENUMERABLE)

    public volatile Object arrayBuffer;

    /** TypedArray (int8) */

    @Property(name = "Int8Array", attributes = Attribute.NOT_ENUMERABLE)

    public volatile Object int8Array;

    /** TypedArray (uint8) */

    @Property(name = "Uint8Array", attributes = Attribute.NOT_ENUMERABLE)

    public volatile Object uint8Array;

    /** TypedArray (uint8) - Clamped */

    @Property(name = "Uint8ClampedArray", attributes = Attribute.NOT_ENUMERABLE)

    public volatile Object uint8ClampedArray;

    /** TypedArray (int16) */

    @Property(name = "Int16Array", attributes = Attribute.NOT_ENUMERABLE)

    public volatile Object int16Array;

    /** TypedArray (uint16) */

    @Property(name = "Uint16Array", attributes = Attribute.NOT_ENUMERABLE)

    public volatile Object uint16Array;

    /** TypedArray (int32) */

    @Property(name = "Int32Array", attributes = Attribute.NOT_ENUMERABLE)

    public volatile Object int32Array;

    /** TypedArray (uint32) */

    @Property(name = "Uint32Array", attributes = Attribute.NOT_ENUMERABLE)

    public volatile Object uint32Array;

    /** TypedArray (float32) */

    @Property(name = "Float32Array", attributes = Attribute.NOT_ENUMERABLE)

    public volatile Object float32Array;

    /** TypedArray (float64) */

    @Property(name = "Float64Array", attributes = Attribute.NOT_ENUMERABLE)

    public volatile Object float64Array;

    /** Nashorn extension: Java access - global.Packages */

    @Property(name = "Packages", attributes = Attribute.NOT_ENUMERABLE)

    public volatile Object packages;

    /** Nashorn extension: Java access - global.java */

    @Property(attributes = Attribute.NOT_ENUMERABLE)

    public volatile Object java;

    /** Nashorn extension: Java access - global.javax */

    @Property(attributes = Attribute.NOT_ENUMERABLE)

    public Object javax;

    /** Nashorn extension: Java access - global.javaImporter */

    @Property(name = "JavaImporter", attributes = Attribute.NOT_ENUMERABLE)

    public volatile Object javaImporter;

    /** Nashorn extension: global.Java Object constructor. */

    @Property(name = "Java", attributes = Attribute.NOT_ENUMERABLE)

    public volatile Object javaApi;

    /** Nashorn extension: current script's file name */

    @Property(name = "__FILE__", attributes = Attribute.NON_ENUMERABLE_CONSTANT)

    public Object __FILE__;

    /** Nashorn extension: current script's directory */

    @Property(name = "__DIR__", attributes = Attribute.NON_ENUMERABLE_CONSTANT)

    public Object __DIR__;

    /** Nashorn extension: current source line number being executed */

    @Property(name = "__LINE__", attributes = Attribute.NON_ENUMERABLE_CONSTANT)

    public Object __LINE__;

    /** Used as Date.prototype's default value */

    public NativeDate   DEFAULT_DATE;

    /** Used as RegExp.prototype's default value */

    public NativeRegExp DEFAULT_REGEXP;

    /*

     * Built-in constructor objects: Even if user changes dynamic values of

     * "Object", "Array" etc., we still want to keep original values of these

     * constructors here. For example, we need to be able to create array,

     * regexp literals even after user overwrites global "Array" or "RegExp"

     * constructor - see also ECMA 262 spec. Annex D.

     */

    private ScriptFunction builtinFunction;

    private ScriptFunction builtinObject;

    private ScriptFunction builtinArray;

    private ScriptFunction builtinBoolean;

    private ScriptFunction builtinDate;

    private ScriptObject   builtinJSON;

    private ScriptFunction builtinJSAdapter;

    private ScriptObject   builtinMath;

    private ScriptFunction builtinNumber;

    private ScriptFunction builtinRegExp;

    private ScriptFunction builtinString;

    private ScriptFunction builtinError;

    private ScriptFunction builtinEval;

    private ScriptFunction builtinEvalError;

    private ScriptFunction builtinRangeError;

    private ScriptFunction builtinReferenceError;

    private ScriptFunction builtinSyntaxError;

    private ScriptFunction builtinTypeError;

    private ScriptFunction builtinURIError;

    private ScriptObject   builtinPackages;

    private ScriptObject   builtinJava;

    private ScriptObject   builtinJavax;

    private ScriptObject   builtinJavaImporter;

    private ScriptObject   builtinJavaApi;

    private ScriptObject   builtinArrayBuffer;

    private ScriptObject   builtinInt8Array;

    private ScriptObject   builtinUint8Array;

    private ScriptObject   builtinUint8ClampedArray;

    private ScriptObject   builtinInt16Array;

    private ScriptObject   builtinUint16Array;

    private ScriptObject   builtinInt32Array;

    private ScriptObject   builtinUint32Array;

    private ScriptObject   builtinFloat32Array;

    private ScriptObject   builtinFloat64Array;

    // Flag to indicate that a split method issued a return statement

    private int splitState = -1;

    // class cache

    private ClassCache classCache;

    private static final MethodHandle EVAL    = findOwnMH("eval",    Object.class, Object.class, Object.class);

    private static final MethodHandle PRINT   = findOwnMH("print",   Object.class, Object.class, Object[].class);

    private static final MethodHandle PRINTLN = findOwnMH("println", Object.class, Object.class, Object[].class);

    private static final MethodHandle LOAD    = findOwnMH("load",    Object.class, Object.class, Object.class);

    /**

     * Constructor

     */

    public Global() {

        this.setIsScope();

        /*

         * Duplicate global's map and use it. This way the initial Map filled

         * by nasgen (referenced from static field in this class) is retained

         * 'as is'. This allows multiple globals to be used within a context.

         */

        this.setMap(getMap().duplicate());

        final int cacheSize = getContext()._class_cache_size;

        if (cacheSize > 0) {

            classCache = new ClassCache(cacheSize);

        }

    }

    /**

     * Script access to unique context specific Global instance

     *

     * @return the global singleton

     */

    public static Global instance() {

        return (Global)Context.getGlobal();

    }

    /**

     * Script access to {@link Context}

     *

     * @return the context

     */

    static Context getThisContext() {

        return instance().getContext();

    }

    /**

     * Script access check for strict mode

     *

     * @return true if strict mode enabled in {@link Global#getThisContext()}

     */

    static boolean isStrict() {

        return getThisContext()._strict;

    }

    // GlobalObject interface implementation

    @Override

    public void initBuiltinObjects() {

        if (this.builtinObject != null) {

            // already initialized, just return

            return;

        }

        init();

    }

    @Override

    public ScriptFunction newScriptFunction(final String name, final MethodHandle handle, final ScriptObject scope, final boolean strict) {

        return new ScriptFunctionImpl(name, handle, scope, strict, null);

    }

    @Override

    public Object wrapAsObject(final Object obj) {

        if (obj instanceof Boolean) {

            return new NativeBoolean((Boolean)obj);

        } else if (obj instanceof Number) {

            return new NativeNumber(((Number)obj).doubleValue());

        } else if (obj instanceof String || obj instanceof ConsString) {

            return new NativeString((CharSequence)obj);

        } else if (obj instanceof Object[]) { // extension

            return new NativeArray((Object[])obj);

        } else if (obj instanceof double[]) { // extension

            return new NativeArray((double[])obj);

        } else if (obj instanceof long[]) {

            return new NativeArray((long[])obj);

        } else if (obj instanceof int[]) {

            return new NativeArray((int[])obj);

        } else {

            // FIXME: more special cases? Map? List?

            return obj;

        }

    }

    @Override

    public MethodHandle getWrapFilter(Object obj) {

        if (obj instanceof String || obj instanceof ConsString) {

            return NativeString.WRAPFILTER;

        } else if (obj instanceof Number) {

            return NativeNumber.WRAPFILTER;

        } else if (obj instanceof Boolean) {

            return NativeBoolean.WRAPFILTER;

        }

        throw new IllegalArgumentException("Unsupported primitive value: " + obj);

    }

    @Override

    public GuardedInvocation numberLookup(final NashornCallSiteDescriptor callSite, final Number self) {

        return NativeNumber.lookupPrimitive(callSite, self);

    }

    @Override

    public GuardedInvocation stringLookup(final NashornCallSiteDescriptor callSite, final CharSequence self) {

        return NativeString.lookupPrimitive(callSite, self);

    }

    @Override

    public GuardedInvocation booleanLookup(final NashornCallSiteDescriptor callSite, final Boolean self) {

        return NativeBoolean.lookupPrimitive(callSite, self);

    }

    @Override

    public ScriptObject newObject() {

        return newEmptyInstance();

    }

    @Override

    public Object getDefaultValue(final ScriptObject sobj, final Class<?> typeHint) {

        // When the [[DefaultValue]] internal method of O is called with no hint,

        // then it behaves as if the hint were Number, unless O is a Date object

        // in which case it behaves as if the hint were String.

        Class<?> hint = typeHint;

        if (hint == null) {

            hint = Number.class;

        }

        try {

            if (hint == String.class) {

                final Object toString = TO_STRING.getGetter().invokeExact(sobj);

                if (toString instanceof ScriptFunction) {

                    final Object value = TO_STRING.getInvoker().invokeExact(toString, sobj);

                    if (JSType.isPrimitive(value)) {

                        return value;

                    }

                }

                final Object valueOf = VALUE_OF.getGetter().invokeExact(sobj);

                if (valueOf instanceof ScriptFunction) {

                    final Object value = VALUE_OF.getInvoker().invokeExact(valueOf, sobj);

                    if (JSType.isPrimitive(value)) {

                        return value;

                    }

                }

                typeError(this, "cannot.get.default.string");

            }

            if (hint == Number.class) {

                final Object valueOf = VALUE_OF.getGetter().invokeExact(sobj);

                if (valueOf instanceof ScriptFunction) {

                    final Object value = VALUE_OF.getInvoker().invokeExact(valueOf, sobj);

                    if (JSType.isPrimitive(value)) {

                        return value;

                    }

                }

                final Object toString = TO_STRING.getGetter().invokeExact(sobj);

                if (toString instanceof ScriptFunction) {

                    final Object value = TO_STRING.getInvoker().invokeExact(toString, sobj);

                    if (JSType.isPrimitive(value)) {

                        return value;

                    }

                }

                typeError(this, "cannot.get.default.number");

            }

        } catch (final RuntimeException | Error e) {

            throw e;

        } catch (final Throwable t) {

            throw new RuntimeException(t);

        }

        return UNDEFINED;

    }

    @Override

    public boolean isError(final ScriptObject sobj) {

        final ScriptObject errorProto = getErrorPrototype();

        ScriptObject proto = sobj.getProto();

        while (proto != null) {

            if (proto == errorProto) {

                return true;

            }

            proto = proto.getProto();

        }

        return false;

    }

    @Override

    public ScriptObject newError(final String msg) {

        return new NativeError(msg);