anchor.diff:    {$IFDEF UNIX}{$IFDEF UseCThreads}
     cthreads,
     {$ENDIF}{$ENDIF}
  -  Classes, SysUtils, CustApp, FileUtil,
  +  Classes, SysUtils, strutils, CustApp, FileUtil,
     { you can add units after this }
     Configuration,
     InitCommand, LinkCommand, ConfigCommand, UpdateIndexCommand;
  
positive.code: begin
    filename := ExtractFileNameOnly(ExeName);
    writeln('Usage: ',filename,' -h');
    writeln(filename,' --config key');
    writeln(filename,' --init dbname');
    writeln(filename,' --link path/to/solution.sln --name dbname');
    writeln(filename,' --update dbname');
  end;
  
  var
  
negative.code:   // parse parameters
    if HasOption('h','help') then begin
      WriteHelp;
      Terminate;
      Exit;
    end;
  