/*

 * Copyright (c) 2009, 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 com.sun.tools.javac.code;

import javax.lang.model.element.Element;

import javax.lang.model.element.ElementKind;

import javax.lang.model.type.TypeKind;

import com.sun.tools.javac.code.Attribute;

import com.sun.tools.javac.code.Attribute.TypeCompound;

import com.sun.tools.javac.code.Flags;

import com.sun.tools.javac.code.Kinds;

import com.sun.tools.javac.code.Type.AnnotatedType;

import com.sun.tools.javac.code.Type.ArrayType;

import com.sun.tools.javac.code.Type.CapturedType;

import com.sun.tools.javac.code.Type.ClassType;

import com.sun.tools.javac.code.Type.ErrorType;

import com.sun.tools.javac.code.Type.ForAll;

import com.sun.tools.javac.code.Type.MethodType;

import com.sun.tools.javac.code.Type.PackageType;

import com.sun.tools.javac.code.Type.TypeVar;

import com.sun.tools.javac.code.Type.UndetVar;

import com.sun.tools.javac.code.Type.Visitor;

import com.sun.tools.javac.code.Type.WildcardType;

import com.sun.tools.javac.code.TypeAnnotationPosition.TypePathEntry;

import com.sun.tools.javac.code.TypeAnnotationPosition.TypePathEntryKind;

import com.sun.tools.javac.code.TypeTag;

import com.sun.tools.javac.code.Symbol.VarSymbol;

import com.sun.tools.javac.code.Symbol.MethodSymbol;

import com.sun.tools.javac.comp.Annotate;

import com.sun.tools.javac.comp.Annotate.Annotator;

import com.sun.tools.javac.tree.JCTree;

import com.sun.tools.javac.tree.JCTree.JCBlock;

import com.sun.tools.javac.tree.JCTree.JCClassDecl;

import com.sun.tools.javac.tree.JCTree.JCExpression;

import com.sun.tools.javac.tree.JCTree.JCLambda;

import com.sun.tools.javac.tree.JCTree.JCMethodDecl;

import com.sun.tools.javac.tree.JCTree.JCNewClass;

import com.sun.tools.javac.tree.JCTree.JCTypeApply;

import com.sun.tools.javac.tree.JCTree.JCVariableDecl;

import com.sun.tools.javac.tree.TreeScanner;

import com.sun.tools.javac.tree.JCTree.*;

import com.sun.tools.javac.util.Assert;

import com.sun.tools.javac.util.List;

import com.sun.tools.javac.util.ListBuffer;

import com.sun.tools.javac.util.Log;

import com.sun.tools.javac.util.Names;

/**

 * Contains operations specific to processing type annotations.

 * This class has two functions:

 * separate declaration from type annotations and insert the type

 * annotations to their types;

 * and determine the TypeAnnotationPositions for all type annotations.

 */

public class TypeAnnotations {

    // Class cannot be instantiated.

    private TypeAnnotations() {}

    /**

     * Separate type annotations from declaration annotations and

     * determine the correct positions for type annotations.

     * This version only visits types in signatures and should be

     * called from MemberEnter.

     * The method takes the Annotate object as parameter and

     * adds an Annotator to the correct Annotate queue for

     * later processing.

     */

    public static void organizeTypeAnnotationsSignatures(final Symtab syms, final Names names,

        annotate.afterRepeated( new Annotator() {

            @Override

            public void enterAnnotation() {

            }

        } );

    }

    /**

     * This version only visits types in bodies, that is, field initializers,

     * top-level blocks, and method bodies, and should be called from Attr.

     */

    public static void organizeTypeAnnotationsBodies(Symtab syms, Names names, Log log, JCClassDecl tree) {

        new TypeAnnotationPositions(syms, names, log, false).scan(tree);

    }

    public enum AnnotationType { DECLARATION, TYPE, BOTH };

    /**

     * Determine whether an annotation is a declaration annotation,

     * a type annotation, or both.

     */

