anchor.diff:    Result := Copy(Result, 1, Length(Result)-p);
   end;
   
  -procedure TBuildDocsApp.BuildScript;
  +procedure TBuildDocsApp.BuildCommandLine;
   var
     lPFile, lXFile: string;
     i, j: integer;
  
positive.code: {$mode objfpc}{$H+}
  
  uses
    Classes, SysUtils, CustApp;
  
  const
    cFPDOC = 'fpdoc';
  
negative.code:     FXMLFiles: TStrings;
      FPasFiles: TStrings;
      FCommand: string;
      FDivider: string;
      procedure   FileSearch(SearchDir: string; ExtensionMask: string; var FileList: TStrings; Recursive: boolean = True);
      function    ExtractFileNameOnly(AFilename: string): string;
      procedure   BuildCommandLine;
      procedure   WriteScript;
      procedure   ExecuteFPDoc;
    protected
      procedure   DoRun; override;
    public
  