!7

set flag DynModule. // use OS transpiler

// We are trying to add classes directly in to the module's class loader

// without any sub-class loaders

cprint {

  transient ClassLoader cl;

  start-thread {

    cl = getClassLoader(module());

    print("My class loader: " + cl);

    print("Class loader type: " + className(cl));

    Map<S, ClassLoader> parents = cast getOpt parentMap(cl);

    print("Parents: " + parents);

    hotwireTest();

  }

  void hotwireTest ctex {

    S name = aGlobalID();

    print("Class name: " + name);

    S mcName = "main_" + name;

    S src = "mainClassName " + mcName + "\n\n"

      + "sclass " + name + " {\n"

      + "  S name() {\n"

      + "    ret " + quote("I am " + name) + ";\n"

      + "  }\n"

      + "}";

    print();

    printWithIndent("SRC> ", src);

    print();

    // taken from veryQuickJava3

    new LS libs;

    src = transpileRaw(src); // transpiled, with lib references

    // taken from veryQuickJava_finish

    src = findTranslators2(src, libs);

    S dehlibs = join(" ", libs);

    File bytecode = javaCompile_overInternalBot(src, dehlibs);

    print(+bytecode);

    print("Files: " + listZip(bytecode));

    //print("Name: " + call(o, "name"));

    /*set(cl, findClass_extension := (IF1<S, Class>) name -> {

      if (equalsOrStartsWithPlusDollar(name, mcName))

      null;

    });*/

    call(cl, "addURL", bytecode.toURI().toURL());

    Class c = Class.forName(mcName);

    print("Resolved: " + c);

    O o = newInstance(Class.forName(mcName + "$" + name));

    print("Instance: " + o);

    print();

    O result = call(o, "name");

    print("Result of function call: " + result);

    assertEquals("I am " + name, result);

  }

}