/**

 * HTML via Java(tm) Language Bindings

 * Copyright (C) 2013 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. apidesign.org

 * designates this particular file as subject to the

 * "Classpath" exception as provided by apidesign.org

 * in the License file that accompanied this code.

 *

 * 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://wiki.apidesign.org/wiki/GPLwithClassPathException

 */

package org.apidesign.html.boot.impl;

import org.apidesign.html.boot.spi.Fn;

import java.io.IOException;

import java.io.InputStream;

import java.io.Reader;

import java.net.URL;

import java.util.ArrayList;

import java.util.Enumeration;

import java.util.List;

import org.objectweb.asm.AnnotationVisitor;

import org.objectweb.asm.ClassReader;

import org.objectweb.asm.ClassVisitor;

import org.objectweb.asm.ClassWriter;

import org.objectweb.asm.Label;

import org.objectweb.asm.MethodVisitor;

import org.objectweb.asm.Opcodes;

import org.objectweb.asm.Type;

import org.objectweb.asm.signature.SignatureReader;

import org.objectweb.asm.signature.SignatureVisitor;

import org.objectweb.asm.signature.SignatureWriter;

/** 

 *

 * @author Jaroslav Tulach <jaroslav.tulach@apidesign.org>

 */

abstract class JsClassLoader extends ClassLoader {

    JsClassLoader(ClassLoader parent) {

        super(parent);

        setDefaultAssertionStatus(JsClassLoader.class.desiredAssertionStatus());

    }

    @Override

    protected abstract URL findResource(String name);

    @Override

    protected abstract Enumeration<URL> findResources(String name);

    @Override

    protected Class<?> findClass(String name) throws ClassNotFoundException {

        if (name.startsWith("javafx")) {

            return Class.forName(name);

        }

        if (name.startsWith("netscape")) {

            return Class.forName(name);

        }

        if (name.startsWith("com.sun")) {

            return Class.forName(name);

        }

        if (name.equals(JsClassLoader.class.getName())) {

            return JsClassLoader.class;

        }

        if (name.equals(Fn.class.getName())) {

            return Fn.class;

        }

        if (name.equals(Fn.Presenter.class.getName())) {

            return Fn.Presenter.class;

        }

        if (name.equals(FnUtils.class.getName())) {

            return FnUtils.class;

        }

        if (

            name.equals("org.apidesign.html.boot.spi.Fn") ||

            name.equals("org.apidesign.html.boot.impl.FnUtils") ||

            name.equals("org.apidesign.html.boot.impl.FnContext")

        ) {

            return Class.forName(name);

        }

        URL u = findResource(name.replace('.', '/') + ".class");

        if (u != null) {

            InputStream is = null;

            try {

                is = u.openStream();

                byte[] arr = new byte[is.available()];

                int len = 0;

                while (len < arr.length) {

                    int read = is.read(arr, len, arr.length - len);

                    if (read == -1) {

                        throw new IOException("Can't read " + u);

                    }

                    len += read;

                }

                is.close();

                is = null;

                ClassReader cr = new ClassReader(arr) {

                    // to allow us to compile with -profile compact1 on 

                    // JDK8 while processing the class as JDK7, the highest

                    // class format asm 4.1 understands to

                    @Override

                    public short readShort(int index) {

                        short s = super.readShort(index);

                        if (index == 6 && s > Opcodes.V1_7) {

                            return Opcodes.V1_7;

                        }

                        return s;

                    }

                };

                FindInClass tst = new FindInClass(null);

                cr.accept(tst, 0);

                if (tst.found > 0) {

                    ClassWriter w = new ClassWriterEx(cr, ClassWriter.COMPUTE_MAXS | ClassWriter.COMPUTE_FRAMES);

                    FindInClass fic = new FindInClass(w);

                    cr.accept(fic, 0);

                    arr = w.toByteArray();

                }

                if (arr != null) {

                    return defineClass(name, arr, 0, arr.length);

                }

            } catch (IOException ex) {

                throw new ClassNotFoundException("Can't load " + name, ex);

            } finally {

                try {

                    if (is != null) is.close();

                } catch (IOException ex) {

                    throw new ClassNotFoundException(null, ex);

                }

            }

        }

        return super.findClass(name);

    }

