!7

m {
  // md5 to class dir
  // class dirs are in {user.home}/.javax, so they might get deleted
  // after a day. we check for dir existence when using the cache.
  static new Map<S, File> cache;
  
  p {
    readLocally("cache");
    makeAndroid("Compiler bot!");
  }
  
  static synchronized S answer(S s) {
    //print("Compile bot processing: " + shorten(s, 200));
    //print(shorten(structure(parse3(s)), 200));
    //print(structure(parse3("Please compile this Java text: *")));

    new Matches m;
    if (match3("Please compile this JavaX snippet: *", s, m)) {
      S snippetID = unquote(m.m[0]);
      S transpiledSrc = getServerTranspiled(snippetID);
      int i = transpiledSrc.indexOf('\n');
      String libs = transpiledSrc.substring(0, Math.max(0, i));
      transpiledSrc = transpiledSrc.substring(i+1);
      return compile(transpiledSrc);
    }
    
    if (match3("Please compile this Java text: *", s, m)) {
      String src = unquote(m.m[0]);
      return compile(src);
    }

    if (match3("Please compile this Java text: * for java version *", s, m)) {
      String src = unquote(m.m[0]);
      String target = unquote(m.m[1]);
      return compile(src, target);
    }

    return null;
  }
  
  static synchronized S compile(S src) {
    return compile(src, null);
  }
  
  static synchronized S compile(S src, S javaTarget) {
    S md5 = md5(src);
    File classesDir = cache.get(md5);
    if (classesDir == null || !classesDir.isDirectory()) {
      Class j = getJavaX();
      setOpt(j, "javaTarget", javaTarget);
      //setOpt(j, "verbose", true);
      File srcDir = cast call(j, "TempDirMaker_make");
      L<S> tok = javaTok(src);
      
      S className = null;
      if (tok.contains("package"))
        splitJavaFiles(tok, srcDir);
      else {
        className = getNameOfPublicClass(tok);
        if (className == null) className = getNameOfAnyClass(tok);
        S fileName = className + ".java";
        saveTextFile(new File(srcDir, fileName), src);
      }
      classesDir = (File) call(j, "TempDirMaker_make");
      new L<File> libraries;
      try {
        print("Compiler said: " + call(j, "compileJava", srcDir, libraries, classesDir));
        
        // sanity test
        if (!tok.contains("package"))
          if (!new File(classesDir, className + ".class").exists())
            fail("No class generated (" + className + ")");
      } catch (Exception e) {
        e.printStackTrace();
        return "Compile Error. " + getOpt(j, "javaCompilerOutput");
      }
      
      cache.put(md5, classesDir); // cache on success only
      saveLocally("cache");
    } else
      print("Getting classes from cache.");
    
    return "ok, " + quote(classesDir.getAbsolutePath());
  }
  
  static S getNameOfPublicClass(L<S> tok) {
    for (L<S> c : allClasses(tok))
      if (modifiersContain(c, "public"))
        return getClassDeclarationName(c);
    return null;
  }
  
  static L<S> modifiers = litlist("static", "abstract", "public", "private", "protected", "final", "native", "volatile", "synchronized", "transient");

  static boolean modifiersContain(L<S> tok, S modifier) {
    for (int i = 1; i < tok.size() && modifiers.contains(tok.get(i)); i += 2)
      if (tok.get(i).equals(modifier))
        return true;
    return false;
  }
}