sclass CompileJavaToJar {

  S src;

  S dehlibs;

  File destJar;

  S progIDForRename;

  S progID;

  S sourceLevel = "11";

  IF1<S, File> compileSrcLib;

  // before you use this, add a RAM disk cleaner

  bool useRAMDisk;

  L<File> localLibraries;

  S mainClassName;

  File mainJava;

  new JavaCompilation jc;

  S compilerOutput;

  swappable void addMoreFiles(File classesDir) {}

  run {

    print("Compiling " + nChars(src));

    S dummyClass = "main";

    if (progIDForRename != null) {

      dummyClass = dummyMainClassName(progIDForRename);

      src += "\nclass " + dummyClass + "{}";

    }

    S md5 = md5(src);

    File jar = destJar;

    File srcDir = tempDir();

    S fileName = dummyClass + ".java";

    // derive name of main Java file from source

    LS tok = javaTok(src);

    S packageName = tok_packageName(tok);

    S cname = tok_firstClassName(tok);

    if (nempty(packageName)) {

      fileName = packageName.replace(".", "/") + "/" + cname + ".java";

      mainClassName = packageName + "." + cname;

    } else

      mainClassName = cname;

    mainJava = new File(srcDir, fileName);

    print("CompileJavaToJar main java: " + mainJava.getAbsolutePath());

    print("CompileJavaToJar mainClassName: " + mainClassName);

    saveTextFile(mainJava, src);

    File classesDir = useRAMDisk ? tempDirPossiblyInRAMDisk() : tempDir();

    saveTextFile(newFile(classesDir, fileName), src);

    //print("Compiling to " + f2s(classesDir));

    try {

      L<File> libraries = cloneList(localLibraries);

      Matcher m = Pattern.compile("\\d+").matcher(dehlibs);

      while (m.find()) {

        S libID = m.group();

        //print("libID=" + quote(libID));

        assertTrue(isSnippetID(libID));

        print("Adding library " + libID);

        temp tempSetTL(loadLibraryOrSrcLib_compiler, compileSrcLib);

        libraries.add(loadLibraryOrSrcLib(libID));

      }

      libraries.add(pathToJavaxJar());

      try {

        jc.srcDir = srcDir;

        jc.libraries = libraries;

        jc.classesDir = classesDir;

        jc.sourceLevel = sourceLevel;

        jc.run();

        compilerOutput = jc.compilerOutput;

      } catch (Throwable e) {

        compilerOutput = jc.compilerOutput;

        //fail("Compile Error. " + cleanJavaCompilerOutput(compilerOutput) + " " + e);

        compilerOutput = indentx("> ", cleanJavaCompilerOutput(compilerOutput));

        if (!swic(e.getMessage(), "Java compiler returned errors."))

          compilerOutput = appendWithNewLine(compilerOutput, str(e));

        //printStackTrace(e);

        fail(compilerOutput, e);

      }

      compilerOutput = cleanJavaCompilerOutput("Annotation processing got disabled, since it requires a 1.6 compliant JVM");

      if (nempty(compilerOutput)) {

        print("Compiler said: " + compilerOutput);

        //fail("Compile Error. " + compilerOutput);

      }

      // sanity test

      if (!anyFileWithExtensionInDir(classesDir, ".class")) {

        //printWithIndent("SRC> ", src);

        fail("No classes generated (was compiling " + nChars(src) + ")");

      }

      // add sources to .jar

      //saveTextFile(new File(classesDir, "main.java"), src);

      // add information about libraries to jar

      if (nempty(dehlibs))

        saveTextFile(new File(classesDir, "libraries"), dehlibs);

      // add prog id to jar

      saveTextFile(new File(classesDir, "progID"), progID);

      // save pointer to main Java source    

      //saveTextFile(new File(classesDir, "main-src"), fileName);

      addMoreFiles(classesDir);

      //print("Zipping: " + classesDir.getAbsolutePath() + " to " + jar.getAbsolutePath());

      dir2zip_recurse_verbose = false;

      long time = sysNow();

      int n = dir2zip_recurse(classesDir, jar); // cache on success only

      done2_always(time, nFiles(n) + " zipped");

    } finally {

      if (isInRAMDisk(classesDir)) deleteDirectory(classesDir);

    }

  }

}