/*
 *  -----------------------------------------------------------------
 *  Execution of this macro requires a license for uni-XEDIT Extended
 *  for each concurrent user of the macro.
 *  -----------------------------------------------------------------
 *
 *
 *
 * RLPX.XEDIT
 *
 * The RLPX.XEDIT macro allows you to print part of a uni-XEDIT file.
 *
 * During a uni-XEDIT edit session, you may execute this macro by
 * typing on the command line
 *
 *      rlpx <target>
 *
 * and pressing <enter>. This is the same as typing
 *
 *       !rm temp.rlpx
 *       put <target> temp.rlpx
 *       !rlp temp.rlpx
 *       !rm temp.rlpx
 *
 */
parse arg target
if target="" 
then target="*"
if lines('temp.rlpx')^=0 then call popen 'rm temp.rlpx'
address xedit 'put' target 'temp.rlpx'
if rc=0 then call popen 'rlp temp.rlpx'
if lines('temp.rlpx')^=0 then call popen 'rm temp.rlpx'