    protected abstract Fn defineFn(String code, String... names);

    protected abstract void loadScript(Reader code) throws Exception;

    private final class FindInClass extends ClassVisitor {

        private String name;

        private int found;

        public FindInClass(ClassVisitor cv) {

            super(Opcodes.ASM4, cv);

        }

        @Override

        public void visit(int version, int access, String name, String signature, String superName, String[] interfaces) {

            this.name = name;

            super.visit(version, access, name, signature, superName, interfaces);

        }

        @Override

        public AnnotationVisitor visitAnnotation(String desc, boolean visible) {

            if ("Lnet/java/html/js/JavaScriptResource;".equals(desc)) {

                return new LoadResource();

            }

            return super.visitAnnotation(desc, visible);

        }

        @Override

        public MethodVisitor visitMethod(int access, String name, String desc, String signature, String[] exceptions) {

            return new FindInMethod(access, name, desc,

                super.visitMethod(access & (~Opcodes.ACC_NATIVE), name, desc, signature, exceptions)

            );

        }

        private final class FindInMethod extends MethodVisitor {

            private final String name;

            private final String desc;

            private final int access;

            private List<String> args;

            private String body;

            private boolean bodyGenerated;

            public FindInMethod(int access, String name, String desc, MethodVisitor mv) {

                super(Opcodes.ASM4, mv);

                this.access = access;

                this.name = name;

                this.desc = desc;

            }

            @Override

            public AnnotationVisitor visitAnnotation(String desc, boolean visible) {

                if (

                    "Lnet/java/html/js/JavaScriptBody;".equals(desc) // NOI18N

                    || "Lorg/apidesign/bck2brwsr/core/JavaScriptBody;".equals(desc) // NOI18N

                ) {

                    found++;

                    return new FindInAnno();

                }

                return super.visitAnnotation(desc, visible);

            }

            private void generateJSBody(List<String> args, String body) {

                this.args = args;

                this.body = body;

            }

            @Override

            public void visitCode() {

                if (body == null) {

                    return;

                } 

                generateBody();

            }

