Added notification to trace where packages are found

git-svn-id: trunk@35767 -

packages/fppkg/src/pkgmessages.pp

@@ -9,6 +9,9 @@ Resourcestring
   SError                     = 'Error: ';
   SWarning                   = 'Warning: ';
   SDebug                     = 'Debug: ';
+  SProgres                   = 'Progres: ';
+  SInfo                      = 'Info: ';
+  SCommand                   = 'Command: ';
 
   SErrInValidArgument        = 'Invalid command-line argument at position %d : %s';
   SErrNeedArgument           = 'Option at position %d (%s) needs an argument';
@@ -79,6 +82,7 @@ Resourcestring
   SLogLoadingPackagesFile    = 'Loading available packages from "%s"';
   SLogLoadingMirrorsFile     = 'Loading available mirrors from "%s"';
   SLogFindInstalledPackages  = 'Searching for installed packages in "%s"';
+  SLogFoundPackageInFile     = 'Found package "%s" in file "%s"';
   SLogFoundFPMakeAddin       = 'Found FPMake-AddIn "%s"';
   SLogUpdateFPMakeAddin      = 'FPMake-AddIn "%s" updated';
   SLogSavingStatusFile       = 'Saving local status to "%s"';

packages/fppkg/src/pkgpackagesstructure.pp

@@ -294,6 +294,7 @@ begin
             P:=ARepository.AddPackage(ChangeFileExt(SR.Name,''));
             P.LoadUnitConfigFromFile(UF);
             P.PackagesStructure:=Self;
+            log(llDebug,SLogFoundPackageInFile,[P.Name, UF]);
             if P.IsFPMakeAddIn then
               AddFPMakeAddIn(P);
           end;
@@ -319,6 +320,7 @@ begin
                     P:=ARepository.AddPackage(SR.Name);
                     P.PackagesStructure:=Self;
                     P.LoadUnitConfigFromFile(UF);
+                    log(llDebug,SLogFoundPackageInFile,[P.Name, UF]);
                     if P.IsFPMakeAddIn then
                       AddFPMakeAddIn(P);
                   end;
@@ -334,6 +336,7 @@ begin
                         P:=ARepository.AddPackage(SR.Name);
                         P.PackagesStructure:=Self;
                         LoadPackagefpcFromFile(P,UF);
+                        log(llDebug,SLogFoundPackageInFile,[P.Name, UF]);
                       end;
                   end;
               end;

packages/fppkg/src/pkguninstalledsrcsrepo.pp

@@ -118,6 +118,7 @@ begin
                 P:=ARepository.AddPackage(ChangeFileExt(SRF.Name,''));
                 P.LoadUnitConfigFromFile(UF);
                 P.PackagesStructure:=Self;
+                log(llDebug,SLogFoundPackageInFile,[P.Name, UF]);
                 if P.IsFPMakeAddIn then
                   AddFPMakeAddIn(P);
               until FindNext(SRF)<>0;