🚀 go-pugleaf

In a message of 12 Nov 1992 00:42:28 +0000 (GMT)
Received on Wed, 11 Nov 1992 22:09:09 -0400

res_ewv@exodus.valpo.edu wrote
to: Text Processing Utility (TPU) Language Discussion List <INFO-TPU@SHSU.edu>

> Hello again
>
> I now have EVE up and running as a kept editor, but I want to be able to
> redefine the CTRL-Z key to now do a WRITE and an ATTACH back to the calling
> process.  I can write a procedure to do both of these things, but I am having
> big problems binding the key to do this.  I am using the line in the TPU code
> DEFINE_KEY(procedure,CTRL_Z_KEY).  I get no error messages at all.
>
> Perhaps my problem is that the code is never being reached.  I am placing this
> in the EVE_ATTACH procedure.  This should get executed everytime EVE is called
   ,
> correct?
>


You can put the write_file command just before the ATTACH;
command in EVE_ATTACH, or simply define the key with two commands:

DEFINE_KEY ("EVE_WRITE_FILE(''); EVE_ATTACH", CTRL_Z_KEY);


I also suggest that you get FLIST.  It comes packaged with a few DCL
and TPU routines to make a good kept-editor (ability to to include new
file upon attching back to EVE, follow the new default directory,...)


Here's the info on flist:

FLIST v2.1 is a file and directory manager written in VAX TPU and MACRO-32.
It is similar in functionality to SWING, but the emphasis is on files more
than directory trees (although graphical trees are supported).  Using
FLIST, you can display files matching a wildcard specification and edit,
copy, rename, delete, purge, and view the files, all without leaving FLIST.
FLIST has proven, for me, to be an invaluable aid when cleaning up
directories, because you can easily view a file's contents, delete or
rename it, and move on to the next file.

FLIST is available via an e-mail file server and anonymous ftp.

FLIST v2.1 is distributed as a VMS_SHARE file in seven parts (60 blocks
each).  To retrieve the files via mail, send the following line in the
body of a mail message to FILESERV@WKUVX1.BITNET

SEND FLIST

For a listing of other packages, include the command DIR ALL on a separate
line.

Thanks to George Greenwade, you can also pick up FLIST using anonymous ftp
to Niord.SHSU.edu (192.92.115.8) or from the fileserver there (send SEND
FLIST in the body of a message to FILESERV@SHSU.BITNET or
FILESERV@SHSU.EDU).  A backup saveset containing the files can be found in
the [.FLIST.FTP] directory.

 _____________________________________________________________________________
 Peter Galbraith       [Phone: (902) 494-7007] |  GALBRTH@AC.DAL.CA (InterNet)
 Dept. of Oceanography,  Dalhousie University  |  GALBRTH@DALAC     (BitNet)
 Halifax, Nova Scotia, Canada, B3H 4J1         |  rhogee@dalcs      (UUCP)