            private boolean generateBody() {

                if (bodyGenerated) {

                    return false;

                }

                bodyGenerated = true;

                super.visitFieldInsn(

                    Opcodes.GETSTATIC, FindInClass.this.name, 

                    "$$fn$$" + name + "_" + found, 

                    "Lorg/apidesign/html/boot/spi/Fn;"

                );

                super.visitInsn(Opcodes.DUP);

                super.visitMethodInsn(

                    Opcodes.INVOKESTATIC, 

                    "org/apidesign/html/boot/impl/FnUtils", "isValid", 

                    "(Lorg/apidesign/html/boot/spi/Fn;)Z"

                );

                Label ifNotNull = new Label();

                super.visitJumpInsn(Opcodes.IFNE, ifNotNull);

                // init Fn

                super.visitInsn(Opcodes.POP);

                super.visitLdcInsn(Type.getObjectType(FindInClass.this.name));

                super.visitLdcInsn(body);

                super.visitIntInsn(Opcodes.SIPUSH, args.size());

                super.visitTypeInsn(Opcodes.ANEWARRAY, "java/lang/String");

                boolean needsVM = false;

                for (int i = 0; i < args.size(); i++) {

                    assert !needsVM;

                    String argName = args.get(i);

                    needsVM = "vm".equals(argName);

                    super.visitInsn(Opcodes.DUP);

                    super.visitIntInsn(Opcodes.BIPUSH, i);

                    super.visitLdcInsn(argName);

                    super.visitInsn(Opcodes.AASTORE);

                }

                super.visitMethodInsn(Opcodes.INVOKESTATIC, 

                    "org/apidesign/html/boot/impl/FnUtils", "define", 

                    "(Ljava/lang/Class;Ljava/lang/String;[Ljava/lang/String;)Lorg/apidesign/html/boot/spi/Fn;"

                );

                super.visitInsn(Opcodes.DUP);

                super.visitFieldInsn(

                    Opcodes.PUTSTATIC, FindInClass.this.name, 

                    "$$fn$$" + name + "_" + found, 

                    "Lorg/apidesign/html/boot/spi/Fn;"

                );

                // end of Fn init

                super.visitLabel(ifNotNull);

                final int offset;

                if ((access & Opcodes.ACC_STATIC) == 0) {

                    offset = 1;

                    super.visitIntInsn(Opcodes.ALOAD, 0);

                } else {

                    offset = 0;

                    super.visitInsn(Opcodes.ACONST_NULL);

                }

                super.visitIntInsn(Opcodes.SIPUSH, args.size());

                super.visitTypeInsn(Opcodes.ANEWARRAY, "java/lang/Object");

                class SV extends SignatureVisitor {

                    private boolean nowReturn;

                    private Type returnType;

                    private int index;

                    private int loadIndex = offset;

                    public SV() {

                        super(Opcodes.ASM4);

                    }

                    @Override

                    public void visitBaseType(char descriptor) {

                        final Type t = Type.getType("" + descriptor);

                        if (nowReturn) {

                            returnType = t;

                            return;

                        }

                        FindInMethod.super.visitInsn(Opcodes.DUP);

                        FindInMethod.super.visitIntInsn(Opcodes.SIPUSH, index++);

                        FindInMethod.super.visitVarInsn(t.getOpcode(Opcodes.ILOAD), loadIndex++);

                        String factory;

                        switch (descriptor) {

                        case 'I': factory = "java/lang/Integer"; break;

                        case 'J': factory = "java/lang/Long"; loadIndex++; break;

                        case 'S': factory = "java/lang/Short"; break;

                        case 'F': factory = "java/lang/Float"; break;

                        case 'D': factory = "java/lang/Double"; loadIndex++; break;

                        case 'Z': factory = "java/lang/Boolean"; break;

                        case 'C': factory = "java/lang/Character"; break;

                        case 'B': factory = "java/lang/Byte"; break;

                        default: throw new IllegalStateException(t.toString());

                        }

                        FindInMethod.super.visitMethodInsn(Opcodes.INVOKESTATIC,

                            factory, "valueOf", "(" + descriptor + ")L" + factory + ";"

                        );

                        FindInMethod.super.visitInsn(Opcodes.AASTORE);

                    }

                    @Override

                    public SignatureVisitor visitArrayType() {

                        if (nowReturn) {

                            throw new IllegalStateException("Not supported yet");

                        }

                        loadObject();

                        return new SignatureWriter();

                    }

                    @Override

                    public void visitClassType(String name) {

                        if (nowReturn) {

                            returnType = Type.getObjectType(name);

                            return;

                        }

                        loadObject();

                    }

                    @Override

                    public SignatureVisitor visitReturnType() {

                        nowReturn = true;

                        return this;

                    }

                    private void loadObject() {

                        FindInMethod.super.visitInsn(Opcodes.DUP);

                        FindInMethod.super.visitIntInsn(Opcodes.SIPUSH, index++);

                        FindInMethod.super.visitVarInsn(Opcodes.ALOAD, loadIndex++);

                        FindInMethod.super.visitInsn(Opcodes.AASTORE);

                    }

                }

                SV sv = new SV();

                SignatureReader sr = new SignatureReader(desc);

                sr.accept(sv);

                if (needsVM) {

                    FindInMethod.super.visitInsn(Opcodes.DUP);

                    FindInMethod.super.visitIntInsn(Opcodes.SIPUSH, sv.index);

                    int lastSlash = FindInClass.this.name.lastIndexOf('/');

                    String jsCallbacks = FindInClass.this.name.substring(0, lastSlash + 1) + "$JsCallbacks$";

                    FindInMethod.super.visitFieldInsn(Opcodes.GETSTATIC, jsCallbacks, "VM", "L" + jsCallbacks + ";");

                    FindInMethod.super.visitMethodInsn(Opcodes.INVOKEVIRTUAL, jsCallbacks, "current", "()L" + jsCallbacks + ";");

                    FindInMethod.super.visitInsn(Opcodes.AASTORE);

                }

                super.visitMethodInsn(Opcodes.INVOKEVIRTUAL, 

                    "org/apidesign/html/boot/spi/Fn", "invoke", "(Ljava/lang/Object;[Ljava/lang/Object;)Ljava/lang/Object;"

                );

                switch (sv.returnType.getSort()) {

                case Type.VOID: 

                    super.visitInsn(Opcodes.RETURN);

                    break;

                case Type.ARRAY:

                case Type.OBJECT:

                    super.visitTypeInsn(Opcodes.CHECKCAST, sv.returnType.getInternalName());

                    super.visitInsn(Opcodes.ARETURN);

                    break;

                case Type.BOOLEAN:

                    super.visitTypeInsn(Opcodes.CHECKCAST, "java/lang/Boolean");

                    super.visitMethodInsn(Opcodes.INVOKEVIRTUAL, 

                        "java/lang/Boolean", "booleanValue", "()Z"

                    );

                    super.visitInsn(Opcodes.IRETURN);

                    break;

                default:

                    super.visitTypeInsn(Opcodes.CHECKCAST, "java/lang/Number");

                    super.visitMethodInsn(Opcodes.INVOKEVIRTUAL, 

                        "java/lang/Number", sv.returnType.getClassName() + "Value", "()" + sv.returnType.getDescriptor()

                    );

                    super.visitInsn(sv.returnType.getOpcode(Opcodes.IRETURN));

                }

                return true;

            }

