Re: Get current working directory from another screen window

On Fri, 24 Jun 2011, Michael Parson wrote:
> -- begin chscdir --
> #!/bin/sh
>
> screen -X msgwait 0
> screen -X at "$1" stuff ""
> screen -X at "$1" stuff "pwd > $TMPDIR/buffer ^M"
> screen -X readbuf
> screen -X stuff "cd "
> screen -X paste .
> screen -X removebuf
> screen -X msgwait 4
>
> -- end chscdir --
> <snip>

If only Screen had a "tty" command, it would be possible to know the
current working directory of any process the user owns ( provided there
is an accessible /proc filesystem ). But I guess hell freezes over
before the feature freeze ends.

  -- begin screen_get_dir --
#!/bin/sh

WIN=$1
TTY=`screen -p $WIN -Q @tty | cut -c6-`
PID=`pgrep -t $TTY | tail -1`
echo `readlink -f /proc/$PID/cwd`

  -- end screen_get_dir --

This applies cleanly against HEAD and adds ":tty" command which prints
the filename of the current terminal:

diff --git a/src/comm.c b/src/comm.c
index 5f4af8a..7a9cd18 100644
--- a/src/comm.c
+++ b/src/comm.c
@@ -313,6 +313,7 @@ struct comm comms[RC_LAST + 1] =
    { "terminfo",		ARGS_23 },
    { "time",		CAN_QUERY|ARGS_01 },
    { "title",		CAN_QUERY|NEED_FORE|ARGS_01 },
+  { "tty",		CAN_QUERY|ARGS_0 },
    { "umask",		ARGS_1|ARGS_ORMORE },
    { "unbindall",	ARGS_0 },
    { "unsetenv",		ARGS_1 },
diff --git a/src/process.c b/src/process.c
index dfa7c82..ada5383 100644
--- a/src/process.c
+++ b/src/process.c
@@ -2662,6 +2662,19 @@ int key;
        MakeTermcap((display == 0));
        debug("new termcap made\n");
        break;
+    case RC_TTY:
+      if(fore)
+        {
+          if (fore->w_type == W_TYPE_TELNET)
+            OutputMsg(0, "telnet");
+          else if (fore->w_type == W_TYPE_GROUP)
+            OutputMsg(0, "group");
+          else
+            OutputMsg(0, "%s", fore->w_tty);
+        }
+      else
+        OutputMsg(0, "none");
+      break;
      case RC_ECHO:
        if (!msgok && (!rc_name || strcmp(rc_name, "-X")))
  	break;