!7

sclass CheckJDKPath > DynPrintLog {
  S cmd;
  bool found, ok;
  S output;
  
  void start {
    setField(cmd := _javaCommand());
    print("Current Java command: " + cmd);
    setField(found := isAbsolutePath(cmd) ? fileExists(cmd) : isOnPATH(cmd));
    print("File found: " + yesno(found));
    set backtick_verbose;
    setField(output := backtick(cmd + " -version"));
    setField(ok := !cic(output, "Error:"));
    print();
    print(ok ? "OK!" : "Not OK.");
  }
}