anchor.diff: +{skip}
   {target:linux}
   {linux_console_app}
  -//
  -// AggPas 2.4 RM3 Helper utility application
  -// Milan Marusinec alias Milano (c) 2006 - 2008
  -//
  -program
  - find_compilers_linux ;
  +{
  +  fpGUI  -  Free Pascal GUI Toolkit
  +
  +  Copyright (C) 2006 - 2012 See the file AUTHORS.txt, included in this
  +  distribution, for details of the copyright.
  +
  +  See the file COPYING.modifiedLGPL, included in this distribution,
  +  for details about redistributing fpGUI.
  +
  +  This program is distributed in the hope that it will be useful,
  +  but WITHOUT ANY WARRANTY; without even the implied warranty of
  +  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  +
  +  Description:
  +    This unit creates batch script files that allows us to compile
  +    all the AggPas demos with great ease.
  +}
  +
  +program find_compilers_linux ;
  +
  +{$I agg_mode.inc }
  +{$- }
   
   uses
    SysUtils ,
    agg_basics ,
  - file_utils_ ,
  - libc ;
  -
  -{$I agg_mode.inc }
  -{$- }
  + file_utils_,
  + baseunix;
  +
   type
    src_key = record
      key ,
      val : string[99 ];
  -
     end;
   
   const
  
positive.code:  else
    writeln('ERROR: Not enough memory for the pool buffer !' ); 
  
  END.
negative.code: { ITERATEFOLDER }
  procedure IterateFolder(inFolder : shortstring );
  var
   dp : pDIR;
   ep : Pdirent;
  begin
   inFolder:=inFolder + #0;
   dp:= fpopendir(PChar(@inFolder[1 ]));
   if dp <> NIL then
    begin
     repeat
      ep:= fpreaddir(dp^);
      if ep <> NIL then
       ProcessObject(strpas(ep.d_name ) );
     until ep = NIL;
     fpclosedir(dp^);
    end;
  end;
  
  { CREATEMAKEFILE }
  