/* Prefix GeT macro to get lines from temp storage. */ /* These lines can be inserted into temp storage by the PuT */ /* macro. */ Trace 'O' Parse source . . . . . name . Arg pref func pline op extra If pref ^= 'PREFIX' Then Call ERROR1, 'This macro must be invoked from the PREFIX area.' If func = 'CLEAR' Then Exit If func = 'SHADOW' Then Call ERROR1, 'Invalid on shadow line.' If func ^= 'SET' Then Call ERROR1, 'This macro must be invoked from the PREFIX area.' If extra ^= '' Then Call ERROR, 'Extraneous parameter:' extra Else Do 'COMMAND EXTRACT /LINE/' 'COMMAND :'pline 'COMMAND GET' /* The following two lines must be queued, not just given to XEDIT, because XEDIT, since this is a prefix command, restores the current line and positions the cursor as it was before we got control. */ Queue 'COMMAND :'line.1 Queue 'COMMAND CURSOR FILE' pline + 1 End Exit /* Error routines */ ERROR: 'COMMAND :'pline 'SET PENDING ERROR' name||op ERROR1: Parse Arg t 'COMMAND EMSG' t Exit