dboyes@uoregon.UUCP (David Boyes) (11/09/87)
Someone was asking about the best way to get to the end of a line in
XEDIT. Here is a short macro that you can assign to a PF key to do
exactly that. Kudos to Andy Doremus (dormouse@oregon1.uoregon.edu) for
dreaming this up:
/**/
if arg(1)^='' then signal badarg
'COMMAND EXTRACT /TERMINAL/LINE/ZONE/SIZE/CURSOR/'
if terminal.1^='DISPLAY' then signal nodisp
if cursor.3<0 | cursor.4>zone.2 then
signal badscr
'COMMAND PRESERVE'
'COMMAND SET LINEND OFF'
'COMMAND LOCATE :'cursor.3
'COMMAND EXTRACT /LENGTH/'
saverc=rc
'COMMAND LOCATE :'line.1
'COMMAND SET MSGMODE OFF'
'COMMAND CURSOR FILE' cursor.3 (length.1 + 1)
'COMMAND RESTORE'
exit saverc
NODISP:
'COMMAND EMSG SJC529E EOL is only valid',
'in display mode.'
exit 3
BADSCR:
'COMMAND EMSG SJC561E Cursor is not on a valid data field.'
exit 3
BADARG:
'COMMAND EMSG SJC520E Invalid operand :' arg(1)
exit 5
--
David Boyes ARPA: 556%OREGON1.BITNET@WISCVM.WISC.EDU
Systems Division BITNET: 556@OREGON1
University of Oregon Computing Center UUCP: dboyes@uoregon.UUCP