/*
 * Copyright 2000-2014 JetBrains s.r.o.
 *
 * Licensed under the Apache License, Version 2.0 (the "License");
 * you may not use this file except in compliance with the License.
 * You may obtain a copy of the License at
 *
 * http://www.apache.org/licenses/LICENSE-2.0
 *
 * Unless required by applicable law or agreed to in writing, software
 * distributed under the License is distributed on an "AS IS" BASIS,
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 * See the License for the specific language governing permissions and
 * limitations under the License.
 */
package org.jetbrains.java.decompiler.struct.attr;

import org.jetbrains.java.decompiler.code.CodeConstants;
import org.jetbrains.java.decompiler.modules.decompiler.exps.*;
import org.jetbrains.java.decompiler.struct.consts.ConstantPool;
import org.jetbrains.java.decompiler.struct.consts.PrimitiveConstant;
import org.jetbrains.java.decompiler.struct.gen.FieldDescriptor;
import org.jetbrains.java.decompiler.struct.gen.VarType;

import java.io.ByteArrayInputStream;
import java.io.DataInputStream;
import java.io.IOException;
import java.util.ArrayList;
import java.util.List;

public class StructAnnotationAttribute extends StructGeneralAttribute {

  private List<AnnotationExprent> annotations;

  public void initContent(ConstantPool pool) {

    super.initContent(pool);

    annotations = new ArrayList<AnnotationExprent>();
    DataInputStream data = new DataInputStream(new ByteArrayInputStream(info, 2, info.length));

    int len = (((info[0] & 0xFF) << 8) | (info[1] & 0xFF));
    for (int i = 0; i < len; i++) {
      annotations.add(parseAnnotation(data, pool));
    }
  }

  public static AnnotationExprent parseAnnotation(DataInputStream data, ConstantPool pool) {

    try {

      String classname = pool.getPrimitiveConstant(data.readUnsignedShort()).getString();
      VarType cltype = new VarType(classname);

      int len = data.readUnsignedShort();

      List<String> parnames = new ArrayList<String>();
      List<Exprent> parvalues = new ArrayList<Exprent>();

      for (int i = 0; i < len; i++) {
        parnames.add(pool.getPrimitiveConstant(data.readUnsignedShort()).getString());
        parvalues.add(parseAnnotationElement(data, pool));
      }

      return new AnnotationExprent(cltype.value, parnames, parvalues);
    }
    catch (IOException ex) {
      throw new RuntimeException(ex);
    }
  }

  public static Exprent parseAnnotationElement(DataInputStream data, ConstantPool pool) {

    try {
      int tag = data.readUnsignedByte();

      switch (tag) {
        case 'e': // enum constant
          String classname = pool.getPrimitiveConstant(data.readUnsignedShort()).getString();
          String constname = pool.getPrimitiveConstant(data.readUnsignedShort()).getString();

          FieldDescriptor descr = FieldDescriptor.parseDescriptor(classname);
          return new FieldExprent(constname, descr.type.value, true, null, descr);
        case 'c': // class
          String descriptor = pool.getPrimitiveConstant(data.readUnsignedShort()).getString();
          VarType type = FieldDescriptor.parseDescriptor(descriptor).type;

          String value;
          switch (type.type) {
            case CodeConstants.TYPE_OBJECT:
              value = type.value;
              break;
            case CodeConstants.TYPE_BYTE:
              value = byte.class.getName();
              break;
            case CodeConstants.TYPE_CHAR:
              value = char.class.getName();
              break;
            case CodeConstants.TYPE_DOUBLE:
              value = double.class.getName();
              break;
            case CodeConstants.TYPE_FLOAT:
              value = float.class.getName();
              break;
            case CodeConstants.TYPE_INT:
              value = int.class.getName();
              break;
            case CodeConstants.TYPE_LONG:
              value = long.class.getName();
              break;
            case CodeConstants.TYPE_SHORT:
              value = short.class.getName();
              break;
            case CodeConstants.TYPE_BOOLEAN:
              value = boolean.class.getName();
              break;
            case CodeConstants.TYPE_VOID:
              value = void.class.getName();
              break;
            default:
              throw new RuntimeException("invalid class type: " + type.type);
          }
          return new ConstExprent(VarType.VARTYPE_CLASS, value);
        case '[': // array
          int len = data.readUnsignedShort();
          List<Exprent> lst = new ArrayList<Exprent>();

          for (int i = 0; i < len; i++) {
            lst.add(parseAnnotationElement(data, pool));
          }

          VarType newtype;
          if (lst.isEmpty()) {
            newtype = new VarType(CodeConstants.TYPE_OBJECT, 1, "java/lang/Object");
          }
          else {
            VarType eltype = lst.get(0).getExprType();
            newtype = new VarType(eltype.type, 1, eltype.value);
          }

          NewExprent newexpr = new NewExprent(newtype, new ArrayList<Exprent>());
          newexpr.setDirectArrayInit(true);
          newexpr.setLstArrayElements(lst);
          return newexpr;
        case '@': // annotation
          return parseAnnotation(data, pool);
        default:
          PrimitiveConstant cn = pool.getPrimitiveConstant(data.readUnsignedShort());
          switch (tag) {
            case 'B':
              return new ConstExprent(VarType.VARTYPE_BYTE, cn.value);
            case 'C':
              return new ConstExprent(VarType.VARTYPE_CHAR, cn.value);
            case 'D':
              return new ConstExprent(VarType.VARTYPE_DOUBLE, cn.value);
            case 'F':
              return new ConstExprent(VarType.VARTYPE_FLOAT, cn.value);
            case 'I':
              return new ConstExprent(VarType.VARTYPE_INT, cn.value);
            case 'J':
              return new ConstExprent(VarType.VARTYPE_LONG, cn.value);
            case 'S':
              return new ConstExprent(VarType.VARTYPE_SHORT, cn.value);
            case 'Z':
              return new ConstExprent(VarType.VARTYPE_BOOLEAN, cn.value);
            case 's':
              return new ConstExprent(VarType.VARTYPE_STRING, cn.value);
            default:
              throw new RuntimeException("invalid element type!");
          }
      }
    }
    catch (IOException ex) {
      throw new RuntimeException(ex);
    }
  }


  public List<AnnotationExprent> getAnnotations() {
    return annotations;
  }
}