!7

p-magellan-thread { // Magellan is a pretty face
  tt(); // type writer font
  centerHigherConsole();
  
  // 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 + "]");
  quietBot();
  print("\nType Linux commands here to execute them.\n");
  focusConsole();
  sleep();
}

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