/**

 * 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.reflect.Array;

import java.lang.reflect.Constructor;

import java.lang.reflect.Method;

import java.util.Enumeration;

import org.apidesign.bck2brwsr.core.JavaScriptBody;

/** Utilities to work on methods.

 *

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

 */

public abstract class MethodImpl {

    public static MethodImpl INSTANCE;

    static {

        try {

            Class.forName(Method.class.getName());

        } catch (ClassNotFoundException ex) {

            throw new IllegalStateException(ex);

        }

    }

    protected abstract Method create(Class<?> declaringClass, String name, Object data, String sig);

    protected abstract Constructor create(Class<?> declaringClass, Object data, String sig);

    //

    // bck2brwsr implementation

    //

    @JavaScriptBody(args = {"clazz", "prefix", "cnstr"},

        body = ""

        + "var c = clazz.cnstr;\n"

        + "if (!cnstr) c = c.prototype;"

        + "var arr = new Array();\n"

        + "for (m in c) {\n"

        + "  if (m.indexOf(prefix) === 0) {\n"

        + "     if (!c[m].cls) continue;\n"

        + "     arr.push(m);\n"

        + "     arr.push(c[m]);\n"

        + "     arr.push(c[m].cls.$class);\n"

        + "  }"

        + "}\n"

        + "return arr;")

    private static native Object[] findMethodData(

        Class<?> clazz, String prefix, boolean cnstr);

    public static Constructor findConstructor(

        Class<?> clazz, Class<?>... parameterTypes) {

        Object[] data = findMethodData(clazz, "cons__", true);

        BIG: for (int i = 0; i < data.length; i += 3) {

            String sig = ((String) data[i]).substring(6);

            Class<?> cls = (Class<?>) data[i + 2];

            Constructor tmp = INSTANCE.create(cls, data[i + 1], sig);

            Class<?>[] tmpParms = tmp.getParameterTypes();

            if (parameterTypes.length != tmpParms.length) {

                continue;

            }

            for (int j = 0; j < tmpParms.length; j++) {

                if (!parameterTypes[j].equals(tmpParms[j])) {

                    continue BIG;

                }

            }

            return tmp;

        }

        return null;

    }

    public static Constructor[] findConstructors(Class<?> clazz, int mask) {

        Object[] namesAndData = findMethodData(clazz, "", true);

        int cnt = 0;

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

            String sig = (String) namesAndData[i];

            Object data = namesAndData[i + 1];

            if (!sig.startsWith("cons__")) {

                continue;

            }

            sig = sig.substring(6);

            Class<?> cls = (Class<?>) namesAndData[i + 2];

            final Constructor m = INSTANCE.create(cls, data, sig);

            if ((m.getModifiers() & mask) == 0) {

                continue;

            }

            namesAndData[cnt++] = m;

        }

        Constructor[] arr = new Constructor[cnt];

        for (int i = 0; i < cnt; i++) {

            arr[i] = (Constructor) namesAndData[i];

        }

        return arr;

    }

    public static Method findMethod(

        Class<?> clazz, String name, Class<?>... parameterTypes) {

        Object[] data = findMethodData(clazz, name + "__", false);

        BIG: for (int i = 0; i < data.length; i += 3) {

            String sig = ((String) data[i]).substring(name.length() + 2);

            Class<?> cls = (Class<?>) data[i + 2];

            Method tmp = INSTANCE.create(cls, name, data[i + 1], sig);

            Class<?>[] tmpParms = tmp.getParameterTypes();

            if (parameterTypes.length != tmpParms.length) {

                continue;

            }

            for (int j = 0; j < tmpParms.length; j++) {

                if (!parameterTypes[j].equals(tmpParms[j])) {

                    continue BIG;

                }

            }

            return tmp;

        }

        return null;

    }

    public static Method[] findMethods(Class<?> clazz, int mask) {

        Object[] namesAndData = findMethodData(clazz, "", false);

        int cnt = 0;

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

            String sig = (String) namesAndData[i];

            Object data = namesAndData[i + 1];

            int middle = sig.indexOf("__");

            if (middle == -1) {

                continue;

            }

            String name = sig.substring(0, middle);

            sig = sig.substring(middle + 2);

            Class<?> cls = (Class<?>) namesAndData[i + 2];

            final Method m = INSTANCE.create(cls, name, data, sig);

            if ((m.getModifiers() & mask) == 0) {

                continue;

            }

            namesAndData[cnt++] = m;

        }

        Method[] arr = new Method[cnt];

        for (int i = 0; i < cnt; i++) {

            arr[i] = (Method) namesAndData[i];

        }

        return arr;

    }

    static String toSignature(Method m) {

        StringBuilder sb = new StringBuilder();

        sb.append(m.getName()).append("__");

        appendType(sb, m.getReturnType());

        Class<?>[] arr = m.getParameterTypes();

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

            appendType(sb, arr[i]);

        }

        return sb.toString();

    }

    private static void appendType(StringBuilder sb, Class<?> type) {

        if (type == Integer.TYPE) {

            sb.append('I');

            return;

        }

        if (type == Long.TYPE) {

            sb.append('J');

            return;

        }

        if (type == Double.TYPE) {

            sb.append('D');

            return;

        }

        if (type == Float.TYPE) {

            sb.append('F');

            return;

        }

        if (type == Byte.TYPE) {

            sb.append('B');

            return;

        }

        if (type == Boolean.TYPE) {

            sb.append('Z');

            return;

        }

        if (type == Short.TYPE) {

            sb.append('S');

            return;

        }

        if (type == Void.TYPE) {

            sb.append('V');

            return;

        }

        if (type == Character.TYPE) {

            sb.append('C');

            return;

        }

        if (type.isArray()) {

            sb.append("_3");

            appendType(sb, type.getComponentType());

            return;

        }

        sb.append('L').append(type.getName().replace('.', '_'));

        sb.append("_2");

    }

    public static int signatureElements(String sig) {

        Enumeration<Class> en = signatureParser(sig);

        int cnt = 0;

        while (en.hasMoreElements()) {

            en.nextElement();

            cnt++;

        }

        return cnt;

    }

    public static Enumeration<Class> signatureParser(final String sig) {

        class E implements Enumeration<Class> {

            int pos;

            public boolean hasMoreElements() {

                return pos < sig.length();

            }

            public Class nextElement() {

                switch (sig.charAt(pos++)) {

                    case 'I':

                        return Integer.TYPE;

                    case 'J':

                        return Long.TYPE;

                    case 'D':

                        return Double.TYPE;

                    case 'F':

                        return Float.TYPE;

                    case 'B':

                        return Byte.TYPE;

                    case 'Z':

                        return Boolean.TYPE;

                    case 'S':

                        return Short.TYPE;

                    case 'V':

                        return Void.TYPE;

                    case 'C':

                        return Character.TYPE;

                    case 'L':

                        try {

                            int up = sig.indexOf("_2", pos);

                            String type = sig.substring(pos, up);

                            pos = up + 2;

                            return Class.forName(type.replace('_', '.'));

                        } catch (ClassNotFoundException ex) {

                            throw new IllegalStateException(ex);

                        }

                    case '_': {

                        char nch = sig.charAt(pos++);

                        assert nch == '3' : "Can't find '3' at " + sig.substring(pos - 1);

                        final Class compType = nextElement();

                        return Array.newInstance(compType, 0).getClass();

                    }

                }

                throw new UnsupportedOperationException(sig + " at " + pos);

            }

        }

        return new E();

    }

}