anchor.diff:    ln: PInt64;
     nme, knd: string;
     i: NativeInt;
  -  itm: TCollectionItem;
  -  itmt: TLibraryItem;
  -  allALiases: TStringList;
   
     // recursively display members, without master categories.
     procedure digMembers(const srcDt: TJsonData; const srcNd: TTreeNode);
  
positive.code:     dmdproc.Parameters.Add('-o-');
      dmdproc.Parameters.Add('-X');
      dmdproc.Parameters.Add('-Xf' + jsf);
      // projects add.sources and I.
      if fProj <> nil then
      begin
        dmdProc.CurrentDirectory := extractFilePath(fProj.fileName);
  
negative.code:         dmdproc.Parameters.Add('-I' + fProj.getAbsoluteSourceName(i));
        for nme in fProj.currentConfiguration.pathsOptions.Includes do
          dmdproc.Parameters.Add('-I' + nme);
        with CEMainForm do begin
          Librarymanager.getAdditionalSources( fProj.LibraryAliases, dmdproc.Parameters);
          Librarymanager.getAdditionalImport( fProj.LibraryAliases, dmdproc.Parameters);
        end;
      end;
      //
  