sclass RunTranspiler {

  settable S transpilerID = #759;

  O transpiler;

  settable S sourceInput;

  S sourceOutput;

  settable S mainSnippetID;

  settable int coresToUse = numberOfCores();

  // transpilation options

  bool asFragment, asInclude;

  event preparingTranspiler(O transpiler);

  void loadTranspiler() {

    transpiler = hotwire(transpilerID);

  }

  void prepareTranspiler {

    setOpt(transpiler, localStuffOnly := asFragment);

    setOpt(transpiler, +asInclude);

    sourceInput = dropTranslators(sourceInput);

    set(transpiler, mainJava := sourceInput);

    set(transpiler, +print_byThread());

    setOpt(transpiler, +mainSnippetID);

    setOpt(transpiler, numberOfCores_value := coresToUse);

    preparingTranspiler(transpiler);

  }

  void runTranspiler {

    callMain(transpiler);

    sourceOutput = (S) _get(transpiler, "mainJava");

  }

  S get(S sourceInput) {

    if (transpiler == null) loadTranspiler();

    sourceInput(sourceInput);

    prepareTranspiler();

    runTranspiler();

    ret sourceOutput;

  }

}