/**

 * Back 2 Browser Bytecode Translator

 * Copyright (C) 2012 Jaroslav Tulach <jaroslav.tulach@apidesign.org>

 *

 * This program is free software: you can redistribute it and/or modify

 * it under the terms of the GNU General Public License as published by

 * the Free Software Foundation, version 2 of the License.

 *

 * This program 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 for more details.

 *

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

 * along with this program. Look for COPYING file in the top folder.

 * If not, see http://opensource.org/licenses/GPL-2.0.

 */

package org.apidesign.bck2brwsr.emul.reflect;

import java.lang.annotation.Annotation;

import java.lang.reflect.Method;

import java.lang.reflect.Modifier;

import org.apidesign.bck2brwsr.core.JavaScriptBody;

/**

 *

 * @author Jaroslav Tulach <jtulach@netbeans.org>

 */

public final class AnnotationImpl implements Annotation {

    private final Class<? extends Annotation> type;

    public AnnotationImpl(Class<? extends Annotation> type) {

        this.type = type;

    }

    public Class<? extends Annotation> annotationType() {

        return type;

    }

    @JavaScriptBody(args = { "a", "n", "arr", "values" }, body = ""

        + "function r(anno, val, prop, m) {\n"

        + "  var v = val[prop];\n"

        + "  if (typeof v === 'undefined') {\n"

        + "    var cls = anno.fld_org_apidesign_bck2brwsr_emul_reflect_AnnotationImpl_type.cnstr;\n"

        + "    try { throw 'x'; } catch (errr) {};\n"

        + "    v = cls.prototype[m]();\n"

        + "  }\n"

        + "  return v;\n"

        + "}\n"

        + "function f(val, prop, clazz, m) {\n"

        + "  return function() {\n"

        + "    if (clazz == null) return r(this, val, prop, m);\n"

        + "    if (clazz.isArray__Z()) {\n"

        + "      var valarr = r(this, val, prop, m);\n"

        + "      var cmp = clazz.getComponentType__Ljava_lang_Class_2();\n"

        + "      var retarr = vm.java_lang_reflect_Array(false).newInstance__Ljava_lang_Object_2Ljava_lang_Class_2I(cmp, valarr.length);\n"

        + "      for (var i = 0; i < valarr.length; i++) {\n"

        + "        retarr[i] = CLS.prototype.c__Ljava_lang_Object_2Ljava_lang_Class_2Ljava_lang_Object_2(cmp, valarr[i]);\n"

        + "      }\n"

        + "      return retarr;\n"

        + "    }\n"

        + "    return CLS.prototype.c__Ljava_lang_Object_2Ljava_lang_Class_2Ljava_lang_Object_2(clazz, r(this, val, prop, m));\n"

        + "  };\n"

        + "}\n"

        + "for (var i = 0; i < arr.length; i += 3) {\n"

        + "  var m = arr[i];\n"

        + "  var p = arr[i + 1];\n"

        + "  var c = arr[i + 2];\n"

        + "  a[m] = f(values, p, c, m);\n"

        + "}\n"

        + "a['$instOf_' + n] = true;\n"

        + "return a;"

    )

    private static native <T extends Annotation> T create(

        AnnotationImpl a, String n, Object[] methodsAndProps, Object values

    );

    private static Object c(Class<? extends Annotation> a, Object v) {

        return create(a, v);

    }

    public static <T extends Annotation> T create(Class<T> annoClass, Object values) {

        return create(new AnnotationImpl(annoClass), 

            annoClass.getName().replace('.', '_'), 

            findProps(annoClass), values

        );

    }

    public static Annotation[] create(Object anno) {

        String[] names = findNames(anno);

        Annotation[] ret = new Annotation[names.length];

        for (int i = 0; i < names.length; i++) {

            String annoNameSlash = names[i].substring(1, names[i].length() - 1);

            Class<? extends Annotation> annoClass;

            try {

                annoClass = (Class<? extends Annotation>)Class.forName(annoNameSlash.replace('/', '.'));

            } catch (ClassNotFoundException ex) {

                throw new IllegalStateException("Can't find annotation class " + annoNameSlash);

            }

            ret[i] = create(

                new AnnotationImpl(annoClass), 

                annoNameSlash.replace('/', '_'),

                findProps(annoClass),

                findData(anno, names[i])

            );

        }

        return ret;

    }

    @JavaScriptBody(args = "anno", body =

          "var arr = new Array();"

        + "var props = Object.getOwnPropertyNames(anno);\n"

        + "for (var i = 0; i < props.length; i++) {\n"

        + "  var p = props[i];\n"

        + "  arr.push(p);"

        + "}"

        + "return arr;"

    )

    private static native String[] findNames(Object anno);

    @JavaScriptBody(args={ "anno", "p"}, body="return anno[p];")

    private static native Object findData(Object anno, String p);

    private static Object[] findProps(Class<?> annoClass) {

        final Method[] marr = MethodImpl.findMethods(annoClass, Modifier.PUBLIC);

        Object[] arr = new Object[marr.length * 3];

        int pos = 0;

        for (Method m : marr) {

            arr[pos++] = MethodImpl.toSignature(m);

            arr[pos++] = m.getName();

            final Class<?> rt = m.getReturnType();

            if (rt.isArray()) {

                arr[pos++] = rt.getComponentType().isAnnotation() ? rt : null;

            } else {

                arr[pos++] = rt.isAnnotation() ? rt : null;

            }

        }

        return arr;

    }

}