Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!uunet!husc6!hao!ames!sdcsvax!ucsdhub!hp-sdd!hplabs!cae780!tektronix!reed!omen!percival!littlei!omepd!uoregon!dboyes
From: dboyes@uoregon.UUCP (David Boyes)
Newsgroups: comp.editors
Subject: EOL in XEDIT
Message-ID: <961@uoregon.UUCP>
Date: Mon, 9-Nov-87 01:11:08 EST
Article-I.D.: uoregon.961
Posted: Mon Nov  9 01:11:08 1987
Date-Received: Thu, 12-Nov-87 23:33:45 EST
References: <4169@fmsrl7.UUCP>
Reply-To: dboyes@drizzle.UUCP (David Boyes)
Distribution: na
Organization: University of Oregon, Computer Science, Eugene OR
Lines: 39
Keywords: XEDIT, eol


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