[comp.os.vms] TPU IN THE BACKGROUND -- A SIMPLE SOLUTION

SCS7317%ocvaxa@vb.cc.cmu.edu (02/02/88)

This article deals with having a TPU editor as a child process and being
able to switch it between the foreground and the background.  This is not
the only or best way of dealing with this problem.

------
add the following command to login.com
$tpu :== @sys$login:tpu

------
extact this article and put the following lines in the file tpu.com

$! copyright 1987 by Chris Seline
$! tpu.com so that invoking tpu the first time creates a subprocess
$! and after that one attaches back to it using fg, and CTRL-Z in TPU will
$! write your current buffer and move TPU into the background.
$!
$ if p1 .eqs. "" then inquire p1 "File" 
$ assign/user tt: sys$input
$ spawn/proc="{{{{{{TPU}}}}}}" $edit/tpu/com=sys$login:tpu-fg-bg.tpu 'p1'
$  fg :== attach "{{{{{{TPU}}}}}}"

-------
put the following lines in the file tpu-fg-bg.tpu

! tpu-fg-bg.TPU designed so one can write and attach to parent process
! Chris Seline
PROCEDURE cjs_ctrl_z;
WRITE_FILE (current_buffer);
ATTACH;
ENDPROCEDURE;
!
DEFINE_KEY ('cjs_ctrl_z', CTRL_Z_KEY);
MESSAGE ("<CTRL-Z> to write and attach");

--------


TPU will spawn a TPU editor
CTRL-Z will bring you back to your parent process
fg  will bring you back to TPU

--------




Chris Seline
scs7317%ocvaxa@vb.cc.cmu.edu  (internet)
ihnp4!oberlin!ocvaxa!scs7317  (UUCP)
scs7317%ocvaxa@cmccvb.bitnet  (BITNET -- maybe this works, maybe it doesn't)