(* *****************************************************************
** File    : ToolGrep.PAS
** Created : 16.06.99
** Author  : 
**
** Macro for FoldMaster
**       Aufruf einer CmdShell
**
** **************************************************************-**)
PROGRAM DefineGrepTool;

{ define_grep_tool
  definiert ein Tool das GREP aufruft.
}
procedure define_grep_tool;
var Grep_InstPath : string;
begin
   { Nach Grep suchen }
   Beep;
   Grep_InstPath := 'grep.exe';
   if (FileNameInput  ('Ausführbare Datei für GREP', 'Ausführbare Dateien|*.exe;*.com', Grep_InstPath) = 1) then begin
      (* Definition of Grep Tool *)
      ToolDefine       ('GrepText', Grep_InstPath, '', '-n+ $PROMPT');
      ToolDefineType   ('GrepText', 'Grep', 'Text in Dateien suchen', '', 1);
      ToolDefineMode   ('GrepText', 'TRANSFERMACROS/txgreptext', 3);
      ToolDefineConnect('GrepText', '', 0);
      ToolDefineOptions('GrepText', 0, 0);
      OptionsSave;
   end;
end;

BEGIN
   if (NOT ToolAvail('GrepText')) then define_grep_tool;
END.