anchor.diff:      for details about redistributing fpDebug.
   
       Description:
  -      .
  +      This unit defines the base command class and two default
  +      commands to exit and ask for help.
   }
   unit commands;
   
  -{$ifdef fpc}{$mode delphi}{$H+}{$endif}
  +{$mode objfpc}{$H+}
   
   interface
   
  
positive.code:     function ShortHelp: String; override;
    end;
  
  { TExitCommand }
  
  procedure TExitCommand.Execute(CmdParams: TStrings; Env: TCommandEnvironment);
  
negative.code:     function ResetParamsCache: Boolean; virtual;
    end;
    
  
    THelpCommand = class(TCommand)
    public
      procedure Execute(CmdParams: TStrings; Env: TCommandEnvironment); override;
      function ShortHelp: String; override;
    end;
  
  
    TExitCommand = class(TCommand)
      procedure Execute(CmdParams: TStrings; Env: TCommandEnvironment); override;
  