如何创建一个 X 窗口，该窗口不会通过终端命令以外的任何方式关闭

Question 1

如果xterm可以选择切换到，您可以使用下面的技巧。但有一些注意事项。一旦解决了其中的大多数问题，解决方案就会变得相当复杂，请参阅最后的最终脚本。

xterm -e 'trap "" HUP; your-application'

在收到窗口管理器的关闭指令后，xterm将向您的应用程序的进程组发送 SIGHUP，并且仅在进程返回时自行退出。

假设您的应用程序不会重置 SIGHUP 的处理程序，并且可能会对您的应用程序的子应用程序产生不必要的副作用。

如果您的应用程序是tmux.

要解决这些问题，您可以这样做：

xterm -e sh -c 'bash -mc tmux <&1 & trap "" HUP; wait'

这样，tmux将在不同的进程组中启动，因此只有sh会收到 SIGHUP （并忽略它）。

现在，这并不适用于tmux重置这些信号的处理程序，但在一般情况下，根据您的实现sh，SIGINT、SIGQUIT 信号通常都会被您的应用程序忽略，因为它bash是作为来自非交互式sh.这意味着您无法使用Ctrl+C或中断您的应用程序Ctrl+\。

这是 POSIX 的要求。有些 shellmksh不支持它（至少当前版本不支持），或者仅部分dash支持 SIGINT 但不支持 SIGQUIT。因此，如果mksh可用，您可以这样做：

xterm -e mksh -c 'bash -mc your-application <&1 & trap "" HUP; wait'

mksh（尽管如果他们决定修复该不符合项，这可能在未来版本中不起作用）。

或者，如果您不能保证mksh或bash将可用，或者不想依赖将来可能改变的行为，您可以手动完成他们的工作，perl例如编写一个unclosable-xterm包装脚本，如下所示：

#! /bin/sh -
[ "$#" -gt 0 ] || set -- "${SHELL:-/bin/sh}"
exec xterm -e perl -MPOSIX -e '
  $pid = fork;
  if ($pid == 0) {
    setpgrp or die "setpgrp: $!";
    tcsetpgrp(0,getpid) or die "tcsetpgrp: $!";
    exec @ARGV;
    die "exec: $!";
  }
  die "fork: $!" if $pid < 0;
  $SIG{HUP} = "IGNORE";
  waitpid(-1,WUNTRACED)' "$@"

（称为unclosable-xterm your-application and its args）。

现在，另一个副作用是我们正在创建并放入前台的新进程组（上面带有bash -m或setpgrp+ tcsetpgrp）不再是会话领导者进程组，因此不再是成为孤儿的进程组（据说现在有一个父进程在照顾它（sh或perl））。

这意味着按下后Ctrl+Z，该过程将被暂停。在这里，我们粗心的父进程将退出，这意味着进程组将收到 SIGHUP （并希望死亡）。

为了避免这种情况，我们可以忽略子进程中的 SIGTSTP，但是如果您的应用程序是交互式 shell，则对于某些实现（例如mksh、yash或rc），Ctrl-Z将不适用于它们运行的作业。

或者我们可以实现一个更仔细的父级，每次停止时都会恢复子级，例如：

#! /bin/sh -
[ "$#" -gt 0 ] || set -- "${SHELL:-/bin/sh}"
exec xterm -e perl -MPOSIX -e '
  $pid = fork;
  if ($pid == 0) {
    setpgrp or die "setpgrp: $!";
    tcsetpgrp(0,getpid) or die "tcsetpgrp: $!";
    exec @ARGV;
    die "exec: $!";
  }
  die "fork: $!" if $pid < 0;
  $SIG{HUP} = "IGNORE";
  while (waitpid(-1,WUNTRACED) > 0 && WIFSTOPPED(${^CHILD_ERROR_NATIVE})) {
    kill "CONT", -$pid;
  }' "$@"

另一个问题是，如果xterm由于其他原因而消失关闭从窗口管理器，例如，如果xterm被终止或失去与 X 服务器的连接（因为xkill，破坏例如，您的窗口管理器的操作，或者 X 服务器崩溃），那么这些进程不会终止，因为在这些情况下也会使用 SIGHUP 来终止它们。要解决这个问题，您可以poll()在终端设备上使用（终端设备运行时会被拆除xterm）：

#! /bin/sh -
[ "$#" -gt 0 ] || set -- "${SHELL:-/bin/sh}"
exec xterm -e perl -w -MPOSIX -MIO::Poll -e '
  $pid = fork; # start the command in a child process
  if ($pid == 0) {
    setpgrp or die "setpgrp: $!"; # new process group
    tcsetpgrp(0,getpid) or die "tcsetpgrp: $!"; # in foreground
    exec @ARGV;
    die "exec: $!";
  }
  die "fork: $!" if $pid < 0;
  $SIG{HUP} = "IGNORE"; # ignore SIGHUP in the parent
  $SIG{CHLD} = sub {
    if (waitpid(-1,WUNTRACED) == $pid) {
      if (WIFSTOPPED(${^CHILD_ERROR_NATIVE})) {
        # resume the process when stopped
        # we may want to do that only for SIGTSTP though
        kill "CONT", -$pid;
      } else {
        # exit when the process dies
        exit;
      }
    }
  };

  # watch for terminal hang-up
  $p = IO::Poll->new;
  $p->mask(STDIN, POLLERR);
  while ($p->poll <= 0 || $p->events(STDIN) & POLLHUP == 0) {};
  kill "HUP", -$pid;
  ' "$@"

Answer