!7

p-magellan-thread { // Magellan is a pretty face

  tt(); // type writer font

  centerHigherConsole();

  consoleIcon(#1101431);

  hideFrameOnMinimize(consoleFrame());

  installTrayIcon(#1101431, "JavaX Super User VM", r showConsole,

    "Exit JavaX Super User VM", rThread cleanKill);

  // Figure out where we come from

  File originalHomeDir = newFile(first(args));

  // Show who we are

  S user = systemUserName();

  print("User: " + user);

  print("Home: " + userHome());

  if (neq(user, "root")) {

    print("Failure: I'm not root!");

    ret;

  }

  // Copy VM arguments from last home

  if (fileExists(originalHomeDir)) {

    File out = getProgramFile(#1005850, "default-vm-args");

    File in = newFile(javaxDataDirForUserHome(originalHomeDir), #1005850, "default-vm-args");

    if (!out.exists() && in.exists())

      copyFile(in, out);

  }

  // Rename ourselves & be open for business

  renameVM("Super User VM.");

  consoleTitle("JavaX Super User VM [" + user + "]");

  bot("Super User VM.");

  print("\nType Linux commands here to execute them.\n");

  focusConsole();

  sleep();

}

answer {

  if "ready" ret "yes";

  if "backtick *" ret format("OK *", backtick_verbose($1));

  if "backtick uninterruptible *" {

    temp tempSetTL(backtick_uninterruptable, true);

    ret format("OK *", backtick_verbose($1));

  }

  if "program *" { directNohupJavax($1); ret "OK, starting " + $1; }

  try answer "Exit code: " + backtickToConsole_returnExitCode(s);

}