    public static AnnotationType annotationType(Symtab syms, Names names,

            Attribute.Compound a, Symbol s) {

        Attribute.Compound atTarget =

            a.type.tsym.attribute(syms.annotationTargetType.tsym);

        if (atTarget == null) {

            return inferTargetMetaInfo(a, s);

        }

        Attribute atValue = atTarget.member(names.value);

        if (!(atValue instanceof Attribute.Array)) {

            Assert.error("annotationType(): bad @Target argument " + atValue +

                    " (" + atValue.getClass() + ")");

            return AnnotationType.DECLARATION; // error recovery

        }

        Attribute.Array arr = (Attribute.Array) atValue;

        boolean isDecl = false, isType = false;

        for (Attribute app : arr.values) {

            if (!(app instanceof Attribute.Enum)) {

                Assert.error("annotationType(): unrecognized Attribute kind " + app +

                        " (" + app.getClass() + ")");

                isDecl = true;

                continue;

            }

            Attribute.Enum e = (Attribute.Enum) app;

            if (e.value.name == names.TYPE) {

                if (s.kind == Kinds.TYP)

                    isDecl = true;

            } else if (e.value.name == names.FIELD) {

                if (s.kind == Kinds.VAR &&

                        s.owner.kind != Kinds.MTH)

                    isDecl = true;

            } else if (e.value.name == names.METHOD) {

                if (s.kind == Kinds.MTH &&

                        !s.isConstructor())

                    isDecl = true;

            } else if (e.value.name == names.PARAMETER) {

                if (s.kind == Kinds.VAR &&

                        s.owner.kind == Kinds.MTH &&

                        (s.flags() & Flags.PARAMETER) != 0)

                    isDecl = true;

            } else if (e.value.name == names.CONSTRUCTOR) {

                if (s.kind == Kinds.MTH &&

                        s.isConstructor())

                    isDecl = true;

            } else if (e.value.name == names.LOCAL_VARIABLE) {

                if (s.kind == Kinds.VAR &&

                        s.owner.kind == Kinds.MTH &&

                        (s.flags() & Flags.PARAMETER) == 0)

                    isDecl = true;

            } else if (e.value.name == names.ANNOTATION_TYPE) {

                if (s.kind == Kinds.TYP &&

                        (s.flags() & Flags.ANNOTATION) != 0)

                    isDecl = true;

            } else if (e.value.name == names.PACKAGE) {

                if (s.kind == Kinds.PCK)

                    isDecl = true;

            } else if (e.value.name == names.TYPE_USE) {

                if (s.kind == Kinds.TYP ||

                        s.kind == Kinds.VAR ||

                        (s.kind == Kinds.MTH && !s.isConstructor() &&

                        !s.type.getReturnType().hasTag(TypeTag.VOID)) ||

                        (s.kind == Kinds.MTH && s.isConstructor()))

                    isType = true;

            } else if (e.value.name == names.TYPE_PARAMETER) {

                /* Irrelevant in this case */

                // TYPE_PARAMETER doesn't aid in distinguishing between

                // Type annotations and declaration annotations on an

                // Element

            } else {

                Assert.error("annotationType(): unrecognized Attribute name " + e.value.name +

                        " (" + e.value.name.getClass() + ")");

                isDecl = true;

            }

        }

        if (isDecl && isType) {

            return AnnotationType.BOTH;

        } else if (isType) {

            return AnnotationType.TYPE;

        } else {

            return AnnotationType.DECLARATION;

        }

    }

    /** Infer the target annotation kind, if none is give.

     * We only infer declaration annotations.

     */

    private static AnnotationType inferTargetMetaInfo(Attribute.Compound a, Symbol s) {

        return AnnotationType.DECLARATION;

    }

    private static class TypeAnnotationPositions extends TreeScanner {

        private final Symtab syms;

        private final Names names;

        private final Log log;

        private final boolean sigOnly;

        private TypeAnnotationPositions(Symtab syms, Names names, Log log, boolean sigOnly) {

            this.syms = syms;

            this.names = names;

            this.log = log;

            this.sigOnly = sigOnly;

        }

