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