BEC.HEFFRON%ECLA.usc.edu@OBERON.USC.EDU (Matt Heffron) (07/15/89)
Have you ever wanted to use the "old TTY structure editor" on a piece of
something you were editing in sedit?? Now you can! The file below creates
a new sedit command which invokes the old TTY editor on the current selection.
It prompts for the TTY commands and replaces the current structure with the
results of the TTY edit. If you don't give any TTY editor commands it will
allow you to use TTY edit interactively. It attaches the command to the
F10 (CHARCODE 2,112Q) on an 1186 and to the DEFAULTS (CHARCODE 2,115Q) key
on anyting else (SUN users: you are on your own here, I don't have a SUN to
know the key mappings, etc...).
-Matt Heffron BEC.HEFFRON@ECLA.USC.EDU
(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "XCL-USER")
(IL:FILECREATED " 8-Jun-89 18:39:01" IL:{DSK}<LISPFILES>MATT>SEDIT-TTYEDIT.\;2 2724
IL:|changes| IL:|to:| (IL:VARS IL:SEDIT-TTYEDITCOMS)
(IL:PROPS (IL:SEDIT-TTYEDIT IL:MAKEFILE-ENVIRONMENT))
(IL:FUNCTIONS TTYEDIT-SELECTION)
IL:|previous| IL:|date:| " 8-Jun-89 18:30:23" IL:{DSK}<LISPFILES>MATT>SEDIT-TTYEDIT.\;1)
; Copyright (c) 1989 by Beckman Instruments, Inc. All rights reserved.
(IL:PRETTYCOMPRINT IL:SEDIT-TTYEDITCOMS)
(IL:RPAQQ IL:SEDIT-TTYEDITCOMS ((IL:FUNCTIONS TTYEDIT-SELECTION)
(IL:P (SEDIT:ADD-COMMAND (IL:IF (EQ (IL:MACHINETYPE)
'IL:DOVE)
IL:THEN "2,112" IL:ELSE "2,115")
'TTYEDIT-SELECTION T
(IL:IF (EQ (IL:MACHINETYPE)
'IL:DOVE)
IL:THEN "F10" IL:ELSE "DEFAULTS"))
(SEDIT:RESET-COMMANDS))
(IL:PROP IL:MAKEFILE-ENVIRONMENT IL:SEDIT-TTYEDIT)))
(DEFUN TTYEDIT-SELECTION (CONTEXT CHARCODE)
(IL:* IL:\;
"Edited 8-Sep-88 12:17 by Matt Heffron")
(MULTIPLE-VALUE-BIND (SELECTION SELTYPE)
(SEDIT:GET-SELECTION CONTEXT)
(DECLARE (SPECIAL IL:TTYINEDITWINDOW))
(SEDIT:REPLACE-SELECTION CONTEXT (IL:EDITL (LIST SELECTION)
(PROG1 (IL:TTYINEDIT NIL NIL NIL
"TTY Editor commands: ")
(IL:CLOSEW IL:TTYINEDITWINDOW)))
SELTYPE)
T))
(SEDIT:ADD-COMMAND (IL:IF (EQ (IL:MACHINETYPE)
'IL:DOVE)
IL:THEN "2,112"
IL:ELSE "2,115")
'TTYEDIT-SELECTION T (IL:IF (EQ (IL:MACHINETYPE)
'IL:DOVE)
IL:THEN "F10"
IL:ELSE "DEFAULTS"))
(SEDIT:RESET-COMMANDS)
(IL:PUTPROPS IL:SEDIT-TTYEDIT IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE "XCL-USER"))
(IL:PUTPROPS IL:SEDIT-TTYEDIT IL:COPYRIGHT ("Beckman Instruments, Inc" 1989))
(IL:DECLARE\: IL:DONTCOPY
(IL:FILEMAP (NIL)))
IL:STOP
-------