jaroslav@1639: /**
jaroslav@1639:  * Back 2 Browser Bytecode Translator
jaroslav@1639:  * Copyright (C) 2012 Jaroslav Tulach <jaroslav.tulach@apidesign.org>
jaroslav@1639:  *
jaroslav@1639:  * This program is free software: you can redistribute it and/or modify
jaroslav@1639:  * it under the terms of the GNU General Public License as published by
jaroslav@1639:  * the Free Software Foundation, version 2 of the License.
jaroslav@1639:  *
jaroslav@1639:  * This program is distributed in the hope that it will be useful,
jaroslav@1639:  * but WITHOUT ANY WARRANTY; without even the implied warranty of
jaroslav@1639:  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
jaroslav@1639:  * GNU General Public License for more details.
jaroslav@1639:  *
jaroslav@1639:  * You should have received a copy of the GNU General Public License
jaroslav@1639:  * along with this program. Look for COPYING file in the top folder.
jaroslav@1639:  * If not, see http://opensource.org/licenses/GPL-2.0.
jaroslav@1639:  */
jaroslav@1639: package org.apidesign.bck2brwsr.vm8;
jaroslav@1639: 
jaroslav@1639: import java.io.ByteArrayInputStream;
jaroslav@1639: import java.io.File;
jaroslav@1639: import java.io.FileWriter;
jaroslav@1639: import java.io.IOException;
jaroslav@1639: import java.io.InputStream;
jaroslav@1639: import java.net.URL;
jaroslav@1639: import java.util.ArrayList;
jaroslav@1639: import java.util.Arrays;
jaroslav@1639: import java.util.Enumeration;
jaroslav@1639: import java.util.HashSet;
jaroslav@1639: import java.util.List;
jaroslav@1639: import java.util.Set;
jaroslav@1639: import javax.script.Invocable;
jaroslav@1639: import javax.script.ScriptContext;
jaroslav@1639: import javax.script.ScriptEngine;
jaroslav@1639: import javax.script.ScriptEngineManager;
jaroslav@1639: import javax.script.ScriptException;
jaroslav@1639: import org.apidesign.vm4brwsr.Bck2Brwsr;
jaroslav@1639: import org.apidesign.vm4brwsr.ObfuscationLevel;
jaroslav@1639: import static org.testng.Assert.*;
jaroslav@1639: 
jaroslav@1639: public final class TestVM {
jaroslav@1639:     private final Invocable code;
jaroslav@1639:     private final CharSequence codeSeq;
jaroslav@1639:     private final Object bck2brwsr;
jaroslav@1639:     private BytesLoader resources;
jaroslav@1639:     
jaroslav@1639:     
jaroslav@1639:     private TestVM(Invocable code, CharSequence codeSeq) throws ScriptException, NoSuchMethodException {
jaroslav@1639:         this.code = code;
jaroslav@1639:         this.codeSeq = codeSeq;
jaroslav@1639:         this.bck2brwsr = ((ScriptEngine)code).eval("bck2brwsr(function(n) { return loader.get(n); })");
jaroslav@1639:         ((ScriptEngine)code).getContext().setAttribute("loader", this, ScriptContext.ENGINE_SCOPE);
jaroslav@1639:     }
jaroslav@1639:     
jaroslav@1639:     public void register(BytesLoader res) {
jaroslav@1639:         this.resources = res;
jaroslav@1639:     }
jaroslav@1639:     
jaroslav@1639:     public byte[] get(String res) throws IOException {
jaroslav@1639:         return resources != null ? resources.get(res) : null;
jaroslav@1639:     }
jaroslav@1639: 
jaroslav@1639:     public Object execCode(
jaroslav@1639:         String msg, Class<?> clazz, String method, 
jaroslav@1639:         Object expRes, Object... args
jaroslav@1639:     ) throws Exception {
jaroslav@1639:         Object ret = null;
jaroslav@1639:         try {
jaroslav@1639:             ret = code.invokeMethod(bck2brwsr, "loadClass", clazz.getName());
jaroslav@1639:             List<Object> ma = new ArrayList<>();
jaroslav@1639:             ma.add(method);
jaroslav@1639:             ma.addAll(Arrays.asList(args));
jaroslav@1639:             ret = code.invokeMethod(ret, "invoke", ma.toArray());
jaroslav@1639:         } catch (ScriptException ex) {
jaroslav@1639:             fail("Execution failed in " + dumpJS(codeSeq) + ": " + ex.getMessage(), ex);
jaroslav@1639:         } catch (NoSuchMethodException ex) {
jaroslav@1639:             fail("Cannot find method in " + dumpJS(codeSeq), ex);
jaroslav@1639:         }
jaroslav@1639:         if (ret == null && expRes == null) {
jaroslav@1639:             return null;
jaroslav@1639:         }
jaroslav@1639:         if (expRes != null && expRes.equals(ret)) {
jaroslav@1639:             return null;
jaroslav@1639:         }
jaroslav@1639:         if (expRes instanceof Number) {
jaroslav@1639:             // in case of Long it is necessary convert it to number
jaroslav@1639:             // since the Long is represented by two numbers in JavaScript
jaroslav@1639:             try {
jaroslav@1639:                 final Object toFP = ((ScriptEngine)code).eval("Number.prototype.toFP");
jaroslav@1639:                 if (ret instanceof Long) {
jaroslav@1639:                     ret = code.invokeMethod(toFP, "call", ret);
jaroslav@1639:                 }
jaroslav@1639:                 ret = code.invokeFunction("Number", ret);
jaroslav@1639:             } catch (ScriptException ex) {
jaroslav@1639:                 fail("Conversion to number failed in " + dumpJS(codeSeq) + ": " + ex.getMessage(), ex);
jaroslav@1639:             } catch (NoSuchMethodException ex) {
jaroslav@1639:                 fail("Cannot find global Number(x) function in " + dumpJS(codeSeq) + ": " + ex.getMessage(), ex);
jaroslav@1639:             }
jaroslav@1639:         }
jaroslav@1639:         return ret;
jaroslav@1639:     }
jaroslav@1639:     
jaroslav@1639:     void assertExec(
jaroslav@1639:         String msg, Class clazz, String method, Object expRes, Object... args
jaroslav@1639:     ) throws Exception {
jaroslav@1639:         Object ret = execCode(msg, clazz, method, expRes, args);
jaroslav@1639:         if (ret == null) {
jaroslav@1639:             return;
jaroslav@1639:         }
jaroslav@1639:         if (expRes instanceof Integer && ret instanceof Double) {
jaroslav@1639:             expRes = ((Integer)expRes).doubleValue();
jaroslav@1639:         }
jaroslav@1639:         if (expRes != null && expRes.equals(ret)) {
jaroslav@1639:             return;
jaroslav@1639:         }
jaroslav@1639:         assertEquals(ret, expRes, msg + "was: " + ret + "\n" + dumpJS(codeSeq));
jaroslav@1639:     }    
jaroslav@1639: 
jaroslav@1639:     static TestVM compileClass(String... names) throws ScriptException, IOException {
jaroslav@1639:         return compileClass(null, names);
jaroslav@1639:     }
jaroslav@1639:     
jaroslav@1639:     static TestVM compileClass(StringBuilder sb, String... names) throws ScriptException, IOException {
jaroslav@1639:         return compileClass(sb, null, names);
jaroslav@1639:     }
jaroslav@1639: 
jaroslav@1639:     static TestVM compileClass(StringBuilder sb, ScriptEngine[] eng, String... names) throws ScriptException, IOException {
jaroslav@1639:         if (sb == null) {
jaroslav@1639:             sb = new StringBuilder();
jaroslav@1639:         }
jaroslav@1639:         Bck2Brwsr.generate(sb, new EmulationResources(), names);
jaroslav@1639:         ScriptEngineManager sem = new ScriptEngineManager();
jaroslav@1639:         ScriptEngine js = sem.getEngineByExtension("js");
jaroslav@1639:         if (eng != null) {
jaroslav@1639:             eng[0] = js;
jaroslav@1639:         }
jaroslav@1639:         try {
jaroslav@1639:             Object res = js.eval(sb.toString());
jaroslav@1639:             assertTrue(js instanceof Invocable, "It is invocable object: " + res);
jaroslav@1639:             return new TestVM((Invocable) js, sb);
jaroslav@1639:         } catch (Exception ex) {
jaroslav@1639:             if (sb.length() > 2000) {
jaroslav@1639:                 sb = dumpJS(sb);
jaroslav@1639:             }
jaroslav@1639:             fail("Could not evaluate:" + ex.getClass() + ":" + ex.getMessage() + "\n" + sb, ex);
jaroslav@1639:             return null;
jaroslav@1639:         }
jaroslav@1639:     }
jaroslav@1639:     
jaroslav@1639:     static TestVM compileClassAsExtension(
jaroslav@1639:         StringBuilder sb, ScriptEngine[] eng, 
jaroslav@1639:         String name, final String resourceName, final String resourceContent
jaroslav@1639:     ) throws ScriptException, IOException {
jaroslav@1639:         return compileClassesAsExtension(sb, eng, resourceName, resourceContent, name);
jaroslav@1639:     }
jaroslav@1639:     static TestVM compileClassesAsExtension(
jaroslav@1639:         StringBuilder sb, ScriptEngine[] eng, 
jaroslav@1639:         final String resourceName, final String resourceContent, String... names
jaroslav@1639:     ) throws ScriptException, IOException {
jaroslav@1639:         if (sb == null) {
jaroslav@1639:             sb = new StringBuilder();
jaroslav@1639:         }
jaroslav@1639:         if (eng[0] == null) {
jaroslav@1639:             ScriptEngineManager sem = new ScriptEngineManager();
jaroslav@1639:             ScriptEngine js = sem.getEngineByExtension("js");
jaroslav@1639:             eng[0] = js;
jaroslav@1639:             Bck2Brwsr.generate(sb, new EmulationResources());
jaroslav@1639:         }
jaroslav@1639:         Set<String> exp = new HashSet<String>();
jaroslav@1639:         for (String n : names) {
jaroslav@1639:             int last = n.lastIndexOf('/');
jaroslav@1639:             exp.add(n.substring(0, last + 1));
jaroslav@1639:         }
jaroslav@1639:         Bck2Brwsr b2b = Bck2Brwsr.newCompiler().
jaroslav@1639:             resources(new EmulationResources() {
jaroslav@1639:                 @Override
jaroslav@1639:                 public InputStream get(String name) throws IOException {
jaroslav@1639:                     if (name.equals(resourceName)) {
jaroslav@1639:                         return new ByteArrayInputStream(resourceContent.getBytes("UTF-8"));
jaroslav@1639:                     }
jaroslav@1639:                     return super.get(name);
jaroslav@1639:                 }
jaroslav@1639:             }).
jaroslav@1639:             addClasses(names).
jaroslav@1639:             addResources("org/apidesign/vm4brwsr/obj.js").
jaroslav@1639:             addExported(exp.toArray(new String[0])).
jaroslav@1639:             obfuscation(ObfuscationLevel.FULL).
jaroslav@1639:             library();
jaroslav@1639:         if (resourceName != null) {
jaroslav@1639:             b2b = b2b.addResources(resourceName);
jaroslav@1639:         }
jaroslav@1639:         b2b.generate(sb);
jaroslav@1639:         try {
jaroslav@1639:             defineAtoB(eng[0]);
jaroslav@1639:             Object res = eng[0].eval(sb.toString());
jaroslav@1639:             assertTrue(eng[0] instanceof Invocable, "It is invocable object: " + res);
jaroslav@1639:             return new TestVM((Invocable) eng[0], sb);
jaroslav@1639:         } catch (Exception ex) {
jaroslav@1639:             if (sb.length() > 2000) {
jaroslav@1639:                 sb = dumpJS(sb);
jaroslav@1639:             }
jaroslav@1639:             fail("Could not evaluate:" + ex.getClass() + ":" + ex.getMessage() + "\n" + sb, ex);
jaroslav@1639:             return null;
jaroslav@1639:         }
jaroslav@1639:     }
jaroslav@1639:     
jaroslav@1639:     static TestVM compileClassAndResources(StringBuilder sb, ScriptEngine[] eng, String name, String... resources) throws ScriptException, IOException {
jaroslav@1639:         if (sb == null) {
jaroslav@1639:             sb = new StringBuilder();
jaroslav@1639:         }
jaroslav@1639:         Bck2Brwsr b2b = Bck2Brwsr.newCompiler().
jaroslav@1639:             resources(new EmulationResources()).
jaroslav@1639:             addRootClasses(name).
jaroslav@1639:             addResources(resources);
jaroslav@1639:         b2b.generate(sb);
jaroslav@1639:         ScriptEngineManager sem = new ScriptEngineManager();
jaroslav@1639:         ScriptEngine js = sem.getEngineByExtension("js");
jaroslav@1639:         if (eng != null) {
jaroslav@1639:             eng[0] = js;
jaroslav@1639:         }
jaroslav@1639:         try {
jaroslav@1639:             defineAtoB(js);
jaroslav@1639:             
jaroslav@1639:             Object res = js.eval(sb.toString());
jaroslav@1639:             assertTrue(js instanceof Invocable, "It is invocable object: " + res);
jaroslav@1639:             return new TestVM((Invocable) js, sb);
jaroslav@1639:         } catch (Exception ex) {
jaroslav@1639:             if (sb.length() > 2000) {
jaroslav@1639:                 sb = dumpJS(sb);
jaroslav@1639:             }
jaroslav@1639:             fail("Could not evaluate:" + ex.getClass() + ":" + ex.getMessage() + "\n" + sb, ex);
jaroslav@1639:             return null;
jaroslav@1639:         }
jaroslav@1639:     }
jaroslav@1639: 
jaroslav@1639:     private static void defineAtoB(ScriptEngine js) throws ScriptException {
jaroslav@1639:         js.eval("atob = function(s) { return new String(org.apidesign.vm4brwsr.ResourcesTest.parseBase64Binary(s)); }");
jaroslav@1639:     }
jaroslav@1639: 
jaroslav@1639: //    Object loadClass(String loadClass, String name) throws ScriptException, NoSuchMethodException {
jaroslav@1639: //        return code.invokeMethod(bck2brwsr, "loadClass", Exceptions.class.getName());
jaroslav@1639: //    }
jaroslav@1639:     
jaroslav@1639:     Object invokeMethod(Object obj, String method, Object... params) throws ScriptException, NoSuchMethodException {
jaroslav@1639:         return code.invokeMethod(obj, method, params);
jaroslav@1639:     }
jaroslav@1639: 
jaroslav@1639:     Object invokeFunction(String methodName, Object... args) throws ScriptException, NoSuchMethodException {
jaroslav@1639:         return code.invokeFunction(methodName, args);
jaroslav@1639:     }
jaroslav@1639: 
jaroslav@1639:     static StringBuilder dumpJS(CharSequence sb) throws IOException {
jaroslav@1639:         File f = File.createTempFile("execution", ".js");
jaroslav@1639:         FileWriter w = new FileWriter(f);
jaroslav@1639:         w.append(sb);
jaroslav@1639:         w.close();
jaroslav@1639:         return new StringBuilder(f.getPath());
jaroslav@1639:     }
jaroslav@1639: 
jaroslav@1639:     @Override
jaroslav@1639:     public String toString() {
jaroslav@1639:         try {
jaroslav@1639:             return dumpJS(codeSeq).toString();
jaroslav@1639:         } catch (IOException ex) {
jaroslav@1639:             return ex.toString();
jaroslav@1639:         }
jaroslav@1639:     }
jaroslav@1639: 
jaroslav@1639:     final CharSequence codeSeq() {
jaroslav@1639:         return codeSeq;
jaroslav@1639:     }
jaroslav@1639:     
jaroslav@1639:     private static class EmulationResources implements Bck2Brwsr.Resources {
jaroslav@1639:         @Override
jaroslav@1639:         public InputStream get(String name) throws IOException {
jaroslav@1639:             if ("java/net/URI.class".equals(name)) {
jaroslav@1639:                 // skip
jaroslav@1639:                 return null;
jaroslav@1639:             }
jaroslav@1639:             if ("java/net/URLConnection.class".equals(name)) {
jaroslav@1639:                 // skip
jaroslav@1639:                 return null;
jaroslav@1639:             }
jaroslav@1639:             if ("java/lang/System.class".equals(name)) {
jaroslav@1639:                 // skip
jaroslav@1639:                 return null;
jaroslav@1639:             }
jaroslav@1639:             if ("java/io/PrintStream.class".equals(name)) {
jaroslav@1639:                 // skip
jaroslav@1639:                 return null;
jaroslav@1639:             }
jaroslav@1639:             if ("java/io/PrintWriter.class".equals(name)) {
jaroslav@1639:                 // skip
jaroslav@1639:                 return null;
jaroslav@1639:             }
jaroslav@1639:             Enumeration<URL> en = TestVM.class.getClassLoader().getResources(name);
jaroslav@1639:             URL u = null;
jaroslav@1639:             while (en.hasMoreElements()) {
jaroslav@1639:                 u = en.nextElement();
jaroslav@1639:             }
jaroslav@1639:             if (u == null) {
jaroslav@1639:                 throw new IOException("Can't find " + name);
jaroslav@1639:             }
jaroslav@1639:             if (u.toExternalForm().contains("rt.jar!")) {
jaroslav@1639:                 throw new IOException("No emulation for " + u);
jaroslav@1639:             }
jaroslav@1639:             return u.openStream();
jaroslav@1639:         }
jaroslav@1639:     }
jaroslav@1639: }