        /*

         * When traversing the AST we keep the "frames" of visited

         * trees in order to determine the position of annotations.

         */

        private ListBuffer<JCTree> frames = ListBuffer.lb();

        protected void push(JCTree t) { frames = frames.prepend(t); }

        protected JCTree pop() { return frames.next(); }

        // could this be frames.elems.tail.head?

        private JCTree peek2() { return frames.toList().tail.head; }

        @Override

        public void scan(JCTree tree) {

            push(tree);

            super.scan(tree);

            pop();

        }

        /**

         * Separates type annotations from declaration annotations.

         * This step is needed because in certain locations (where declaration

         * and type annotations can be mixed, e.g. the type of a field)

         * we never build an JCAnnotatedType. This step finds these

         * annotations and marks them as if they were part of the type.

         */

        private void separateAnnotationsKinds(JCTree typetree, Type type, Symbol sym,

                TypeAnnotationPosition pos) {

            /*

            System.out.printf("separateAnnotationsKinds(typetree: %s, type: %s, symbol: %s, pos: %s%n",

                    typetree, type, sym, pos);

            */

            List<Attribute.Compound> annotations = sym.getRawAttributes();

            ListBuffer<Attribute.Compound> declAnnos = new ListBuffer<Attribute.Compound>();

            ListBuffer<Attribute.TypeCompound> typeAnnos = new ListBuffer<Attribute.TypeCompound>();

            for (Attribute.Compound a : annotations) {

                switch (annotationType(syms, names, a, sym)) {

                case DECLARATION:

                    declAnnos.append(a);

                    break;

                case BOTH: {

                    declAnnos.append(a);

                    Attribute.TypeCompound ta = toTypeCompound(a, pos);

                    typeAnnos.append(ta);

                    break;

                }

                case TYPE: {

                    Attribute.TypeCompound ta = toTypeCompound(a, pos);

                    typeAnnos.append(ta);

                    break;

                }

                }

            }

            sym.resetAnnotations();

            sym.setDeclarationAttributes(declAnnos.toList());

            if (typeAnnos.isEmpty()) {

                return;

            }

            List<Attribute.TypeCompound> typeAnnotations = typeAnnos.toList();

            if (type == null) {

                // When type is null, put the type annotations to the symbol.

                // This is used for constructor return annotations, for which

                // no appropriate type exists.

                sym.appendUniqueTypeAttributes(typeAnnotations);

                return;

            }

            // type is non-null and annotations are added to that type

            type = typeWithAnnotations(typetree, type, typeAnnotations, log);

            if (sym.getKind() == ElementKind.METHOD) {

                sym.type.asMethodType().restype = type;

            } else if (sym.getKind() == ElementKind.PARAMETER) {

                sym.type = type;

                if (sym.getQualifiedName().equals(names._this)) {

                    sym.owner.type.asMethodType().recvtype = type;

                    // note that the typeAnnotations will also be added to the owner below.

                } else {

                    MethodType methType = sym.owner.type.asMethodType();

                    List<VarSymbol> params = ((MethodSymbol)sym.owner).params;

                    List<Type> oldArgs = methType.argtypes;

                    ListBuffer<Type> newArgs = new ListBuffer<Type>();

                    while (params.nonEmpty()) {

                        if (params.head == sym) {

                            newArgs.add(type);

                        } else {

                            newArgs.add(oldArgs.head);

                        }

                        oldArgs = oldArgs.tail;

                        params = params.tail;

                    }

                    methType.argtypes = newArgs.toList();

                }

            } else {

                sym.type = type;

            }

            sym.appendUniqueTypeAttributes(typeAnnotations);

            if (sym.getKind() == ElementKind.PARAMETER ||

                    sym.getKind() == ElementKind.LOCAL_VARIABLE ||

                    sym.getKind() == ElementKind.RESOURCE_VARIABLE ||

                    sym.getKind() == ElementKind.EXCEPTION_PARAMETER) {

                // Make sure all type annotations from the symbol are also

                // on the owner.

                sym.owner.appendUniqueTypeAttributes(sym.getRawTypeAttributes());

            }

        }

