static Class transpileRaw_trans;
static O transpileRaw_silent = true;
static bool transpileRaw_useDiskCache;
static Lock transpileRaw_lock = lock();

static S transpileRaw(S mainJava) {
  ret transpileRaw(mainJava, false);
}

static S transpileRaw(S mainJava, bool fragment) {
  mainJava = dropTranslators(mainJava);
  transpileRaw_copyFromCreator();
  lock transpileRaw_lock;
  loading "Transpiling..." {
    File cacheFile = null;
    if (transpileRaw_useDiskCache) {
      S md5 = md5(mainJava);
      cacheFile = new File(javaxCodeDir(), "Transpilations/" + md5 + ".java");
      try answer loadTextFile(cacheFile);
    }
    
    transpileRaw_translator();
   
    if (fragment)
      setOpt(transpileRaw_trans, 'localStuffOnly := true);
    set(transpileRaw_trans, "mainJava", mainJava);
    print("Running translator " + getOpt(transpileRaw_trans, 'programID));
    callMain(transpileRaw_trans);
    //print("Ran translator " + identityHashCode(transpileRaw_trans));
    S main = cast get(transpileRaw_trans, "mainJava");
    if (transpileRaw_useDiskCache)
      saveTextFile(cacheFile, main);
    ret main;
  }
}

static Class transpileRaw_translator() {
  if (transpileRaw_trans == null) {
    print("Loading translator.");
    //transpileRaw_trans = hotwireSilently(#759);
    transpileRaw_trans = hotwireSharingLibraries(#759);
    //print("Loaded translator: " + identityHashCode(transpileRaw_trans));
  }
  setOpt(transpileRaw_trans, "print_silent", transpileRaw_silent);
  ret transpileRaw_trans;
}

svoid transpileRaw_copyFromCreator {
  lock transpileRaw_lock;
  if (transpileRaw_trans != null) ret;
  Class c = creator();
  if (c == null) ret;
  Class trans = cast getOpt(c, 'transpileRaw_trans);
  Lock lock = cast getOpt(c, 'transpileRaw_lock);
  if (trans != null && lock != null) {
    print("Using creator's transpiler: " + getProgramID(c) + " => " + programID());
    transpileRaw_lock = lock;
    transpileRaw_trans = trans;
  }
}