            @Override

            public void visitEnd() {

                super.visitEnd();

                if (body != null) {

                    if (generateBody()) {

                        // native method

                        super.visitMaxs(1, 0);

                    }

                    FindInClass.this.visitField(

                        Opcodes.ACC_PRIVATE | Opcodes.ACC_STATIC, 

                        "$$fn$$" + name + "_" + found, 

                        "Lorg/apidesign/html/boot/spi/Fn;", 

                        null, null

                    );

                }

            }

            private final class FindInAnno extends AnnotationVisitor {

                private List<String> args = new ArrayList<String>();

                private String body;

                private boolean javacall = false;

                public FindInAnno() {

                    super(Opcodes.ASM4);

                }

                @Override

                public void visit(String name, Object value) {

                    if (name == null) {

                        args.add((String) value);

                        return;

                    }

                    if (name.equals("javacall")) { // NOI18N

                        javacall = (Boolean)value;

                        return;

                    }

                    assert name.equals("body");

                    body = (String) value;

                }

                @Override

                public AnnotationVisitor visitArray(String name) {

                    return this;

                }

                @Override

                public void visitEnd() {

                    if (body != null) {

                        if (javacall) {

                            body = FnUtils.callback(body);

                            args.add("vm");

                        }

                        generateJSBody(args, body);

                    }

                }

            }

        }

        private final class LoadResource extends AnnotationVisitor {

            public LoadResource() {

                super(Opcodes.ASM4);

            }

            @Override

            public void visit(String attrName, Object value)  {

                String relPath = (String) value;

                if (relPath.startsWith("/")) {

                    FnUtils.loadScript(JsClassLoader.this, relPath);

                } else {

                    int last = name.lastIndexOf('/');

                    String fullPath = name.substring(0, last + 1) + relPath;

                    FnUtils.loadScript(JsClassLoader.this, fullPath);

                }

            }

        }

    }

    private class ClassWriterEx extends ClassWriter {

        public ClassWriterEx(ClassReader classReader, int flags) {

            super(classReader, flags);

        }

        @Override

        protected String getCommonSuperClass(final String type1, final String type2) {

            Class<?> c, d;

            ClassLoader classLoader = JsClassLoader.this;

            try {

                c = Class.forName(type1.replace('/', '.'), false, classLoader);

                d = Class.forName(type2.replace('/', '.'), false, classLoader);

            } catch (Exception e) {

                throw new RuntimeException(e.toString());

            }

            if (c.isAssignableFrom(d)) {

                return type1;

            }

            if (d.isAssignableFrom(c)) {

                return type2;

            }

            if (c.isInterface() || d.isInterface()) {

                return "java/lang/Object";

            } else {

                do {

                    c = c.getSuperclass();

                } while (!c.isAssignableFrom(d));

                return c.getName().replace('.', '/');

            }

        }        

    }

}