        // This method has a similar purpose as

        // {@link com.sun.tools.javac.parser.JavacParser.insertAnnotationsToMostInner(JCExpression, List<JCTypeAnnotation>, boolean)}

        // We found a type annotation in a declaration annotation position,

        // for example, on the return type.

        // Such an annotation is _not_ part of an JCAnnotatedType tree and we therefore

        // need to set its position explicitly.

        // The method returns a copy of type that contains these annotations.

        //

        // As a side effect the method sets the type annotation position of "annotations".

        // Note that it is assumed that all annotations share the same position.

        private static Type typeWithAnnotations(final JCTree typetree, final Type type,

                final List<Attribute.TypeCompound> annotations, Log log) {

            // System.out.printf("typeWithAnnotations(typetree: %s, type: %s, annotations: %s)%n",

            //         typetree, type, annotations);

            if (annotations.isEmpty()) {

                return type;

            }

            if (type.hasTag(TypeTag.ARRAY)) {

                Type toreturn;

                Type.ArrayType tomodify;

                Type.ArrayType arType;

                {

                    Type touse = type;

                    if (type.isAnnotated()) {

                        Type.AnnotatedType atype = (Type.AnnotatedType)type;

                        toreturn = new Type.AnnotatedType(atype.underlyingType);

                        ((Type.AnnotatedType)toreturn).typeAnnotations = atype.typeAnnotations;

                        touse = atype.underlyingType;

                        arType = (Type.ArrayType) touse;

                        tomodify = new Type.ArrayType(null, arType.tsym);

                        ((Type.AnnotatedType)toreturn).underlyingType = tomodify;

                    } else {

                        arType = (Type.ArrayType) touse;

                        tomodify = new Type.ArrayType(null, arType.tsym);

                        toreturn = tomodify;

                    }

                }

                JCArrayTypeTree arTree = arrayTypeTree(typetree);

                ListBuffer<TypePathEntry> depth = ListBuffer.lb();

                depth = depth.append(TypePathEntry.ARRAY);

                while (arType.elemtype.hasTag(TypeTag.ARRAY)) {

                    if (arType.elemtype.isAnnotated()) {

                        Type.AnnotatedType aelemtype = (Type.AnnotatedType) arType.elemtype;

                        Type.AnnotatedType newAT = new Type.AnnotatedType(aelemtype.underlyingType);

                        tomodify.elemtype = newAT;

                        newAT.typeAnnotations = aelemtype.typeAnnotations;

                        arType = (Type.ArrayType) aelemtype.underlyingType;

                        tomodify = new Type.ArrayType(null, arType.tsym);

                        newAT.underlyingType = tomodify;

                    } else {

                        arType = (Type.ArrayType) arType.elemtype;

                        tomodify.elemtype = new Type.ArrayType(null, arType.tsym);

                        tomodify = (Type.ArrayType) tomodify.elemtype;

                    }

                    arTree = arrayTypeTree(arTree.elemtype);

                    depth = depth.append(TypePathEntry.ARRAY);

                }

                Type arelemType = typeWithAnnotations(arTree.elemtype, arType.elemtype, annotations, log);

                tomodify.elemtype = arelemType;

                {

                    // All annotations share the same position; modify the first one.

                    Attribute.TypeCompound a = annotations.get(0);

                    TypeAnnotationPosition p = a.position;

                    p.location = p.location.prependList(depth.toList());

                }

                typetree.type = toreturn;

                return toreturn;

            } else if (type.hasTag(TypeTag.TYPEVAR)) {

                // Nothing to do for type variables.

                return type;

            } else if (type.getKind() == TypeKind.UNION) {

                // There is a TypeKind, but no TypeTag.

                JCTypeUnion tutree = (JCTypeUnion) typetree;

                JCExpression fst = tutree.alternatives.get(0);

                Type res = typeWithAnnotations(fst, fst.type, annotations, log);

                fst.type = res;

                // TODO: do we want to set res as first element in uct.alternatives?

                // UnionClassType uct = (com.sun.tools.javac.code.Type.UnionClassType)type;

                // Return the un-annotated union-type.

                return type;

            } else {

                Type enclTy = type;

                Element enclEl = type.asElement();

                JCTree enclTr = typetree;

                while (enclEl != null &&

                        enclEl.getKind() != ElementKind.PACKAGE &&

                        enclTy != null &&

                        enclTy.getKind() != TypeKind.NONE &&

                        enclTy.getKind() != TypeKind.ERROR &&

                        (enclTr.getKind() == JCTree.Kind.MEMBER_SELECT ||

                         enclTr.getKind() == JCTree.Kind.PARAMETERIZED_TYPE ||

                         enclTr.getKind() == JCTree.Kind.ANNOTATED_TYPE)) {

                    // Iterate also over the type tree, not just the type: the type is already

                    // completely resolved and we cannot distinguish where the annotation

                    // belongs for a nested type.

                    if (enclTr.getKind() == JCTree.Kind.MEMBER_SELECT) {

                        // only change encl in this case.

                        enclTy = enclTy.getEnclosingType();

                        enclEl = enclEl.getEnclosingElement();

                        enclTr = ((JCFieldAccess)enclTr).getExpression();

                    } else if (enclTr.getKind() == JCTree.Kind.PARAMETERIZED_TYPE) {

                        enclTr = ((JCTypeApply)enclTr).getType();

                    } else {

                        // only other option because of while condition

                        enclTr = ((JCAnnotatedType)enclTr).getUnderlyingType();

                    }

                }

                /** We are trying to annotate some enclosing type,

                 * but nothing more exists.

                 */

                if (enclTy != null &&

                        enclTy.getKind() == TypeKind.NONE &&

                        (enclTr.getKind() == JCTree.Kind.IDENTIFIER ||

                         enclTr.getKind() == JCTree.Kind.MEMBER_SELECT ||

                         enclTr.getKind() == JCTree.Kind.PARAMETERIZED_TYPE ||

                         enclTr.getKind() == JCTree.Kind.ANNOTATED_TYPE)) {

                    // TODO: also if it's "java. @A lang.Object", that is,

                    // if it's on a package?

                    log.error(enclTr.pos(), "cant.annotate.nested.type", enclTr.toString());

                    return type;

                }

                // At this point we have visited the part of the nested

                // type that is written in the source code.

                // Now count from here to the actual top-level class to determine

                // the correct nesting.

                // The genericLocation for the annotation.

                ListBuffer<TypePathEntry> depth = ListBuffer.lb();

                Type topTy = enclTy;

                while (enclEl != null &&

                        enclEl.getKind() != ElementKind.PACKAGE &&

                        topTy != null &&

                        topTy.getKind() != TypeKind.NONE &&

                        topTy.getKind() != TypeKind.ERROR) {

                    topTy = topTy.getEnclosingType();

                    enclEl = enclEl.getEnclosingElement();

                    if (topTy != null && topTy.getKind() != TypeKind.NONE) {

                        // Only count enclosing types.

                        depth = depth.append(TypePathEntry.INNER_TYPE);

                    }

                }

                if (depth.nonEmpty()) {

                    // Only need to change the annotation positions

                    // if they are on an enclosed type.

                    // All annotations share the same position; modify the first one.

                    Attribute.TypeCompound a = annotations.get(0);

                    TypeAnnotationPosition p = a.position;

                    p.location = p.location.appendList(depth.toList());

                }

                Type ret = typeWithAnnotations(type, enclTy, annotations);

                typetree.type = ret;

                return ret;

            }

        }

        private static JCArrayTypeTree arrayTypeTree(JCTree typetree) {

            if (typetree.getKind() == JCTree.Kind.ARRAY_TYPE) {

                return (JCArrayTypeTree) typetree;

            } else if (typetree.getKind() == JCTree.Kind.ANNOTATED_TYPE) {

                return (JCArrayTypeTree) ((JCAnnotatedType)typetree).underlyingType;

            } else {