/* 

   $VER: Execute.filer 1.0 (19.11.93)

   Function:
    Opens a string requester, asks for a command and its args and then
    executes the comand in the directory of the current directory listview.

    It's Filer's equivalent for the Workbench's "Execute" menu item.

   Call from Filer:
    EXECUTE

   Example for "Filer.RC":
    BUTTON ...,...,"Execute","EXECUTE"

*/

ADDRESS 'FilerRexx'
OPTIONS RESULTS

'STATUS Execute command'
PANEL OFF

Command=GETCLIP('FILER_COMMAND')
'SETSTRING' Command

GETSTRING 'Enter command and args:'
IF RESULT="RESULT" THEN
 DO
  PANEL ON
  'STATUS Execution aborted'
  EXIT 5
 END

Command=RESULT
SETCLIP('FILER_COMMAND',Command)

'EXECANDWAIT' Command

PANEL ON
'HISTORY Command "'||Command||'" executed.'