public void RemoveUnusedUnits()
{
SuggestedUnitStructureList vSuggestedStructures = IcarusAnalyzerReportParser.Parse(Model.IcarusReport);
StringBuilder vLog = new StringBuilder();
foreach (string vUnitFileName in Model.UnitsToClean)
{
if (vUnitFileName.Equals(""))
{
continue;
}
string vUnitName = Path.GetFileNameWithoutExtension(vUnitFileName).ToLower();
if (
!vSuggestedStructures.ContainsKey(vUnitName) ||
(vSuggestedStructures[vUnitName].MoveToInterface.Count == 0) &&
(vSuggestedStructures[vUnitName].ToDelete.Count == 0)
)
{
continue;
}
vLog.Append("Processing unit " + vUnitName + "\r\n");
DelphiUnitAgent vAgent = new DelphiUnitAgent(vUnitFileName);
vAgent.CleanupUnits(vSuggestedStructures[vUnitName], Model.IgnoredUnits);
if (vAgent.Modified)
{
vLog.Append("Saving changes in unit " + vUnitName + "\r\n");
vAgent.Save(vUnitFileName);
}
}
Model.IcarusReport = vLog.ToString();
Model.NotifyObservers();
}
protected static void DoParse(string iReport, SuggestedUnitStructureList iLists)
{
Regex vRegEx = new Regex(@"\bModule\s[\w\s.\:\(\),\-\>=]+?(?=\bModule|\bProgram|\bLibrary)|\bModule\s[\w\s.\:\(\),\-\>=]+", RegexOptions.IgnoreCase | RegexOptions.Singleline);
var vModuleReports = from Match vMatch in vRegEx.Matches(iReport)
let vModuleReport = vMatch.Value
select new { UnitName = ExtractUnitName(vModuleReport).ToLower(), UsesListType = ExtractUsesListType(vModuleReport), Report = vModuleReport };
foreach (var vModuleReport in vModuleReports)
ParseMatch(vModuleReport.UnitName, vModuleReport.UsesListType, vModuleReport.Report, iLists);
}
public void Parse()
{
#region (Test value)
const string cReport =
"****************************************************************************\r\n" +
"* Uses Report for *\r\n" +
"* D:\\DM\\SG894652_MAIN_CCRC\\DISPMGR\\DPR\\ACARSAPI.DPR *\r\n" +
"* 8/11/2009 1:21:21 AM *\r\n" +
"****************************************************************************\r\n" +
"\r\n" +
"Usage:\r\n" +
"----------------------------------------------------------------------------\r\n" +
"\r\n" +
"Module AbsoluteIdUtils uses:\r\n" +
"\r\n" +
" Units used in implementation:\r\n" +
"\r\n" +
" SysUtils in implementation (has initialization, used by unit with init)\r\n" +
" StrUtils in implementation (used by unit with init)\r\n" +
" gdeclare in implementation (has initialization, used by unit with init)\r\n" +
" DBStatusCodes in implementation (used by unit with init)\r\n" +
" Aptio in implementation (has initialization, used by unit with init)\r\n" +
" Navio in implementation (used by unit with init)\r\n" +
" Wptio in implementation (used by unit with init)\r\n" +
"\r\n" +
"Module AbstractCacheStreamerClass uses:\r\n" +
"\r\n" +
" Units used in interface:\r\n" +
"\r\n" +
" --> SqlCacheUtils in implementation (used by unit with init)\r\n" +
" Logger in interface (has initialization, used by unit with init)\r\n" +
" ==> DBUNIT unnecessary (has initialization, used by unit with init)\r\n" +
" ConnectionInfoClass in interface (used by unit with init)\r\n" +
" --> DatabaseQueryFactoryClass in implementation (used by unit with init)\r\n" +
"\r\n" +
"Module AbstractCacheStreamerClass uses:\r\n" +
"\r\n" +
" Units used in implementation:\r\n" +
"\r\n" +
" Windows source not found\r\n" +
" SysUtils in implementation (has initialization, used by unit with init)\r\n" +
" StrUtils in implementation (used by unit with init)\r\n" +
" ==> ActiveX unnecessary (used by unit with init)\r\n" +
" gdeclare in implementation (has initialization, used by unit with init)\r\n" +
" DBStatusCodes in implementation (used by unit with init)\r\n" +
" Aptio in implementation (has initialization, used by unit with init)\r\n" +
" Navio in implementation (used by unit with init)\r\n" +
" Wptio in implementation (used by unit with init)\r\n" +
"Module AbstractTable uses:\r\n" +
"\r\n" +
" Units used in implementation:\r\n" +
"\r\n" +
" SysUtils in implementation (has initialization, used by unit with init)\r\n" +
" LoggerCategories in implementation (used by unit with init)\r\n" +
"\r\n" +
"Library ACARSAPI uses:\r\n" +
"\r\n" +
" Used units:\r\n" +
"\r\n" +
" Windows source not found\r\n" +
" ==> Messages unnecessary (used by unit with init)\r\n" +
" SysUtils in implementation (has initialization, used by unit with init)\r\n" +
" Classes in implementation (has initialization, used by unit with init)\r\n" +
" Controls in implementation (has initialization, used by unit with init)\r\n" +
" Dialogs in implementation (has initialization, used by unit with init)\r\n" +
" ==> CommonTypes unnecessary (used by unit with init)\r\n" +
" DateTime in implementation (has initialization, used by unit with init)\r\n" +
" Mystd in implementation (used by unit with init)\r\n" +
" ==> DBUNIT unnecessary (has initialization, used by unit with init)\r\n" +
" CommonConsts in implementation (used by unit with init)\r\n" +
" GDeclare in implementation (has initialization, used by unit with init)\r\n" +
" CODEio in implementation (used by unit with init)\r\n" +
" ACWGTSio in implementation (used by unit with init)\r\n" +
" APTio in implementation (has initialization, used by unit with init)\r\n" +
" FltEdits in implementation (has initialization, used by unit with init)\r\n" +
" FSDLYio in implementation (has initialization, used by unit with init)\r\n" +
" oWait in implementation (used by unit with init)\r\n" +
" WINDEV in implementation (has initialization, used by unit with init)\r\n" +
"\r\n" +
"Note:\r\n" +
"Units that are marked as \"unnecessary\" in the project source\r\n" +
"are not needed in the main code block. However you would\r\n" +
"normally want to keep them listed anyway, because it tells\r\n" +
"the Delphi IDE that the unit belongs to the project.\r\n" +
"\r\n" +
"Module ActiveX uses:\r\n" +
"\r\n" +
" Units used in interface:\r\n" +
"\r\n" +
" Windows source not found\r\n" +
" Messages in interface (used by unit with init)\r\n" +
"\r\n" +
"Module ActnList uses:\r\n" +
"\r\n" +
" Units used in interface:\r\n" +
"\r\n" +
" Messages in interface (used by unit with init)\r\n" +
" Classes in interface (has initialization, used by unit with init)\r\n" +
" ==> Contnrs unnecessary (used by unit with init)\r\n" +
" ImgList in interface (used by unit with init)\r\n" +
"\r\n" +
"Module ActnList uses:\r\n" +
"\r\n" +
" Units used in implementation:\r\n" +
"\r\n" +
" Windows source not found\r\n" +
" SysUtils in implementation (has initialization, used by unit with init)\r\n" +
" ==> Graphics unnecessary (has initialization, used by unit with init)\r\n" +
" Consts in implementation (used by unit with init)\r\n" +
" Menus in implementation (has initialization, used by unit with init)\r\n" +
" Controls in implementation (has initialization, used by unit with init)\r\n" +
" Forms in implementation (has initialization, used by unit with init)\r\n" +
"\r\n" +
"Module ACWGTSBroker uses:\r\n" +
"\r\n" +
" Units used in interface:\r\n" +
"\r\n" +
" --> SysUtils in implementation (has initialization, used by unit with init)\r\n" +
" --> Classes in implementation (has initialization, used by unit with init)\r\n" +
" Contnrs in interface (used by unit with init)\r\n" +
" QueryInterface in interface (used by unit with init)\r\n" +
" --> DatabaseQueryFactoryClass in implementation (used by unit with init)\r\n" +
" ==> DatabaseProviderFactoryClass unnecessary (has initialization, used by unit with init)\r\n" +
" AbstractQuery in interface (used by unit with init)\r\n" +
" ==> MetaTableAgentClass unnecessary (has initialization, used by unit with init)\r\n" +
" ACWGTSio in interface (used by unit with init)\r\n" +
" ==> oConsole unnecessary (used by unit with init)\r\n" +
" DMBaseBrokerClass in interface (used by unit with init)\r\n" +
" --> DMBaseSQLBrokerClass in implementation (used by unit with init)\r\n" +
" DMBaseArchSQLBrokerClass in interface (used by unit with init)\r\n" +
"\r\n" +
"Module ACWGTSBroker uses:\r\n" +
"\r\n" +
" Units used in implementation:\r\n" +
"\r\n" +
" ==> Datetime unnecessary (has initialization, used by unit with init)\r\n" +
" MyStd in implementation (used by unit with init)\r\n" +
" DBUNIT in implementation (has initialization, used by unit with init)\r\n" +
" CommonConsts in implementation (used by unit with init)\r\n" +
" DMGlobals in implementation (used by unit with init)\r\n" +
" gdeclare in implementation (has initialization, used by unit with init)\r\n" +
" ==> OracleKeywordClass unnecessary (has initialization, used by unit with init)\r\n" +
" ==> DMUtils unnecessary (used by unit with init)\r\n" +
" DMBtrvQueryFactory in implementation (has initialization, used by unit with init)\r\n" +
" DMSQLQueryFactory in implementation (has initialization, used by unit with init)\r\n" +
"\r\n" +
"Module WinSpool uses:\r\n" +
"\r\n" +
" Units used in interface:\r\n" +
"\r\n" +
" Windows source not found\r\n" +
"\r\n" +
"Module WPTIO uses:\r\n" +
"\r\n" +
" Units used in interface:\r\n" +
"\r\n" +
" --> Sysutils in implementation (has initialization, used by unit with init)\r\n" +
" --> MYSTD in implementation (used by unit with init)\r\n" +
" --> DBunit in implementation (has initialization, used by unit with init)\r\n" +
" GDeclare in interface (has initialization, used by unit with init)\r\n" +
" --> GEODESIC in implementation (used by unit with init)\r\n" +
"\r\n" +
"Module WPTIO uses:\r\n" +
"\r\n" +
" Units used in implementation:\r\n" +
"\r\n" +
" ==> CommonTypes unnecessary (used by unit with init)\r\n" +
" CommonConsts in implementation (used by unit with init)\r\n" +
" DMGlobals in implementation (used by unit with init)\r\n" +
" DBOperations in implementation (used by unit with init)\r\n" +
" CODEIO in implementation (used by unit with init)\r\n" +
"\r\n" +
"\r\n" +
"\r\n" +
"\r\n" +
"Modules that are referenced in the Delphi project file, but not used:\r\n" +
"----------------------------------------------------------------------------\r\n" +
"\r\n" +
"CommonTypes (used by unit with init)\r\n" +
"DBUNIT (has initialization, used by unit with init)\r\n" +
"Messages (used by unit with init)\r\n" +
"\r\n" +
"Note:\r\n" +
"Units that are marked as \"unnecessary\" in the project source\r\n" +
"are not needed in the main code block. However you would\r\n" +
"normally want to keep them listed anyway, because it tells\r\n" +
"the Delphi IDE that the unit belongs to the project.\r\n" +
"\r\n" +
"\r\n" +
"Modules that are used but not added to the Delphi project file:\r\n" +
"----------------------------------------------------------------------------\r\n" +
"\r\n" +
" (none)\r\n" +
"\r\n" +
"\r\n" +
"References:\r\n" +
"----------------------------------------------------------------------------\r\n" +
"\r\n" +
"AbsoluteIdUtils references (7):\r\n" +
"\r\n" +
"Aptio, DBStatusCodes, gdeclare, Navio, StrUtils, SysUtils, Wptio\r\n" +
"\r\n" +
"AbsoluteIdUtils is referenced by (1):\r\n" +
"\r\n" +
"PTEdits\r\n" +
"\r\n" +
"Module CommDlg uses:\r\n" +
"\r\n" +
" Units used in interface:\r\n" +
"\r\n" +
" Windows source not found\r\n" +
" Messages in interface (used by unit with init)\r\n" +
" ShlObj in interface (used by unit with init)\r\n" +
"\r\n" +
"Program COMMDRVR uses:\r\n" +
"\r\n" +
" Used units:\r\n" +
"\r\n" +
" ==> ShareMem unnecessary (has initialization)\r\n" +
" Forms in implementation (has initialization, used by unit with init)\r\n" +
" Logger in implementation (has initialization, used by unit with init)\r\n" +
" GDeclare in implementation (has initialization, used by unit with init)\r\n" +
" ==> DBUnit unnecessary (has initialization, used by unit with init)\r\n" +
" ==> oLOGDISP unnecessary\r\n" +
" oLOGCONS in implementation (used by unit with init)\r\n" +
" oCOMMLNK in implementation\r\n" +
" oCOMMCTL in implementation (used by unit with init)\r\n" +
" ==> MessageTypeRecognizer unnecessary (used by unit with init)\r\n" +
" ==> GDCL_ALL unnecessary (has initialization, used by unit with init)\r\n" +
" BasAbout in implementation\r\n" +
" ==> HelpInvoker unnecessary (used by unit with init)\r\n" +
" ==> ComCreator unnecessary\r\n" +
" ==> AppLauncherInterface unnecessary\r\n" +
" ==> AppLauncher unnecessary\r\n" +
" ==> RegSvr32Launcher unnecessary\r\n" +
" ==> ComObjectLibrary unnecessary (has initialization)\r\n" +
" ==> ComCreatorGuiInstallApproval unnecessary\r\n" +
" ==> DefaultWebBrowserLauncher unnecessary\r\n" +
" ==> UIGlobal unnecessary (has initialization)\r\n" +
" oSKEDLST in implementation\r\n" +
" oCDMet in implementation\r\n" +
" ==> oCDStart unnecessary\r\n" +
" ==> SMI unnecessary (has initialization, used by unit with init)\r\n" +
" ==> Notamio unnecessary (used by unit with init)\r\n" +
" ==> NotamBroker unnecessary (has initialization)\r\n" +
" ==> oFWAPSAlert unnecessary (has initialization)\r\n" +
" ==> OPMSGio unnecessary (used by unit with init)\r\n" +
" ==> EramMessageProcessorInterface unnecessary (used by unit with init)\r\n" +
" ==> EramRejectCNLProcessor unnecessary (used by unit with init)\r\n" +
" ==> EramFDRelFinder unnecessary\r\n" +
" ==> EramCNLAckProcessor unnecessary (used by unit with init)\r\n" +
" ==> EramMessageProcessor unnecessary (has initialization)\r\n" +
" ==> EramFPLAckProcessor unnecessary (used by unit with init)\r\n" +
" ==> EramRejectFPLProcessor unnecessary (used by unit with init)\r\n" +
" ==> EramCHGAckProcessor unnecessary (used by unit with init)\r\n" +
" ==> EramDEPAckProcessor unnecessary (used by unit with init)\r\n" +
" ==> EramDLAAckProcessor unnecessary (used by unit with init)\r\n" +
" ==> EramRejectDEPProcessor unnecessary (used by unit with init)\r\n" +
" ==> EramRejectDLAProcessor unnecessary (used by unit with init)\r\n" +
" ==> EramRejectCHGProcessor unnecessary (used by unit with init)\r\n" +
" ==> ERAMConfiguration unnecessary\r\n" +
" ==> FunctionalityProvider unnecessary (has initialization, used by unit with init)\r\n" +
" ==> FlightWxImagesFunctionality unnecessary (has initialization)\r\n" +
" ==> NOTAMContinuityAlerterTypes unnecessary\r\n" +
" ==> NOTAMserialNumberAlerterCSN unnecessary\r\n" +
" ==> NOTAMContinuityCheckRequester unnecessary\r\n" +
" ==> NOTAMContinuityLogger unnecessary\r\n" +
" ==> NOTAMCheckFacility unnecessary\r\n" +
" ==> WsiFileTypes unnecessary (used by unit with init)\r\n" +
" ==> ErrorsysExceptionHandler unnecessary\r\n" +
" ==> Nmsg_zzz unnecessary\r\n" +
" ==> BulletinProcessors unnecessary\r\n" +
" ==> NORviaNOTAMreformatter unnecessary\r\n" +
" ==> AutoCorrectList unnecessary\r\n" +
" ==> AutoCorrect unnecessary\r\n" +
" ==> IncomingOTSrollbackManager unnecessary\r\n" +
" ==> IncomingNATMessageProcessor unnecessary\r\n" +
" ==> IncomingNORMessageProcessor unnecessary\r\n" +
" ==> FLMsgQueue unnecessary\r\n" +
" ==> OMSG_ZZZ unnecessary\r\n" +
" ==> OPMSGBroker unnecessary (has initialization)\r\n" +
" OCOMDRVR in implementation\r\n" +
" ==> MQIN_ZZZ unnecessary\r\n" +
" ==> RECV_ZZZ unnecessary\r\n" +
" ==> FlightPlanReview unnecessary\r\n" +
" ==> FlightPlanReviewHandler unnecessary\r\n" +
" ==> ETAtoRESsender unnecessary\r\n" +
"\r\n" +
"Note:\r\n" +
"Units that are marked as \"unnecessary\" in the project source\r\n" +
"are not needed in the main code block. However you would\r\n" +
"normally want to keep them listed anyway, because it tells\r\n" +
"the Delphi IDE that the unit belongs to the project.\r\n" +
"\r\n" +
"Module COMMGRIB uses:\r\n" +
"\r\n" +
" Units used in interface:\r\n" +
"\r\n" +
" --> SYSUTILS in implementation (has initialization, used by unit with init)\r\n" +
" ==> MYSTD unnecessary (used by unit with init)\r\n" +
" --> GDeclare in implementation (has initialization, used by unit with init)\r\n" +
" ==> DateTime unnecessary (has initialization, used by unit with init)\r\n" +
" ==> dbunit unnecessary (has initialization, used by unit with init)\r\n" +
" --> QMSGDESK in implementation (used by unit with init)\r\n" +
" ==> DYNEXEC unnecessary (used by unit with init)\r\n" +
" --> uGRIBSIT in implementation\r\n" +
"\r\n" +
"Module COMMGRIB uses:\r\n" +
"\r\n" +
" Units used in implementation:\r\n" +
"\r\n" +
" ==> CommonConsts unnecessary (used by unit with init)\r\n" +
" ==> CommonTypes unnecessary (used by unit with init)\r\n";
#endregion
SuggestedUnitStructureList vActual = IcarusAnalyzerReportParser.Parse(cReport);
Assert.AreEqual(10, vActual.Count, "Invalid no. of unit analyzes returned");
CompareUnitCount(vActual["absoluteidutils"], 0, 7, 0, 0, "Test 1");
CompareUnitCount(vActual["abstractcachestreamerclass"], 2, 10, 2, 2, "Test 2");
CompareUnitCount(vActual["abstracttable"], 0, 2, 0, 0, "Test 3");
CompareUnitCount(vActual["activex"], 2, 0, 0, 0, "Test 4");
CompareUnitCount(vActual["actnlist"], 3, 6, 0, 2, "Test 5");
CompareUnitCount(vActual["acwgtsbroker"], 6, 11, 4, 6, "Test 6");
CompareUnitCount(vActual["winspool"], 1, 0, 0, 0, "Test 7");
CompareUnitCount(vActual["wptio"], 1, 8, 4, 1, "Test 8");
CompareUnitCount(vActual["commdlg"], 3, 0, 0, 0, "Test 9");
CompareUnitCount(vActual["commgrib"], 0, 4, 4, 6, "Test 10");
}
protected static void ParseMatch(string aUnitName, UsesListType aUsesListType, string aModuleReport, SuggestedUnitStructureList aLists)
{
if (!aLists.ContainsKey(aUnitName))
aLists.Add(aUnitName, new SuggestedUnitStructure());
SuggestedUnitStructure vList = aLists[aUnitName];
ExtractUnitNames(aModuleReport, aUsesListType, vList);
}
public static SuggestedUnitStructureList Parse(string iReport)
{
SuggestedUnitStructureList vResult = new SuggestedUnitStructureList();
DoParse(iReport, vResult);
return vResult;
}
