/**

  * Back 2 Browser Bytecode Translator

  * Copyright (C) 2012-2015 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.flow;

 import java.io.ByteArrayInputStream;

 import java.io.File;

 import java.io.FileOutputStream;

 import java.io.IOException;

 import java.io.InputStream;

 import java.io.OutputStreamWriter;

 import java.io.Writer;

 import java.net.URL;

 import java.util.ArrayList;

 import java.util.Arrays;

 import java.util.Enumeration;

 import java.util.HashSet;

 import java.util.List;

 import java.util.Set;

 import javax.script.Invocable;

 import javax.script.ScriptContext;

 import javax.script.ScriptEngine;

 import javax.script.ScriptEngineManager;

 import javax.script.ScriptException;

 import org.apidesign.vm4brwsr.Bck2Brwsr;

 import org.apidesign.vm4brwsr.Bck2Brwsr.Flow;

 import org.apidesign.vm4brwsr.ObfuscationLevel;

 import static org.testng.Assert.*;

 public final class TestVM {

     private final Invocable code;

     private final CharSequence codeSeq;

     private final Object bck2brwsr;

     private TestVM(Invocable code, CharSequence codeSeq) throws ScriptException, NoSuchMethodException {

         this.code = code;

         this.codeSeq = codeSeq;

         this.bck2brwsr = ((ScriptEngine)code).eval("bck2brwsr(function(n) { return loader.get(n); })");

         ((ScriptEngine)code).getContext().setAttribute("loader", this, ScriptContext.ENGINE_SCOPE);

     }

     public Object execCode(

         String msg, Class<?> clazz, String method, 

         Object expRes, Object... args

     ) throws Exception {

         Object ret = null;

         try {

             ret = code.invokeMethod(bck2brwsr, "loadClass", clazz.getName());

             List<Object> ma = new ArrayList<Object>();

             ma.add(method);

             ma.addAll(Arrays.asList(args));

             ret = code.invokeMethod(ret, "invoke", ma.toArray());

         } catch (ScriptException ex) {

             fail("Execution failed in " + dumpJS(codeSeq) + ": " + ex.getMessage(), ex);

         } catch (NoSuchMethodException ex) {

             fail("Cannot find method in " + dumpJS(codeSeq), ex);

         }

         if (ret == null && expRes == null) {

             return null;

         }

         if (expRes != null && expRes.equals(ret)) {

             return null;

         }

         if (expRes instanceof Number) {

             // in case of Long it is necessary convert it to number

             // since the Long is represented by two numbers in JavaScript

             try {

                 final Object toFP = ((ScriptEngine)code).eval("Number.prototype.toFP");

                 if (ret instanceof Long) {

                     ret = code.invokeMethod(toFP, "call", ret);

                 }

                 ret = code.invokeFunction("Number", ret);

             } catch (ScriptException ex) {

                 fail("Conversion to number failed in " + dumpJS(codeSeq) + ": " + ex.getMessage(), ex);

             } catch (NoSuchMethodException ex) {

                 fail("Cannot find global Number(x) function in " + dumpJS(codeSeq) + ": " + ex.getMessage(), ex);

             }

         }

         return ret;

     }

     void assertExec(

         String msg, Class clazz, String method, Object expRes, Object... args

     ) throws Exception {

         Object ret = execCode(msg, clazz, method, expRes, args);

         if (ret == null) {

             return;

         }

         if (expRes instanceof Integer && ret instanceof Double) {

             expRes = ((Integer)expRes).doubleValue();

         }

         if (expRes != null && expRes.equals(ret)) {

             return;

         }

         assertEquals(ret, expRes, msg + "was: " + ret + "\n" + dumpJS(codeSeq));

     }    

     static TestVM compileClass(String... names) throws ScriptException, IOException {

         return compileClass(null, GraalFlowAnalyzer.getDefault(), names);

     }

     static TestVM compileClass(StringBuilder sb, Flow.Analyzer flow, String... names) throws ScriptException, IOException {

         return compileClass(sb, null, flow, names);

     }

     static TestVM compileClass(StringBuilder sb, 

         ScriptEngine[] eng, Flow.Analyzer flow, String... names

     ) throws ScriptException, IOException {

         return compileClass(sb, eng, flow, new EmulationResources(), names);

     }

     static TestVM compileClass(

         StringBuilder sb, 

         ScriptEngine[] eng, 

         Flow.Analyzer flow,

         Bck2Brwsr.Resources resources, 

         String... names

     ) throws ScriptException, IOException {

         if (sb == null) {

             sb = new StringBuilder();

         }

         Bck2Brwsr.newCompiler()

             .resources(resources)

             .addClasses(names)

             .flowAnalyzer(flow)

             .generate(sb);

         ScriptEngineManager sem = new ScriptEngineManager();

         ScriptEngine js = sem.getEngineByExtension("js");

         if (eng != null) {

             eng[0] = js;

         }

         try {

             Object res = js.eval(sb.toString());

             assertTrue(js instanceof Invocable, "It is invocable object: " + res);

             return new TestVM((Invocable) js, sb);

         } catch (Exception ex) {

             if (sb.length() > 2000) {

                 sb = dumpJS(sb);

             }

             fail("Could not evaluate:" + ex.getClass() + ":" + ex.getMessage() + "\n" + sb, ex);

             return null;

         }

     }

     static TestVM compileClassAsExtension(

         StringBuilder sb, ScriptEngine[] eng, 

         String name, final String resourceName, final String resourceContent

     ) throws ScriptException, IOException {

         return compileClassesAsExtension(sb, eng, resourceName, resourceContent, name);

     }

     static TestVM compileClassesAsExtension(

         StringBuilder sb, ScriptEngine[] eng, 

         final String resourceName, final String resourceContent, String... names

     ) throws ScriptException, IOException {

         if (sb == null) {

             sb = new StringBuilder();

         }

         if (eng[0] == null) {

             ScriptEngineManager sem = new ScriptEngineManager();

             ScriptEngine js = sem.getEngineByExtension("js");

             eng[0] = js;

             Bck2Brwsr.newCompiler().resources(new EmulationResources())

                 .obfuscation(ObfuscationLevel.NONE).generate(sb);

         }

         Set<String> exp = new HashSet<String>();

         for (String n : names) {

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

             exp.add(n.substring(0, last + 1));

         }

         Bck2Brwsr b2b = Bck2Brwsr.newCompiler().

             resources(new EmulationResources() {

                 @Override

                 public InputStream get(String name) throws IOException {

                     if (name.equals(resourceName)) {

                         return new ByteArrayInputStream(resourceContent.getBytes("UTF-8"));

                     }

                     return super.get(name);

                 }

             }).

             addClasses(names).

             addResources("org/apidesign/vm4brwsr/obj.js").

             addExported(exp.toArray(new String[0])).

             obfuscation(ObfuscationLevel.FULL).

             library();

         if (resourceName != null) {

             b2b = b2b.addResources(resourceName);

         }

         b2b.generate(sb);

         try {

             defineAtoB(eng[0]);

             Object res = eng[0].eval(sb.toString());

             assertTrue(eng[0] instanceof Invocable, "It is invocable object: " + res);

             return new TestVM((Invocable) eng[0], sb);

         } catch (Exception ex) {

             if (sb.length() > 2000) {

                 sb = dumpJS(sb);

             }

             fail("Could not evaluate:" + ex.getClass() + ":" + ex.getMessage() + "\n" + sb, ex);

             return null;

         }

     }

     static TestVM compileClassAndResources(StringBuilder sb, ScriptEngine[] eng, String name, String... resources) throws ScriptException, IOException {

         if (sb == null) {

             sb = new StringBuilder();

         }

         Bck2Brwsr b2b = Bck2Brwsr.newCompiler().

             resources(new EmulationResources()).

             addRootClasses(name).

             addResources(resources);

         b2b.generate(sb);

         ScriptEngineManager sem = new ScriptEngineManager();

         ScriptEngine js = sem.getEngineByExtension("js");

         if (eng != null) {

             eng[0] = js;

         }

         try {

             defineAtoB(js);

             Object res = js.eval(sb.toString());

             assertTrue(js instanceof Invocable, "It is invocable object: " + res);

             return new TestVM((Invocable) js, sb);

         } catch (Exception ex) {

             if (sb.length() > 2000) {

                 sb = dumpJS(sb);

             }

             fail("Could not evaluate:" + ex.getClass() + ":" + ex.getMessage() + "\n" + sb, ex);

             return null;

         }

     }

     private static void defineAtoB(ScriptEngine js) throws ScriptException {

         js.eval("atob = function(s) { return new String(org.apidesign.vm4brwsr.ResourcesTest.parseBase64Binary(s)); }");

     }

     Object loadClass(String loadClass, String name) throws ScriptException, NoSuchMethodException {

         return code.invokeMethod(bck2brwsr, "loadClass", LoopControl.class.getName());

     }

     Object invokeMethod(Object obj, String method, Object... params) throws ScriptException, NoSuchMethodException {

         return code.invokeMethod(obj, method, params);

     }

     Object invokeFunction(String methodName, Object... args) throws ScriptException, NoSuchMethodException {

         return code.invokeFunction(methodName, args);

     }

     static StringBuilder dumpJS(CharSequence sb) throws IOException {

         File f = File.createTempFile("execution", ".js");

         Writer w = new OutputStreamWriter(new FileOutputStream(f), "UTF-8");

         w.append(sb);

         w.close();

         return new StringBuilder(f.getPath());

     }

     @Override

     public String toString() {

         try {

             return dumpJS(codeSeq).toString();

         } catch (IOException ex) {

             return ex.toString();

         }

     }

     final CharSequence codeSeq() {

         return codeSeq;

     }

     private static class EmulationResources implements Bck2Brwsr.Resources {

         @Override

         public InputStream get(String name) throws IOException {

             if ("java/net/URI.class".equals(name)) {

                 // skip

                 return null;

             }

             if ("java/net/URLConnection.class".equals(name)) {

                 // skip

                 return null;

             }

             if ("java/lang/System.class".equals(name)) {

                 // skip

                 return null;

             }

             if ("java/io/PrintStream.class".equals(name)) {

                 // skip

                 return null;

             }

             if ("java/io/PrintWriter.class".equals(name)) {

                 // skip

                 return null;

             }

             Enumeration<URL> en = LoopControlTest.class.getClassLoader().getResources(name);

             URL u = null;

             while (en.hasMoreElements()) {

                 u = en.nextElement();

             }

             if (u == null) {

                 throw new IOException("Can't find " + name);

             }

             if (u.toExternalForm().contains("rt.jar!")) {

                 throw new IOException("No emulation for " + u);

             }

             return u.openStream();

         }

     }

 }