diff --git a/DelphiProjectHandler.Tests/BulkOperationLoaderTests.cs b/DelphiProjectHandler.Tests/BulkOperationLoaderTests.cs new file mode 100644 index 0000000..dbdc206 --- /dev/null +++ b/DelphiProjectHandler.Tests/BulkOperationLoaderTests.cs @@ -0,0 +1,63 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; +using NUnit.Framework; +using DelphiProjectHandler.Model; +using DelphiProjectHandler.Operations; +using System.IO; + +namespace DelphiProjectHandler.Tests +{ + [TestFixture] + public class BulkOperationLoaderTests + { + protected const string cXml = + @"" + + @"" + + @" " + + @" " + + @" c:\source\fpm\u\Utils\RteSegsUtils.pas" + + @" c:\source\fpm\u\Utils\NextDataRefreshTimeState.pas" + + @" " + + @" " + + @" c:\source\fpm\u\Utils\AbsoluteIdUtils.pas" + + @" c:\source\fpm\u\Utils\CycleDateState.pas" + + @" " + + @" " + + @" " + + @" " + + @" c:\source\fpm\u\Utils\AbsoluteIdUtils.pas" + + @" " + + @" " + + @" c:\source\fpm\u\IO\CodeTableInterface.pas" + + @" c:\source\fpm\u\IO\CodeTable.pas" + + @" " + + @" " + + @""; + + + [Test] + public void Load() + { + Stream vMemoryStream = new MemoryStream(); + TextWriter vWriter = new StreamWriter(vMemoryStream); + vWriter.Write(cXml); + vWriter.Flush(); + vMemoryStream.Position = 0; + ProjectBulkOperations vOperations = ProjectBulkOperationLoader.FromStream(vMemoryStream); + Assert.AreEqual(2, vOperations.Count, "Invalid no. of projects read"); + Assert.AreEqual(2, vOperations[0].Add.Count, "Invalid no. of files to add - Project 0"); + Assert.AreEqual(2, vOperations[1].Add.Count, "Invalid no. of files to add - Project 1"); + Assert.AreEqual(2, vOperations[0].Remove.Count, "Invalid no. of files to remove - Project 0"); + Assert.AreEqual(1, vOperations[1].Remove.Count, "Invalid no. of files to remove - Project 1"); + Assert.AreEqual(@"c:\source\fpm\u\Utils\RteSegsUtils.pas", vOperations[0].Remove[0], "Wrong file to remove. Project 0, Item 0"); + Assert.AreEqual(@"c:\source\fpm\u\Utils\NextDataRefreshTimeState.pas", vOperations[0].Remove[1], "Wrong file to remove. Project 0, Item 1"); + Assert.AreEqual(@"c:\source\fpm\u\Utils\AbsoluteIdUtils.pas", vOperations[0].Add[0], "Wrong file to add. Project 0, Item 0"); + Assert.AreEqual(@"c:\source\fpm\u\Utils\CycleDateState.pas", vOperations[0].Add[1], "Wrong file to add. Project 0, Item 1"); + Assert.AreEqual(@"c:\source\fpm\u\Utils\AbsoluteIdUtils.pas", vOperations[1].Remove[0], "Wrong file to remove. Project 1, Item 0"); + Assert.AreEqual(@"c:\source\fpm\u\IO\CodeTableInterface.pas", vOperations[1].Add[0], "Wrong file to add. Project 1, Item 0"); + Assert.AreEqual(@"c:\source\fpm\u\IO\CodeTable.pas", vOperations[1].Add[1], "Wrong file to add. Project 1, Item 1"); + } + } +} diff --git a/DelphiProjectHandler.Tests/DelphiProjectHandler.Tests.csproj b/DelphiProjectHandler.Tests/DelphiProjectHandler.Tests.csproj new file mode 100644 index 0000000..6b07992 --- /dev/null +++ b/DelphiProjectHandler.Tests/DelphiProjectHandler.Tests.csproj @@ -0,0 +1,149 @@ + + + + Debug + AnyCPU + 9.0.30729 + 2.0 + {C5750BD9-B5F5-49D4-BE26-5883BFA2894F} + Library + Properties + DelphiProjectHandler.Tests + DelphiProjectHandler.Tests + + + + + 3.5 + v4.0 + false + + + publish\ + true + Disk + false + Foreground + 7 + Days + false + false + true + 0 + 1.0.0.%2a + false + true + + + true + full + false + bin\Debug\ + DEBUG;TRACE + prompt + 4 + false + + + pdbonly + true + bin\Release\ + TRACE + prompt + 4 + false + + + + ..\..\..\..\..\Program Files\TestDriven.NET 3\NUnit\2.5\framework\nunit.framework.dll + + + + 3.5 + + + + 3.5 + + + + + + + 3.5 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + {5C84FFF1-2B72-440F-A36D-7D411CF7AE61} + DelphiProjectHandler + + + + + + + + False + .NET Framework 3.5 SP1 Client Profile + false + + + False + .NET Framework 2.0 %28x86%29 + false + + + False + .NET Framework 3.0 %28x86%29 + false + + + False + .NET Framework 3.5 + false + + + False + .NET Framework 3.5 SP1 + true + + + False + Windows Installer 3.1 + true + + + + + \ No newline at end of file diff --git a/DelphiProjectHandler.Tests/DelphiUnitCleanerOperationTests.cs b/DelphiProjectHandler.Tests/DelphiUnitCleanerOperationTests.cs new file mode 100644 index 0000000..d241c35 --- /dev/null +++ b/DelphiProjectHandler.Tests/DelphiUnitCleanerOperationTests.cs @@ -0,0 +1,1529 @@ +/* + * Created by SharpDevelop. + * User: SG0894652 + * Date: 8/12/2009 + * Time: 11:23 PM + * + * To change this template use Tools | Options | Coding | Edit Standard Headers. + */ + +using System; +using System.Collections.Generic; +using NUnit.Framework; +using DelphiProjectHandler.Operations.Units; + +namespace DelphiProjectHandler.Tests +{ + [TestFixture] + public class DelphiUnitCleanerOperationTests + { + #region (Test Entries) + + protected 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"; + + + protected const string cAbsoluteIdUtils = + "unit AbsoluteIdUtils;\r\n" + + "\r\n" + + "interface\r\n" + + "\r\n" + + "type\r\n" + + " TAbsoluteIdUtils = class(TObject)\r\n" + + " protected\r\n" + + " class procedure AbsId2AirportHemisphere(\r\n" + + " const iAbsoluteId: AnsiString;\r\n" + + " var ivLatHemisphere: AnsiString;\r\n" + + " var ivLonHemisphere: AnsiString);\r\n" + + " class procedure AbsId2NavaidHemisphere(\r\n" + + " const iAbsoluteId: AnsiString;\r\n" + + " var ivLatHemisphere: AnsiString;\r\n" + + " var ivLonHemisphere: AnsiString);\r\n" + + " class procedure AbsId2WaypointHemisphere(\r\n" + + " const iAbsoluteId: AnsiString;\r\n" + + " var ivLatHemisphere: AnsiString;\r\n" + + " var ivLonHemisphere: AnsiString);\r\n" + + " class function HemisphereSign(const iHemisphere: AnsiString): Integer;\r\n" + + "\r\n" + + " class procedure NormalizeCoords(\r\n" + + " const iDays : Char;\r\n" + + " const iMins : Char;\r\n" + + " var ivDays : Integer;\r\n" + + " var ivMins : Integer;\r\n" + + " var ivSecs : Integer);\r\n" + + " class procedure CalculateSignForPoint(\r\n" + + " const iAbsoluteId : AnsiString;\r\n" + + " var ivLatSecs : Integer;\r\n" + + " var ivLonSecs : Integer);\r\n" + + " class function BuildCoord(\r\n" + + " const iDays : Integer;\r\n" + + " const iMins : Integer;\r\n" + + " const iSecs : Integer): Extended;\r\n" + + " class procedure AbsId2Seconds(\r\n" + + " const iAbsoluteId : AnsiString;\r\n" + + " var ivLatSecs : Integer;\r\n" + + " var ivLonSecs : Integer);\r\n" + + " class procedure AbsId2Hemisphere(\r\n" + + " const iAbsoluteId : AnsiString;\r\n" + + " var ivLatHemisphere : AnsiString;\r\n" + + " var ivLonHemisphere : AnsiString);\r\n" + + " public\r\n" + + " class procedure AbsId2LatLon(\r\n" + + " const iAbsoluteId : AnsiString;\r\n" + + " var ivLatitude : Real;\r\n" + + " var ivLongitude : Real);\r\n" + + " end;\r\n" + + "\r\n" + + "implementation\r\n" + + "\r\n" + + "uses\r\n" + + " StrUtils, Aptio, Navio, Wptio, DBStatusCodes, gdeclare, SysUtils;\r\n" + + "\r\n" + + "{ TAbsoluteIdUtils }\r\n" + + "\r\n" + + "class procedure TAbsoluteIdUtils.AbsId2AirportHemisphere(\r\n" + + " const iAbsoluteId: AnsiString;\r\n" + + " var ivLatHemisphere: AnsiString;\r\n" + + " var ivLonHemisphere: AnsiString);\r\n" + + "var\r\n" + + " vAirportRecord :AirportRecordType;\r\n" + + "begin\r\n" + + " if not ((GetAbsAirport(iAbsoluteId, UserRecord.CompanyCode, vAirportRecord) = B_SUCCESS) or\r\n" + + " (GetAbsAirport(iAbsoluteId, Master, vAirportRecord) = B_SUCCESS)) then\r\n" + + " Exit;\r\n" + + "\r\n" + + " ivLatHemisphere := vAirportRecord.LatitudeHemisphere;\r\n" + + " ivLonHemisphere := vAirportRecord.LongitudeHemisphere;\r\n" + + "end;\r\n" + + "\r\n" + + "class procedure TAbsoluteIdUtils.AbsId2Hemisphere(\r\n" + + " const iAbsoluteId : AnsiString;\r\n" + + " var ivLatHemisphere : AnsiString;\r\n" + + " var ivLonHemisphere : AnsiString);\r\n" + + "var\r\n" + + " vPointType: AnsiString;\r\n" + + "begin\r\n" + + " ivLatHemisphere := '';\r\n" + + " ivLonHemisphere := '';\r\n" + + " vPointType := copy(iAbsoluteId,6,1);\r\n" + + "\r\n" + + " case AnsiIndexText(vPointType, ['P', 'D', 'E']) of\r\n" + + " 0: AbsId2AirportHemisphere(iAbsoluteId, ivLatHemisphere, ivLonHemisphere);\r\n" + + " 1: AbsId2NavaidHemisphere(iAbsoluteId, ivLatHemisphere, ivLonHemisphere);\r\n" + + " 2: AbsId2WaypointHemisphere(iAbsoluteId, ivLatHemisphere, ivLonHemisphere);\r\n" + + " end;\r\n" + + "end;\r\n" + + "\r\n"; + + protected const string cAbstractCacheStreamerClass = + "unit AbstractCacheStreamerClass;\r\n" + + "\r\n" + + "interface\r\n" + + "\r\n" + + "uses\r\n" + + " SqlCacheUtils,\r\n" + + " DatabaseQueryFactoryClass;\r\n" + + "\r\n" + + "type\r\n" + + " TAbstractSqlCacheStreamer = class(TObject)\r\n" + + " protected\r\n" + + " function GetFileName(\r\n" + + " const iCacheDir : AnsiString;\r\n" + + " const iTableName : AnsiString;\r\n" + + " const iVersion : AnsiString;\r\n" + + " const iExtension : AnsiString): AnsiString;\r\n" + + " procedure SaveToFile(const iFileName: AnsiString; const iVersion: AnsiString); virtual; abstract;\r\n" + + " procedure DoSave(const iCacheDir: AnsiString; const iTableName: AnsiString; const iVersion: AnsiString);\r\n" + + " public\r\n" + + " end;\r\n" + + "\r\n" + + "implementation\r\n" + + "\r\n" + + "uses\r\n" + + " Windows,\r\n" + + " SysUtils;\r\n" + + "\r\n" + + "{ TAbstractSqlCacheStreamer }\r\n" + + "\r\n" + + "procedure TAbstractSqlCacheStreamer.DoSave(const iCacheDir: AnsiString; const iTableName: AnsiString; const iVersion: AnsiString);\r\n" + + "var\r\n" + + " vFileExt : AnsiString;\r\n" + + " vTempFileName : AnsiString;\r\n" + + " vNewFileName : AnsiString;\r\n" + + "begin\r\n" + + " // make sure there's a valid directory\r\n" + + " Assert(iCacheDir <> '', 'Error: you have to specify a valid path for storing the cache');\r\n" + + " // make sure there is no \"Direcrory doesn't exists\" a problem\r\n" + + " ForceDirectories(iCacheDir);\r\n" + + "\r\n" + + "\r\n"; + + protected const string cAbstractTable = + "(************************************************\r\n" + + "// $History: AbstractTable.pas $\r\n" + + "//\r\n" + + "// ***************** Version 3 *****************\r\n" + + "// User: Mgw Date: 9/23/05 Time: 9:11a\r\n" + + "// Updated in $/All/USQL\r\n" + + "// Added/modified logging\r\n" + + "//\r\n" + + "// ***************** Version 2 *****************\r\n" + + "// User: Mgw Date: 6/06/05 Time: 10:57a\r\n" + + "// Updated in $/All/USQL\r\n" + + "// Connection Pooler (2nd version)\r\n" + + "//\r\n" + + "************************************************)\r\n" + + "unit AbstractTable;\r\n" + + "\r\n" + + "interface\r\n" + + "\r\n" + + "uses\r\n" + + " Logger,\r\n" + + " DB;\r\n" + + "\r\n" + + "type\r\n" + + " TAbstractTable = class(TObject)\r\n" + + " protected\r\n" + + " fTheTable : TDataSet;\r\n" + + " FIsOracle : boolean;\r\n" + + " FLogger : TLogger;\r\n" + + " function getTableName: string; virtual; abstract;\r\n" + + " procedure setTableName(const Value: string); virtual; abstract;\r\n" + + " function GetMasterSource: TDataSource; virtual; abstract;\r\n" + + " procedure SetMasterSource(const Value: TDataSource); virtual; abstract;\r\n" + + " function GetMasterFields: AnsiString; virtual; abstract;\r\n" + + " procedure SetMasterFields(const Value: AnsiString); virtual; abstract;\r\n" + + " function GetDetailFields: AnsiString; virtual;\r\n" + + " procedure SetDetailFields(const Value: AnsiString); virtual;\r\n" + + " public\r\n" + + " Constructor Create (const iConnection : TCustomConnection ); virtual;\r\n" + + " Destructor Destroy; override;\r\n" + + "//! procedure SetIndexFields(const iIndexName : shortstring; const IndexMetaData : TIndexMetaData); virtual; abstract;\r\n" + + " procedure RefreshAfterPost; virtual;\r\n" + + " procedure SetDateFilter( const FieldNameIn : AnsiString;\r\n" + + " const StartDateIn : TDateTime;\r\n" + + " const EndDateIn : TDateTime ); virtual;\r\n" + + " procedure SetFilterWithVersion( const FilterClauseIn : AnsiString );\r\n" + + " procedure RefreshDataSet; virtual;\r\n" + + " procedure FindNearest(const KeyValues: array of const); virtual;\r\n" + + " function GetIndexFieldCount : integer; virtual;\r\n" + + " property DataSet : TDataSet read fTheTable;\r\n" + + " property TableName : string read getTableName write setTableName;\r\n" + + " property MasterSource : TDataSource read GetMasterSource write SetMasterSource;\r\n" + + " property MasterFields : AnsiString read GetMasterFields write SetMasterFields;\r\n" + + " property DetailFields : AnsiString read GetDetailFields write SetDetailFields;\r\n" + + " property IsOracle : boolean read FIsOracle write FIsOracle;\r\n" + + " end;\r\n" + + "\r\n" + + "implementation\r\n" + + "\r\n" + + "uses\r\n" + + " LoggerCategories,\r\n" + + " SysUtils;\r\n" + + "\r\n" + + "const\r\n" + + " FILENAME = 'AbstractTable';\r\n" + + "\r\n" + + "{ TAbstractTable }\r\n" + + "\r\n" + + "constructor TAbstractTable.Create(const iConnection: TCustomConnection);\r\n" + + "begin\r\n" + + " inherited Create;\r\n" + + " FLogger := TLogger.Create(LC_HELPER);\r\n" + + "end;\r\n" + + "\r\n"; + + protected const string cActiveX = + "{ *********************************************************************** }\r\n" + + "{ }\r\n" + + "{ Delphi Runtime Library }\r\n" + + "{ }\r\n" + + "{ Copyright (c) 1997-2001 Borland Software Corporation }\r\n" + + "{ }\r\n" + + "{ *********************************************************************** }\r\n" + + "\r\n" + + "{ ActiveX / OLE 2 Interface Unit }\r\n" + + "\r\n" + + "unit ActiveX;\r\n" + + "\r\n" + + "interface\r\n" + + "\r\n" + + "uses Windows, Messages;\r\n" + + "\r\n" + + "(*$HPPEMIT '' *)\r\n" + + "(*$HPPEMIT '#include ' *)\r\n" + + "(*$HPPEMIT '#include ' *)\r\n" + + "(*$HPPEMIT '#include ' *)\r\n" + + "(*$HPPEMIT '#include ' *) // WIN2K\r\n" + + "(*$HPPEMIT '' *)\r\n" + + "(*$HPPEMIT '' *)\r\n" + + "\r\n" + + "{ Do not WEAKPACKAGE this unit.\r\n" + + " This unit requires startup code to initialize constants. }\r\n" + + "\r\n" + + "const\r\n" + + "\r\n" + + "{ from WTYPES.H }\r\n" + + " {$EXTERNALSYM MEMCTX_TASK}\r\n" + + " MEMCTX_TASK = 1;\r\n" + + " {$EXTERNALSYM MEMCTX_SHARED}\r\n" + + " MEMCTX_SHARED = 2;\r\n" + + " {$EXTERNALSYM MEMCTX_MACSYSTEM}\r\n" + + " MEMCTX_MACSYSTEM = 3;\r\n" + + " {$EXTERNALSYM MEMCTX_UNKNOWN}\r\n" + + " MEMCTX_UNKNOWN = -1;\r\n" + + " {$EXTERNALSYM MEMCTX_SAME}\r\n" + + " MEMCTX_SAME = -2;\r\n" + + "\r\n"; + + protected const string cActnList = + "\r\n" + + "{*******************************************************}\r\n" + + "{ }\r\n" + + "{ Borland Delphi Visual Component Library }\r\n" + + "{ }\r\n" + + "{ Copyright (c) 1999-2001 Borland Software Corporation }\r\n" + + "{ }\r\n" + + "{*******************************************************}\r\n" + + "\r\n" + + "unit ActnList;\r\n" + + "\r\n" + + "{$T-,H+,X+}\r\n" + + "\r\n" + + "interface\r\n" + + "\r\n" + + "uses Classes, Messages, ImgList, Contnrs;\r\n" + + "\r\n" + + "type\r\n" + + "\r\n" + + "{ TContainedAction }\r\n" + + "\r\n" + + " TCustomActionList = class;\r\n" + + "\r\n" + + " TContainedAction = class(TBasicAction)\r\n" + + " private\r\n" + + " FCategory: string;\r\n" + + " FActionList: TCustomActionList;\r\n" + + " function GetIndex: Integer;\r\n" + + " function IsCategoryStored: Boolean;\r\n" + + " procedure SetCategory(const Value: string);\r\n" + + " procedure SetIndex(Value: Integer);\r\n" + + " procedure SetActionList(AActionList: TCustomActionList);\r\n" + + " protected\r\n" + + " procedure ReadState(Reader: TReader); override;\r\n" + + " procedure SetParentComponent(AParent: TComponent); override;\r\n" + + " public\r\n" + + " destructor Destroy; override;\r\n" + + " function Execute: Boolean; override;\r\n" + + " function GetParentComponent: TComponent; override;\r\n" + + " function HasParent: Boolean; override;\r\n" + + " function Update: Boolean; override;\r\n" + + " property ActionList: TCustomActionList read FActionList write SetActionList;\r\n" + + " property Index: Integer read GetIndex write SetIndex stored False;\r\n" + + " published\r\n" + + " property Category: string read FCategory write SetCategory stored IsCategoryStored;\r\n" + + " end;\r\n" + + "\r\n" + + " TContainedActionClass = class of TContainedAction;\r\n" + + "\r\n" + + "{ TCustomActionList }\r\n" + + "\r\n" + + " TActionEvent = procedure (Action: TBasicAction; var Handled: Boolean) of object;\r\n" + + " TActionListState = (asNormal, asSuspended, asSuspendedEnabled);\r\n" + + "\r\n" + + " TCustomActionList = class(TComponent)\r\n" + + " private\r\n" + + " FActions: TList;\r\n" + + " FImageChangeLink: TChangeLink;\r\n" + + " FImages: TCustomImageList;\r\n" + + " FOnChange: TNotifyEvent;\r\n" + + " FOnExecute: TActionEvent;\r\n" + + " FOnUpdate: TActionEvent;\r\n" + + " FState: TActionListState;\r\n" + + " function GetAction(Index: Integer): TContainedAction;\r\n" + + " function GetActionCount: Integer;\r\n" + + " procedure ImageListChange(Sender: TObject);\r\n" + + " procedure SetAction(Index: Integer; Value: TContainedAction);\r\n" + + " procedure SetState(const Value: TActionListState);\r\n" + + " protected\r\n" + + " procedure AddAction(Action: TContainedAction);\r\n" + + " procedure RemoveAction(Action: TContainedAction);\r\n" + + " procedure Change; virtual;\r\n" + + " procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override;\r\n" + + " procedure Notification(AComponent: TComponent;\r\n" + + " Operation: TOperation); override;\r\n" + + " procedure SetChildOrder(Component: TComponent; Order: Integer); override;\r\n" + + " procedure SetImages(Value: TCustomImageList); virtual;\r\n" + + " property OnChange: TNotifyEvent read FOnChange write FOnChange;\r\n" + + " property OnExecute: TActionEvent read FOnExecute write FOnExecute;\r\n" + + " property OnUpdate: TActionEvent read FOnUpdate write FOnUpdate;\r\n" + + " public\r\n" + + " constructor Create(AOwner: TComponent); override;\r\n" + + " destructor Destroy; override;\r\n" + + " function ExecuteAction(Action: TBasicAction): Boolean; override;\r\n" + + " function IsShortCut(var Message: TWMKey): Boolean;\r\n" + + " function UpdateAction(Action: TBasicAction): Boolean; override;\r\n" + + " property Actions[Index: Integer]: TContainedAction read GetAction write SetAction; default;\r\n" + + " property ActionCount: Integer read GetActionCount;\r\n" + + " property Images: TCustomImageList read FImages write SetImages;\r\n" + + " property State: TActionListState read FState write SetState default asNormal;\r\n" + + " end;\r\n" + + "\r\n" + + "{ TActionList }\r\n" + + "\r\n" + + " TActionList = class(TCustomActionList)\r\n" + + " published\r\n" + + " property Images;\r\n" + + " property State;\r\n" + + " property OnChange;\r\n" + + " property OnExecute;\r\n" + + " property OnUpdate;\r\n" + + " end;\r\n" + + "\r\n" + + "{ TShortCutList }\r\n" + + "\r\n" + + " TShortCutList = class(TStringList)\r\n" + + " private\r\n" + + " function GetShortCuts(Index: Integer): TShortCut;\r\n" + + " public\r\n" + + " function Add(const S: String): Integer; override;\r\n" + + " function IndexOfShortCut(const Shortcut: TShortCut): Integer;\r\n" + + " property ShortCuts[Index: Integer]: TShortCut read GetShortCuts;\r\n" + + " end;\r\n" + + "\r\n" + + "{ TControlAction }\r\n" + + "\r\n" + + " THintEvent = procedure (var HintStr: string; var CanShow: Boolean) of object;\r\n" + + "\r\n" + + " TCustomAction = class(TContainedAction)\r\n" + + " private\r\n" + + " FDisableIfNoHandler: Boolean;\r\n" + + " FCaption: string;\r\n" + + " FChecking: Boolean;\r\n" + + " FChecked: Boolean;\r\n" + + " FEnabled: Boolean;\r\n" + + " FGroupIndex: Integer;\r\n" + + " FHelpType: THelpType;\r\n" + + " FHelpContext: THelpContext;\r\n" + + " FHelpKeyword: string;\r\n" + + " FHint: string;\r\n" + + " FImageIndex: TImageIndex;\r\n" + + " FShortCut: TShortCut;\r\n" + + " FVisible: Boolean;\r\n" + + " FOnHint: THintEvent;\r\n" + + " FSecondaryShortCuts: TShortCutList;\r\n" + + " FSavedEnabledState: Boolean;\r\n" + + " FAutoCheck: Boolean;\r\n" + + " procedure SetAutoCheck(Value: Boolean);\r\n" + + " procedure SetCaption(const Value: string);\r\n" + + " procedure SetChecked(Value: Boolean);\r\n" + + " procedure SetEnabled(Value: Boolean);\r\n" + + " procedure SetGroupIndex(const Value: Integer);\r\n" + + " procedure SetHelpContext(Value: THelpContext); virtual;\r\n" + + " procedure SetHelpKeyword(const Value: string); virtual;\r\n" + + " procedure SetHelpType(Value: THelpType);\r\n" + + " procedure SetHint(const Value: string);\r\n" + + " procedure SetImageIndex(Value: TImageIndex);\r\n" + + " procedure SetShortCut(Value: TShortCut);\r\n" + + " procedure SetVisible(Value: Boolean);\r\n" + + " function GetSecondaryShortCuts: TShortCutList;\r\n" + + " procedure SetSecondaryShortCuts(const Value: TShortCutList);\r\n" + + " function IsSecondaryShortCutsStored: Boolean;\r\n" + + " protected\r\n" + + " FImage: TObject;\r\n" + + " FMask: TObject;\r\n" + + " procedure AssignTo(Dest: TPersistent); override;\r\n" + + " procedure SetName(const Value: TComponentName); override;\r\n" + + " function HandleShortCut: Boolean; virtual;\r\n" + + " property SavedEnabledState: Boolean read FSavedEnabledState write FSavedEnabledState;\r\n" + + " public\r\n" + + " constructor Create(AOwner: TComponent); override;\r\n" + + " destructor Destroy; override;\r\n" + + " function DoHint(var HintStr: string): Boolean; dynamic;\r\n" + + " function Execute: Boolean; override;\r\n" + + " property AutoCheck: Boolean read FAutoCheck write SetAutoCheck default False;\r\n" + + " property Caption: string read FCaption write SetCaption;\r\n" + + " property Checked: Boolean read FChecked write SetChecked default False;\r\n" + + " property DisableIfNoHandler: Boolean read FDisableIfNoHandler write FDisableIfNoHandler default False;\r\n" + + " property Enabled: Boolean read FEnabled write SetEnabled default True;\r\n" + + " property GroupIndex: Integer read FGroupIndex write SetGroupIndex default 0;\r\n" + + " property HelpContext: THelpContext read FHelpContext write SetHelpContext default 0;\r\n" + + " property HelpKeyword: string read FHelpKeyword write SetHelpKeyword;\r\n" + + " property HelpType: THelpType read FHelpType write SetHelpType default htKeyword;\r\n" + + " property Hint: string read FHint write SetHint;\r\n" + + " property ImageIndex: TImageIndex read FImageIndex write SetImageIndex default -1;\r\n" + + " property ShortCut: TShortCut read FShortCut write SetShortCut default 0;\r\n" + + " property SecondaryShortCuts: TShortCutList read GetSecondaryShortCuts\r\n" + + " write SetSecondaryShortCuts stored IsSecondaryShortCutsStored;\r\n" + + " property Visible: Boolean read FVisible write SetVisible default True;\r\n" + + " property OnHint: THintEvent read FOnHint write FOnHint;\r\n" + + " end;\r\n" + + "\r\n" + + " TAction = class(TCustomAction)\r\n" + + " public\r\n" + + " constructor Create(AOwner: TComponent); override;\r\n" + + " published\r\n" + + " property AutoCheck;\r\n" + + " property Caption;\r\n" + + " property Checked;\r\n" + + " property Enabled;\r\n" + + " property GroupIndex;\r\n" + + " property HelpContext;\r\n" + + " property HelpKeyword;\r\n" + + " property HelpType;\r\n" + + " property Hint;\r\n" + + " property ImageIndex;\r\n" + + " property ShortCut;\r\n" + + " property SecondaryShortCuts;\r\n" + + " property Visible;\r\n" + + " property OnExecute;\r\n" + + " property OnHint;\r\n" + + " property OnUpdate;\r\n" + + " end;\r\n" + + "\r\n" + + "{ TActionLink }\r\n" + + "\r\n" + + " TActionLink = class(TBasicActionLink)\r\n" + + " protected\r\n" + + " function IsCaptionLinked: Boolean; virtual;\r\n" + + " function IsCheckedLinked: Boolean; virtual;\r\n" + + " function IsEnabledLinked: Boolean; virtual;\r\n" + + " function IsGroupIndexLinked: Boolean; virtual;\r\n" + + " function IsHelpContextLinked: Boolean; virtual;\r\n" + + " function IsHelpLinked: Boolean; virtual;\r\n" + + " function IsHintLinked: Boolean; virtual;\r\n" + + " function IsImageIndexLinked: Boolean; virtual;\r\n" + + " function IsShortCutLinked: Boolean; virtual;\r\n" + + " function IsVisibleLinked: Boolean; virtual;\r\n" + + " procedure SetAutoCheck(Value: Boolean); virtual;\r\n" + + " procedure SetCaption(const Value: string); virtual;\r\n" + + " procedure SetChecked(Value: Boolean); virtual;\r\n" + + " procedure SetEnabled(Value: Boolean); virtual;\r\n" + + " procedure SetGroupIndex(Value: Integer); virtual;\r\n" + + " procedure SetHelpContext(Value: THelpContext); virtual;\r\n" + + " procedure SetHelpKeyword(const Value: string); virtual;\r\n" + + " procedure SetHelpType(Value: THelpType); virtual;\r\n" + + " procedure SetHint(const Value: string); virtual;\r\n" + + " procedure SetImageIndex(Value: Integer); virtual;\r\n" + + " procedure SetShortCut(Value: TShortCut); virtual;\r\n" + + " procedure SetVisible(Value: Boolean); virtual;\r\n" + + " end;\r\n" + + "\r\n" + + " TActionLinkClass = class of TActionLink;\r\n" + + "\r\n" + + "{ Action registration }\r\n" + + "\r\n" + + " TEnumActionProc = procedure (const Category: string; ActionClass: TBasicActionClass;\r\n" + + " Info: Pointer) of object;\r\n" + + "\r\n" + + "procedure RegisterActions(const CategoryName: string;\r\n" + + " const AClasses: array of TBasicActionClass; Resource: TComponentClass);\r\n" + + "procedure UnRegisterActions(const AClasses: array of TBasicActionClass);\r\n" + + "procedure EnumRegisteredActions(Proc: TEnumActionProc; Info: Pointer);\r\n" + + "function CreateAction(AOwner: TComponent; ActionClass: TBasicActionClass): TBasicAction;\r\n" + + "\r\n" + + "const\r\n" + + " RegisterActionsProc: procedure (const CategoryName: string;\r\n" + + " const AClasses: array of TBasicActionClass; Resource: TComponentClass) = nil;\r\n" + + " UnRegisterActionsProc: procedure (const AClasses: array of TBasicActionClass) = nil;\r\n" + + " EnumRegisteredActionsProc: procedure (Proc: TEnumActionProc; Info: Pointer) = nil;\r\n" + + " CreateActionProc: function (AOwner: TComponent; ActionClass: TBasicActionClass): TBasicAction = nil;\r\n" + + "\r\n" + + "implementation\r\n" + + "\r\n" + + "uses SysUtils, Windows, Forms, Menus, Consts, Graphics, Controls;\r\n" + + "\r\n" + + "procedure RegisterActions(const CategoryName: string;\r\n" + + " const AClasses: array of TBasicActionClass; Resource: TComponentClass);\r\n" + + "begin\r\n" + + " if Assigned(RegisterActionsProc) then\r\n" + + " RegisterActionsProc(CategoryName, AClasses, Resource) else\r\n" + + " raise Exception.CreateRes(@SInvalidActionRegistration);\r\n" + + "end;\r\n" + + "\r\n" + + "procedure UnRegisterActions(const AClasses: array of TBasicActionClass);\r\n" + + "begin\r\n" + + " if Assigned(UnRegisterActionsProc) then\r\n" + + " UnRegisterActionsProc(AClasses) else\r\n" + + " raise Exception.CreateRes(@SInvalidActionUnregistration);\r\n" + + "end;\r\n" + + "\r\n"; + + protected const string cACWGTSBroker = + "unit ACWGTSBroker;\r\n" + + "\r\n" + + "interface\r\n" + + "\r\n" + + "uses\r\n" + + " oConsole,\r\n" + + " // system units\r\n" + + " Classes, SysUtils, Contnrs,\r\n" + + " // DAL-specific units\r\n" + + " QueryInterface,\r\n" + + " DMBaseBrokerClass,\r\n" + + " DMBaseSQLBrokerClass,\r\n" + + " DMBaseArchSQLBrokerClass,\r\n" + + " DatabaseProviderFactoryClass,\r\n" + + " DatabaseQueryFactoryClass,\r\n" + + " AbstractQuery,\r\n" + + " MetaTableAgentClass,\r\n" + + " //io units\r\n" + + " ACWGTSio\r\n" + + " ;\r\n" + + "\r\n" + + "type\r\n" + + " TACWGTSData = class(TObject)\r\n" + + " private\r\n" + + " FData: ACWGTSRecordType;\r\n" + + " public\r\n" + + " property Data: ACWGTSRecordType read FData;\r\n" + + " end;\r\n" + + "\r\n" + + " TACWGTSDataList = class(TObjectList)\r\n" + + " private\r\n" + + " function GetItem(Index: Integer): TACWGTSData;\r\n" + + " public\r\n" + + " property Items[Index: Integer]: TACWGTSData read GetItem; default;\r\n" + + " end;\r\n" + + "\r\n" + + " // Interface to access brokers\r\n" + + " ILoadACWGTSQuery = interface(IQuery)\r\n" + + " procedure GetACWGTSRecord(\r\n" + + " TailNumber,\r\n" + + " Config,\r\n" + + " Comp: string;\r\n" + + " var ACWGTSRecord: ACWGTSRecordType);\r\n" + + " end;\r\n" + + "\r\n" + + " // SQL broker\r\n" + + " TACWGTSSqlBroker = class(TDMBaseArchSQLBroker, ILoadACWGTSQuery)\r\n" + + " private\r\n" + + " function GetACWGTSKey(\r\n" + + " const iACWGTSRecord : ACWGTSRecordType): AnsiString;\r\n" + + " protected\r\n" + + " procedure MoveToObject(const iAbstractQuery: TAbstractQuery; const iMoveable: TObject); override;\r\n" + + " function CreateMoveable(const iAbstractQuery: TAbstractQuery): TObject; override;\r\n" + + " function GetTableName: string; override;\r\n" + + " public\r\n" + + " procedure GetACWGTSRecord(\r\n" + + " TailNumber,\r\n" + + " Config,\r\n" + + " Comp: string;\r\n" + + " var ACWGTSRecord: ACWGTSRecordType);\r\n" + + " function ResolveInterface(const iType: TQueryType): IQuery; override;\r\n" + + " end;\r\n" + + "\r\n" + + " // Btrive broker\r\n" + + " TACWGTSBtrvBroker = class(TDMBaseBroker, ILoadACWGTSQuery)\r\n" + + " private\r\n" + + " procedure GetACWGTSRecord(\r\n" + + " TailNumber,\r\n" + + " Config,\r\n" + + " Comp: string;\r\n" + + " var ACWGTSRecord: ACWGTSRecordType);\r\n" + + " public\r\n" + + " function ResolveInterface(const iType: TQueryType): IQuery; override;\r\n" + + " end;\r\n" + + "\r\n" + + " TACWGTSDataAcquisitor = class\r\n" + + " class procedure GetACWGTSRecord(\r\n" + + " TailNumber,\r\n" + + " Config,\r\n" + + " Comp: string;\r\n" + + " var ACWGTSRecord: ACWGTSRecordType);\r\n" + + " end;\r\n" + + "\r\n" + + "implementation\r\n" + + "\r\n" + + "uses\r\n" + + " MyStd,\r\n" + + " DMGlobals,\r\n" + + " CommonConsts,\r\n" + + " OracleKeywordClass,\r\n" + + " DMSQLQueryFactory,\r\n" + + " DMBtrvQueryFactory,\r\n" + + " DMUtils,\r\n" + + " gdeclare,\r\n" + + " DBUNIT,\r\n" + + " Datetime;\r\n" + + "\r\n"; + + protected const string cWinSpool = + "\r\n" + + "{*******************************************************}\r\n" + + "{ }\r\n" + + "{ Borland Delphi Run-time Library }\r\n" + + "{ Win32 printer API Interface Unit }\r\n" + + "{ }\r\n" + + "{ Copyright (c) 1985-1999, Microsoft Corporation }\r\n" + + "{ }\r\n" + + "{ Translator: Borland Software Corporation }\r\n" + + "{ }\r\n" + + "{*******************************************************}\r\n" + + "\r\n" + + "unit WinSpool;\r\n" + + "\r\n" + + "{$WEAKPACKAGEUNIT}\r\n" + + "\r\n" + + "interface\r\n" + + "\r\n" + + "uses Windows;\r\n" + + "\r\n" + + "(*$HPPEMIT '' *)\r\n" + + "(*$HPPEMIT '#include ' *)\r\n" + + "(*$HPPEMIT '' *)\r\n" + + "\r\n" + + "type\r\n" + + " PPrinterInfo1A = ^TPrinterInfo1A;\r\n" + + " PPrinterInfo1W = ^TPrinterInfo1W;\r\n" + + " PPrinterInfo1 = PPrinterInfo1A;\r\n" + + " {$EXTERNALSYM _PRINTER_INFO_1A}\r\n" + + " _PRINTER_INFO_1A = record\r\n" + + " Flags: DWORD;\r\n" + + " pDescription: PAnsiChar;\r\n" + + " pName: PAnsiChar;\r\n" + + " pComment: PAnsiChar;\r\n" + + " end;\r\n" + + " {$EXTERNALSYM _PRINTER_INFO_1W}\r\n" + + " _PRINTER_INFO_1W = record\r\n" + + " Flags: DWORD;\r\n" + + " pDescription: PWideChar;\r\n" + + " pName: PWideChar;\r\n" + + "\r\n"; + + protected const string cWPTIO = + "{*******************************************************************\r\n" + + "$History: Wptio.pas $\r\n" + + "//\r\n" + + "// ***************** Version 14 *****************\r\n" + + "// User: 899469 Date: 7/01/05 Time: 8:07p\r\n" + + "// Updated in $/DISPMGR/6.0/U\r\n" + + "// SQL Changes\r\n" + + "//\r\n" + + "// ***************** Version 12 *****************\r\n" + + "// User: Sg0618311 Date: 6/20/05 Time: 4:02p\r\n" + + "// Updated in $/DISPMGR/5.3/U\r\n" + + "// Modified OpenWAYPOINTFileAccelerated to use UNCPath (LOT 59450)\r\n" + + "//\r\n" + + "// ***************** Version 11 *****************\r\n" + + "// User: Sg0618311 Date: 5/31/05 Time: 7:20p\r\n" + + "// Updated in $/DISPMGR/5.3/U\r\n" + + "// Initialize the recordsize for OpenFileAccelerated (SBG 59115)\r\n" + + "//\r\n" + + "// ***************** Version 10 *****************\r\n" + + "// User: Sg0618311 Date: 3/09/05 Time: 5:30a\r\n" + + "// Updated in $/DISPMGR/5.3/U\r\n" + + "// Added code for layer synchronizer\r\n" + + "//\r\n" + + "// ***************** Version 8 *****************\r\n" + + "// User: 899482 Date: 7/18/03 Time: 5:55p\r\n" + + "// Updated in $/AP360T/_AllSource/U\r\n" + + "// Wrong waypoint used for terminal waypoint. (SI 1-9B2FX ARINC)\r\n" + + "//\r\n" + + "// ***************** Version 7 *****************\r\n" + + "// User: 982760 Date: 3/24/03 Time: 4:43a\r\n" + + "// Updated in $/AP360T/_AllSource/U\r\n" + + "// Merged with V3.6 as at 24Mar03 - KB\r\n" + + "//\r\n" + + "// ***************** Version 6 *****************\r\n" + + "// User: 899469 Date: 3/06/03 Time: 9:49p\r\n" + + "// Updated in $/AP360T/_AllSource/U\r\n" + + "// Merge 5 w EAGLE SP5\r\n" + + "//\r\n" + + "// ***************** Version 7 *****************\r\n" + + "// User: Imp Date: 2/12/03 Time: 10:26a\r\n" + + "// Updated in $/GUI/eaglegui/u\r\n" + + "// Resolve duplicate terminal waypoints(ARINC 2179)\r\n" + + "//\r\n" + + "// ***************** Version 5 *****************\r\n" + + "// User: 982760 Date: 11/25/02 Time: 10:31p\r\n" + + "// Updated in $/FP1/_AllSource/U\r\n" + + "// Merged with V3.6.3 - KB\r\n" + + " *\r\n" + + " * ***************** Version 4 *****************\r\n" + + " * User: 618382 Date: 6/26/02 Time: 4:34p\r\n" + + " * Updated in $/FP1/_AllSource/U\r\n" + + " * Merged changes made to Airpath 3.6 during merge phase.\r\n" + + " *\r\n" + + " * ***************** Version 3 *****************\r\n" + + " * User: 899469 Date: 5/07/02 Time: 10:22p\r\n" + + " * Updated in $/FP1/_AllSource/U\r\n" + + " * Removed unneeded var - IP\r\n" + + " *\r\n" + + " * ***************** Version 2 *****************\r\n" + + " * User: 899469 Date: 3/27/02 Time: 9:01p\r\n" + + " * Updated in $/FP1/CODE/U\r\n" + + " * Merged - IP\r\n" + + "//\r\n" + + "// ***************** Version 6 *****************\r\n" + + "// User: Imp Date: 5/27/99 Time: 9:16a\r\n" + + "// Updated in $/GUI/eaglegui/u\r\n" + + "// OAS 558 (3806) Search on Tape ID not ChartID to find duplicates\r\n" + + "//\r\n" + + "// ***************** Version 5 *****************\r\n" + + "// User: Wek Date: 7/05/98 Time: 10:49p\r\n" + + "// Updated in $/GUI/eaglegui/u\r\n" + + "// FANS #3...Added handling of +\r\n" + + "//\r\n" + + "// ***************** Version 4 *****************\r\n" + + "// User: Imp Date: 12/16/97 Time: 3:37p\r\n" + + "// Updated in $/GUI/eaglegui/u\r\n" + + "// dRb72 Added History stamp\r\n" + + "*******************************************************************}\r\n" + + "{ WPTIO PAS 18,787 06/15/96 05:21p DRB 000 }\r\n" + + "unit WPTIO;\r\n" + + "\r\n" + + "interface\r\n" + + "uses\r\n" + + " DBunit\r\n" + + " , GDeclare\r\n" + + " , MYSTD\r\n" + + " , GEODESIC\r\n" + + " , Sysutils\r\n" + + " ;\r\n" + + "\r\n" + + "{$I Waypoint.REC}\r\n" + + "\r\n" + + "procedure ClearWAYPOINTRecord(var WAYPOINTRecord :WAYPOINTRecordType);\r\n" + + "\r\n" + + "procedure GetWaypoint\r\n" + + " (iIdentifier ,\r\n" + + " iCC ,\r\n" + + " iCompanyCode :string;\r\n" + + " var iWaypointRecord :WaypointRecordType);\r\n" + + "\r\n" + + "procedure GetTapeWaypoint\r\n" + + " (TapeId , CC , Comp :string;\r\n" + + " var WaypointRecord :WaypointRecordType);\r\n" + + "\r\n" + + "(* REMARKS: If the company is blank, then the first record for *)\r\n" + + "(* the company or master that matches the country code *)\r\n" + + "(* and TapeId is returned. *)\r\n" + + "(* If the country code is also blank, the first record *)\r\n" + + "(* for the requested company or master that matches the *)\r\n" + + "(* the TapeId is returned. *)\r\n" + + "\r\n" + + "\r\n" + + "function GetAbsWaypointId(var iTapeId , iCC , iCompanyCode :string) :string;\r\n" + + "\r\n" + + "(* PURPOSE: Locates a Waypoint record and returns its Absolute Id. *)\r\n" + + "(* *)\r\n" + + "(* REMARKS: If the company is blank, then the first record for *)\r\n" + + "(* the company or master that matches the country code *)\r\n" + + "(* and TapeId is used. *)\r\n" + + "(* If the country code is also blank, the first index *)\r\n" + + "(* for the requested company or master that matches the *)\r\n" + + "(* the TapeId is used. *)\r\n" + + "\r\n" + + "function GetAbsWaypointIdWithFirstKey(var iIdentifier , iCC , iCompanyCode :string) :string;\r\n" + + "\r\n" + + "function GetEqualAbsWaypointId(var iTapeId , iCC , iCompanyCode :string) :string;\r\n" + + "\r\n" + + "function GetEqualAbsWaypointIdWithFirstKey(var iIdentifier , iCC , iCompanyCode :string) :string;\r\n" + + "\r\n" + + "function GetAbsTerminalWaypointId\r\n" + + " (iTapeId :string;\r\n" + + " var iCC :string;\r\n" + + " iRegion ,\r\n" + + " iCompanyCode :string) :string;\r\n" + + "(* PURPOSE: Locates a Terminal Waypoint record and returns its Absolute Id. *)\r\n" + + "(* *)\r\n" + + "(* REMARKS: If the company is blank, then the first record for *)\r\n" + + "(* the company or master that matches the country code *)\r\n" + + "(* and TapeId is used. *)\r\n" + + "(* If the country code is also blank, the first index *)\r\n" + + "(* for the requested company or master that matches the *)\r\n" + + "(* the TapeId is used. *)\r\n" + + "\r\n" + + "\r\n" + + "function GetAbsTerminalWaypoint\r\n" + + " (iTapeId :string;\r\n" + + " var iCC :string;\r\n" + + " iRegion ,\r\n" + + " iCompanyCode :string;\r\n" + + " var WaypointRecord :WaypointRecordType): Integer;\r\n" + + "(* same as above except it returns the Waypoint record*)\r\n" + + "\r\n" + + "function GetAbsWaypoint\r\n" + + " (AbsId :AbsoluteIdType;\r\n" + + " Comp :string;\r\n" + + " var WaypointRecord :WaypointRecordType): Integer;\r\n" + + "\r\n" + + "(* PURPOSE: Uses the idexed based on the Absolute Id to retrieve *)\r\n" + + "(* a Waypoint record. *)\r\n" + + "\r\n" + + "\r\n" + + "procedure GetNextWaypointInArea\r\n" + + " (AbsKey :string;\r\n" + + " var WaypointRecord :WaypointRecordType);\r\n" + + "\r\n" + + "(* PURPOSE: Uses the idexed based on the Absolute Id to retrieve *)\r\n" + + "(* the Waypoint record which has the next absolute key *)\r\n" + + "(* greater than the one entered. *)\r\n" + + "\r\n" + + "\r\n" + + "procedure InsertWaypoint\r\n" + + " (WaypointRecord :WaypointRecordType;\r\n" + + " iUpdateNavRecord : boolean = false);\r\n" + + "\r\n" + + "procedure ReplaceWaypoint\r\n" + + " (WaypointRecord :WaypointRecordType;\r\n" + + " iUpdateNavRecord : boolean = false);\r\n" + + "\r\n" + + "procedure UpdateWaypoint(var iNewWaypointRecord: WaypointRecordType);\r\n" + + "\r\n" + + "procedure DeleteWaypoint\r\n" + + " (WaypointRecord :WaypointRecordType;\r\n" + + " iUpdateNavRecord : boolean = false);\r\n" + + "\r\n" + + "procedure Get1stWaypoint\r\n" + + " (PointId :string;\r\n" + + " var WaypointRecord :WaypointRecordType);\r\n" + + "\r\n" + + "procedure Get1stWaypointWithFirstKey\r\n" + + " (PointId :string;\r\n" + + " var WaypointRecord :WaypointRecordType);\r\n" + + "\r\n" + + "procedure GetNextWaypoint(var WaypointRecord :WaypointRecordType);\r\n" + + "\r\n" + + "procedure GetNextWaypointWithFirstKey(var WaypointRecord :WaypointRecordType);\r\n" + + "\r\n" + + "procedure Get1stWaypointAbs(var WaypointRecord :WaypointRecordType);\r\n" + + "\r\n" + + "procedure GetNextWaypointAbs(var WaypointRecord :WaypointRecordType);\r\n" + + "\r\n" + + "procedure GetClosestWaypoint\r\n" + + " (PointId :string;\r\n" + + " AbsPointId :string;\r\n" + + " Comp :string;\r\n" + + " var WaypointRecord :WaypointRecordType);\r\n" + + "\r\n" + + "function ItsALatLon(s :string) :boolean;\r\n" + + "\r\n" + + "procedure OpenWAYPOINTFileAccelerated;\r\n" + + "\r\n" + + "//This procedure is used in RRAWY load program.\r\n" + + "procedure GetFirstWaypointRec(var WaypointRec :WaypointRecordType);\r\n" + + "procedure GetNextWaypointRec(var WaypointRec :WaypointRecordType);\r\n" + + "\r\n" + + "procedure CloseWAYPOINTFile;\r\n" + + "function OpenWaypointFuture(): integer;\r\n" + + "procedure OpenWAYPOINTFile(KeyNumber :integer = 0);\r\n" + + "\r\n" + + "implementation\r\n" + + "\r\n" + + "uses\r\n" + + " CommonConsts,\r\n" + + " DMGlobals,\r\n" + + " CODEIO, CommonTypes, DBOperations;\r\n" + + "\r\n" + + "const\r\n" + + " coTableName = 'WAYPOINT';\r\n" + + "{$I DBOPEN.INC}\r\n" + + "{$I ERRMSGS.INC}\r\n" + + "var\r\n" + + " WaypointFCB :string[128];\r\n" + + " WaypointRecordSize :integer;\r\n" + + " WaypointKey :string[32];\r\n" + + " WaypointKey3 :string[32];\r\n" + + " {unit WPTIO}\r\n" + + "\r\n"; + + protected const string cCommDlg = + "\r\n" + + "{*******************************************************}\r\n" + + "{ }\r\n" + + "{ Borland Delphi Run-time Library }\r\n" + + "{ Win32 Common Dialogs interface unit }\r\n" + + "{ }\r\n" + + "{ Copyright (c) 1985-1999, Microsoft Corporation }\r\n" + + "{ }\r\n" + + "{ Translator: Borland Software Corporation }\r\n" + + "{ }\r\n" + + "{*******************************************************}\r\n" + + "\r\n" + + "unit CommDlg;\r\n" + + "\r\n" + + "{$WEAKPACKAGEUNIT}\r\n" + + "\r\n" + + "{$HPPEMIT '#include '}\r\n" + + "\r\n" + + "interface\r\n" + + "\r\n" + + "uses Windows, Messages, ShlObj;\r\n" + + "\r\n" + + "type\r\n" + + " POpenFilenameA = ^TOpenFilenameA;\r\n" + + " POpenFilenameW = ^TOpenFilenameW;\r\n" + + " POpenFilename = POpenFilenameA;\r\n" + + " {$EXTERNALSYM tagOFNA}\r\n" + + " tagOFNA = packed record\r\n" + + " lStructSize: DWORD;\r\n" + + " hWndOwner: HWND;\r\n" + + " hInstance: HINST;\r\n" + + " lpstrFilter: PAnsiChar;\r\n" + + " lpstrCustomFilter: PAnsiChar;\r\n" + + " nMaxCustFilter: DWORD;\r\n" + + " nFilterIndex: DWORD;\r\n" + + " lpstrFile: PAnsiChar;\r\n" + + " nMaxFile: DWORD;\r\n" + + " lpstrFileTitle: PAnsiChar;\r\n" + + " nMaxFileTitle: DWORD;\r\n" + + " lpstrInitialDir: PAnsiChar;\r\n" + + " lpstrTitle: PAnsiChar;\r\n" + + " Flags: DWORD;\r\n" + + " nFileOffset: Word;\r\n" + + " nFileExtension: Word;\r\n" + + " lpstrDefExt: PAnsiChar;\r\n" + + " lCustData: LPARAM;\r\n" + + " lpfnHook: function(Wnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): UINT stdcall;\r\n" + + " lpTemplateName: PAnsiChar;\r\n" + + " pvReserved: Pointer;\r\n" + + " dwReserved: DWORD;\r\n" + + " FlagsEx: DWORD;\r\n" + + " end;\r\n" + + " {$EXTERNALSYM tagOFNW}\r\n" + + " tagOFNW = packed record\r\n" + + " lStructSize: DWORD;\r\n" + + " hWndOwner: HWND;\r\n" + + " hInstance: HINST;\r\n" + + " lpstrFilter: PWideChar;\r\n" + + " lpstrCustomFilter: PWideChar;\r\n" + + " nMaxCustFilter: DWORD;\r\n" + + " nFilterIndex: DWORD;\r\n" + + " lpstrFile: PWideChar;\r\n" + + " nMaxFile: DWORD;\r\n" + + " lpstrFileTitle: PWideChar;\r\n" + + " nMaxFileTitle: DWORD;\r\n" + + " lpstrInitialDir: PWideChar;\r\n" + + " lpstrTitle: PWideChar;\r\n" + + " Flags: DWORD;\r\n" + + " nFileOffset: Word;\r\n" + + " nFileExtension: Word;\r\n" + + " lpstrDefExt: PWideChar;\r\n" + + " lCustData: LPARAM;\r\n" + + " lpfnHook: function(Wnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): UINT stdcall;\r\n" + + " lpTemplateName: PWideChar;\r\n" + + " pvReserved: Pointer;\r\n" + + " dwReserved: DWORD;\r\n" + + " FlagsEx: DWORD;\r\n" + + " end;\r\n" + + " {$EXTERNALSYM tagOFN}\r\n" + + " tagOFN = tagOFNA;\r\n" + + " TOpenFilenameA = tagOFNA;\r\n" + + " TOpenFilenameW = tagOFNW;\r\n" + + " TOpenFilename = TOpenFilenameA;\r\n" + + " {$EXTERNALSYM OPENFILENAMEA}\r\n" + + " OPENFILENAMEA = tagOFNA;\r\n" + + " {$EXTERNALSYM OPENFILENAMEW}\r\n" + + " OPENFILENAMEW = tagOFNW;\r\n" + + " {$EXTERNALSYM OPENFILENAME}\r\n" + + " OPENFILENAME = OPENFILENAMEA;\r\n" + + "\r\n" + + "{$EXTERNALSYM GetOpenFileName}\r\n" + + "function GetOpenFileName(var OpenFile: TOpenFilename): Bool; stdcall;\r\n" + + "{$EXTERNALSYM GetOpenFileNameA}\r\n" + + "function GetOpenFileNameA(var OpenFile: TOpenFilenameA): Bool; stdcall;\r\n" + + "{$EXTERNALSYM GetOpenFileNameW}\r\n" + + "function GetOpenFileNameW(var OpenFile: TOpenFilenameW): Bool; stdcall;\r\n" + + "{$EXTERNALSYM GetSaveFileName}\r\n" + + "function GetSaveFileName(var OpenFile: TOpenFilename): Bool; stdcall;\r\n" + + "{$EXTERNALSYM GetSaveFileNameA}\r\n" + + "function GetSaveFileNameA(var OpenFile: TOpenFilenameA): Bool; stdcall;\r\n" + + "{$EXTERNALSYM GetSaveFileNameW}\r\n" + + "function GetSaveFileNameW(var OpenFile: TOpenFilenameW): Bool; stdcall;\r\n" + + "{$EXTERNALSYM GetFileTitle}\r\n" + + "function GetFileTitle(FileName: PChar; Title: PChar; TitleSize: Word): Smallint; stdcall;\r\n" + + "{$EXTERNALSYM GetFileTitleA}\r\n" + + "function GetFileTitleA(FileName: PAnsiChar; Title: PAnsiChar; TitleSize: Word): Smallint; stdcall;\r\n" + + "\r\n"; + + protected const string cCOMMGRIB = + "{*******************************************************************\r\n" + + "$History: Commgrib.pas $\r\n" + + " *\r\n" + + " * ***************** Version 2 *****************\r\n" + + " * User: 982760 Date: 5/20/02 Time: 4:46a\r\n" + + " * Updated in $/FP1/FDCOMM/U\r\n" + + " * Merged - KB\r\n" + + "//\r\n" + + "// ***************** Version 5 *****************\r\n" + + "// User: Wek Date: 1/07/99 Time: 3:56p\r\n" + + "// Updated in $/GUI/eaglegui/u\r\n" + + "// dRb 837 Remove all hardcoding of \\EAGLE\\ and use SystemPath field from\r\n" + + "// GDECLARE\r\n" + + "//\r\n" + + "// ***************** Version 4 *****************\r\n" + + "// User: Imp Date: 4/02/98 Time: 4:18p\r\n" + + "// Updated in $/GUI/eaglegui/u\r\n" + + "// oas files 4-2-98\r\n" + + "//\r\n" + + "// ***************** Version 3 *****************\r\n" + + "// User: Shl Date: 1/08/98 Time: 4:50p\r\n" + + "// Updated in $/GUI/eaglegui/u\r\n" + + "// RG-OASNEW Changes sent on 02-01-98\r\n" + + "//\r\n" + + "// ***************** Version 2 *****************\r\n" + + "// User: Imp Date: 12/16/97 Time: 4:22p\r\n" + + "// Updated in $/GUI/eaglegui/u\r\n" + + "// dRb72 Added History stamp\r\n" + + "*******************************************************************}\r\n" + + "{ COMMGRIB PAS 3,041 07/17/97 03:24p WEK 010 }\r\n" + + "{ MOD Added QMSGDESK}\r\n" + + "{ COMMGRIB PAS 2,712 04/25/95 09:53p WEK 00 }\r\n" + + "unit COMMGRIB;\r\n" + + "{$F+}\r\n" + + "interface\r\n" + + "\r\n" + + "uses SYSUTILS\r\n" + + " , dbunit\r\n" + + " , GDeclare\r\n" + + " , MYSTD\r\n" + + " , DateTime\r\n" + + " , QMSGDESK\r\n" + + " , DYNEXEC\r\n" + + " , uGRIBSIT\r\n" + + " ;\r\n" + + "\r\n" + + "(*\r\n" + + "HISTORY\r\n" + + " 30Dec98 TD Use Global Variable 'SystemPath' Instead of ':\\EAGLE\\'\r\n" + + " 23Mar98 KB Findclose fixes\r\n" + + "*)\r\n" + + "\r\n" + + "procedure GRIBReceive\r\n" + + " (iMasterDisk :char;\r\n" + + " iCompanyCode :string;\r\n" + + " iSupervisorDesk :string;\r\n" + + " iReturnCode :integer);\r\n" + + "\r\n" + + "implementation\r\n" + + "\r\n" + + "uses\r\n" + + " CommonConsts,\r\n" + + " CommonTypes;\r\n" + + "\r\n" + + "{$I Errmsgs.INC}\r\n" + + "\r\n" + + "\r\n" + + "procedure GRIBReceive\r\n" + + " (iMasterDisk :char;\r\n" + + " iCompanyCode :string;\r\n" + + " iSupervisorDesk :string;\r\n" + + " iReturnCode :integer);\r\n" + + "var\r\n" + + " Parms :string;\r\n" + + " PickMask :string;\r\n" + + " FileData :Tsearchrec;\r\n" + + " GRIB :file;\r\n" + + "begin\r\n" + + " iReturnCode := 0;\r\n" + + " PickMask := EnvironmentRecord.MasterEXEDisk\r\n" + + " + SystemPath + 'MET\\GRB\\GRIB.DAT';\r\n" + + " iReturnCode := findfirst(PickMask , 0 {NormalFilesOnly} , FileData);\r\n" + + "\r\n" + + " if (iReturnCode = 0) then\r\n" + + " begin\r\n" + + " findclose(FileData);\r\n" + + " if FileData.Size > 0 then\r\n" + + " begin\r\n" + + " Parms := 'N WAKE'\r\n" + + " + iMasterDisk\r\n" + + " + iMasterDisk\r\n" + + " + iMasterDisk\r\n" + + " + 'CA'\r\n" + + " + iCompanyCode\r\n" + + " + iMasterDisk\r\n" + + " + 'DDP ' + EnvironmentRecord.SystemName;\r\n" + + " GRIBSITAMainProcedure(iReturnCode);\r\n" + + "\r\n" + + " if iReturnCode = 0 then\r\n" + + "\r\n"; + + #endregion + + protected void CheckSectionUses(string iNewUsesSection, IList iExpected, string iErrorMsg) + { + UnitList vActual = new UnitList(); + if (!iNewUsesSection.Equals("")) + vActual = UsesClauseReader.GetUnits(iNewUsesSection); + + Assert.AreEqual(iExpected.Count, vActual.Count, "Different no. of units in the uses clause. " + iErrorMsg); + for(int vUnitIdx = 0; vUnitIdx < iExpected.Count; vUnitIdx++) + Assert.AreEqual(iExpected[vUnitIdx].ToLower(), vActual[vUnitIdx].Name.ToLower(), "Unit " + iExpected[vUnitIdx] + " doesn't match correct position on the list. " + iErrorMsg); + } + + protected void CheckUses(string iNewContent, IList iInterface, IList iImplementation, string iErrorMsg) + { + string vInterface, vImplementation; + UsesClauseReader.ExtractUses(iNewContent, out vInterface, out vImplementation); + CheckSectionUses(vInterface, iInterface, "Interface section. " + iErrorMsg); + CheckSectionUses(vImplementation, iImplementation, "Implementation section." + iErrorMsg); + } + + protected void TestExecute(string iUnitContent, SuggestedUnitStructure iSuggestedStructure, IList iExpectedInterfaceUnits, IList iExpectedImplementationUnits, IList iIgnoredUnits, string iErrorMsg) + { + DelphiUnitCleanerOperation vOperation = new DelphiUnitCleanerOperation(); + string vActual = vOperation.Execute(iUnitContent, iSuggestedStructure, iIgnoredUnits); + CheckUses(vActual, iExpectedInterfaceUnits, iExpectedImplementationUnits, iErrorMsg); + } + + [Test] + public void Execute() + { + SuggestedUnitStructureList vSuggested = IcarusAnalyzerReportParser.Parse(cReport); + TestExecute(cAbsoluteIdUtils, vSuggested["absoluteidutils"], + new string[] {}, + new string[] {"StrUtils", "Aptio", "Navio", "Wptio", "DBStatusCodes", "gdeclare", "SysUtils"}, + new string[] {}, "Test 1"); + TestExecute(cAbstractCacheStreamerClass, vSuggested["abstractcachestreamerclass"], + new string[] {}, + new string[] {"SqlCacheUtils", "DatabaseQueryFactoryClass", "Windows", "SysUtils"}, + new string[] {}, "Test 2"); + TestExecute(cAbstractTable, vSuggested["abstracttable"], + new string[] {"Logger", "DB"}, + new string[] {"LoggerCategories", "SysUtils"}, + new string[] {}, "Test 3"); + TestExecute(cActiveX, vSuggested["activex"], + new string[] {"Windows", "messages"}, + new string[] {}, + new string[] {}, "Test 4"); + TestExecute(cActnList, vSuggested["actnlist"], + new string[] {"Classes", "Messages", "ImgList"}, + new string[] {"SysUtils", "Windows", "Forms", "Menus", "Consts", "Controls"}, + new string[] {}, "Test 5"); + TestExecute(cACWGTSBroker, vSuggested["acwgtsbroker"], + new string[] {"Contnrs", "QueryInterface", "DMBaseBrokerClass", "DMBaseArchSQLBrokerClass", "AbstractQuery", "ACWGTSio"}, + new string[] {"SysUtils", "Classes", "DatabaseQueryFactoryClass", "DMBaseSQLBrokerClass", "MyStd", "DMGlobals", "CommonConsts", "DMSQLQueryFactory", "DMBtrvQueryFactory", "gdeclare", "DBUNIT"}, + new string[] {}, "Test 6"); + TestExecute(cWinSpool, vSuggested["winspool"], + new string[] {"Windows"}, + new string[] {}, + new string[] {}, "Test 7"); + TestExecute(cWPTIO, vSuggested["wptio"], + new string[] {"GDeclare"}, + new string[] {"Sysutils", "MYSTD", "DBUnit", "GEODESIC", "CommonConsts", "DMGlobals", "CODEIO", "DBOperations"}, + new string[] {}, "Test 8"); + TestExecute(cCommDlg, vSuggested["commdlg"], + new string[] {"Windows", "Messages", "ShlObj"}, + new string[] {}, + new string[] {}, "Test 9"); + TestExecute(cCOMMGRIB, vSuggested["commgrib"], + new string[] {}, + new string[] {"SYSUTILS", "GDeclare", "QMSGDESK", "uGRIBSIT"}, + new string[] {}, "Test 10"); + TestExecute(cCOMMGRIB, vSuggested["commgrib"], + new string[] {"SYSUTILS", "DBUNIT"}, + new string[] {"GDeclare", "QMSGDESK", "uGRIBSIT"}, + new string[] {"SYSUTILS", "DBUNIT"}, "Test 11"); + } + } +} diff --git a/DelphiProjectHandler.Tests/IcarusAnalyzerTests.cs b/DelphiProjectHandler.Tests/IcarusAnalyzerTests.cs new file mode 100644 index 0000000..e9970eb --- /dev/null +++ b/DelphiProjectHandler.Tests/IcarusAnalyzerTests.cs @@ -0,0 +1,360 @@ +/* + * Created by SharpDevelop. + * User: SG0894652 + * Date: 8/11/2009 + * Time: 2:41 AM + * + * To change this template use Tools | Options | Coding | Edit Standard Headers. + */ + +using System; +using NUnit.Framework; + +using DelphiProjectHandler; + +namespace DelphiProjectHandler.Tests +{ + [TestFixture] + public class IcarusAnalyzerTests + { + protected void CompareUnitCount(SuggestedUnitStructure iList, int iExpectedInterface, int iExpectedImplementation, int iExpectedMovedCount, int iExpectedDeletedCount, string iErrorMsg) + { + Assert.AreEqual(iExpectedInterface, iList.Uses.Interface.Count, "Invalid no. of returned interface units. " + iErrorMsg); + Assert.AreEqual(iExpectedImplementation, iList.Uses.Implementation.Count, "Invalid no. of returned implementation units. " + iErrorMsg); + Assert.AreEqual(iExpectedMovedCount, iList.MoveToInterface.Count, "Invalid no. of units moved to implementation. " + iErrorMsg); + Assert.AreEqual(iExpectedDeletedCount, iList.ToDelete.Count, "Invalid no. of deleted units. " + iErrorMsg); + } + + [Test] + 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"); + } + } +} diff --git a/DelphiProjectHandler.Tests/LibraryPaths/ClipboardLibraryPathsProviderTests.cs b/DelphiProjectHandler.Tests/LibraryPaths/ClipboardLibraryPathsProviderTests.cs new file mode 100644 index 0000000..f7373b0 --- /dev/null +++ b/DelphiProjectHandler.Tests/LibraryPaths/ClipboardLibraryPathsProviderTests.cs @@ -0,0 +1,31 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; +using System.Threading; +using System.Windows.Forms; +using NUnit.Framework; + +using DelphiProjectHandler.LibraryPaths; + +namespace DelphiProjectHandler.Tests.LibraryPaths +{ + [TestFixture] + public class ClipboardLibraryPathsProviderTests + { + protected string cPaths = @"$(DELPHI)\Lib;$(DELPHI)\Bin;$(DELPHI)\Imports;$(DELPHI)\Projects\Bpl;$(DM_VIEW)\Lib;$(DM_TP)\abbrevia\source;$(DM_TP)\TGlobe\SOURCE;$(DM_TP)\AsyncPRO\source;$(DM_TP)\RegExpr\Source;$(DM_TP)\BTrieveSDK;$(DM_TP)\PxLib;$(DM_TP)\ExcMagicD6;$(DM_TP)\JWA\Win32Api;$(DM_TP)\XMLParser;$(DM_TP)\XMLPRO\source;$(DM_TP)\CalcExpress;$(DM_TP)\Indy9;$(DM_VIEW)\I;$(DM_VIEW)\Maps;$(DM_VIEW)\Forms;$(DM_VIEW)\U;$(DM_VIEW)\U\Brokers;$(DM_VIEW)\U\Eram;$(DM_VIEW)\U\FPValidators;$(BASA_DM);$(BASA_DM)\UUtils;$(BASA_DM)\UBtrieve;$(BASA_DM)\UBtrieve\UBroker;$(BASA_DM)\UFacilitator;$(BASA_DM)\USQL\UBroker;$(BASA_DM)\USQL\UOperation;$(BASA_DM)\USQL\UQueryBuilder;$(BASA_DM)\USQL\UUtil;$(BASA_DM)\USQL\UUtil\VersionInfo;$(BASA_DM)\USQLCache;$(BASA_DM)\USQLCache\UOperation;$(BASA_DM)\USQLCache\UUtil;$(BASA_DM)\UStream;$(BASA_DM)\UTransfer;$(BASA_DM)\USQL;$(DM_TP)\FCSUtils;$(DM_TP)\FCSUtils\System;$(DM_TP)\FCSUtils\DateUtils;$(DM_TP)\FCSUtils\DbUtils;$(DM_TP)\FCSUtils\Logging;$(DM_TP)\FCSUtils\Security;$(DM_TP)\FCSUtils\XMLRTTI;$(DM_TP)\ZipMaster;$(DM_TP)\KeyHelp;$(DM_TP)\DelphiKit;$(DM_VIEW)\U\EuroATCPlanValidation;$(DM_VIEW)\U\EuroATCPlanValidation\CFMU;$(DM_TP)\Guggenheim\Dcu;$(DM_TP)\JEDI\JCL\lib\d6;$(DM_TP)\JEDI\JCL\source;$(DM_TP)\JEDI\jvcl\lib\D6;$(DM_TP)\JEDI\jvcl\common;$(DM_TP)\JEDI\jvcl\Resources"; + + [Test] + [STAThread] + public void List() + { + ILibraryPathsProvider vProvider = new ClipboardLibraryPathsProvider(); + Clipboard.SetText(cPaths); + IList vPaths = vProvider.List(); + Assert.AreEqual(58, vPaths.Count); + Assert.GreaterOrEqual(vPaths.IndexOf(@"$(DELPHI)\Lib"), 0, "Test 1"); + Assert.GreaterOrEqual(vPaths.IndexOf(@"$(DM_TP)\JEDI\jvcl\Resources"), 0, "Test 2"); + Assert.AreEqual(-1, vPaths.IndexOf(";"), "Test 3"); + } + } +} diff --git a/DelphiProjectHandler.Tests/LibraryPaths/DelphiLibraryPathBuilderTests.cs b/DelphiProjectHandler.Tests/LibraryPaths/DelphiLibraryPathBuilderTests.cs new file mode 100644 index 0000000..ce06d46 --- /dev/null +++ b/DelphiProjectHandler.Tests/LibraryPaths/DelphiLibraryPathBuilderTests.cs @@ -0,0 +1,38 @@ +using System; +using System.Collections.Generic; +using System.Text; +using NUnit.Framework; + +using DelphiProjectHandler.LibraryPaths; + +namespace DelphiProjectHandler.Tests.LibraryPaths +{ + [TestFixture] + public class DelphiLibraryPathBuilderTests + { + [Test] + public void Build() + { + Dictionary vEnvironmentStrings = new Dictionary(); + vEnvironmentStrings.Add("BASA_DM", "$(DM_TP)\\Basa"); + vEnvironmentStrings.Add("DM_TP", "$(DM_VIEW)\\THIRDPARTY"); + vEnvironmentStrings.Add("DM_VIEW", "d:\\DM\\sg894652_2006.2_ccrc\\dispmgr"); + vEnvironmentStrings.Add("FCSUtils", "$(DM_TP)\\FcsUtils"); + vEnvironmentStrings.Add("delphi", "c:\\program files\\borland\\delphi5"); + + List vPaths = new List(); + vPaths.Add("$(DM_View)\\DPR"); + vPaths.Add("$(DM_TP)\\BASA"); + vPaths.Add("$(Delphi)\\Lib"); + vPaths.Add("C:\\source\\dm\\latest"); + + ILibraryPathsBuilder vBuilder = new DelphiLibraryPathsBuilder(); + ICollection vActual = vBuilder.Build(vPaths, vEnvironmentStrings); + Assert.AreEqual(4, vActual.Count, "Invalid no. of returned paths"); + Assert.IsTrue(vActual.Contains(@"d:\dm\sg894652_2006.2_ccrc\dispmgr\dpr"), "Path 0 wasn't found"); + Assert.IsTrue(vActual.Contains(@"d:\dm\sg894652_2006.2_ccrc\dispmgr\thirdparty\basa"), "Path 1 wasn't found"); + Assert.IsTrue(vActual.Contains(@"c:\program files\borland\delphi5\lib"), "Path 2 wasn't found"); + Assert.IsTrue(vActual.Contains(@"c:\source\dm\latest"), "Path 3 wasn't found"); + } + } +} diff --git a/DelphiProjectHandler.Tests/LibraryPaths/DelphiLibraryPathProviderTests.cs b/DelphiProjectHandler.Tests/LibraryPaths/DelphiLibraryPathProviderTests.cs new file mode 100644 index 0000000..4282038 --- /dev/null +++ b/DelphiProjectHandler.Tests/LibraryPaths/DelphiLibraryPathProviderTests.cs @@ -0,0 +1,32 @@ +using System; +using System.Collections.Generic; +using System.Text; + +using NUnit.Framework; + +using DelphiProjectHandler.LibraryPaths; + +namespace DelphiProjectHandler.Tests.LibraryPaths +{ + [TestFixture] + class DelphiLibraryPathProviderTests + { + [Test] + public void Delphi5Paths() + { + ILibraryPathsProvider vProvider = new DelphiLibraryPathsProvider(LibraryPathType.Delphi5); + IList vLibraryPaths = vProvider.List(); + Assert.GreaterOrEqual(vLibraryPaths.IndexOf("c:\\program files\\borland\\delphi5\\lib"), 0, "Test 1"); + Assert.GreaterOrEqual(vLibraryPaths.IndexOf("d:\\dm\\sg894652_5.3_ccrc\\dispmgr\\u"), 0, "Test 2"); + } + + [Test] + public void Delphi6Paths() + { + ILibraryPathsProvider vProvider = new DelphiLibraryPathsProvider(LibraryPathType.Delphi6); + IList vLibraryPaths = vProvider.List(); + Assert.GreaterOrEqual(vLibraryPaths.IndexOf("c:\\program files\\borland\\delphi6\\lib\\"), 0, "Test 1"); +// Assert.GreaterOrEqual(vLibraryPaths.IndexOf("d:\\dm\\sg894652_2006.2_ccrc\\dispmgr\\u"), 0, "Test 2"); + } + } +} diff --git a/DelphiProjectHandler.Tests/LibraryPaths/DelphiRegistryKeysTests.cs b/DelphiProjectHandler.Tests/LibraryPaths/DelphiRegistryKeysTests.cs new file mode 100644 index 0000000..eda57e1 --- /dev/null +++ b/DelphiProjectHandler.Tests/LibraryPaths/DelphiRegistryKeysTests.cs @@ -0,0 +1,61 @@ +/* + * Created by SharpDevelop. + * User: SG0894652 + * Date: 8/10/2009 + * Time: 11:21 PM + * + * To change this template use Tools | Options | Coding | Edit Standard Headers. + */ + +using System; +using NUnit.Framework; + +using DelphiProjectHandler.LibraryPaths; + +namespace DelphiProjectHandler.Tests.LibraryPaths +{ + [TestFixture] + public class DelphiRegistryKeysTests + { + [Test] + public void LibraryKey() + { + Assert.IsNotNull(DelphiRegistryKeys.LibraryKey(LibraryPathType.Delphi5), "Delphi5 should be created"); + Assert.IsNotNull(DelphiRegistryKeys.LibraryKey(LibraryPathType.Delphi6), "Delphi5 should be created"); + } + + [Test] + [ExpectedException(typeof(NotSupportedException))] + public void LibraryKey_NotSupported() + { + DelphiRegistryKeys.LibraryKey(LibraryPathType.Delphi2009); + } + + [Test] + public void RootDirKey() + { + Assert.IsNotNull(DelphiRegistryKeys.RootDirKey(LibraryPathType.Delphi5), "Delphi5 should be created"); + Assert.IsNotNull(DelphiRegistryKeys.RootDirKey(LibraryPathType.Delphi6), "Delphi5 should be created"); + } + + [Test] + [ExpectedException(typeof(NotSupportedException))] + public void RootDirKey_NotSupported() + { + DelphiRegistryKeys.RootDirKey(LibraryPathType.Delphi2009); + } + + [Test] + public void EnvironmentPathsKey() + { + Assert.IsNotNull(DelphiRegistryKeys.EnvironmentPathsKey(LibraryPathType.Delphi6), "Delphi6 should be created"); + } + + [Test] + [ExpectedException(typeof(NotSupportedException))] + public void EnvironmentPathsKey_NotSupported() + { + DelphiRegistryKeys.EnvironmentPathsKey(LibraryPathType.Delphi5); + } + } +} diff --git a/DelphiProjectHandler.Tests/LibraryPaths/LibraryPathProviderFactoryTests.cs b/DelphiProjectHandler.Tests/LibraryPaths/LibraryPathProviderFactoryTests.cs new file mode 100644 index 0000000..9690109 --- /dev/null +++ b/DelphiProjectHandler.Tests/LibraryPaths/LibraryPathProviderFactoryTests.cs @@ -0,0 +1,77 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; +using NUnit.Framework; + +using DelphiProjectHandler.LibraryPaths; + +namespace DelphiProjectHandler.Tests.LibraryPaths +{ + [TestFixture] + public class LibraryPathProviderFactoryTests + { + protected void TestCreateProvider(LibraryPathType iLibraryType, Type iExpectedType, string iErrorMsg) + { + ILibraryPathsProvider vProvider = LibraryPathsProviderFactory.CreateProvider(iLibraryType); + Assert.IsNotNull(vProvider, "Provider was not created. " + iErrorMsg); + Assert.IsInstanceOf(iExpectedType, vProvider, "Created provider is of wrong type. " + iErrorMsg); + } + + [Test] + public void CreateProvider_Supported() + { + TestCreateProvider(LibraryPathType.Delphi5, typeof(DelphiLibraryPathsProvider), "Test 1"); + TestCreateProvider(LibraryPathType.Delphi6, typeof(DelphiLibraryPathsProvider), "Test 2"); + TestCreateProvider(LibraryPathType.Clipboard, typeof(ClipboardLibraryPathsProvider), "Test 3"); + } + + [Test] + [ExpectedException(typeof(NotSupportedException))] + public void CreateProvider_NotSupported_Delphi2005() + { + LibraryPathsProviderFactory.CreateProvider(LibraryPathType.Delphi2005); + } + + [Test] + [ExpectedException(typeof(NotSupportedException))] + public void CreateProvider_NotSupported_Delphi2007() + { + LibraryPathsProviderFactory.CreateProvider(LibraryPathType.Delphi2007); + } + + [Test] + [ExpectedException(typeof(NotSupportedException))] + public void CreateProvider_NotSupported_Delphi7() + { + LibraryPathsProviderFactory.CreateProvider(LibraryPathType.Delphi7); + } + + [Test] + public void ListSupportedProviders() + { + LibraryPathType[] vSupported = LibraryPathsProviderFactory.ListSupportedProviders(); + Assert.AreEqual(3, vSupported.Length, "No. of supported providers is wrong"); + Assert.AreEqual(LibraryPathType.Delphi5, vSupported[0], "Item 0 is wrong"); + Assert.AreEqual(LibraryPathType.Delphi6, vSupported[1], "Item 1 is wrong"); + Assert.AreEqual(LibraryPathType.Clipboard, vSupported[2], "Item 2 is wrong"); + } + + [Test] + public void IsProviderSupported_Supported() + { + Assert.IsTrue(LibraryPathsProviderFactory.IsProviderSupported(LibraryPathType.Delphi5), "Delphi5 should be supported"); + Assert.IsTrue(LibraryPathsProviderFactory.IsProviderSupported(LibraryPathType.Delphi6), "Delphi6 should be supported"); + Assert.IsTrue(LibraryPathsProviderFactory.IsProviderSupported(LibraryPathType.Clipboard), "Clipboard should be supported"); + } + + [Test] + public void IsProviderSupported_NotSupported() + { + Assert.IsFalse(LibraryPathsProviderFactory.IsProviderSupported(LibraryPathType.Delphi7), "Delphi7 should not be supported"); + Assert.IsFalse(LibraryPathsProviderFactory.IsProviderSupported(LibraryPathType.Delphi2005), "Delphi2005 should not be supported"); + Assert.IsFalse(LibraryPathsProviderFactory.IsProviderSupported(LibraryPathType.Delphi2007), "Delphi2007 should not be supported"); + Assert.IsFalse(LibraryPathsProviderFactory.IsProviderSupported(LibraryPathType.Delphi2009), "Delphi2009 should not be supported"); + } + } +} diff --git a/DelphiProjectHandler.Tests/Properties/AssemblyInfo.cs b/DelphiProjectHandler.Tests/Properties/AssemblyInfo.cs new file mode 100644 index 0000000..9d45309 --- /dev/null +++ b/DelphiProjectHandler.Tests/Properties/AssemblyInfo.cs @@ -0,0 +1,35 @@ +using System.Reflection; +using System.Runtime.CompilerServices; +using System.Runtime.InteropServices; + +// General Information about an assembly is controlled through the following +// set of attributes. Change these attribute values to modify the information +// associated with an assembly. +[assembly: AssemblyTitle("DelphiProjectHandler.Tests")] +[assembly: AssemblyDescription("")] +[assembly: AssemblyConfiguration("")] +[assembly: AssemblyCompany("ProfiMile LemaÅ„czyk sp. j.")] +[assembly: AssemblyProduct("DelphiProjectHandler.Tests")] +[assembly: AssemblyCopyright("Copyright © ProfiMile LemaÅ„czyk sp. j. 2006")] +[assembly: AssemblyTrademark("")] +[assembly: AssemblyCulture("")] + +// Setting ComVisible to false makes the types in this assembly not visible +// to COM components. If you need to access a type in this assembly from +// COM, set the ComVisible attribute to true on that type. +[assembly: ComVisible(false)] + +// The following GUID is for the ID of the typelib if this project is exposed to COM +[assembly: Guid("acbed1ed-f36b-449f-a655-f6f40da7d4d4")] + +// Version information for an assembly consists of the following four values: +// +// Major Version +// Minor Version +// Build Number +// Revision +// +// You can specify all the values or you can default the Revision and Build Numbers +// by using the '*' as shown below: +[assembly: AssemblyVersion("1.0.0.0")] +[assembly: AssemblyFileVersion("1.0.0.0")] diff --git a/DelphiProjectHandler.Tests/SourceControl/SourceOffsiteClassTests.cs b/DelphiProjectHandler.Tests/SourceControl/SourceOffsiteClassTests.cs new file mode 100644 index 0000000..34b300d --- /dev/null +++ b/DelphiProjectHandler.Tests/SourceControl/SourceOffsiteClassTests.cs @@ -0,0 +1,198 @@ +using System; +using System.IO; +using NUnit.Framework; + +using DelphiProjectHandler.SourceControl; + +namespace DelphiProjectHandler.Tests.SourceControl +{ + [TestFixture] + public class SourceOffsiteClassTests: SourceOffsite + { + #region (Overrides) + + public SourceOffsiteClassTests() + : + base("fcsweb4.dev.sabre.com", 8888, "ft-latest", "mpl", "mpl", @"d:\source\ft-latest") + { + } + + protected override string RunCommand(string iFileName) + { + if (!MockRunCommand) + return base.RunCommand(iFileName); + else + if (MockSuccess) + return TestValueSuccessful; + else + return TestValueUnsuccessful; + } + + protected override string GetApplicationFileName() + { + if (!MockGetApplicationFileName) + return base.GetApplicationFileName(); + else + if (MockSuccess) + return @"c:\program files\SourceOffsite\soscmd.exe"; + else + return @"c:\program files\SourceOffsite\soscmd_wrong.exe"; + } + + #endregion + #region (Properties) + + protected bool MockRunCommand + { + get { return fMockRunCommand; } + set { fMockRunCommand = value; } + } + private bool fMockRunCommand = false; + + protected bool MockGetApplicationFileName + { + get { return fMockGetApplicationFileName; } + set { fMockGetApplicationFileName = value; } + } + private bool fMockGetApplicationFileName; + + protected bool MockSuccess + { + get { return fMockSuccess; } + set { fMockSuccess = value; } + } + private bool fMockSuccess; + + protected string TestValueSuccessful + { + get { return fTestValueSuccessful; } + set { fTestValueSuccessful = value; } + } + private string fTestValueSuccessful = ""; + + protected string TestValueUnsuccessful + { + get { return fTestValueUnsuccessful; } + set { fTestValueUnsuccessful = value; } + } + private string fTestValueUnsuccessful = ""; + + #endregion + #region (Test methods) + + protected void TestGetCommandParameters(string iProjectPath, string iFileName) + { + string vExpected = string.Format( + @"-command CheckoutFile -server {0}:{1} " + + @"-alias {2} -name {3} -password {4} " + + @"-project $/{5} -file {6}", + ServerName, ServerPort, Alias, UserName, Password, iProjectPath, Path.GetFileName(iFileName)); + + string vActual = GetCommandParameters(iFileName); + Assert.AreEqual(vExpected, vActual, "Wrong command line was returned. Project path: {0}, File name: {1}", iProjectPath, iFileName); + } + + protected void TestCheckoutFile(string iFileName, bool iExpected) + { + MockRunCommand = true; + try + { + MockSuccess = iExpected; + bool vActual = CheckoutFile(iFileName); + Assert.AreEqual(iExpected, vActual, "Wrong checkout result. FileName: " + iFileName); + } + finally + { + MockRunCommand = false; + } + } + + #endregion + #region (Setup/TearDown) + + [SetUp] + protected virtual void Setup() + { + TestValueSuccessful = "Checked out file: ftadmin.dpr\r\n"; + TestValueUnsuccessful = "Unable to lock file: ftadmin.dpr\r\n"; + } + + [TearDown] + protected virtual void TearDown() + { + } + + #endregion + + [Test] + public void CheckoutFile() + { + TestCheckoutFile(@"d:\source\ft-latest\all\dpr\ftadmin.dpr", true); + TestCheckoutFile(@"d:\source\ft-latest\all\dpr\ftadmin.dpr", false); + } + + [Test] + public void WasFileCheckedOut() + { + bool vActual = WasFileCheckedOut(TestValueSuccessful); + Assert.IsTrue(vActual, "Successful checkout was not recognized"); + vActual = WasFileCheckedOut(TestValueUnsuccessful); + Assert.IsFalse(vActual, "Unsuccessful checkout was not recognized"); + } + + [Test] + //[Ignore("Not on VPN")] + public void RunCommand() + { + TestRunCommand(false, true, @"d:\source\ft-latest\all\dpr\test_project.dpr", "Error: Server response = 401 NoSuchFileOrProject\r\nError: Server response = 401 NoSuchFileOrProject\r\n"); + } + + [Test] + [ExpectedException(typeof(ArgumentException))] + public void RunCommand_EmptyFileName() + { + TestRunCommand(false, true, "", ""); + } + + [Test] + [ExpectedException(typeof(System.ComponentModel.Win32Exception))] + public void RunCommand_WrongApplicationName() + { + TestRunCommand(true, false, "doesn't have meaning.txt", ""); + } + + private void TestRunCommand(bool iMockBehavior, bool iSuccessful, string iFileName, string iExpected) + { + MockGetApplicationFileName = iMockBehavior; + try + { + MockSuccess = iSuccessful; + string vActual = RunCommand(iFileName); + Assert.AreEqual(iExpected, vActual, "File Name: " + iFileName); + } + finally + { + MockGetApplicationFileName = false; + } + } + + [Test] + public void TestCreate() + { + SourceOffsiteClassTests vControl = new SourceOffsiteClassTests(); + Assert.AreEqual("fcsweb4.dev.sabre.com", vControl.ServerName, "ServerName is wrong"); + Assert.AreEqual(8888, vControl.ServerPort, "ServerPort is wrong"); + Assert.AreEqual("ft-latest", vControl.Alias, "Alias is wrong"); + Assert.AreEqual("mpl", vControl.UserName, "UserName is wrong"); + Assert.AreEqual("mpl", vControl.Password, "Password is wrong"); + Assert.AreEqual(@"d:\source\ft-latest", vControl.BaseFolder, "BaseFolder is wrong"); + } + + [Test] + public void GetCommandParameters() + { + TestGetCommandParameters(@"all/dpr", @"d:\source\ft-latest\all\dpr\ftadmin.dpr"); + TestGetCommandParameters(@"", @"ftadmin.dpr"); + } + } +} diff --git a/DelphiProjectHandler.Tests/TestsRunner.cs b/DelphiProjectHandler.Tests/TestsRunner.cs new file mode 100644 index 0000000..4413483 --- /dev/null +++ b/DelphiProjectHandler.Tests/TestsRunner.cs @@ -0,0 +1,14 @@ +using System; +using System.Collections.Generic; +using System.Text; + +namespace DelphiProjectHandler.Tests +{ + class Program + { + static void Main(string[] args) + { +// Runner.Main(args); + } + } +} diff --git a/DelphiProjectHandler.Tests/UnitFormReaderClassTests.cs b/DelphiProjectHandler.Tests/UnitFormReaderClassTests.cs new file mode 100644 index 0000000..25db0c5 --- /dev/null +++ b/DelphiProjectHandler.Tests/UnitFormReaderClassTests.cs @@ -0,0 +1,59 @@ +using System; +using NUnit.Framework; + +using DelphiProjectHandler; + +namespace DelphiProjectHandler.Tests +{ + [TestFixture] + public class UnitFormReaderClassTests + { + protected void TestGetBinaryFormName(string iTestValue, string iExpected, string iMessage) + { + string vActual = UnitFormReader.GetBinaryFormName(iTestValue); + Assert.AreEqual(iExpected, vActual, iMessage); + } + + [Test] + public void GetBinaryFormName() + { + #region (Test values) + + string vTestValue1 = @"ÿ TFRMACFTDISCREPANCIES 0É TPF0ñTfrmAcftDiscrepanciesfrmAcftDiscrepanciesLeftî TopiWidth™Height¸ CaptionAircraft DiscrepanciesVisibleOnClose FormClose OnCloseQueryFormCloseQuery"; + + string vTestValue2 = @"ÿ TFRMAIRCRAFTINFO 02 TPF0TfrmAircraftInfofrmAircraftInfoLeftÖ Top"; + + string vTestValue3 = @"ÿ TFRMBASESI 0í TPF0ñTfrmBaseSI frmBaseSILeftUTop° CaptionfrmBa"; + + #endregion + + TestGetBinaryFormName(vTestValue1, "frmAcftDiscrepancies", "1"); + TestGetBinaryFormName(vTestValue2, "frmAircraftInfo", "2"); + TestGetBinaryFormName(vTestValue3, "frmBaseSI", "3"); + } + + [Test] + [ExpectedException(typeof(Exception))] + public void GetBinaryFormName_FormNameIsLast() + { + string vTestValue = @"ÿ TFRMBASESI 0í TPF0ñTfrmBase"; + TestGetBinaryFormName(vTestValue, "", ""); + } + + [Test] + [ExpectedException(typeof(Exception))] + public void GetBinaryFromName_WithoutMarker() + { + string vTestValue = @"ÿ TFRMACFTDISCREPANCIES 0É ñTfrmAcftDiscrepanciesfrmAcftDiscrepanciesLeftî TopiWidth™Height¸ CaptionAircraft DiscrepanciesVisibleOnClose FormClose OnCloseQueryFormCloseQuery"; + TestGetBinaryFormName(vTestValue, "", ""); + } + + [Test] + [ExpectedException(typeof(Exception))] + public void GetBinaryFormName_WithoutFormName() + { + string vTestValue = @"ÿ TFRMACFTDISCREPANCIES 0É TPF0ñ"; + TestGetBinaryFormName(vTestValue, "", ""); + } + } +} diff --git a/DelphiProjectHandler.Tests/UnitItemClassTests.cs b/DelphiProjectHandler.Tests/UnitItemClassTests.cs new file mode 100644 index 0000000..3c80761 --- /dev/null +++ b/DelphiProjectHandler.Tests/UnitItemClassTests.cs @@ -0,0 +1,308 @@ +using System; +using NUnit.Framework; + +using DelphiProjectHandler; + +namespace DelphiProjectHandler.Tests +{ + [TestFixture] + public class UnitItemClassTests + { + protected void DoTestCreate_Name(string iExpectedName) + { + UnitItem vUnit = new UnitItem(iExpectedName); + Assert.AreEqual(iExpectedName, vUnit.Name, "Name wasn't set properly"); + Assert.AreEqual("", vUnit.Path, "Path wasn't set to empty string"); + } + + protected void DoTestNameChange(string iInitialName, string iNewName) + { + UnitItem vUnit = new UnitItem(iInitialName); + DoTestNameChange(vUnit, iInitialName, iNewName); + } + + protected void DoTestNameChange(UnitItem iUnitItem, string iInitialName, string iNewName) + { + Assert.AreEqual(iInitialName, iUnitItem.Name, "Name wasn't set properly."); + iUnitItem.Name = iNewName; + Assert.AreEqual(iNewName, iUnitItem.Name, "Name wasn't changed correctly."); + } + + protected void DoTestPathChange(UnitItem iUnitItem, string iInitialPath, string iNewPath, string iMessage) + { + Assert.AreEqual(iInitialPath, iUnitItem.Path, "Path wasn't set properly. " + iMessage); + iUnitItem.Path = iNewPath; + Assert.AreEqual(iNewPath, iUnitItem.Path, "Path wasn't changed correctly. " + iMessage); + } + + protected void DoTestPathChange(string iInitialPath, string iNewPath) + { + UnitItem vUnit = new UnitItem("unit_name", iInitialPath, true, ""); + DoTestPathChange(vUnit, iInitialPath, iNewPath, ""); + + vUnit = new UnitItem("", iInitialPath, true, ""); + DoTestPathChange(vUnit, iInitialPath, iNewPath, "Created with empty name."); + } + + protected void DoTestToString_WithConditions(bool iAddConditions, string iSeparator, bool iSeparatorLast, string iExpected) + { + UnitItem vUnit = new UnitItem("unit_name", "unit_path", true, ""); + if (iAddConditions) + { + vUnit.StartingConditions = "{$condition1}"; + vUnit.EndingConditions = "{$condition2}"; + } + + string vActual = vUnit.ToString(" ", iSeparator, iSeparatorLast); + + Assert.AreEqual(iExpected, vActual); + } + + protected void DoTestHasConditions(bool iExpected, bool iActualHasConditions, string iExpectedConditions, string iActualConditions, string iMessage) + { + Assert.AreEqual(iExpected, iActualHasConditions, "HasConditions value is wrong: " + iMessage); + Assert.AreEqual(iExpectedConditions, iActualConditions, "Conditions value is wrong: " + iMessage); + } + + protected void DoTestHasStartingConditions(string iConditions, bool iExpected) + { + UnitItem vUnit = new UnitItem("unit_name"); + vUnit.StartingConditions = iConditions; + DoTestHasConditions(iExpected, vUnit.HasStartingConditions, iConditions, vUnit.StartingConditions, "Starting"); + } + + protected void DoTestHasEndingConditions(string iConditions, bool iExpected) + { + UnitItem vUnit = new UnitItem("unit_name"); + vUnit.EndingConditions = iConditions; + DoTestHasConditions(iExpected, vUnit.HasEndingConditions, iConditions, vUnit.EndingConditions, "Ending"); + } + + protected void DoTestHasForm(string iForm, bool iExpected) + { + UnitItem vUnit = new UnitItem("Created with unit name only"); + vUnit.Form = iForm; + DoTestHasForm(vUnit, iForm, iExpected); + + vUnit = new UnitItem("Created with empty path and form", "", false, iForm); + DoTestHasForm(vUnit, iForm, iExpected); + } + + protected void DoTestHasForm(UnitItem iUnitItem, string iExpectedFormName, bool iExpectedHasForm) + { + Assert.AreEqual(iExpectedHasForm, iUnitItem.HasForm, "HasForm value is wrong. " + iUnitItem.Name); + Assert.AreEqual(iExpectedFormName, iUnitItem.Form, "Form value is wrong. " + iUnitItem.Name); + } + + [Test] + public void Create_NameAndPath() + { + UnitItem vUnit = new UnitItem("unit_name", "unit_path", true, ""); + Assert.AreEqual("unit_name", vUnit.Name, "Name wasn't set properly"); + Assert.AreEqual("unit_path", vUnit.Path, "Path wasn't set properly"); + } + + [Test] + public void Create_Name() + { + DoTestCreate_Name("unit_name"); + } + + [Test] + public void Create_EmptyName() + { + DoTestCreate_Name(""); + } + + [Test] + public void NameChange() + { + DoTestNameChange("unit_name", "new_unit_name"); + DoTestNameChange("unit_name", ""); + DoTestNameChange("", "new_unit_name"); + } + + [Test] + public void PathChange() + { + DoTestPathChange("unit_path", "new_unit_path"); + } + + [Test] + public void HasStartingConditions() + { + DoTestHasStartingConditions("", false); + DoTestHasStartingConditions("{$IFDEF test_condition}", true); + } + + [Test] + public void HasEndingConditions() + { + DoTestHasEndingConditions("", false); + DoTestHasEndingConditions("{$ENDIF}", true); + } + + [Test] + public void HasForm() + { + DoTestHasForm("form1", true); + DoTestHasForm("", false); + } + + [Test] + public void PathChange_ToEmpty() + { + DoTestPathChange("unit_path", ""); + } + + [Test] + public void PathChange_FromEmpty() + { + DoTestPathChange("", "new_unit_path"); + } + + [Test] + public void PathChange_ToSamePath() + { + DoTestPathChange("same_path", "same_path"); + } + + [Test] + public void ToString_WithoutPath() + { + UnitItem vUnit = new UnitItem("unit_name"); + Assert.AreEqual("unit_name", vUnit.ToString("", "", false)); + } + + [Test] + public void ToString_WithPath_WithoutBacklash() + { + UnitItem vUnit = new UnitItem("unit_name", @"c:\temp", true, ""); + string vExpected = "unit_name in 'c:\\temp\\unit_name.pas'"; + string vActual = vUnit.ToString("", "", false); + Assert.AreEqual(vExpected, vActual); + } + + [Test] + public void ToString_WithPath_WithBackslash() + { + UnitItem vUnit = new UnitItem("unit_name", @"c:\temp\", true, ""); + string vExpected = "unit_name in 'c:\\temp\\unit_name.pas'"; + string vActual = vUnit.ToString("", "", false); + Assert.AreEqual(vExpected, vActual); + } + + [Test] + public void ToString_RelativePath_WithBackslash() + { + UnitItem vUnit = new UnitItem("unit_name", @"..\..\", true, ""); + string vExpected = "unit_name in '..\\..\\unit_name.pas'"; + string vActual = vUnit.ToString("", "", false); + Assert.AreEqual(vExpected, vActual); + } + + [Test] + public void ToString_RelativePath_WithoutBackslash() + { + UnitItem vUnit = new UnitItem("unit_name", @"..\..", true, ""); + string vExpected = "unit_name in '..\\..\\unit_name.pas'"; + string vActual = vUnit.ToString("", "", false); + Assert.AreEqual(vExpected, vActual); + } + + [Test] + public void ToString_RelativePath_BlankPath() + { + UnitItem vUnit = new UnitItem("unit_name", "", true, ""); + string vExpected = "unit_name in 'unit_name.pas'"; + string vActual = vUnit.ToString("", "", false); + Assert.AreEqual(vExpected, vActual); + } + + [Test] + public void ToString_WithConditions() + { + string vExpected = + " {$condition1}\n" + + " unit_name in 'unit_path\\unit_name.pas'\n" + + " {$condition2}"; + + DoTestToString_WithConditions(true, "", false, vExpected); + } + + [Test] + public void ToString_WithSeparator_First() + { + string vExpected = + " {$condition1}\n" + + " unit_name in 'unit_path\\unit_name.pas',\n" + + " {$condition2}"; + + DoTestToString_WithConditions(true, ",", false, vExpected); + } + + [Test] + public void ToString_WithSeparator_Last() + { + string vExpected = + " {$condition1}\n" + + " unit_name in 'unit_path\\unit_name.pas'\n" + + " {$condition2};"; + + DoTestToString_WithConditions(true, ";", true, vExpected); + } + + [Test] + public void ToString_WithSeparator_WithoutConditions_First() + { + string vExpected = " unit_name in 'unit_path\\unit_name.pas',"; + DoTestToString_WithConditions(false, ",", false, vExpected); + } + + [Test] + public void ToString_WithSeparator_WithoutConditions_Last() + { + string vExpected = " unit_name in 'unit_path\\unit_name.pas';"; + DoTestToString_WithConditions(false, ";", true, vExpected); + } + + [Test] + public void ToString_StartingConditionOnly() + { + string vExpected = + " {$begin}\n" + + " unit_name;"; + + UnitItem vUnit = new UnitItem("unit_name"); + vUnit.StartingConditions = "{$begin}"; + string vActual = vUnit.ToString(" ", ";", false); + + Assert.AreEqual(vExpected, vActual); + } + + [Test] + public void ToString_EndingConditionOnly() + { + string vExpected = + " unit_name,\n" + + " {$end}"; + + UnitItem vUnit = new UnitItem("unit_name"); + vUnit.EndingConditions = "{$end}"; + string vActual = vUnit.ToString(" ", ",", false); + + Assert.AreEqual(vExpected, vActual); + } + + [Test] + public void ToString_WithForm() + { + string vExpected = + " unit_name {unit_name};"; + + UnitItem vUnit = new UnitItem("unit_name", "", false, "unit_name"); + string vActual = vUnit.ToString(" ", ";", true); + Assert.AreEqual(vExpected, vActual); + } + } +} diff --git a/DelphiProjectHandler.Tests/UnitListClassTests.cs b/DelphiProjectHandler.Tests/UnitListClassTests.cs new file mode 100644 index 0000000..b7c57fb --- /dev/null +++ b/DelphiProjectHandler.Tests/UnitListClassTests.cs @@ -0,0 +1,433 @@ +using System; +using NUnit.Framework; + +using DelphiProjectHandler; + +namespace DelphiProjectHandler.Tests +{ + [TestFixture] + public class UnitListClassTests + { + #region (Properties) + + protected UnitList TestList + { + get { return fTestList; } + } + private UnitList fTestList; + + #endregion + #region (Helper methods) + + protected UnitList CreateList() + { + return new UnitList(); + } + + protected UnitList CreateDefaultList(int iCount, bool iWithPath, bool iWithConditions) + { + UnitList vList = CreateList(); + for (int vItemIdx = 0; vItemIdx < iCount; vItemIdx++) + { + UnitItem vUnit = CreateItem("DefaultName" + vItemIdx.ToString(), "DefaultPath" + vItemIdx.ToString(), iWithPath); + if (iWithConditions) + { + vUnit.StartingConditions = "{$starting_condition}"; + vUnit.EndingConditions = "{$ending_condition}"; + } + vList.Add(vUnit); + } + + return vList; + } + + protected UnitItem CreateItem(string iName, string iPath, bool iWithPath) + { + return new UnitItem(iName, iPath, iWithPath, ""); + } + + protected UnitItem CreateItem(string iPrefix, int iIndex, bool iWithPath) + { + return CreateItem(iPrefix + "Name" + iIndex.ToString(), iPrefix + "Path" + iIndex.ToString(), iWithPath); + } + + #endregion + #region (Test methods) + + protected void DoTestInsert(UnitList iList, UnitItem iUnitItem, int iIndex) + { + int vOldCount = iList.Count; + iList.Insert(iIndex, iUnitItem); + Assert.AreEqual(vOldCount + 1, iList.Count, "Item wasn't inserted properly"); + Assert.AreEqual(iUnitItem, iList[iIndex], "Item wasn't assigned correctly"); + } + + protected void DoTestContains_NotExisting(UnitList iList, string iUnitPrefix, int iUnitIdx) + { + UnitItem vNotExisting = CreateItem(iUnitPrefix, iUnitIdx, true); + Assert.IsFalse(iList.Contains(vNotExisting.Name), "Wrong Contains result. Item shouldn't be on the list: " + vNotExisting.Name); + } + + protected void DoTestToString_MultipleUnitsInConditionals(UnitList iList, int iStartingItemIdx, int iEndingItemIdx, string iExpected) + { + iList[iStartingItemIdx].StartingConditions = "{$starting_condition}"; + iList[iEndingItemIdx].EndingConditions = "{$ending_condition}"; + + string vActual = iList.ToString(); + Assert.AreEqual(iExpected, vActual); + } + + #endregion + #region (Setup) + + [SetUp] + protected void SetUp() + { + fTestList = CreateDefaultList(10, true, false); + } + + [TearDown] + protected void TearDown() + { + fTestList = null; + } + + #endregion + + [Test] + public void Create() + { + UnitList vList = CreateList(); + Assert.AreEqual(0, vList.Count, "List after creation is not empty"); + } + + [Test] + public void Add() + { + UnitList vList = CreateList(); + + for (int vItemIdx = 0; vItemIdx < 10; vItemIdx++) + { + UnitItem vExpected = CreateItem("unit ", vItemIdx, true); + vList.Add(vExpected); + Assert.AreEqual(vItemIdx + 1, vList.Count, "Unit item wasn't added to the list"); + Assert.AreEqual(vExpected, vList[vItemIdx], "Unit item wasn't set properly"); + } + } + + [Test] + [ExpectedException(typeof(ArgumentException))] + public void Add_Duplicates() + { + UnitList vList = CreateList(); + UnitItem vItem = CreateItem("duplicated", 0, true); + + vList.Add(vItem); + vList.Add(vItem); + } + + [Test] + public void Insert_AtTheBeginning() + { + for (int vItemIdx = 0; vItemIdx < 5; vItemIdx++) + { + UnitItem vExpected = CreateItem("unit ", vItemIdx, true); + DoTestInsert(TestList, vExpected, 0); + } + } + + [Test] + public void Insert_AtTheEnd() + { + for (int vItemIdx = 0; vItemIdx < 5; vItemIdx++) + { + UnitItem vExpected = CreateItem("unit ", vItemIdx, true); + DoTestInsert(TestList, vExpected, TestList.Count); + } + } + + [Test] + public void Remove_ByItem() + { + while (TestList.Count > 0) + { + UnitItem vToDelete = TestList[0]; + int vOldCount = TestList.Count; + TestList.Remove(vToDelete); + Assert.AreEqual(vOldCount - 1, TestList.Count, "Item wasn't deleted from the list"); + Assert.IsFalse(TestList.Contains(vToDelete), "Item wasn't deleted. Still exists on the list"); + } + } + + [Test] + public void Remove_ByName() + { + while (TestList.Count > 0) + { + UnitItem vToDelete = TestList[0]; + int vOldCount = TestList.Count; + TestList.Remove(vToDelete.Name); + Assert.AreEqual(vOldCount - 1, TestList.Count, "Item wasn't deleted from the list"); + Assert.IsFalse(TestList.Contains(vToDelete), "Item wasn't deleted. Still exists on the list"); + } + } + + [Test] + public void Set() + { + for (int vUnitIdx = 0; vUnitIdx < TestList.Count; vUnitIdx++) + { + UnitItem vExpected = CreateItem("NewItem", vUnitIdx, true); + TestList[vUnitIdx] = vExpected; + Assert.AreEqual(vExpected, TestList[vUnitIdx], "Item wasn't set properly"); + } + } + + [Test] + [ExpectedException(typeof(ArgumentException))] + public void Set_Duplicated() + { + UnitList vList = CreateDefaultList(2, true, false); + UnitItem vItem = CreateItem("duplicated", 0, true); + + vList[0] = vItem; + vList[1] = vItem; + } + + [Test] + public void Contains_Existing() + { + for (int vUnitIdx = 0; vUnitIdx < TestList.Count; vUnitIdx++) + { + UnitItem vExpected = TestList[vUnitIdx]; + Assert.IsTrue(TestList.Contains(vExpected.Name), "Wrong Contains result. Item should be on the list"); + } + } + + [Test] + public void Contains_NonExisting() + { + for (int vUnitIdx = 0; vUnitIdx < TestList.Count; vUnitIdx++) + { + DoTestContains_NotExisting(TestList, "DiffDefault", vUnitIdx); + DoTestContains_NotExisting(TestList, "Default", vUnitIdx + TestList.Count + 1); + } + } + + [Test] + public void IndexOf_Name_Existing() + { + for (int vUnitIdx = 0; vUnitIdx < TestList.Count; vUnitIdx++) + { + UnitItem vExpected = TestList[vUnitIdx]; + Assert.AreEqual(vUnitIdx, TestList.IndexOf(vExpected.Name), "Wrong IndexOf by name result. Item should be found"); + } + } + + [Test] + public void IndexOf_Name_NonExisting() + { + for (int vUnitIdx = 0; vUnitIdx < TestList.Count; vUnitIdx++) + { + UnitItem vExpected = CreateItem("NotExisting", vUnitIdx, true); + Assert.AreEqual(-1, TestList.IndexOf(vExpected.Name), "Wrong IndexOf by name result. Item shouldn't be on the list"); + } + } + + [Test] + public void IndexOf_NameStart_Existing() + { + for (int vUnitIdx = 0; vUnitIdx < TestList.Count; vUnitIdx++) + { + UnitItem vExpected = TestList[vUnitIdx]; + Assert.AreEqual(vUnitIdx, TestList.IndexOf(vExpected.Name, vUnitIdx), "Wrong IndexOf by name result. Item should be found"); + Assert.AreEqual(-1, TestList.IndexOf(vExpected.Name, vUnitIdx + 1), "Wrong IndexOf by name result. Item shouldn't be found"); + } + } + + [Test] + public void IndexOf_NameStart_NonExisting() + { + for (int vUnitIdx = 0; vUnitIdx < TestList.Count; vUnitIdx++) + { + UnitItem vExpected = CreateItem("NotExisting", vUnitIdx, true); + Assert.AreEqual(-1, TestList.IndexOf(vExpected.Name, vUnitIdx), "Wrong IndexOf by name result. Item shouldn't be on the list"); + } + } + + [Test] + public void IndexOf_NameStartCount_Existing() + { + for (int vUnitIdx = 0; vUnitIdx < TestList.Count; vUnitIdx++) + { + UnitItem vExpected = TestList[vUnitIdx]; + Assert.AreEqual(vUnitIdx, TestList.IndexOf(vExpected.Name, vUnitIdx, 1), "Wrong IndexOf by name result"); + Assert.AreEqual(-1, TestList.IndexOf(vExpected.Name, vUnitIdx + 1, 1), "Wrong IndexOf by name result. Item shouldn't be found. vUnitIdx + 1"); + Assert.AreEqual(-1, TestList.IndexOf(vExpected.Name, vUnitIdx, 0), "Wrong IndexOf by name result. Item shouldn't be found. Count = 0"); + } + } + + [Test] + public void IndexOf_NameStartCount_NonExisting() + { + for (int vUnitIdx = 0; vUnitIdx < TestList.Count; vUnitIdx++) + { + UnitItem vExpected = CreateItem("NotExisting", vUnitIdx, true); + Assert.AreEqual(-1, TestList.IndexOf(vExpected.Name, vUnitIdx, 1), "Wrong IndexOf by name result. Item shouldn't be on the list"); + } + } + + [Test] + public void LastIndexOf_Name_Existing() + { + for (int vUnitIdx = 0; vUnitIdx < TestList.Count; vUnitIdx++) + { + UnitItem vExpected = TestList[vUnitIdx]; + Assert.AreEqual(vUnitIdx, TestList.LastIndexOf(vExpected.Name), "Wrong IndexOf by name result. Item should be found"); + } + } + + [Test] + public void LastIndexOf_Name_NonExisting() + { + for (int vUnitIdx = 0; vUnitIdx < TestList.Count; vUnitIdx++) + { + UnitItem vExpected = CreateItem("NotExisting", vUnitIdx, true); + Assert.AreEqual(-1, TestList.LastIndexOf(vExpected.Name), "Wrong IndexOf by name result. Item shouldn't be on the list"); + } + } + + [Test] + public void LastIndexOf_NameStart_Existing() + { + for (int vUnitIdx = 0; vUnitIdx < TestList.Count; vUnitIdx++) + { + UnitItem vExpected = TestList[vUnitIdx]; + Assert.AreEqual(vUnitIdx, TestList.LastIndexOf(vExpected.Name, vUnitIdx), "Wrong IndexOf by name result. Item should be found"); + Assert.AreEqual(-1, TestList.LastIndexOf(vExpected.Name, vUnitIdx - 1), "Wrong IndexOf by name result. Item shouldn't be found"); + } + } + + [Test] + public void LastIndexOf_NameStart_NonExisting() + { + for (int vUnitIdx = 0; vUnitIdx < TestList.Count; vUnitIdx++) + { + UnitItem vExpected = CreateItem("NotExisting", vUnitIdx, true); + Assert.AreEqual(-1, TestList.LastIndexOf(vExpected.Name, vUnitIdx), "Wrong IndexOf by name result. Item shouldn't be on the list"); + } + } + + [Test] + public void LastIndexOf_NameStartCount_Existing() + { + for (int vUnitIdx = 0; vUnitIdx < TestList.Count; vUnitIdx++) + { + UnitItem vExpected = TestList[vUnitIdx]; + Assert.AreEqual(vUnitIdx, TestList.LastIndexOf(vExpected.Name, vUnitIdx, 1), "Wrong IndexOf by name result"); + Assert.AreEqual(-1, TestList.LastIndexOf(vExpected.Name, vUnitIdx - 1, 1), "Wrong IndexOf by name result. Item shouldn't be found. vUnitIdx + 1"); + Assert.AreEqual(-1, TestList.LastIndexOf(vExpected.Name, vUnitIdx, 0), "Wrong IndexOf by name result. Item shouldn't be found. Count = 0"); + } + } + + [Test] + public void LastIndexOf_NameStartCount_NonExisting() + { + for (int vUnitIdx = 0; vUnitIdx < TestList.Count; vUnitIdx++) + { + UnitItem vExpected = CreateItem("NotExisting", vUnitIdx, true); + Assert.AreEqual(-1, TestList.LastIndexOf(vExpected.Name, vUnitIdx, 1), "Wrong IndexOf by name result. Item shouldn't be on the list"); + } + } + + [Test] + public void ToString_WithPaths() + { + string vExpected = + "uses\n" + + " DefaultName0 in 'DefaultPath0\\DefaultName0.pas',\n" + + " DefaultName1 in 'DefaultPath1\\DefaultName1.pas';"; + + UnitList vList = CreateDefaultList(2, true, false); + string vActual = vList.ToString(); + Assert.AreEqual(vExpected, vActual); + } + + [Test] + public void ToString_WithoutPaths() + { + string vExpected = + "uses\n" + + " DefaultName0,\n" + + " DefaultName1;"; + + UnitList vList = CreateDefaultList(2, false, false); + string vActual = vList.ToString(); + Assert.AreEqual(vExpected, vActual); + } + + [Test] + public void ToString_WithPaths_WithConditions() + { + string vExpected = + "uses\n" + + " {$starting_condition}\n" + + " DefaultName0 in 'DefaultPath0\\DefaultName0.pas',\n" + + " {$ending_condition}\n" + + " {$starting_condition}\n" + + " DefaultName1 in 'DefaultPath1\\DefaultName1.pas'\n" + + " {$ending_condition};"; + + UnitList vList = CreateDefaultList(2, true, true); + string vActual = vList.ToString(); + Assert.AreEqual(vExpected, vActual); + } + + [Test] + public void ToString_WithoutPaths_WithConditions() + { + string vExpected = + "uses\n" + + " {$starting_condition}\n" + + " DefaultName0,\n" + + " {$ending_condition}\n" + + " {$starting_condition}\n" + + " DefaultName1\n" + + " {$ending_condition};"; + + UnitList vList = CreateDefaultList(2, false, true); + string vActual = vList.ToString(); + Assert.AreEqual(vExpected, vActual); + } + + [Test] + public void ToString_MultipleUnitsInConditionals_AtEnd() + { + string vExpected = + "uses\n" + + " DefaultName0,\n" + + " {$starting_condition}\n" + + " DefaultName1,\n" + + " DefaultName2\n" + + " {$ending_condition};"; + + UnitList vList = CreateDefaultList(3, false, false); + DoTestToString_MultipleUnitsInConditionals(vList, 1, 2, vExpected); + } + + [Test] + public void ToString_MultipleUnitsInConditionals_AtBeginning() + { + string vExpected = + "uses\n" + + " {$starting_condition}\n" + + " DefaultName0,\n" + + " DefaultName1,\n" + + " {$ending_condition}\n" + + " DefaultName2;"; + + UnitList vList = CreateDefaultList(3, false, false); + DoTestToString_MultipleUnitsInConditionals(vList, 0, 1, vExpected); + } + } +} diff --git a/DelphiProjectHandler.Tests/UsesClauseReaderClassTests.cs b/DelphiProjectHandler.Tests/UsesClauseReaderClassTests.cs new file mode 100644 index 0000000..581a792 --- /dev/null +++ b/DelphiProjectHandler.Tests/UsesClauseReaderClassTests.cs @@ -0,0 +1,5482 @@ +using System; +using System.Collections.Generic; +using NUnit.Framework; + +using DelphiProjectHandler; + +namespace DelphiProjectHandler.Tests +{ + [TestFixture] + public class UsesClauseReaderClassTests + { + protected UnitList GetDefaultUnits(int iCount, bool iWithPaths, bool iRelative, bool iWithConditions) + { + UnitList vResult = new UnitList(); + for (int vUnitIdx = 0; vUnitIdx < iCount; vUnitIdx++) + { + string vUnitName = "Unit" + vUnitIdx.ToString(); + string vUnitPath = ""; + if (iWithPaths) + if (iRelative) + vUnitPath = "..\\.." + "DefaultPath" + vUnitIdx.ToString(); + else + vUnitPath = @"c:\windows\temp\DefaultPath" + vUnitIdx.ToString() + "\\" + vUnitName + ".pas"; + + UnitItem vUnit = new UnitItem(vUnitName, vUnitPath, iWithPaths, ""); + if (iWithConditions) + { + vUnit.StartingConditions = "{$IFDEF TestCondition}"; + vUnit.EndingConditions = "{$ENDIF}"; + } + + vResult.Add(vUnit); + } + + return vResult; + } + + protected void CompareUnitLists(UnitList iExpected, UnitList iActual, bool iWithPaths) + { + Assert.AreEqual(iExpected.Count, iActual.Count, "Wrong number of units was read"); + for (int vUnitIdx = 0; vUnitIdx < iActual.Count; vUnitIdx++) + { + Assert.AreEqual(iExpected[vUnitIdx].Name, iActual[vUnitIdx].Name, "Wrong name of the unit was read"); + Assert.AreEqual(iExpected[vUnitIdx].UsePath, iActual[vUnitIdx].UsePath, "Wrong HasPath was read"); + if (iWithPaths) + Assert.AreEqual(iExpected[vUnitIdx].Path, iActual[vUnitIdx].Path, "Wrong path of the unit was read"); + Assert.AreEqual(iExpected[vUnitIdx].StartingConditions, iActual[vUnitIdx].StartingConditions, "Wrong StartingCondition was read"); + Assert.AreEqual(iExpected[vUnitIdx].EndingConditions, iActual[vUnitIdx].EndingConditions, "Wrong EndingCondition was read (" + vUnitIdx.ToString() + ")"); + } + } + + protected void DoTestGetUnits(int iCount, bool iWithPaths, bool iRelative, bool iWithConditions) + { + UnitList vExpected = GetDefaultUnits(iCount, iWithPaths, iRelative, iWithConditions); + string vTestValue = + "interface\n" + + "\n" + + vExpected.ToString(); + + UnitList vActual = UsesClauseReader.GetUnits(vTestValue); + CompareUnitLists(vExpected, vActual, iWithPaths); + } + + protected void DoTestGetUnits_MultipleUnitsInConditionals(int iCount, int iStartingIdx, int iEndingIdx, bool iWithPaths, bool iRelativePaths) + { + UnitList vExpected = GetDefaultUnits(iCount, iWithPaths, iRelativePaths, false); + vExpected[iStartingIdx].StartingConditions = "{$IFDEF test}"; + vExpected[iEndingIdx].EndingConditions = "{$ENDIF}"; + + string vTestValue = vExpected.ToString(); + UnitList vActual = UsesClauseReader.GetUnits(vTestValue); + CompareUnitLists(vExpected, vActual, iWithPaths); + } + + protected string ConstructUnit( + string iInterfaceUses, + string iImplementationUses, + bool iAddTypes, + bool iAddVars) + { + string vTypeDeclaration = + "type\n" + + " TType = class(TObject)\n" + + " private\n" + + " FField: Integer;\n" + + " public\n" + + " property Field: Integer read FField write FField;\n" + + " end;\n" + + "\n"; + string vVarsDeclaration = + "var\n" + + " vIndex: Integer;\n" + + " vValue: AnsiString;\n" + + "\n" + + "const\n" + + " cInteger: Integer = 10;\n" + + " cString: AnsiString = \"test\";\n" + + "\n"; + + string vTestValue = + "interface\n" + + "\n" + + iInterfaceUses + "\n" + + "\n"; + + if (iAddTypes) + vTestValue += vTypeDeclaration; + if (iAddVars) + vTestValue += vVarsDeclaration; + + vTestValue += + "implementation\n" + + "\n" + + iImplementationUses; + + if (iAddTypes) + vTestValue += vTypeDeclaration; + if (iAddVars) + vTestValue += vVarsDeclaration; + + return vTestValue; + } + + protected void DoTestExtractUses( + bool iHasInterface, + bool iHasImplementation, + bool iWithPaths, + bool iRelative, + bool iWithConditionals, + bool iAddTypes, + bool iAddVars) + { + string vActualInterface; + string vActualImplementation; + + string vInterface = ""; + string vImplementation = ""; + if (iHasInterface) + vInterface = GetDefaultUnits(2, iWithPaths, iRelative, iWithConditionals).ToString(); + + if (iHasImplementation) + vImplementation = GetDefaultUnits(3, iWithPaths, iRelative, iWithConditionals).ToString(); + string vTestValue = ConstructUnit(vInterface, vImplementation, iAddTypes, iAddVars); + + UsesClauseReader.ExtractUses(vTestValue, out vActualInterface, out vActualImplementation); + + Assert.AreEqual(vInterface, vActualInterface, "Uses clause from interface is wrong"); + Assert.AreEqual(vImplementation, vActualImplementation, "Uses clause from implementation is wrong"); + } + + protected void CheckUnitList(string iUsesClause, IList iExpectedList, string iErrorMsg) + { + if (iExpectedList.Count > 0) + Assert.AreNotEqual("", iUsesClause, "Parse uses clause is empty. " + iErrorMsg); + UnitList vActual = UsesClauseReader.GetUnits(iUsesClause); + Assert.AreEqual(iExpectedList.Count, vActual.Count, "Incorrect no. of units on list. " + iErrorMsg); + foreach (string vUnitName in iExpectedList) + Assert.AreNotEqual(-1, vActual.IndexOf(vUnitName), "Unit " + vUnitName + " was not found on the list. " + iErrorMsg); + } + + protected void TestGetUnits(string iTestValue, IList iExpectedInterfaceUnits, IList iExpectedImplementationUnits) + { + string vInterface, vImplementation; + UsesClauseReader.ExtractUses(iTestValue, out vInterface, out vImplementation); + CheckUnitList(vInterface, iExpectedInterfaceUnits, "Interface parsing error"); + CheckUnitList(vImplementation, iExpectedImplementationUnits, "Implementation parsing error"); + } + + [Test] + public void GetUnits_WithoutPath() + { + DoTestGetUnits(8, false, false, false); + } + + [Test] + public void GetUnits_WithPath() + { + DoTestGetUnits(8, true, false, false); + } + + [Test] + public void GetUnits_WithPath_Relative() + { + DoTestGetUnits(8, true, true, false); + } + + [Test] + public void GetUnits_WithoutPaths_WithConditions() + { + DoTestGetUnits(8, false, false, true); + } + + [Test] + public void GetUnits_WitPaths_WithConditions() + { + DoTestGetUnits(8, true, false, true); + } + + [Test] + public void GetUnits_WithPaths_Relative_WithConditions() + { + DoTestGetUnits(8, true, true, true); + } + + [Test] + public void GetUnits_MultipleUnitsInConditionals() + { + DoTestGetUnits_MultipleUnitsInConditionals(2, 0, 1, false, false); + } + + [Test] + public void GetUnits_MultipleUnitsInConditionals_WithPaths() + { + DoTestGetUnits_MultipleUnitsInConditionals(2, 0, 1, true, false); + } + + [Test] + public void GetUnits_MultipleUnitsInConditionals_WithPaths_Relative() + { + DoTestGetUnits_MultipleUnitsInConditionals(2, 0, 1, true, true); + } + + [Test] + public void GetUnits_MultipleUnitsInConditionals_4() + { + DoTestGetUnits_MultipleUnitsInConditionals(4, 1, 2, false, false); + } + + [Test] + public void GetUnits_MultipleUnitsInConditionals_4_WithPaths() + { + DoTestGetUnits_MultipleUnitsInConditionals(4, 1, 2, true, false); + } + + [Test] + public void GetUnits_MultipleUnitsInConditionals_4_WithPaths_Relative() + { + DoTestGetUnits_MultipleUnitsInConditionals(4, 1, 2, true, true); + } + + [Test] + public void ExtractUses_2Sections_Simple() + { + DoTestExtractUses(true, true, false, false, false, false, false); + } + + [Test] + public void ExtractUses_2Sections_Simple_WithConditionals() + { + DoTestExtractUses(true, true, false, false, true, false, false); + } + + [Test] + public void ExtractUses_2Sections_Simple_WithPaths() + { + + DoTestExtractUses(true, true, true, false, false, false, false); + } + + [Test] + public void ExtractUses_2Sections_Simple_WithPaths_Relative() + { + + DoTestExtractUses(true, true, true, true, false, false, false); + } + + [Test] + public void ExtractUses_2Sections_Simple_WithPathsConditionals() + { + + DoTestExtractUses(true, true, true, false, true, false, false); + } + + [Test] + public void ExtractUses_2Sections_Simple_WithPathsConditionals_Relative() + { + + DoTestExtractUses(true, true, true, true, true, false, false); + } + + [Test] + public void ExtractUses_2Sections_WithTypes() + { + DoTestExtractUses(true, true, false, false, false, true, false); + } + + [Test] + public void ExtractUses_2Sections_WithTypes_WithConditionals() + { + DoTestExtractUses(true, true, false, false, true, true, false); + } + + [Test] + public void ExtractUses_2Sections_WithTypes_WithPaths() + { + + DoTestExtractUses(true, true, true, false, false, true, false); + } + + [Test] + public void ExtractUses_2Sections_WithTypes_WithPaths_Relative() + { + + DoTestExtractUses(true, true, true, true, false, true, false); + } + + [Test] + public void ExtractUses_2Sections_WithTypes_WithPathsConditionals() + { + + DoTestExtractUses(true, true, true, false, true, true, false); + } + + [Test] + public void ExtractUses_2Sections_WithTypes_WithPathsConditionals_Relative() + { + + DoTestExtractUses(true, true, true, true, true, true, false); + } + + [Test] + public void ExtractUses_2Sections_WithVars() + { + DoTestExtractUses(true, true, false, false, false, false, true); + } + + [Test] + public void ExtractUses_2Sections_WithVars_WithConditionals() + { + DoTestExtractUses(true, true, false, false, true, false, true); + } + + [Test] + public void ExtractUses_2Sections_WithVars_WithPaths() + { + + DoTestExtractUses(true, true, true, false, false, false, true); + } + + [Test] + public void ExtractUses_2Sections_WithVars_WithPaths_Relative() + { + + DoTestExtractUses(true, true, true, true, false, false, true); + } + + [Test] + public void ExtractUses_2Sections_WithVars_WithPathsConditionals() + { + + DoTestExtractUses(true, true, true, false, true, false, true); + } + + [Test] + public void ExtractUses_2Sections_WithVars_WithPathsConditionals_Relative() + { + + DoTestExtractUses(true, true, true, true, true, false, true); + } + + [Test] + public void ExtractUses_2Sections_WithTypesVars() + { + DoTestExtractUses(true, true, false, false, false, true, true); + } + + [Test] + public void ExtractUses_2Sections_WithTypesVars_WithConditionals() + { + DoTestExtractUses(true, true, false, false, true, true, true); + } + + [Test] + public void ExtractUses_2Sections_WithTypesVars_WithPaths() + { + + DoTestExtractUses(true, true, true, false, false, true, true); + } + + [Test] + public void ExtractUses_2Sections_WithTypesVars_WithPaths_Relative() + { + + DoTestExtractUses(true, true, true, true, false, true, true); + } + + [Test] + public void ExtractUses_2Sections_WithTypesVars_WithPathsConditionals() + { + + DoTestExtractUses(true, true, true, false, true, true, true); + } + + [Test] + public void ExtractUses_2Sections_WithTypesVars_WithPathsConditionals_Relative() + { + + DoTestExtractUses(true, true, true, true, true, true, true); + } + + [Test] + public void ExtractUses_InterfaceOnly() + { + DoTestExtractUses(true, false, false, false, false, true, true); + } + + [Test] + public void ExtractUses_ImplementationOnly() + { + DoTestExtractUses(false, true, false, false, false, true, true); + } + + [Test] + public void ExtractUses_Project() + { + #region (Test value) + + string vTestValue = + @"{WXPFIB}" + "\n" + + @"program WXPFIB;" + "\n" + + @"" + "\n" + + @"uses" + "\n" + + @" {$IFDEF WINRUNNER}" + "\n" + + @" TestSrvr ," + "\n" + + @" {$ENDIF}" + "\n" + + @" Forms ," + "\n" + + @" DBUNIT ," + "\n" + + @" GDECLARE ," + "\n" + + @" SIGNIN ," + "\n" + + @" ViewScrn ," + "\n" + + @" uWXPFIB ," + "\n" + + @" oWXPFIB in '..\FORMS\oWXPFIB.pas' {sWXPFIB}" + "\n" + + @" ;" + "\n" + + @"{$R *.RES}" + "\n" + + @"" + "\n" + + @"begin" + "\n" + + @" Application.Initialize;" + "\n" + + @" Application.Title := 'Weekly World Wide Briefing Report';" + "\n" + + @" Application.CreateForm(TsWXPFIB, sWXPFIB);" + "\n" + + @" Application.CreateForm(TViewForm , ViewForm);" + "\n" + + @" Application.Run;" + "\n" + + @"end." + "\n"; + + #endregion + + string vExpected = + @"uses" + "\n" + + @" {$IFDEF WINRUNNER}" + "\n" + + @" TestSrvr ," + "\n" + + @" {$ENDIF}" + "\n" + + @" Forms ," + "\n" + + @" DBUNIT ," + "\n" + + @" GDECLARE ," + "\n" + + @" SIGNIN ," + "\n" + + @" ViewScrn ," + "\n" + + @" uWXPFIB ," + "\n" + + @" oWXPFIB in '..\FORMS\oWXPFIB.pas' {sWXPFIB}" + "\n" + + @" ;"; + string vActual = UsesClauseReader.ExtractUses(vTestValue); + Assert.AreEqual(vExpected, vActual); + } + + [Test] + public void ExtractUses_LibraryWithDefaultComments() + { + #region (Test value) + + string vTestValue = + @"library FlightInfo;" + "\n" + + @"" + "\n" + + @"{ Important note about DLL memory management: ShareMem must be the" + "\n" + + @" first unit in your library's USES clause AND your project's (select" + "\n" + + @" Project-View Source) USES clause if your DLL exports any procedures or" + "\n" + + @" functions that pass strings as parameters or function results. This" + "\n" + + @" applies to all strings passed to and from your DLL--even those that" + "\n" + + @" are nested in records and classes. ShareMem is the interface unit to" + "\n" + + @" the BORLNDMM.DLL shared memory manager, which must be deployed along" + "\n" + + @" with your DLL. To avoid using BORLNDMM.DLL, pass string information" + "\n" + + @" using PChar or ShortString parameters. }" + "\n" + + @"" + "\n" + + @"uses" + "\n" + + @" UpdateArrivalFlightInfoClass in '..\Web\FT\Server\UpdateArrivalFlightInfoClass.pas';" + "\n" + + @"" + "\n" + + @"function GetData(const iRequest : PChar; const iMetaData : PChar;" + "\n" + + @" var iResponse: PChar) : Boolean; stdcall;" + "\n" + + @"var" + "\n" + + @" vServiceProvider : TRemoteServiceProvider;" + "\n" + + @" vLogger: TLogger;" + "\n" + + @"begin" + "\n" + + @" Result := False;" + "\n" + + @" vLogger := TLogger.Create(LC_WEB_ENTRY_POINTS);" + "\n" + + @" vServiceProvider := TRemoteServiceProvider.Create;" + "\n" + + @" try" + "\n" + + @" try" + "\n" + + @" Result := vServiceProvider.GetData(iRequest, iMetaData, iResponse);" + "\n" + + @" except" + "\n" + + @" on e : Exception do" + "\n" + + @" vLogger.error('FlightInfo', 'GetData', e.Message);" + "\n" + + @" end;" + "\n" + + @" finally" + "\n" + + @" vServiceProvider.Free;" + "\n" + + @" vLogger.Free;" + "\n" + + @" end;" + "\n" + + @"end;" + "\n" + + @"" + "\n" + + @"" + "\n" + + @"procedure FreePChar(const p: PChar); stdcall;" + "\n" + + @"begin" + "\n" + + @" TRemoteServiceProvider.FreePChar(p);" + "\n" + + @"end;" + "\n" + + @"" + "\n" + + @"exports" + "\n" + + @" GetData," + "\n" + + @" FreePChar;" + "\n" + + @"" + "\n" + + @"var" + "\n" + + @" vRSP : TRemoteServiceProvider;" + "\n" + + @" vLogger: TLogger;" + "\n" + + @"begin" + "\n" + + @" TLogger.Configure('log4d.properties');" + "\n" + + @" vRSP := TRemoteServiceProvider.Create;" + "\n" + + @" vLogger := TLogger.Create(LC_WEB_ENTRY_POINTS);" + "\n" + + @" try" + "\n" + + @" try" + "\n" + + @" vRSP.SetUpFromConfig();" + "\n" + + @" except" + "\n" + + @" on e : Exception do" + "\n" + + @" vLogger.error('FlightInfo', 'StartUp method', e.Message);" + "\n" + + @" end;" + "\n" + + @" finally" + "\n" + + @" vRSP.Free;" + "\n" + + @" vLogger.Free;" + "\n" + + @" end;" + "\n" + + @"end."; + + #endregion + + string vExpected = + @"uses" + "\n" + + @" UpdateArrivalFlightInfoClass in '..\Web\FT\Server\UpdateArrivalFlightInfoClass.pas';"; + + string vActual = UsesClauseReader.ExtractUses(vTestValue); + Assert.AreEqual(vExpected, vActual); + } + + [Test] + public void GetUnits_FormComments() + { + #region (Test value) + + string vTestValue = + @"library FlightInfo;" + "\n" + + @"" + "\n" + + @"{ Important note about DLL memory management: ShareMem must be the" + "\n" + + @" first unit in your library's USES clause AND your project's (select" + "\n" + + @" Project-View Source) USES clause if your DLL exports any procedures or" + "\n" + + @" functions that pass strings as parameters or function results. This" + "\n" + + @" applies to all strings passed to and from your DLL--even those that" + "\n" + + @" are nested in records and classes. ShareMem is the interface unit to" + "\n" + + @" the BORLNDMM.DLL shared memory manager, which must be deployed along" + "\n" + + @" with your DLL. To avoid using BORLNDMM.DLL, pass string information" + "\n" + + @" using PChar or ShortString parameters. }" + "\n" + + @"" + "\n" + + @"uses" + "\n" + + @" UpdateArrivalFlightInfoClass in '..\Web\FT\Server\UpdateArrivalFlightInfoClass.pas' {test_form_name};" + "\n" + + @"" + "\n" + + @"function GetData(const iRequest : PChar; const iMetaData : PChar;" + "\n" + + @" var iResponse: PChar) : Boolean; stdcall;" + "\n" + + @"var" + "\n" + + @" vServiceProvider : TRemoteServiceProvider;" + "\n" + + @" vLogger: TLogger;" + "\n" + + @"begin" + "\n" + + @" Result := False;" + "\n" + + @" vLogger := TLogger.Create(LC_WEB_ENTRY_POINTS);" + "\n" + + @" vServiceProvider := TRemoteServiceProvider.Create;" + "\n" + + @" try" + "\n" + + @" try" + "\n" + + @" Result := vServiceProvider.GetData(iRequest, iMetaData, iResponse);" + "\n" + + @" except" + "\n" + + @" on e : Exception do" + "\n" + + @" vLogger.error('FlightInfo', 'GetData', e.Message);" + "\n" + + @" end;" + "\n" + + @" finally" + "\n" + + @" vServiceProvider.Free;" + "\n" + + @" vLogger.Free;" + "\n" + + @" end;" + "\n" + + @"end;" + "\n" + + @"" + "\n" + + @"" + "\n" + + @"procedure FreePChar(const p: PChar); stdcall;" + "\n" + + @"begin" + "\n" + + @" TRemoteServiceProvider.FreePChar(p);" + "\n" + + @"end;" + "\n" + + @"" + "\n" + + @"exports" + "\n" + + @" GetData," + "\n" + + @" FreePChar;" + "\n" + + @"" + "\n" + + @"var" + "\n" + + @" vRSP : TRemoteServiceProvider;" + "\n" + + @" vLogger: TLogger;" + "\n" + + @"begin" + "\n" + + @" TLogger.Configure('log4d.properties');" + "\n" + + @" vRSP := TRemoteServiceProvider.Create;" + "\n" + + @" vLogger := TLogger.Create(LC_WEB_ENTRY_POINTS);" + "\n" + + @" try" + "\n" + + @" try" + "\n" + + @" vRSP.SetUpFromConfig();" + "\n" + + @" except" + "\n" + + @" on e : Exception do" + "\n" + + @" vLogger.error('FlightInfo', 'StartUp method', e.Message);" + "\n" + + @" end;" + "\n" + + @" finally" + "\n" + + @" vRSP.Free;" + "\n" + + @" vLogger.Free;" + "\n" + + @" end;" + "\n" + + @"end."; + + #endregion + + string vExpected = + @"uses" + "\n" + + @" UpdateArrivalFlightInfoClass in '..\Web\FT\Server\UpdateArrivalFlightInfoClass.pas' {test_form_name};"; + + string vActual = UsesClauseReader.ExtractUses(vTestValue); + Assert.AreEqual(vExpected, vActual, "Wrong uses clause returned"); + UnitList vList = UsesClauseReader.GetUnits(vActual); + Assert.AreEqual(1, vList.Count, "Wrong number of units returned"); + UnitItem vItem = vList[0]; + Assert.IsTrue(vItem.HasForm, "UnitItem should indicated to have form"); + Assert.AreEqual("test_form_name", vItem.Form, "Form name is wrong"); + } + + [Test] + public void GetUnits_CommentsBetweenUnitNames() + { + #region (Test value) + + string cACWGTSBroker = + "unit ACWGTSBroker;\r\n" + + "\r\n" + + "interface\r\n" + + "\r\n" + + "uses\r\n" + + " oConsole,\r\n" + + " // system units\r\n" + + " Classes, SysUtils, Contnrs,\r\n" + + " // DAL-specific units\r\n" + + " // 2nd line comment,\r\n" + + " // 3rd line comment; Part after comment\r\n" + + " QueryInterface,\r\n" + + " DMBaseBrokerClass,\r\n" + + " DMBaseSQLBrokerClass,\r\n" + + " DMBaseArchSQLBrokerClass,\r\n" + + " DatabaseProviderFactoryClass,\r\n" + + " DatabaseQueryFactoryClass,\r\n" + + " AbstractQuery,\r\n" + + " MetaTableAgentClass,\r\n" + + " //io units\r\n" + + " ACWGTSio\r\n" + + " ;\r\n" + + "\r\n" + + "type\r\n" + + " TACWGTSData = class(TObject)\r\n" + + " private\r\n" + + " FData: ACWGTSRecordType;\r\n" + + " public\r\n" + + " property Data: ACWGTSRecordType read FData;\r\n" + + " end;\r\n" + + "\r\n" + + " TACWGTSDataList = class(TObjectList)\r\n" + + " private\r\n" + + " function GetItem(Index: Integer): TACWGTSData;\r\n" + + " public\r\n" + + " property Items[Index: Integer]: TACWGTSData read GetItem; default;\r\n" + + " end;\r\n" + + "\r\n" + + " // Interface to access brokers\r\n" + + " ILoadACWGTSQuery = interface(IQuery)\r\n" + + " procedure GetACWGTSRecord(\r\n" + + " TailNumber,\r\n" + + " Config,\r\n" + + " Comp: string;\r\n" + + " var ACWGTSRecord: ACWGTSRecordType);\r\n" + + " end;\r\n" + + "\r\n" + + " // SQL broker\r\n" + + " TACWGTSSqlBroker = class(TDMBaseArchSQLBroker, ILoadACWGTSQuery)\r\n" + + " private\r\n" + + " function GetACWGTSKey(\r\n" + + " const iACWGTSRecord : ACWGTSRecordType): AnsiString;\r\n" + + " protected\r\n" + + " procedure MoveToObject(const iAbstractQuery: TAbstractQuery; const iMoveable: TObject); override;\r\n" + + " function CreateMoveable(const iAbstractQuery: TAbstractQuery): TObject; override;\r\n" + + " function GetTableName: string; override;\r\n" + + " public\r\n" + + " procedure GetACWGTSRecord(\r\n" + + " TailNumber,\r\n" + + " Config,\r\n" + + " Comp: string;\r\n" + + " var ACWGTSRecord: ACWGTSRecordType);\r\n" + + " function ResolveInterface(const iType: TQueryType): IQuery; override;\r\n" + + " end;\r\n" + + "\r\n" + + " // Btrive broker\r\n" + + " TACWGTSBtrvBroker = class(TDMBaseBroker, ILoadACWGTSQuery)\r\n" + + " private\r\n" + + " procedure GetACWGTSRecord(\r\n" + + " TailNumber,\r\n" + + " Config,\r\n" + + " Comp: string;\r\n" + + " var ACWGTSRecord: ACWGTSRecordType);\r\n" + + " public\r\n" + + " function ResolveInterface(const iType: TQueryType): IQuery; override;\r\n" + + " end;\r\n" + + "\r\n" + + " TACWGTSDataAcquisitor = class\r\n" + + " class procedure GetACWGTSRecord(\r\n" + + " TailNumber,\r\n" + + " Config,\r\n" + + " Comp: string;\r\n" + + " var ACWGTSRecord: ACWGTSRecordType);\r\n" + + " end;\r\n" + + "\r\n" + + "implementation\r\n" + + "\r\n" + + "uses\r\n" + + " MyStd,\r\n" + + " DMGlobals,\r\n" + + " CommonConsts,\r\n" + + " OracleKeywordClass,\r\n" + + " DMSQLQueryFactory,\r\n" + + " DMBtrvQueryFactory,\r\n" + + " DMUtils,\r\n" + + " gdeclare,\r\n" + + " DBUNIT,\r\n" + + " Datetime;\r\n" + + "\r\n"; + + #endregion + + TestGetUnits(cACWGTSBroker, + new string[] {"oConsole", "Classes", "SysUtils", "Contnrs", "QueryInterface", + "DMBaseBrokerClass", "DMBaseSQLBrokerClass", "DMBaseArchSQLBrokerClass", + "DatabaseProviderFactoryClass", "DatabaseQueryFactoryClass", "AbstractQuery", + "MetaTableAgentClass", "ACWGTSio"}, + new string[] {"MyStd", "DMGlobals", "CommonConsts", "OracleKeywordClass", "DMSQLQueryFactory", + "DMBtrvQueryFactory", "DMUtils", "gdeclare", "DBUNIT", "Datetime"}); + } + + [Test] + public void GetUnits_DateTime() + { + #region (Test value) + + const string cDateTime = +"{ DATETIME PAS 68,928 05-31-96 6:10p DCO 119 }\r\n" + + "unit Datetime;\r\n" + + "{$O+,F+}\r\n" + + "interface\r\n" + + "\r\n" + + "uses\r\n" + + " SYSUTILS,\r\n" + + " Classes,\r\n" + + " Math,\r\n" + + " Windows;\r\n" + + "\r\n" + + "const\r\n" + + " MIN_PER_HR = 60;\r\n" + + " MIN_PER_DAY = 1440; { 24 Hr/Day * 60 Min/Hr }\r\n" + + " SEC_PER_DAY = 86400; { 24 Hr/Day * 60 Min/Hr * 60 Sec/Min }\r\n" + + " SEC_PER_HR = 3600; { 60 Min/Hr * 60 Sec/Min }\r\n" + + " SEC_PER_MIN = 60;\r\n" + + "\r\n" + + " MAX_EARLY_DEP_MINS = (4 * MIN_PER_HR);\r\n" + + " MAX_FLT_LENGTH_MINS = (20 * MIN_PER_HR);\r\n" + + "\r\n" + + "{ TODO : Copied from Drb\\DateTime.pas }\r\n" + + " coDatePartSize = 7;\r\n" + + " coTimePartSize = 4;\r\n" + + " coBlankDate : ShortString = ' ';\r\n" + + " coBlankTime : ShortString = ' ';\r\n" + + " coDRBMaxNumericDate = #99#99#05#15;\r\n" + + "var\r\n" + + " coMaxDate : TDateTime;\r\n" + + "\r\n" + + "type\r\n" + + " FlightTimeType = record\r\n" + + " Date :array[1..8] of char;\r\n" + + " Time :smallint;\r\n" + + " UTCVariance :smallint;\r\n" + + " end;\r\n" + + "\r\n" + + " EagleTimeType = string[4]; { HHMM }\r\n" + + " NumericDateType = string[4]; { chr(CC), chr (YY), chr (MM), chr (DD) }\r\n" + + " UpdateTimeType = string[4]; { HHMM }\r\n" + + " UTCVarianceType = string[5]; { +/-HHMM }\r\n" + + " UniversalTimeType = string[6]; { HHMMSS }\r\n" + + " UniversalTimeTypeMS = string[9]; { HHMMSSTTT }\r\n" + + " UniversalDateType = string[7]; { DDMMMYY }\r\n" + + " CCYYMMDDDateType = array[1..8] of Char; // was string[8]; { CCYYMMDD }\r\n" + + " CrewDateType = CCYYMMDDDateType;\r\n" + + " USDateType = string[6]; { MMDDYY }\r\n" + + "\r\n" + + "function EagleDateToDateTime(const StringDateTime: ShortString): TDateTime; overload; // DMB\r\n" + + "function EagleDateToDateTime(const StringDateTime: ShortString; var ivIsOK: Boolean): TDateTime; overload;\r\n" + + "function DateTimetoEagleDate(const DateTimeIn :TDateTime) :shortstring;\r\n" + + "function EagleDateTimeToDateTime(const iDate, iTime: ShortString): TDateTime; overload;\r\n" + + "function EagleDateTimeToDateTime(const iDate, iTime: ShortString; var ivIsOK: Boolean): TDateTime; overload;\r\n" + + "function EagleTimeToDateTime(const iTime: ShortString; const iFixTime : Boolean = False): TDateTime;\r\n" + + "function DateTimeToEagleTime(const iDateTime: TDateTime) : ShortString;\r\n" + + "\r\n" + + "function FormatToHHNNDDMMYY(const iDateTime :TDateTime):AnsiString;\r\n" + + "procedure GetUTCDates\r\n" + + " (const iUTCNumericDepartureDate: NumericDateType;\r\n" + + " const iDepartureTime: EagleTimeType;\r\n" + + " const iArrivalTime: EagleTimeType;\r\n" + + " var iUTCDeparture: TDateTime;\r\n" + + " var iUTCArrival: TDateTime);\r\n" + + "function ConvertToDateTime(const iEagleTime: EagleTimeType; const iNumericDate: NumericDateType):TDateTime;\r\n" + + "procedure DecodeEagleTime(iEagleTime:string; var Hour, Min: Word);\r\n" + + "procedure DecodeNumericDate(const iNumDate :string; var Year, Month, Day: Word);\r\n" + + "\r\n" + + "function NumericToYYYYMMDD(iNumDate :string) :string;\r\n" + + "\r\n" + + "function YYYYMMDDtoNumericDate(iYYYYMMDD :string) :string;\r\n" + + "\r\n" + + "function ValidUSDate(\r\n" + + " USDate :USDateType\r\n" + + " )\r\n" + + " :boolean;\r\n" + + "\r\n" + + "function USToUniversalDate\r\n" + + " (\r\n" + + " USDate :USDateType;\r\n" + + " var UniversalDate :UniversalDateType\r\n" + + " )\r\n" + + " :boolean;\r\n" + + "\r\n" + + "function UniversalToUSDate\r\n" + + " (\r\n" + + " UniversalDate :UniversalDateType;\r\n" + + " var USDate :USDateType\r\n" + + " )\r\n" + + " :boolean;\r\n" + + "\r\n" + + "(**************************************************************************************************\r\n" + + "Converts the DDMONYY date & the time to TDATETIME format\r\n" + + "SB 09NOV1999\r\n" + + "**************************************************************************************************)\r\n" + + "function UniversalDateToTDATE(NumericDate :NumericDateType;\r\n" + + " APTime :integer;\r\n" + + " var DateTimeasSysFormat :TDateTime) :boolean;\r\n" + + "\r\n" + + "function ValidUniversalDate(\r\n" + + " ChkDate :UniversalDateType\r\n" + + " )\r\n" + + " :boolean;\r\n" + + "\r\n" + + "function ValidEagleTime(\r\n" + + " ChkTime :EagleTimeType\r\n" + + " )\r\n" + + " :boolean;\r\n" + + "\r\n" + + "function ValidUniversalTime(\r\n" + + " ChkTime :UniversalTimeType\r\n" + + " )\r\n" + + " :boolean;\r\n" + + "\r\n" + + "function GetUniversalDateTime\r\n" + + " (\r\n" + + " var CurrDate :UniversalDateType;\r\n" + + " var CurrTime :UniversalTimeType;\r\n" + + " var wSec100 :word\r\n" + + " )\r\n" + + " :boolean;\r\n" + + "\r\n" + + "procedure GetCurrentDateTime\r\n" + + " (\r\n" + + " var CurrDate :UniversalDateType;\r\n" + + " var wCurrHour :word;\r\n" + + " var wCurrMinute :word;\r\n" + + " var wCurrSecond :word;\r\n" + + " var wCurrSec100 :word\r\n" + + " );\r\n" + + "\r\n" + + "function ConvertEagleTime\r\n" + + " (\r\n" + + " EagleTime :EagleTimeType;\r\n" + + " var wHour :word;\r\n" + + " var wMinute :word\r\n" + + " )\r\n" + + " :boolean;\r\n" + + "\r\n" + + "function ConvertUniversalTime\r\n" + + " (\r\n" + + " UniversalTime :UniversalTimeType;\r\n" + + " var wHour :word;\r\n" + + " var wMinute :word;\r\n" + + " var wSecond :word\r\n" + + " )\r\n" + + " :boolean;\r\n" + + "\r\n" + + "function TimeDiff\r\n" + + " (\r\n" + + " var ErrorRet :integer;\r\n" + + " var Minutes :longint;\r\n" + + " FirstDate :UniversalDateType;\r\n" + + " FirstTime :EagleTimeType;\r\n" + + " SecondDate :UniversalDateType;\r\n" + + " SecondTime :EagleTimeType\r\n" + + " )\r\n" + + " :boolean;\r\n" + + "\r\n" + + "function UnivTimeDiff\r\n" + + " (\r\n" + + " var ErrorRet :integer;\r\n" + + " var Seconds :longint;\r\n" + + " FirstDate :UniversalDateType;\r\n" + + " FirstTime :UniversalTimeType;\r\n" + + " SecondDate :UniversalDateType;\r\n" + + " SecondTime :UniversalTimeType\r\n" + + " )\r\n" + + " :boolean;\r\n" + + "\r\n" + + "procedure SecSince01Jan1970\r\n" + + " (\r\n" + + " var Seconds :longint;\r\n" + + " var Sec1000 :longint\r\n" + + " );\r\n" + + "\r\n" + + "function CheckDDMMMYYDate\r\n" + + " (\r\n" + + " CheckDate :UniversalDateType\r\n" + + " )\r\n" + + " :boolean;\r\n" + + "\r\n" + + "function CompleteDate\r\n" + + " (\r\n" + + " var ReferenceDate :UniversalDateType;\r\n" + + " var PartialDate :UniversalDateType\r\n" + + " )\r\n" + + " :boolean;\r\n" + + "\r\n" + + "function SecondsSinceMidnight :longint;\r\n" + + "\r\n" + + "function GetUniversalTime :UniversalTimeType;\r\n" + + "\r\n" + + "function GetUniversalTimeMS :UniversalTimeTypeMS;\r\n" + + "\r\n" + + "function GetUniversalDate :UniversalDateType;\r\n" + + "\r\n" + + "function GetUniversalYear :string;\r\n" + + "\r\n" + + "function AddCenturyToYear(YearOfCentury :string) :string;\r\n" + + "\r\n" + + "function NumericDate\r\n" + + " (\r\n" + + " const iDate :UniversalDateType\r\n" + + " )\r\n" + + " :NumericDateType;\r\n" + + "\r\n" + + "function ValidateDate(var s :string) :boolean;\r\n" + + "\r\n" + + "function ValidateTime(s :string): Boolean;\r\n" + + "\r\n" + + "function ValidateGMTVariance(s :string): Boolean;\r\n" + + "\r\n" + + "function ValidateDateChange(s :string): Boolean;\r\n" + + "\r\n" + + "function ValidateDailyFrequency(s :string): Boolean;\r\n" + + "\r\n" + + "function JulianDay(DateNumeric :string) :longint;\r\n" + + "\r\n" + + "function DayAD(DateNumeric :string) :longint;\r\n" + + "\r\n" + + "function NumToDate(DateNumeric :string) :string;\r\n" + + "\r\n" + + "function DayOfWeekAD(DayAD :longint) :shortint;\r\n" + + "\r\n" + + "function DayOfWeekAlpha(DayOfWeek :shortint) :string;\r\n" + + "\r\n" + + "function NumericDayOfWeek(Date :TDateTime) :integer;\r\n" + + "\r\n" + + "function LeapYear(YearAD :integer) :boolean;\r\n" + + "\r\n" + + "function DayADToDate(DayAD :longint) :string;\r\n" + + "\r\n" + + "function NumericMonth(Month :string) :shortint;\r\n" + + "\r\n" + + "function AlphaMonth(MonthNumeric :shortint) :string;\r\n" + + "\r\n" + + "function TimeToMinutes(Time :string) :integer;\r\n" + + "\r\n" + + "function MinutesToTime(Minutes :integer) :string;\r\n" + + "\r\n" + + "function MinutesToTime5H(Minutes :LongInt) :string;\r\n" + + "\r\n" + + "function SecondsToTime(Seconds :integer) :string;\r\n" + + "\r\n" + + "function GMTMinuteAD(NumericLocalDate\r\n" + + " , LocalTime\r\n" + + " , GMTVariance\r\n" + + " , DateChange :string) :longint;\r\n" + + "\r\n" + + "function MinAdToTime(i: longint): string;\r\n" + + "\r\n" + + "function MinAdToDate(i: longint): string; overload;\r\n" + + "function MinAdToDate(i : longint; var ivIsOK: Boolean): string; overload;\r\n" + + "\r\n" + + "procedure CalculateNextMonth(Date :string;\r\n" + + " var NextMonth , Year :string);\r\n" + + "\r\n" + + "function LocalToGMT(LocalTime , GMTVariance :string) :string;\r\n" + + "\r\n" + + "function GMTtoLocal(GMT , GMTVariance :string) :string;\r\n" + + "\r\n" + + "function TimeToAMPM(Time :string) :string;\r\n" + + "\r\n" + + "function TimeToAMPM1(Time :string) :string;\r\n" + + "\r\n" + + "function TimeToAMPM2(Time :string) :string;\r\n" + + "\r\n" + + "function TimeAMToTime(Time :string) :string;\r\n" + + "\r\n" + + "function TimeToTimeMaintenance(iTime :integer) :string;\r\n" + + "\r\n" + + "function EagleToCCYYMMDDDate(EagleDate :UniversalDateType) : CCYYMMDDDateType;\r\n" + + "\r\n" + + "function GetCrewDate(RefDateTime: TDateTime = 0) :CrewDateType;\r\n" + + "\r\n" + + "procedure EagleToCrewTracDate\r\n" + + " (EagleDate :UniversalDateType;\r\n" + + " var StartCrewTracDate :CrewDateType);\r\n" + + "\r\n" + + "procedure FlightEventUTCToLt\r\n" + + " (\r\n" + + " sNumFltDateUTC :NumericDateType;\r\n" + + " sSTDUTC :EagleTimeType;\r\n" + + " sFltEventUTC :EagleTimeType;\r\n" + + " sUTCVariance :UTCVarianceType;\r\n" + + " var stFltEventLt :FlightTimeType\r\n" + + " );\r\n" + + "\r\n" + + "procedure GMTtoOUTOFFONINMVTCrewTracTime\r\n" + + " (EagleNumGMTDate ,\r\n" + + " EagleSTDudt ,\r\n" + + " EagleETDudt ,\r\n" + + " EagleGMTTime ,\r\n" + + " EagleGMTVariance :string;\r\n" + + " var CrewTracTime :FlightTimeType);\r\n" + + "\r\n" + + "function YMD2DMYEagle(inDate :string) :string;\r\n" + + "\r\n" + + "function ZIPDate(iNumDate :string) :string;\r\n" + + "\r\n" + + "function ComputeElapsedMinutes(Time1udt , Time2udt :string) :integer;\r\n" + + "\r\n" + + "procedure Delay(DelayAmount :word);\r\n" + + "\r\n" + + "function GetUTCDate :TDateTime;\r\n" + + "\r\n" + + "function GetUTCTime :TDateTime;\r\n" + + "\r\n" + + "function GetUTCDateTime :TDateTime;\r\n" + + "\r\n" + + "function NowUTC :TDateTime;\r\n" + + "\r\n" + + "function NumericYesterday :string;\r\n" + + "\r\n" + + "function nowUTCMinute: TDateTime;\r\n" + + "\r\n" + + "procedure TimeIsUTCBased(Value :boolean); // vs. system time\r\n" + + "\r\n" + + "function ConvertDateTimeToUniversalDate(DateTime :TDateTime) :UniversalDateType;\r\n" + + "\r\n" + + "function NumericDateToUniversalDate(iNumDate :string) :UniversalDateType;\r\n" + + "\r\n" + + "function UniversalDateTimeToTDateTime\r\n" + + " ( UniversalDate: UniversalDateType;\r\n" + + " HHMM : EagleTimeType;\r\n" + + " var iTDateTime : TDateTime ) : boolean;\r\n" + + "\r\n" + + "function TDateTimeToUniversalDateTime\r\n" + + " ( iTDateTime : TDateTime;\r\n" + + " var UniversalDate: UniversalDateType;\r\n" + + " var HHMM : EagleTimeType ) : boolean;\r\n" + + "\r\n" + + "function TDateTimeToDDHHMM (iTDateTime : TDateTime) :string;\r\n" + + "\r\n" + + "function DDHHMMToTDateTime (iDDHHMM : string; iRefTimestamp: TDateTime = -1) :TDateTime;\r\n" + + "\r\n" + + "Function NumericDateToDDMMMYY (NumericDateIn : String) : String;\r\n" + + "\r\n" + + "Function ValidNumericDate (Const NumericDateIn : String) : Boolean;\r\n" + + "\r\n" + + "function DateTimeToDDMMMYY( NewDate : TDateTime ) : string;\r\n" + + "\r\n" + + "function NumericDateToDateTime(const iNumericDate : string): TDatetime;\r\n" + + "\r\n" + + "function DDMMMYYDateToDateTime( DDMMMYYDate : string ) : TDateTime;\r\n" + + "\r\n" + + "function NumericDateWithTimeToDateTime(iNumericDateTime: ShortString): TDateTime;\r\n" + + "\r\n" + + "function DateTimeToNumericDateWithTime(iValue: TDateTime): ShortString;\r\n" + + "\r\n" + + "function DateTimeToNumericDate(const DateTimeIn :TDateTime) :NumericDateType;\r\n" + + "\r\n" + + "function YYYYMMDDToTDateTime(iYYYYMMDD: AnsiString): TDateTime;\r\n" + + "\r\n" + + "function HHMMToTTime(iHHMM: AnsiString): TDateTime;\r\n" + + "\r\n" + + "implementation\r\n" + + "\r\n" + + "uses\r\n" + + " Mystd, Forms, Dialogs, DateUtils;\r\n" + + "\r\n" + + "const\r\n" + + " AnnualDaysToMonth :array[1..12] of integer\r\n" + + " = (0 , 31 , 59 , 90 , 120 , 151 , 181 , 212 , 243 , 273 , 304 , 334);\r\n" + + " AlphaMonths :array[1..12] of string[3]\r\n" + + " = ('JAN' , 'FEB' , 'MAR' , 'APR' , 'MAY' , 'JUN' , 'JUL' ,\r\n" + + " 'AUG' , 'SEP' , 'OCT' , 'NOV' , 'DEC');\r\n" + + " AlphaDaysOfWeek :array[1..7] of string[3]\r\n" + + " = ('MON' , 'TUE' , 'WED' , 'THU' , 'FRI' , 'SAT' , 'SUN');\r\n" + + "var\r\n" + + " AllTimeIsUTCBased :boolean;\r\n" + + " FTestDate: string[7];\r\n" + + "{** 07-30-98 * ConvertDateTimeToUniversalDate *********************************}\r\n" + + "\r\n" + + "function ConvertDateTimeToUniversalDate(DateTime :TDateTime) :UniversalDateType;\r\n" + + "\r\n" + + "const\r\n" + + " MonthId :array[1..12] of string[3] =\r\n" + + " ('JAN' , 'FEB' , 'MAR' , 'APR' , 'MAY' , 'JUN' , 'JUL' , 'AUG' , 'SEP' , 'OCT' , 'NOV' , 'DEC');\r\n" + + "\r\n" + + "var\r\n" + + " Day :string[4];\r\n" + + " Year :string[4];\r\n" + + " wDay :word;\r\n" + + " wMonth :word;\r\n" + + " wYear :word;\r\n" + + "\r\n" + + "begin\r\n" + + " decodedate(DateTime , wYear , wMonth , wDay);\r\n" + + " str(wYear , Year);\r\n" + + " str((wDay + 1000) :4 , Day);\r\n" + + " Result := copy(Day , 3 , 2)\r\n" + + " + MonthId[wMonth]\r\n" + + " + copy(Year , 3 , 2);\r\n" + + "end; //ConvertDateTimeToUniversalDate\r\n" + + "\r\n" + + "function FormatToHHNNDDMMYY(const iDateTime :TDateTime): AnsiString;\r\n" + + "begin\r\n" + + " result := FormatDateTime('hhnnddmmyy', iDateTime);\r\n" + + "end;\r\n" + + "\r\n" + + "function ConvertToDateTime(const iEagleTime: EagleTimeType; const iNumericDate: NumericDateType):TDateTime;\r\n" + + "var\r\n" + + " Year, Month, Day :Word;\r\n" + + " Hour, Minute :Word;\r\n" + + "begin\r\n" + + " DateTime.DecodeNumericDate(iNumericDate, Year, Month, Day);\r\n" + + " DateTime.DecodeEagleTime(iEagleTime, Hour, Minute);\r\n" + + " Result := EncodeDateTime(Year, Month, Day, Hour, Minute, 0{Second}, 0{MilliSecond});\r\n" + + "end;\r\n" + + "\r\n" + + "procedure GetUTCDates\r\n" + + " (const iUTCNumericDepartureDate: NumericDateType;\r\n" + + " const iDepartureTime: EagleTimeType;\r\n" + + " const iArrivalTime: EagleTimeType;\r\n" + + " var iUTCDeparture: TDateTime;\r\n" + + " var iUTCArrival: TDateTime);\r\n" + + "begin\r\n" + + " iUTCDeparture := ConvertToDateTime(iDepartureTime, iUTCNumericDepartureDate);\r\n" + + " iUTCArrival := ConvertToDateTime(iArrivalTime, iUTCNumericDepartureDate);\r\n" + + "\r\n" + + " if (iUTCArrival > iUTCDeparture) then\r\n" + + " begin\r\n" + + " // ok\r\n" + + " end\r\n" + + " else begin\r\n" + + " iUTCArrival := IncDay(iUTCArrival, 1);\r\n" + + " end;\r\n" + + "\r\n" + + "end;\r\n" + + "\r\n" + + "\r\n" + + "procedure DecodeNumericDate(const iNumDate :string; var Year, Month, Day: Word);\r\n" + + "var\r\n" + + " vDateTime: TDateTime;\r\n" + + "begin\r\n" + + " vDateTime := NumericDateToDateTime(iNumDate);\r\n" + + " DecodeDate(vDateTime, Year, Month, Day);\r\n" + + "end;\r\n" + + "\r\n" + + "procedure DecodeEagleTime(iEagleTime:string; var Hour, Min: Word);\r\n" + + "\r\n" + + " function StrToWord(const str: string): word;\r\n" + + " var\r\n" + + " i: integer;\r\n" + + " begin\r\n" + + " result := 0;\r\n" + + " for i := 1 to 2 do // HH or MM\r\n" + + " begin\r\n" + + " if not (str[i] in ['0'..'9']) then\r\n" + + " begin\r\n" + + " result := 0;\r\n" + + " Break;\r\n" + + " end;\r\n" + + " result := (result*10) + ord(str[i]) - ord('0');\r\n" + + " end;\r\n" + + " end;\r\n" + + "\r\n" + + "var\r\n" + + " vHour :string[2];\r\n" + + " vMin :string[2];\r\n" + + "begin\r\n" + + " iEagleTime := iEagleTime + ' ';\r\n" + + "\r\n" + + " vHour := copy(iEagleTime, 1, 2);\r\n" + + " vMin := copy(iEagleTime, 3, 2);\r\n" + + "\r\n" + + " Hour := StrToWord(vHour);\r\n" + + " if (Hour > 23) then\r\n" + + " begin\r\n" + + " Hour := 0;\r\n" + + " end;\r\n" + + " Min := StrToWord(vMin);\r\n" + + " if (Min > 59) then\r\n" + + " begin\r\n" + + " Min := 0;\r\n" + + " end;\r\n" + + "end;\r\n" + + "\r\n" + + "function NumericToYYYYMMDD(iNumDate :string) :string;\r\n" + + "var\r\n" + + " i :integer;\r\n" + + " Century ,\r\n" + + " Day , Month , Year :string[2];\r\n" + + " Date :string[8];\r\n" + + "begin\r\n" + + " str(ord(iNumDate[4]) :2 , Day);\r\n" + + " str(ord(iNumDate[3]) :2 , Month);\r\n" + + " str(ord(iNumDate[2]) :2 , Year);\r\n" + + " str(ord(iNumDate[1]) :2 , Century);\r\n" + + " Date := Century + Year + Month + Day;\r\n" + + " for i := 1 to 8 do\r\n" + + " begin\r\n" + + " if Date[i] = ' ' then\r\n" + + " Date[i] := '0';\r\n" + + " end;\r\n" + + " NumericToYYYYMMDD := Date;\r\n" + + "end;\r\n" + + "\r\n" + + "function YYYYMMDDtoNumericDate(iYYYYMMDD :string) :string;\r\n" + + "var\r\n" + + " i :integer;\r\n" + + " NCentury , NYear , NMonth , NDay :ShortInt;\r\n" + + "begin\r\n" + + " val(copy(iYYYYMMDD , 1 , 2) , NCentury , i);\r\n" + + " val(copy(iYYYYMMDD , 3 , 2) , NYear , i);\r\n" + + " val(copy(iYYYYMMDD , 5 , 2) , NMonth , i);\r\n" + + " val(copy(iYYYYMMDD , 7 , 2) , NDay , i);\r\n" + + " YYYYMMDDtoNumericDate := chr(NCentury)\r\n" + + " + chr(NYear)\r\n" + + " + chr(NMonth)\r\n" + + " + chr(NDay);\r\n" + + "end;\r\n" + + "\r\n" + + "{** 05-24-96 * ValidUSDate ***********************************************}\r\n" + + "\r\n" + + "function ValidUSDate(\r\n" + + " USDate :USDateType\r\n" + + " )\r\n" + + " :boolean;\r\n" + + "\r\n" + + "var\r\n" + + " valid :boolean;\r\n" + + " mm :integer;\r\n" + + " dd :integer;\r\n" + + " yy :integer;\r\n" + + " i :integer;\r\n" + + "\r\n" + + "begin { function ValidUSDate }\r\n" + + " valid := true;\r\n" + + " val(copy(USDate , 1 , 2) , mm , i);\r\n" + + " if i <> 0 then\r\n" + + " valid := false;\r\n" + + " if (valid) then\r\n" + + " begin\r\n" + + " val(copy(USDate , 3 , 2) , dd , i);\r\n" + + " if i <> 0 then\r\n" + + " valid := false\r\n" + + " else if (dd < 1) then\r\n" + + " valid := false;\r\n" + + " if (valid) then\r\n" + + " begin\r\n" + + " val(copy(USDate , 5 , 2) , yy , i);\r\n" + + " if i <> 0 then\r\n" + + " valid := false\r\n" + + " else if (yy < 0) then\r\n" + + " valid := false;\r\n" + + " if (valid) then\r\n" + + " begin\r\n" + + " if (mm >= 1) and (mm <= 12) then\r\n" + + " begin\r\n" + + " case mm of\r\n" + + " 1 , 3 , 5 , 7 , 8 , 10 , 12\r\n" + + " :\r\n" + + " begin\r\n" + + " if dd > 31 then\r\n" + + " valid := false;\r\n" + + " end;\r\n" + + " 4 , 6 , 9 , 11\r\n" + + " :\r\n" + + " begin\r\n" + + " if dd > 30 then\r\n" + + " valid := false;\r\n" + + " end;\r\n" + + " 2\r\n" + + " :\r\n" + + " begin\r\n" + + " if (LeapYear(yy)) then\r\n" + + " begin\r\n" + + " if dd > 29 then\r\n" + + " valid := false;\r\n" + + " end\r\n" + + " else\r\n" + + " begin\r\n" + + " if dd > 28 then\r\n" + + " valid := false;\r\n" + + " end;\r\n" + + " end;\r\n" + + " end; { case }\r\n" + + " end { if }\r\n" + + " else\r\n" + + " valid := false;\r\n" + + " end; { if }\r\n" + + " end; { if }\r\n" + + " end; { if }\r\n" + + " ValidUSDate := valid;\r\n" + + "end; { function ValidUSDate }\r\n" + + "\r\n" + + "{** 05-24-96 * UniversalToUSDate *****************************************}\r\n" + + "\r\n" + + "{ FILENAME: datetime.pas\r\n" + + "\r\n" + + " DESCRIPTION: Converts DDMMMYY to MMDDYY.\r\n" + + "\r\n" + + " PARAMETERS: UniversalDate Date in DDMMMYY format\r\n" + + " USDate Date in MMDDYY format\r\n" + + "\r\n" + + " RETURNS: TRUE Success\r\n" + + " FALSE Failure\r\n" + + "\r\n" + + " LOCAL: Valid Local flag\r\n" + + "\r\n" + + "--------------------------------------------------------------------------}\r\n" + + "\r\n" + + "function UniversalToUSDate\r\n" + + " (\r\n" + + " UniversalDate :UniversalDateType;\r\n" + + " var USDate :USDateType\r\n" + + " )\r\n" + + " :boolean;\r\n" + + "\r\n" + + "var\r\n" + + " i :integer;\r\n" + + " valid :boolean;\r\n" + + " sMonth :string;\r\n" + + "\r\n" + + "begin { function UniversalToUSDate }\r\n" + + " valid := true;\r\n" + + " if (ValidUniversalDate(UniversalDate)) then\r\n" + + " begin\r\n" + + " sMonth := Copy(UniversalDate , 3 , 3);\r\n" + + " i := 0;\r\n" + + " repeat\r\n" + + " Inc(i);\r\n" + + " until (i > 12) or (sMonth = AlphaMonths[i]);\r\n" + + " if (i <= 12) then\r\n" + + " begin\r\n" + + " Str(i , sMonth);\r\n" + + " if (length(sMonth) = 1) then\r\n" + + " sMonth := '0' + sMonth;\r\n" + + " USDate := sMonth;\r\n" + + " USDate := USDate + Copy(UniversalDate , 1 , 2);\r\n" + + " USDate := USDate + Copy(UniversalDate , 6 , 2);\r\n" + + " end { if }\r\n" + + " else\r\n" + + " valid := false;\r\n" + + " end { if }\r\n" + + " else\r\n" + + " valid := false;\r\n" + + " UniversalToUSDate := valid;\r\n" + + "end; { function UniversalToUSDate }\r\n" + + "\r\n" + + "(**************************************************************************************************\r\n" + + "Converts the DDMONYY date & the time to TDATETIME format\r\n" + + "SB 09NOV1999\r\n" + + "**************************************************************************************************)\r\n" + + "\r\n" + + "function UniversalDateToTDATE(NumericDate :NumericDateType;\r\n" + + " APTime :integer;\r\n" + + " var DateTimeAsSysFormat :TDateTime) :boolean;\r\n" + + "var\r\n" + + " vDateIncrement :Integer;\r\n" + + " vCentury : Word;\r\n" + + " vYear : Word;\r\n" + + " vMonth : Word;\r\n" + + " vDay : Word;\r\n" + + " vHour : Word;\r\n" + + " vMinute : Word;\r\n" + + "begin\r\n" + + " vDateIncrement := 0;\r\n" + + "\r\n" + + " vHour := 0;\r\n" + + " vMinute := 0;\r\n" + + " if APTime <> 0 then\r\n" + + " begin\r\n" + + " vDateIncrement := APTime div 1440;\r\n" + + " APTime := APTime - (1440 * vDateIncrement);\r\n" + + " vHour := APTime div 60;\r\n" + + " vMinute := APTime - (60 * vHour);\r\n" + + " end;\r\n" + + " try\r\n" + + " vCentury := Ord(NumericDate[1]);\r\n" + + " vYear := Ord(NumericDate[2]);\r\n" + + " vMonth := Ord(NumericDate[3]);\r\n" + + " vDay := Ord(NumericDate[4]);\r\n" + + "\r\n" + + " DateTimeAsSysFormat := EncodeDateTime((vCentury * 100) + vYear, vMonth, vDay, vHour, vMinute, 0 , 0);\r\n" + + " if vDateIncrement <> 0 then\r\n" + + " DateTimeAsSysFormat := DateTimeAsSysFormat + vDateIncrement;\r\n" + + " Result := True;\r\n" + + " except on EConvertError do\r\n" + + " begin\r\n" + + " Result := False;\r\n" + + " end;\r\n" + + " end;\r\n" + + "end;\r\n" + + "\r\n" + + "{** 05-24-96 * USToUniversalDate *****************************************}\r\n" + + "\r\n" + + "{ FILENAME: datetime.pas\r\n" + + "\r\n" + + " DESCRIPTION: Converts MMDDYY to DDMMMYY.\r\n" + + "\r\n" + + " PARAMETERS: USDate Date in MMDDYY format\r\n" + + " UniversalDate Date in DDMMMYY format\r\n" + + "\r\n" + + " RETURNS: TRUE Success\r\n" + + " FALSE Failure\r\n" + + "\r\n" + + " LOCAL: Valid Local flag\r\n" + + "\r\n" + + "--------------------------------------------------------------------------}\r\n" + + "\r\n" + + "function USToUniversalDate\r\n" + + " (\r\n" + + " USDate :USDateType;\r\n" + + " var UniversalDate :UniversalDateType\r\n" + + " )\r\n" + + " :boolean;\r\n" + + "\r\n" + + "var\r\n" + + " ErrorRet :integer;\r\n" + + " iMonth :integer;\r\n" + + " valid :boolean;\r\n" + + "\r\n" + + "begin { function USToUniversalDate }\r\n" + + " valid := ValidUSDate(USDate);\r\n" + + " if valid then\r\n" + + " begin\r\n" + + " { Convert to Input Date/Time to Universal Formats }\r\n" + + " val(Copy(USDate , 1 , 2) , iMonth , ErrorRet);\r\n" + + " if (ErrorRet <> 0) then\r\n" + + " valid := false\r\n" + + " else if (iMonth < 1) or (iMonth > 12) then\r\n" + + " valid := false\r\n" + + " else { valid }\r\n" + + " begin\r\n" + + " UniversalDate := Copy(USDate , 3 , 2);\r\n" + + " UniversalDate := UniversalDate + AlphaMonths[iMonth];\r\n" + + " UniversalDate := UniversalDate + Copy(USDate , 5 , 2);\r\n" + + " end; { else }\r\n" + + " end; { if }\r\n" + + " USToUniversalDate := valid;\r\n" + + "end; { function USToUniversalDate }\r\n" + + "\r\n" + + "{** 05-31-96 * ValidUniversalDate ****************************************}\r\n" + + "\r\n" + + "function ValidUniversalDate(\r\n" + + " ChkDate :UniversalDateType\r\n" + + " )\r\n" + + " :boolean;\r\n" + + "\r\n" + + "var\r\n" + + " valid :boolean;\r\n" + + " mm :integer;\r\n" + + " dd :integer;\r\n" + + " yy :integer;\r\n" + + " i :integer;\r\n" + + "\r\n" + + "begin { function ValidUniversalDate }\r\n" + + " valid := true;\r\n" + + " mm := 0;\r\n" + + " yy := 0;\r\n" + + " for i := 1 to 12 do\r\n" + + " if copy(ChkDate , 3 , 3) = AlphaMonths[i] then\r\n" + + " mm := i;\r\n" + + " if mm = 0 then\r\n" + + " valid := false;\r\n" + + " if (valid) then\r\n" + + " begin\r\n" + + " val(copy(ChkDate , 1 , 2) , dd , i);\r\n" + + " if i <> 0 then\r\n" + + " valid := false\r\n" + + " else if dd < 1 then\r\n" + + " valid := false;\r\n" + + " if (valid) then\r\n" + + " begin\r\n" + + " val(copy(ChkDate , 6 , 2) , yy , i);\r\n" + + " if i <> 0 then\r\n" + + " valid := false\r\n" + + " else if yy < 0 then\r\n" + + " valid := false;\r\n" + + " end; { if }\r\n" + + " if (valid) then\r\n" + + " begin\r\n" + + " case mm of\r\n" + + " 1 , 3 , 5 , 7 , 8 , 10 , 12\r\n" + + " :\r\n" + + " begin\r\n" + + " if dd > 31 then\r\n" + + " valid := false;\r\n" + + " end;\r\n" + + " 4 , 6 , 9 , 11\r\n" + + " :\r\n" + + " begin\r\n" + + " if dd > 30 then\r\n" + + " valid := false;\r\n" + + " end;\r\n" + + " 2\r\n" + + " :\r\n" + + " begin\r\n" + + " if (LeapYear(yy)) then\r\n" + + " begin\r\n" + + " if dd > 29 then\r\n" + + " valid := false;\r\n" + + " end\r\n" + + " else\r\n" + + " begin\r\n" + + " if dd > 28 then\r\n" + + " valid := false;\r\n" + + " end;\r\n" + + " end;\r\n" + + " end; { case }\r\n" + + " end; { if }\r\n" + + " end; { if }\r\n" + + " ValidUniversalDate := valid;\r\n" + + "end; { function ValidUniveralDate }\r\n" + + "\r\n" + + "{** 05-01-96 * ValidEagleTime ********************************************}\r\n" + + "\r\n" + + "function ValidEagleTime(\r\n" + + " ChkTime :EagleTimeType\r\n" + + " )\r\n" + + " :boolean;\r\n" + + "\r\n" + + "var\r\n" + + " valid :boolean;\r\n" + + "\r\n" + + "begin { function ValidEagleTime }\r\n" + + " valid := true;\r\n" + + " if (ChkTime[1] < '0') or\r\n" + + " (ChkTime[1] > '2') then\r\n" + + " valid := false;\r\n" + + " if (ChkTime[2] < '0') or\r\n" + + " (ChkTime[2] > '9') then\r\n" + + " valid := false;\r\n" + + " if (ChkTime[1] = '2') and\r\n" + + " (ChkTime[2] > '3') then\r\n" + + " valid := false;\r\n" + + " if (ChkTime[3] < '0') or\r\n" + + " (ChkTime[3] > '5') then\r\n" + + " valid := false;\r\n" + + " if (ChkTime[4] < '0') or\r\n" + + " (ChkTime[4] > '9') then\r\n" + + " valid := false;\r\n" + + " ValidEagleTime := valid;\r\n" + + "end; { function ValidEagleTime }\r\n" + + "\r\n" + + "{** 05-01-96 * ValidUniversalTime ****************************************}\r\n" + + "\r\n" + + "function ValidUniversalTime(\r\n" + + " ChkTime :UniversalTimeType\r\n" + + " )\r\n" + + " :boolean;\r\n" + + "\r\n" + + "var\r\n" + + " valid :boolean;\r\n" + + "\r\n" + + "begin { function ValidUniversalTime }\r\n" + + " valid := true;\r\n" + + " if (ChkTime[1] < '0') or\r\n" + + " (ChkTime[1] > '2') then\r\n" + + " valid := false;\r\n" + + " if (ChkTime[2] < '0') or\r\n" + + " (ChkTime[2] > '9') then\r\n" + + " valid := false;\r\n" + + " if (ChkTime[1] = '2') and\r\n" + + " (ChkTime[2] > '3') then\r\n" + + " valid := false;\r\n" + + " if (ChkTime[3] < '0') or\r\n" + + " (ChkTime[3] > '5') then\r\n" + + " valid := false;\r\n" + + " if (ChkTime[4] < '0') or\r\n" + + " (ChkTime[4] > '9') then\r\n" + + " valid := false;\r\n" + + " if (ChkTime[5] < '0') or\r\n" + + " (ChkTime[5] > '5') then\r\n" + + " valid := false;\r\n" + + " if (ChkTime[6] < '0') or\r\n" + + " (ChkTime[6] > '9') then\r\n" + + " valid := false;\r\n" + + " ValidUniversalTime := valid;\r\n" + + "end; { function ValidUniversalTime }\r\n" + + "\r\n" + + "{** GetUniversalDateTime * 07-30-98 **************************************}\r\n" + + "\r\n" + + "function GetUniversalDateTime\r\n" + + " (\r\n" + + " var CurrDate :UniversalDateType;\r\n" + + " var CurrTime :UniversalTimeType;\r\n" + + " var wSec100 :word\r\n" + + " )\r\n" + + " :boolean;\r\n" + + "\r\n" + + "{ FILENAME: datetime.pas\r\n" + + "\r\n" + + " DESCRIPTION: GetUniversalDateTime returns the current DDMMMYY date,\r\n" + + " HHMMMSS time and hundreths of a second.\r\n" + + "\r\n" + + " PARAMETERS: CurrDate Current date in DDMMMYY format\r\n" + + " CurrTime Current time in HHMMSS format\r\n" + + " wSec100 Current hundredths of a second (0..99)\r\n" + + "\r\n" + + " RETURNS: TRUE Success\r\n" + + " FALSE Failure\r\n" + + "\r\n" + + " LOCAL: wHour Hour (0..23)\r\n" + + " wMinute Minute (0..59)\r\n" + + " wSecond Second (0..59)\r\n" + + " wSec100 Hundredth of second (0..99)\r\n" + + " Hour Hour ('000'..'023');\r\n" + + " Minute Minute ('000'..'059');\r\n" + + " Second Second ('000'..'059');\r\n" + + "\r\n" + + "--------------------------------------------------------------------------}\r\n" + + "\r\n" + + "var\r\n" + + " CurrentDateTime :TDateTime;\r\n" + + " wHour :word;\r\n" + + " wMinute :word;\r\n" + + " wSecond :word;\r\n" + + " wSec1000 :word;\r\n" + + " Hour :string[3];\r\n" + + " Minute :string[3];\r\n" + + " Second :string[3];\r\n" + + "\r\n" + + "begin { function GetUniversalDateTime }\r\n" + + "\r\n" + + " CurrentDateTime := GetUTCDateTime;\r\n" + + " CurrDate := ConvertDateTimeToUniversalDate(CurrentDateTime);\r\n" + + "\r\n" + + " decodetime(CurrentDateTime - Trunc(CurrentDateTime) , wHour , wMinute , wSecond , wSec1000);\r\n" + + " str((wHour + 100) :3 , Hour);\r\n" + + " str((wMinute + 100) :3 , Minute);\r\n" + + " str((wSecond + 100) :3 , Second);\r\n" + + " CurrTime := copy(Hour , 2 , 2) + copy(Minute , 2 , 2) +\r\n" + + " copy(Second , 2 , 2);\r\n" + + "\r\n" + + " if (ValidUniversalDate(CurrDate)) and\r\n" + + " (ValidUniversalTime(CurrTime)) then\r\n" + + " GetUniversalDateTime := true\r\n" + + " else\r\n" + + " GetUniversalDateTime := false;\r\n" + + "\r\n" + + "end; { function GetUniversalDateTime }\r\n" + + "\r\n" + + "{** GetCurrentDateTime * 07-30-98 ****************************************}\r\n" + + "\r\n" + + "procedure GetCurrentDateTime\r\n" + + " (\r\n" + + " var CurrDate :UniversalDateType;\r\n" + + " var wCurrHour :word;\r\n" + + " var wCurrMinute :word;\r\n" + + " var wCurrSecond :word;\r\n" + + " var wCurrSec100 :word\r\n" + + " );\r\n" + + "\r\n" + + "{ FILENAME: datetime.pas\r\n" + + "\r\n" + + " DESCRIPTION: GetCurrentDateTime returns the current DDMMMYY date,\r\n" + + " hours, minutes, seconds and hundredths of seconds.\r\n" + + "\r\n" + + " PARAMETERS: CurrDate Current date in DDMMMYY format\r\n" + + " wCurrHour Current hour (0..23)\r\n" + + " wCurrMinute Current minute (0..59)\r\n" + + " wCurrSecond Current second (0..59)\r\n" + + " wCurrSec100 Current hundredth of second (0..99)\r\n" + + "\r\n" + + " RETURNS: None ...\r\n" + + "\r\n" + + "\r\n" + + "--------------------------------------------------------------------------}\r\n" + + "\r\n" + + "var\r\n" + + " CurrentDateTime :TDateTime;\r\n" + + " wSec1000 :word;\r\n" + + "\r\n" + + "begin { procedure GetCurrentDateTime }\r\n" + + "\r\n" + + " CurrentDateTime := GetUTCDateTime;\r\n" + + " decodetime(CurrentDateTime - Trunc(CurrentDateTime) ,\r\n" + + " wCurrHour , wCurrMinute , wCurrSecond , wSec1000);\r\n" + + "\r\n" + + " wCurrSec100 := wSec1000 div 10;\r\n" + + " CurrDate := ConvertDateTimeToUniversalDate(CurrentDateTime);\r\n" + + "end; { procedure GetCurrentDateTime }\r\n" + + "\r\n" + + "{** 04-30-96 * ConvertUniversalTime **************************************}\r\n" + + "\r\n" + + "function ConvertUniversalTime\r\n" + + " (\r\n" + + " UniversalTime :UniversalTimeType;\r\n" + + " var wHour :word;\r\n" + + " var wMinute :word;\r\n" + + " var wSecond :word\r\n" + + " )\r\n" + + " :boolean;\r\n" + + "\r\n" + + "{ FILENAME: datetime.pas\r\n" + + "\r\n" + + " DESCRIPTION: ConvertUniversalTime converts a universal time HHMMSS to\r\n" + + " the component word hour, minute and second.\r\n" + + "\r\n" + + " PARAMETERS: UniversalTime UniversalTime (HHMMSS)\r\n" + + " wHour Hour (0..23)\r\n" + + " wMinute Minute (0..59)\r\n" + + " wSecond Second (0..59)\r\n" + + "\r\n" + + " RETURNS: TRUE Routine succeeded\r\n" + + " FALSE Routine failed (invalid time)\r\n" + + "\r\n" + + " LOCAL: err Hour ( hour: 0-23 )\r\n" + + " valid Minute ( minute: 0-59 )\r\n" + + "\r\n" + + "--------------------------------------------------------------------------}\r\n" + + "\r\n" + + "var\r\n" + + " err :integer;\r\n" + + "\r\n" + + "begin { function ConvertUniversalTime }\r\n" + + " Result := true;\r\n" + + " val(copy(UniversalTime , 1 , 2) , wHour , err);\r\n" + + " if (err <> 0) then\r\n" + + " Result := false;\r\n" + + " val(copy(UniversalTime , 3 , 2) , wMinute , err);\r\n" + + " if (err <> 0) then\r\n" + + " Result := false;\r\n" + + " val(copy(UniversalTime , 5 , 2) , wSecond , err);\r\n" + + " if (err <> 0) then\r\n" + + " Result := false;\r\n" + + "end; { function ConvertUniversalTime }\r\n" + + "\r\n" + + "{** UnivTimeDiff * 05-01-96 **********************************************}\r\n" + + "\r\n" + + "function UnivTimeDiff\r\n" + + " (\r\n" + + " var ErrorRet :integer;\r\n" + + " var Seconds :longint;\r\n" + + " FirstDate :UniversalDateType;\r\n" + + " FirstTime :UniversalTimeType;\r\n" + + " SecondDate :UniversalDateType;\r\n" + + " SecondTime :UniversalTimeType\r\n" + + " )\r\n" + + " :boolean;\r\n" + + "\r\n" + + "{ FILENAME: datetime.pas\r\n" + + "\r\n" + + " DESCRIPTION: UnivTimeDiff returns false if any of the passed date/time\r\n" + + " values are blank. If all values are not blank the routine\r\n" + + " calls standard routines to determine the time (in seconds)\r\n" + + " between the two passed date/times. By convention the\r\n" + + " second time should be after the first time.\r\n" + + "\r\n" + + " NOTES: 1. This routine uses library routines which work only\r\n" + + " in an assumed date range of 1950 to 2049.\r\n" + + "\r\n" + + " 2. The month in the the universal date (DDMMMYY) must\r\n" + + " be upper case.\r\n" + + "\r\n" + + " 3. The number of seconds in 68 years from the base\r\n" + + " date is too large to fit in a long integer - so\r\n" + + " this routine will only work on dates from 1950 to\r\n" + + " 2018 (1950+68).\r\n" + + "\r\n" + + " PARAMETERS: ErrorRet Error return code - unsed at this time\r\n" + + " Seconds Seconds difference between date/times\r\n" + + " FirstDate First date (DDMMMYY)\r\n" + + " FirstTime First time (HHMMSS)\r\n" + + " SecondDate Second date (DDMMMYY)\r\n" + + " SecondTime Second time (HHMMSS)\r\n" + + "\r\n" + + " RETURNS: TRUE Routine succeeded\r\n" + + " FALSE Routine failed (invalid date or time)\r\n" + + "\r\n" + + " LOCAL: valid Local function success\r\n" + + " wHour Hour ( hour: 0-23 )\r\n" + + " wMinute Minute ( minute: 0-59 )\r\n" + + " wSecond Second ( second: 0-59 )\r\n" + + " Days Number of days between dates\r\n" + + " FirstDayAD Days after death to first date\r\n" + + " SecondDayAD Days after death to second date\r\n" + + " NumericFirstDate First date in numeric format\r\n" + + " NumericSecondDate Second date in numeric format\r\n" + + "\r\n" + + "--------------------------------------------------------------------------}\r\n" + + "\r\n" + + "var\r\n" + + " valid :boolean;\r\n" + + " wHour :word;\r\n" + + " wMinute :word;\r\n" + + " wSecond :word;\r\n" + + " Days :longint;\r\n" + + " FirstDayAD :longint;\r\n" + + " SecondDayAD :longint;\r\n" + + " NumericFirstDate :NumericDateType;\r\n" + + " NumericSecondDate :NumericDateType;\r\n" + + "\r\n" + + "begin { function UnivTimeDiff }\r\n" + + " valid := false;\r\n" + + " if (ValidUniversalDate(FirstDate) and\r\n" + + " ValidUniversalDate(SecondDate) and\r\n" + + " ValidUniversalTime(FirstTime) and\r\n" + + " ValidUniversalTime(SecondTime)) then\r\n" + + " begin\r\n" + + " NumericFirstDate := NumericDate(FirstDate);\r\n" + + " NumericSecondDate := NumericDate(SecondDate);\r\n" + + " FirstDayAD := DayAD(NumericFirstDate);\r\n" + + " SecondDayAD := DayAD(NumericSecondDate);\r\n" + + " Days := SecondDayAD - FirstDayAD;\r\n" + + " Seconds := Days * SEC_PER_DAY;\r\n" + + "\r\n" + + " if (ConvertUniversalTime(SecondTime , wHour , wMinute , wSecond)) then\r\n" + + " begin\r\n" + + " Seconds := Seconds + (longint(wHour) * 3600) + (wMinute * 60) +\r\n" + + " wSecond;\r\n" + + " if (ConvertUniversalTime(FirstTime , wHour , wMinute , wSecond)) then\r\n" + + " begin\r\n" + + " Seconds := Seconds - (longint(wHour) * 3600) - (wMinute * 60) -\r\n" + + " wSecond;\r\n" + + " valid := true;\r\n" + + " end; { if }\r\n" + + " end; { if }\r\n" + + " end { if }\r\n" + + " else\r\n" + + " valid := false;\r\n" + + " UnivTimeDiff := valid;\r\n" + + "end; { function UnivTimeDiff }\r\n" + + "\r\n" + + "{** 01-15-97 * ConvertEagleTime ******************************************}\r\n" + + "\r\n" + + "function ConvertEagleTime\r\n" + + " (\r\n" + + " EagleTime :EagleTimeType;\r\n" + + " var wHour :word;\r\n" + + " var wMinute :word\r\n" + + " )\r\n" + + " :boolean;\r\n" + + "\r\n" + + "{ FILENAME: datetime.pas\r\n" + + "\r\n" + + " DESCRIPTION: ConvertEagleTime converts an Eagle time HHMM to the\r\n" + + " the component word hour and minute.\r\n" + + "\r\n" + + " PARAMETERS: EagleTime UniversalTime (HHMM)\r\n" + + " wHour Hour (0..23)\r\n" + + " wMinute Minute (0..59)\r\n" + + "\r\n" + + " RETURNS: TRUE Routine succeeded\r\n" + + " FALSE Routine failed (invalid time)\r\n" + + "\r\n" + + " LOCAL: err Hour ( hour: 0-23 )\r\n" + + " valid Minute ( minute: 0-59 )\r\n" + + "\r\n" + + "--------------------------------------------------------------------------}\r\n" + + "\r\n" + + "var\r\n" + + " err :integer;\r\n" + + "\r\n" + + "begin { function ConvertEagleTime }\r\n" + + " Result := true;\r\n" + + " Val(Copy(EagleTime , 1 , 2) , wHour , err);\r\n" + + " if (err <> 0) then\r\n" + + " Result := false;\r\n" + + " Val(Copy(EagleTime , 3 , 2) , wMinute , err);\r\n" + + " if (err <> 0) then\r\n" + + " Result := false;\r\n" + + "end; { function ConvertEagleTime }\r\n" + + "\r\n" + + "{** TimeDiff * 05-01-96 **************************************************}\r\n" + + "\r\n" + + "function TimeDiff\r\n" + + " (\r\n" + + " var ErrorRet :integer;\r\n" + + " var Minutes :longint;\r\n" + + " FirstDate :UniversalDateType;\r\n" + + " FirstTime :EagleTimeType;\r\n" + + " SecondDate :UniversalDateType;\r\n" + + " SecondTime :EagleTimeType\r\n" + + " )\r\n" + + " :boolean;\r\n" + + "\r\n" + + "{ FILENAME: datetime.pas\r\n" + + "\r\n" + + " DESCRIPTION: TimeDiff returns false if any of the passed date/time values\r\n" + + " are blank. If all values are not blank the routine calls\r\n" + + " standard routines to determine the time (in seconds) between\r\n" + + " the two passed date/times. By convention the second time\r\n" + + " should be after the first time.\r\n" + + "\r\n" + + " NOTES: 1. This routine uses library routines which work only\r\n" + + " in an assumed date range of 1950 to 2049.\r\n" + + "\r\n" + + " 2. The month in the the universal date (DDMMMYY) must\r\n" + + " be upper case.\r\n" + + "\r\n" + + " PARAMETERS: ErrorRet Error return code - unsed at this time\r\n" + + " Minutes Minutes difference between date/times\r\n" + + " FirstDate First date (DDMMMYY)\r\n" + + " FirstTime First time (HHMM)\r\n" + + " SecondDate Second date (DDMMMYY)\r\n" + + " SecondTime Second time (HHMM)\r\n" + + "\r\n" + + " RETURNS: TRUE Routine succeeded\r\n" + + " FALSE Routine failed (invalid date or time)\r\n" + + "\r\n" + + " LOCAL: valid Local function success\r\n" + + " wHour Hour ( hour: 0-23 )\r\n" + + " wMinute Minute ( minute: 0-59 )\r\n" + + " Days Number of days between dates\r\n" + + " FirstDayAD Days after death to first date\r\n" + + " SecondDayAD Days after death to second date\r\n" + + " NumericFirstDate First date in numeric format\r\n" + + " NumericSecondDate Second date in numeric format\r\n" + + "\r\n" + + "--------------------------------------------------------------------------}\r\n" + + "\r\n" + + "var\r\n" + + " valid :boolean;\r\n" + + " wHour :word;\r\n" + + " wMinute :word;\r\n" + + " Days :longint;\r\n" + + " FirstDayAD :longint;\r\n" + + " SecondDayAD :longint;\r\n" + + " NumericFirstDate :NumericDateType;\r\n" + + " NumericSecondDate :NumericDateType;\r\n" + + "\r\n" + + "begin { function TimeDiff }\r\n" + + " valid := false;\r\n" + + " if (ValidUniversalDate(FirstDate) and\r\n" + + " ValidUniversalDate(SecondDate) and\r\n" + + " ValidEagleTime(FirstTime) and\r\n" + + " ValidEagleTime(SecondTime)) then\r\n" + + " begin\r\n" + + " NumericFirstDate := NumericDate(FirstDate);\r\n" + + " NumericSecondDate := NumericDate(SecondDate);\r\n" + + " FirstDayAD := DayAD(NumericFirstDate);\r\n" + + " SecondDayAD := DayAD(NumericSecondDate);\r\n" + + " Days := SecondDayAD - FirstDayAD;\r\n" + + " Minutes := Days * MIN_PER_DAY;\r\n" + + "\r\n" + + " if (ConvertEagleTime(SecondTime , wHour , wMinute)) then\r\n" + + " begin\r\n" + + " Minutes := Minutes + (wHour * 60) + wMinute;\r\n" + + " if (ConvertEagleTime(FirstTime , wHour , wMinute)) then\r\n" + + " begin\r\n" + + " Minutes := Minutes - (wHour * 60) - wMinute;\r\n" + + " valid := true;\r\n" + + " end; { if }\r\n" + + " end; { if }\r\n" + + "\r\n" + + " end { if }\r\n" + + " else\r\n" + + " valid := false;\r\n" + + " TimeDiff := valid;\r\n" + + "end; { function TimeDiff }\r\n" + + "\r\n" + + "{** SecSince01Jan1970 * 04-20-96 *****************************************}\r\n" + + "\r\n" + + "procedure SecSince01Jan1970\r\n" + + " (\r\n" + + " var Seconds :longint;\r\n" + + " var Sec1000 :longint\r\n" + + " );\r\n" + + "\r\n" + + "{ FILENAME: datetime.pas\r\n" + + "\r\n" + + " DESCRIPTION: SecSince01Jan1970 returns the number of seconds elapsed\r\n" + + " since Jan 01, 1970 at Midnight UTC. This routine was\r\n" + + " created to mimic the TIME function standard to most C\r\n" + + " implementation\r\n" + + "\r\n" + + "uses\r\n" + + " SYSUTILS,\r\n" + + " Classes;s. This function assumes that the\r\n" + + " workstations local, system-time is set for UTC.\r\n" + + "\r\n" + + " PARAMETERS: Seconds Seconds elapsed since Jan 1, 1970.\r\n" + + " Sec1000 Local system time in milliseconds to\r\n" + + " the nearest 10 milliseconds\r\n" + + "\r\n" + + " RETURNS: None\r\n" + + "\r\n" + + " LOCAL: wCurrHour Local system time ( hour: 0-23 )\r\n" + + " wCurrMinute Local system time ( minute: 0-59 )\r\n" + + " wCurrSecond Local system time ( second: 0-59 )\r\n" + + " wCurrSec100 Local system time ( hundredths of\r\n" + + " a second: 0-99 )\r\n" + + " Days Days since Jan 1, 1970\r\n" + + " BaseDateAD Days after death to Jan 1, 1970\r\n" + + " TodayAD Days after death to today\r\n" + + " Today Today's date in \"universal date\" format\r\n" + + " NumericBaseDate Base date Jan 1, 1970 in numeric format\r\n" + + " NumericToday Today's date in numeric format\r\n" + + "\r\n" + + "--------------------------------------------------------------------------}\r\n" + + "\r\n" + + "var\r\n" + + " wCurrHour :word;\r\n" + + " wCurrMinute :word;\r\n" + + " wCurrSecond :word;\r\n" + + " wCurrSec100 :word;\r\n" + + " Days :longint;\r\n" + + " BaseDateAD :longint;\r\n" + + " TodayAD :longint;\r\n" + + " CurrDate :UniversalDateType;\r\n" + + " NumericBaseDate :NumericDateType;\r\n" + + " NumericToday :NumericDateType;\r\n" + + "\r\n" + + "begin { procedure SecSince01Jan1970 }\r\n" + + "\r\n" + + " GetCurrentDateTime(CurrDate , wCurrHour , wCurrMinute , wCurrSecond ,\r\n" + + " wCurrSec100);\r\n" + + " NumericToday := NumericDate(CurrDate);\r\n" + + " TodayAD := DayAD(NumericToday);\r\n" + + " NumericBaseDate := chr(19) + chr(70) + chr(1) + chr(1);\r\n" + + " BaseDateAD := DayAD(NumericBaseDate);\r\n" + + " Days := TodayAD - BaseDateAD;\r\n" + + " Seconds := Days * SEC_PER_DAY;\r\n" + + " Seconds := Seconds + (Longint(wCurrHour) * 3600) +\r\n" + + " (wCurrMinute * 60) + wCurrSecond;\r\n" + + " Sec1000 := wCurrSec100 * 10;\r\n" + + "\r\n" + + "end; { procedure SecSince01Jan1970 }\r\n" + + "\r\n" + + "{** 03-22-97 * CheckDDMMMYYDate ******************************************}\r\n" + + "\r\n" + + "function CheckDDMMMYYDate\r\n" + + " (\r\n" + + " CheckDate :UniversalDateType\r\n" + + " )\r\n" + + " :boolean;\r\n" + + "\r\n" + + "{ FILENAME: datetime.pas\r\n" + + "\r\n" + + " DESCRIPTION: CheckDDMMMYYDate determines if a date in the format\r\n" + + " DDMMMYY is valid with all values in appropriate ranges.\r\n" + + "\r\n" + + " PARAMETERS: CheckDate Date to check - with format DDMMMYY\r\n" + + "\r\n" + + " RETURNS: Function True for valid date, false for an\r\n" + + " invalid date\r\n" + + "\r\n" + + " LOCAL: MaxStep Number of step in process\r\n" + + " iStep Step in progress\r\n" + + " Code Return code: string to int conversion\r\n" + + " Days31 Months with 31 days\r\n" + + " Days30 Months with 30 days\r\n" + + " Days29 Months with 28 or 29 days\r\n" + + " iDay Integer day\r\n" + + " iMonth Integer month\r\n" + + " iYear Integer year\r\n" + + " strMonth Date month - 3 char string format\r\n" + + " enumMonth Date month - enumerated: 0-11\r\n" + + " IsValid Local flag for date validity\r\n" + + "\r\n" + + "--------------------------------------------------------------------------}\r\n" + + "\r\n" + + "type\r\n" + + " Months = (JAN , FEB , MAR , APR , MAY , JUN ,\r\n" + + " JUL , AUG , SEP , OCT , NOV , DEC);\r\n" + + "\r\n" + + " MonthSet = set of Months;\r\n" + + "\r\n" + + "const\r\n" + + " MaxStep = 6;\r\n" + + "\r\n" + + " Days31 :MonthSet = [JAN , MAR , MAY , JUL , AUG , OCT , DEC];\r\n" + + " Days30 :MonthSet = [APR , JUN , SEP , NOV];\r\n" + + " Days29 :MonthSet = [FEB];\r\n" + + "\r\n" + + "var\r\n" + + " i :integer;\r\n" + + " iStep :integer;\r\n" + + " Code :integer;\r\n" + + " iDay :integer;\r\n" + + " iMonth :integer;\r\n" + + " iYear :integer;\r\n" + + " strMonth :string[3];\r\n" + + " enumMonth :Months;\r\n" + + " IsValid :boolean;\r\n" + + "\r\n" + + "begin { function CheckDDMMMYYDate }\r\n" + + " IsValid := true;\r\n" + + " iStep := 1;\r\n" + + " iDay := 0;\r\n" + + " iYear := 0;\r\n" + + " enumMonth := Months(0); { JAN }\r\n" + + " while (iStep <= MaxStep) and (IsValid) do\r\n" + + " begin\r\n" + + " case iStep of\r\n" + + " 1 :\r\n" + + " begin\r\n" + + " iMonth := 0;\r\n" + + " strMonth := copy(CheckDate , 3 , 3);\r\n" + + " for i := 1 to 12 do\r\n" + + " if (strMonth = AlphaMonths[i]) then\r\n" + + " iMonth := i;\r\n" + + " if (iMonth > 0) then\r\n" + + " enumMonth := Months(iMonth - 1)\r\n" + + " else\r\n" + + " IsValid := false;\r\n" + + " end;\r\n" + + " 2 :\r\n" + + " begin\r\n" + + " val(copy(CheckDate , 1 , 2) , iDay , Code);\r\n" + + " if (Code <> 0) or (iDay < 1) then\r\n" + + " IsValid := false;\r\n" + + " end;\r\n" + + " 3 :\r\n" + + " begin\r\n" + + " val(copy(CheckDate , 6 , 2) , iYear , Code);\r\n" + + " if (Code <> 0) or (iYear < 0) then\r\n" + + " IsValid := false;\r\n" + + " end;\r\n" + + " 4 :if (enumMonth in Days31) and (iDay > 31) then\r\n" + + " IsValid := false;\r\n" + + " 5 :if (enumMonth in Days30) and (iDay > 30) then\r\n" + + " IsValid := false;\r\n" + + " 6 :if (enumMonth in Days29) then\r\n" + + " begin\r\n" + + " if (LeapYear(iYear)) then\r\n" + + " begin\r\n" + + " if (iDay > 29) then\r\n" + + " IsValid := false;\r\n" + + " end\r\n" + + " else if (iDay > 28) then\r\n" + + " IsValid := false;\r\n" + + " end; // if\r\n" + + " end; { case }\r\n" + + " Inc(iStep);\r\n" + + " end; { while }\r\n" + + " CheckDDMMMYYDate := IsValid;\r\n" + + "end; { function CheckDDMMMYYDate }\r\n" + + "\r\n" + + "{** DivideUniversalDate * 02-17-95 ***************************************}\r\n" + + "\r\n" + + "function DivideUniversalDate\r\n" + + " (\r\n" + + " var UniversalDate :UniversalDateType;\r\n" + + " var SubYear :integer;\r\n" + + " var SubMonth :integer;\r\n" + + " var SubDay :integer\r\n" + + " )\r\n" + + " :boolean;\r\n" + + "\r\n" + + "{ FILENAME: datetime.pas\r\n" + + "\r\n" + + " DESCRIPTION: DivideUniversalDate converts a date in the format 05JAN95 to\r\n" + + " and integer components - in this case 95, 1, and 5. If the\r\n" + + " date does not include one of the three components the value\r\n" + + " will default to -1. The routine cannot identify invalid\r\n" + + " dates where the number of days exceeds a month maximum.\r\n" + + "\r\n" + + " PARAMETERS: UniversalDate Date in the format DDMMMYY\r\n" + + " SubYear 0 to 99 or -1 for error\r\n" + + " SubMonth 1 to 12 or -1 for error\r\n" + + " SubDay 1 to 99 or -1 for error\r\n" + + "\r\n" + + " RETURNS: FUNCTION Returns true if the date is successfully\r\n" + + " divided or false if a DOS error occurs\r\n" + + " or a value is \"grossly\" out of range\r\n" + + "\r\n" + + " LOCAL: SubDayStr Local string used to identify day\r\n" + + " SubMonthStr Local string used to identify month\r\n" + + " SubYearStr Local string used to identify year\r\n" + + " Code Error return for string to integer\r\n" + + " conversion. Any non-zero value\r\n" + + " indicates an error\r\n" + + " IsValid Local flag for date validity\r\n" + + "\r\n" + + "--------------------------------------------------------------------------}\r\n" + + "\r\n" + + "var\r\n" + + " SubDayStr :string[2];\r\n" + + " SubMonthStr :string[3];\r\n" + + " SubYearStr :string[2];\r\n" + + " Code :integer;\r\n" + + " IsValid :boolean;\r\n" + + "\r\n" + + "begin { function DivideUniversalDate }\r\n" + + " IsValid := true;\r\n" + + " SubYearStr := copy(UniversalDate , 6 , 2);\r\n" + + " if (SubYearStr = ' ') then\r\n" + + " SubYear := -1\r\n" + + " else\r\n" + + " begin\r\n" + + " val(SubYearStr , SubYear , Code);\r\n" + + " if (Code <> 0) or (SubYear < 0) then\r\n" + + " IsValid := false;\r\n" + + " end; { else }\r\n" + + " SubMonthStr := copy(UniversalDate , 3 , 3);\r\n" + + " if (SubMonthStr = ' ') then\r\n" + + " SubMonth := -1\r\n" + + " else if (SubMonthStr = 'JAN') then\r\n" + + " SubMonth := 1\r\n" + + " else if (SubMonthStr = 'FEB') then\r\n" + + " SubMonth := 2\r\n" + + " else if (SubMonthStr = 'MAR') then\r\n" + + " SubMonth := 3\r\n" + + " else if (SubMonthStr = 'APR') then\r\n" + + " SubMonth := 4\r\n" + + " else if (SubMonthStr = 'MAY') then\r\n" + + " SubMonth := 5\r\n" + + " else if (SubMonthStr = 'JUN') then\r\n" + + " SubMonth := 6\r\n" + + " else if (SubMonthStr = 'JUL') then\r\n" + + " SubMonth := 7\r\n" + + " else if (SubMonthStr = 'AUG') then\r\n" + + " SubMonth := 8\r\n" + + " else if (SubMonthStr = 'SEP') then\r\n" + + " SubMonth := 9\r\n" + + " else if (SubMonthStr = 'OCT') then\r\n" + + " SubMonth := 10\r\n" + + " else if (SubMonthStr = 'NOV') then\r\n" + + " SubMonth := 11\r\n" + + " else if (SubMonthStr = 'DEC') then\r\n" + + " SubMonth := 12\r\n" + + " else\r\n" + + " IsValid := false;\r\n" + + " SubDayStr := copy(UniversalDate , 1 , 2);\r\n" + + " if (SubDayStr = ' ') then\r\n" + + " IsValid := false\r\n" + + " else\r\n" + + " begin\r\n" + + " val(SubDayStr , SubDay , Code);\r\n" + + " if (Code <> 0) or (SubDay < 1) or (SubDay > 31) then\r\n" + + " IsValid := false;\r\n" + + " end; { else }\r\n" + + " DivideUniversalDate := IsValid;\r\n" + + "end; { function DivideUniversalDate }\r\n" + + "\r\n" + + "{** BuildUniversalDate * 02-17-95 ****************************************}\r\n" + + "\r\n" + + "function BuildUniversalDate\r\n" + + " (\r\n" + + " var UniversalDate :UniversalDateType;\r\n" + + " var SubYear :integer;\r\n" + + " var SubMonth :integer;\r\n" + + " var SubDay :integer\r\n" + + " )\r\n" + + " :boolean;\r\n" + + "\r\n" + + "{ FILENAME: datetime.pas\r\n" + + "\r\n" + + " DESCRIPTION: BuildUniversalDate converts a date in the form of three\r\n" + + " integer components (95, 1, 5) into the date '05JAN95'.\r\n" + + " The procedure does not perform any error checking and\r\n" + + " expects all three passed integer fields to be included\r\n" + + " and valid.\r\n" + + "\r\n" + + " PARAMETERS: UniversalDate Date in the format DDMMMYY - '05JAN95'\r\n" + + " SubYear 0 to 99 - no check performed\r\n" + + " SubMonth 1 to 12 - no check performed\r\n" + + " SubDay 1 to 31 - no check performed\r\n" + + "\r\n" + + " RETURNS: FUNCTION True for valid date, false for invalid\r\n" + + " date\r\n" + + "\r\n" + + " LOCAL: SubYearStr String version of year - '95'\r\n" + + " SubMonthStr String version of month - 'JAN'\r\n" + + " SubDayStr String version of day - '05'\r\n" + + "\r\n" + + "--------------------------------------------------------------------------}\r\n" + + "\r\n" + + "var\r\n" + + " SubYearStr :string;\r\n" + + " SubMonthStr :string;\r\n" + + " SubDayStr :string;\r\n" + + "\r\n" + + "begin { function BuildUniversalDate }\r\n" + + " str(SubYear :2 , SubYearStr);\r\n" + + " if (SubYearStr[1] = ' ') then\r\n" + + " SubYearStr[1] := '0';\r\n" + + " case (SubMonth) of\r\n" + + " 1 :SubMonthStr := 'JAN';\r\n" + + " 2 :SubMonthStr := 'FEB';\r\n" + + " 3 :SubMonthStr := 'MAR';\r\n" + + " 4 :SubMonthStr := 'APR';\r\n" + + " 5 :SubMonthStr := 'MAY';\r\n" + + " 6 :SubMonthStr := 'JUN';\r\n" + + " 7 :SubMonthStr := 'JUL';\r\n" + + " 8 :SubMonthStr := 'AUG';\r\n" + + " 9 :SubMonthStr := 'SEP';\r\n" + + " 10 :SubMonthStr := 'OCT';\r\n" + + " 11 :SubMonthStr := 'NOV';\r\n" + + " 12 :SubMonthStr := 'DEC';\r\n" + + " end; { case }\r\n" + + " str(SubDay :2 , SubDayStr);\r\n" + + " if (SubDayStr[1] = ' ') then\r\n" + + " SubDayStr[1] := '0';\r\n" + + " UniversalDate := SubDayStr + SubMonthStr + SubYearStr;\r\n" + + " BuildUniversalDate := CheckDDMMMYYDate(UniversalDate);\r\n" + + "end; { function BuildUniversalDate }\r\n" + + "\r\n" + + "{** 11-04-98 * CompleteDate **********************************************}\r\n" + + "\r\n" + + "function CompleteDate\r\n" + + " (\r\n" + + " var ReferenceDate :UniversalDateType;\r\n" + + " var PartialDate :UniversalDateType\r\n" + + " )\r\n" + + " :boolean;\r\n" + + "\r\n" + + "{ FILENAME: datetime.pas\r\n" + + "\r\n" + + " DESCRIPTION: CompleteDate compares information from a partial date to\r\n" + + " a reference date which is expected to be near the partial\r\n" + + " date. The procedure then makes a best guess as the\r\n" + + " complete form of the partial date. For example, a partial\r\n" + + " date of '26 ' with a reference date of '05JAN95' will\r\n" + + " produce a date of 26DEC94.\r\n" + + "\r\n" + + " Notes: The reference date must be a complete valid date.\r\n" + + " The partial date must include at least a day.\r\n" + + "\r\n" + + " PARAMETERS: ReferenceDate Date in the format DDMMMYY - '05JAN95'\r\n" + + " PartialDate Partial date, format DDMMMYY - '04JAN '\r\n" + + "\r\n" + + " RETURNS: FUNCTION The function returns true if a\r\n" + + " valid (though not necessarily\r\n" + + " correct) date is created from\r\n" + + " the partial and reference dates.\r\n" + + "\r\n" + + " LOCAL: ReferenceYear Integer year for reference date\r\n" + + " ReferenceMonth Integer month for reference date\r\n" + + " ReferenceDay Integer day for reference date\r\n" + + " PartialYear Integer year for partial date\r\n" + + " PartialMonth Integer month for partial date\r\n" + + " PartailDay Integer day for partial date\r\n" + + " IsValid Local funciton success flag\r\n" + + "\r\n" + + "--------------------------------------------------------------------------}\r\n" + + "\r\n" + + "var\r\n" + + " ReferenceYear :integer;\r\n" + + " ReferenceMonth :integer;\r\n" + + " ReferenceDay :integer;\r\n" + + " PartialYear :integer;\r\n" + + " PartialMonth :integer;\r\n" + + " PartialDay :integer;\r\n" + + " IsValid :boolean;\r\n" + + "\r\n" + + "begin { function CompleteDate }\r\n" + + "\r\n" + + " IsValid := true;\r\n" + + "\r\n" + + " if (not CheckDDMMMYYDate(PartialDate)) then\r\n" + + " if (CheckDDMMMYYDate(ReferenceDate)) then\r\n" + + " begin\r\n" + + " if (DivideUniversalDate(ReferenceDate , ReferenceYear ,\r\n" + + " ReferenceMonth , ReferenceDay)) and\r\n" + + " (DivideUniversalDate(PartialDate , PartialYear ,\r\n" + + " PartialMonth , PartialDay)) then\r\n" + + " begin\r\n" + + " if (ReferenceDay = PartialDay) and\r\n" + + " (PartialMonth = -1) then\r\n" + + " begin\r\n" + + " PartialYear := ReferenceYear;\r\n" + + " PartialMonth := ReferenceMonth;\r\n" + + " end { if }\r\n" + + " else if (ReferenceMonth = 12) and (PartialMonth = 1) then\r\n" + + " PartialYear := ReferenceYear + 1\r\n" + + " else if (ReferenceMonth = 1) and (PartialMonth = 12) then\r\n" + + " PartialYear := ReferenceYear - 1\r\n" + + " else if (PartialMonth = -1) then\r\n" + + " begin\r\n" + + " if (Abs(ReferenceDay - PartialDay) <= 14) then\r\n" + + " begin\r\n" + + " PartialMonth := ReferenceMonth;\r\n" + + " PartialYear := ReferenceYear;\r\n" + + " end { if }\r\n" + + " else if (ReferenceDay > PartialDay) then\r\n" + + " begin\r\n" + + " PartialMonth := ReferenceMonth + 1;\r\n" + + " if (PartialMonth > 12) then\r\n" + + " begin\r\n" + + " PartialMonth := 1;\r\n" + + " PartialYear := ReferenceYear + 1;\r\n" + + " end { if }\r\n" + + " else\r\n" + + " PartialYear := ReferenceYear;\r\n" + + " end { else }\r\n" + + " else { ReferenceDay < PartialDay }\r\n" + + " begin\r\n" + + " PartialMonth := ReferenceMonth - 1;\r\n" + + " if (PartialMonth < 1) then\r\n" + + " begin\r\n" + + " PartialMonth := 12;\r\n" + + " PartialYear := ReferenceYear - 1;\r\n" + + " end { if }\r\n" + + " else\r\n" + + " PartialYear := ReferenceYear;\r\n" + + " end; { else }\r\n" + + " end { if }\r\n" + + " else\r\n" + + " PartialYear := ReferenceYear;\r\n" + + " IsValid := BuildUniversalDate\r\n" + + " (PartialDate , PartialYear , PartialMonth , PartialDay);\r\n" + + " end { if }\r\n" + + " else\r\n" + + " IsValid := false;\r\n" + + " end { if }\r\n" + + " else\r\n" + + " IsValid := false;\r\n" + + "\r\n" + + " CompleteDate := IsValid;\r\n" + + "\r\n" + + "end; { function CompleteDate }\r\n" + + "\r\n" + + "{** 07-30-98 * SecondsSinceMidnight **************************************}\r\n" + + "\r\n" + + "function SecondsSinceMidnight :longint;\r\n" + + "\r\n" + + "var\r\n" + + " Hours :word;\r\n" + + " Minutes :word;\r\n" + + " Seconds :word;\r\n" + + " Sec1000 :word;\r\n" + + "\r\n" + + " lHours :longint;\r\n" + + " lMinutes :longint;\r\n" + + " lSeconds :longint;\r\n" + + "\r\n" + + "begin { function SecondSinceMidnight }\r\n" + + "\r\n" + + " decodetime(GetUTCTime , Hours , Minutes , Seconds , Sec1000);\r\n" + + "\r\n" + + " lHours := Hours;\r\n" + + " lMinutes := Minutes;\r\n" + + " lSeconds := Seconds;\r\n" + + "\r\n" + + " SecondsSinceMidnight := (lHours * SEC_PER_HR) +\r\n" + + " (lMinutes * SEC_PER_MIN) +\r\n" + + " lSeconds;\r\n" + + "\r\n" + + "end; { function SecondSinceMidnight }\r\n" + + "\r\n" + + "{** GetUniversalTime * 07-30-98 ******************************************}\r\n" + + "\r\n" + + "function GetUniversalTime :UniversalTimeType;\r\n" + + "var\r\n" + + " Hours , Minutes , Seconds :string[3];\r\n" + + " wHours , wMinutes , wSeconds , wSec1000 :word;\r\n" + + "begin\r\n" + + " decodetime(GetUTCTime , wHours , wMinutes , wSeconds , wSec1000);\r\n" + + " str((wHours + 100) :3 , Hours);\r\n" + + " str((wMinutes + 100) :3 , Minutes);\r\n" + + " str((wSeconds + 100) :3 , Seconds);\r\n" + + " GetUniversalTime := copy(Hours , 2 , 2) + copy(Minutes , 2 , 2) + copy(Seconds , 2 , 2);\r\n" + + "end; {GetUniversalTime }\r\n" + + "\r\n" + + "{** GetUniversalTimeMS * 01-04-02 ******************************************}\r\n" + + "\r\n" + + "function GetUniversalTimeMS :UniversalTimeTypeMS;\r\n" + + "var\r\n" + + " Hours , Minutes , Seconds :string[3];\r\n" + + " MSSeconds :string[4];\r\n" + + " wHours , wMinutes , wSeconds , wSec1000 :word;\r\n" + + "begin\r\n" + + " decodetime(GetUTCTime , wHours , wMinutes , wSeconds , wSec1000);\r\n" + + " str((wHours + 100) :3 , Hours);\r\n" + + " str((wMinutes + 100) :3 , Minutes);\r\n" + + " str((wSeconds + 100) :3 , Seconds);\r\n" + + " str((wSec1000 + 1000) :4 , MSSeconds);\r\n" + + " GetUniversalTimeMS := copy(Hours , 2 , 2) + copy(Minutes , 2 , 2)\r\n" + + " + copy(Seconds , 2 , 2) + copy(MSSeconds , 2 , 3);\r\n" + + "end; {GetUniversalTimeMS }\r\n" + + "\r\n" + + "{** 08-05-98 * GetUniversalDate *******************************************}\r\n" + + "\r\n" + + "function GetUniversalDate :UniversalDateType;\r\n" + + "begin\r\n" + + " Result := ConvertDateTimeToUniversalDate(GetUTCDateTime());\r\n" + + " if FTestDate <> '' then\r\n" + + " Result := FTestDate;\r\n" + + "end; {GetUniversalDate }\r\n" + + "\r\n" + + "function GetCrewDate(RefDateTime: TDateTime = 0) :CrewDateType;\r\n" + + "var\r\n" + + " S: AnsiString;\r\n" + + "begin\r\n" + + " if RefDateTime = 0 then\r\n" + + " RefDateTime := GetUTCDateTime;\r\n" + + " S := FormatDateTime('YYYYMMDD', RefDateTime);\r\n" + + " Move(S[1], Result, Length(S));\r\n" + + "end; {GetCrewDate }\r\n" + + "\r\n" + + "function GetUniversalYear :string;\r\n" + + "var\r\n" + + " wYear , wMonth , wDay :word;\r\n" + + " Year :string[4];\r\n" + + "begin\r\n" + + " decodedate(GetUTCDateTime , wYear , wMonth , wDay);\r\n" + + " str(wYear , Year);\r\n" + + " GetUniversalYear := Year;\r\n" + + "end; {GetUniversalYear}\r\n" + + "\r\n" + + "function AddCenturyToYear(YearOfCentury :string) :string;\r\n" + + "{Adds the appropriate 2 digit century prefix to a 2 digit year}\r\n" + + "var\r\n" + + " Century :string[2];\r\n" + + " CurrentNYear :string[2];\r\n" + + " Year :string[4];\r\n" + + " NCentury :integer;\r\n" + + " rc :integer;\r\n" + + "\r\n" + + "begin\r\n" + + " Year := GetUniversalYear;\r\n" + + " if YearOfCentury = copy(Year , 3 , 2) then\r\n" + + " AddCenturyToYear := Year\r\n" + + " else\r\n" + + " begin\r\n" + + " CurrentNYear := copy(Year , 3 , 2);\r\n" + + " val(copy(Year , 1 , 2) , NCentury , rc);\r\n" + + " if YearOfCentury > '75' then\r\n" + + " begin\r\n" + + " if CurrentNYear < '25' then\r\n" + + " dec(NCentury);\r\n" + + " end\r\n" + + " else\r\n" + + " begin\r\n" + + " if (YearOfCentury < '25')\r\n" + + " and (CurrentNYear > '75') then\r\n" + + " inc(NCentury);\r\n" + + " end;\r\n" + + " Century := Int2FullStr(NCentury , 2);\r\n" + + " AddCenturyToYear := Century + YearOfCentury\r\n" + + " end; //else not current year\r\n" + + "end; {AddCenturytoYear}\r\n" + + "\r\n" + + "{** 04-23-97 * NumericDate ***********************************************}\r\n" + + "\r\n" + + "function IsValidInteger(S: String): Boolean;\r\n" + + "var\r\n" + + " Value: Integer;\r\n" + + "begin\r\n" + + " Result := TryStrToInt(S, Value);\r\n" + + "end;\r\n" + + "\r\n" + + "function NumericDate\r\n" + + " (\r\n" + + " const iDate :UniversalDateType\r\n" + + " )\r\n" + + " :NumericDateType;\r\n" + + "\r\n" + + " { if s = '00XXX00' the function will set the date to the maximum\r\n" + + " date allowed with this logic - MAY 15, 9999 }\r\n" + + "\r\n" + + "var\r\n" + + " i :integer;\r\n" + + " NCentury , NYear , NMonth , NDay :ShortInt;\r\n" + + " Year :string[4];\r\n" + + " s :UniversalDateType;\r\n" + + "begin { function NumericDate }\r\n" + + " if (iDate = '00XXX00') then\r\n" + + " begin\r\n" + + " NCentury := 99;\r\n" + + " NYear := 99;\r\n" + + " NMonth := 05;\r\n" + + " NDay := 15;\r\n" + + " end { if }\r\n" + + " else\r\n" + + " begin\r\n" + + " s := iDate;\r\n" + + " if not ValidateDate(s) then\r\n" + + " begin\r\n" + + " NCentury := 0;\r\n" + + " NYear := 0;\r\n" + + " NMonth := 0;\r\n" + + " NDay := 0;\r\n" + + " end\r\n" + + " else\r\n" + + " begin\r\n" + + " NMonth := 0;\r\n" + + " for i := 1 to 12 do\r\n" + + " if copy(s , 3 , 3) = AlphaMonths[i] then\r\n" + + " NMonth := i;\r\n" + + " val(copy(s , 1 , 2) , NDay , i);\r\n" + + " if i <> 0 then\r\n" + + " NDay := 0;\r\n" + + " if not IsValidInteger(copy(s , 6 , 2)) then\r\n" + + " begin\r\n" + + " NYear := 0;\r\n" + + " NCentury := 0;\r\n" + + " end\r\n" + + " else\r\n" + + " begin\r\n" + + " Year := AddCenturyToYear(copy(s , 6 , 2));\r\n" + + " val(copy(Year , 1 , 2) , NCentury , i);\r\n" + + " val(copy(Year , 3 , 2) , NYear , i);\r\n" + + " end;\r\n" + + " if (NMonth = 0)\r\n" + + " or (NDay = 0) then\r\n" + + " NCentury := 0;\r\n" + + " end; // valid date\r\n" + + " end; // not 00XXX00\r\n" + + "\r\n" + + " NumericDate := chr(NCentury) + chr(NYear) + chr(NMonth) + chr(NDay);\r\n" + + "end; { function NumericDate }\r\n" + + "\r\n" + + "function ValidateDate(var s :string) :boolean;\r\n" + + "var\r\n" + + " mm , dd , yy , i :integer;\r\n" + + " wDate :UniversalDateType;\r\n" + + "begin\r\n" + + " Result := True;\r\n" + + " if (s = '00XXX00') then\r\n" + + " EXIT;\r\n" + + " wDate := GetUniversalDate;\r\n" + + " mm := 0;\r\n" + + " i := 1;\r\n" + + " s := JustData(s);\r\n" + + " while (i <= 12) and\r\n" + + " (pos(AlphaMonths[i] , s) = 0) do\r\n" + + " inc(i);\r\n" + + " if i <= 12 then\r\n" + + " begin\r\n" + + " mm := i;\r\n" + + " i := pos(AlphaMonths[i] , s);\r\n" + + " if i < 3 then\r\n" + + " s := '0' + s;\r\n" + + " if length(s) < 7 then\r\n" + + " s := s + copy(wDate , 6 , 2);\r\n" + + " end //valid month found\r\n" + + " else\r\n" + + " Result := false;\r\n" + + " val(copy(s , 1 , 2) , dd , i);\r\n" + + " if i <> 0 then\r\n" + + " Result := false;\r\n" + + " if dd < 1 then\r\n" + + " Result := false;\r\n" + + " val(copy(s , 6 , 2) , yy , i);\r\n" + + " if yy < 0 then\r\n" + + " Result := false;\r\n" + + " if i <> 0 then\r\n" + + " Result := false;\r\n" + + " case mm of\r\n" + + " 1 , 3 , 5 , 7 , 8 , 10 , 12\r\n" + + " :\r\n" + + " begin\r\n" + + " if dd > 31 then\r\n" + + " Result := false;\r\n" + + " end;\r\n" + + " 4 , 6 , 9 , 11\r\n" + + " :\r\n" + + " begin\r\n" + + " if dd > 30 then\r\n" + + " Result := false;\r\n" + + " end;\r\n" + + " 2\r\n" + + " :\r\n" + + " begin\r\n" + + " if LeapYear(yy) then\r\n" + + " begin\r\n" + + " if dd > 29 then\r\n" + + " Result := false;\r\n" + + " end\r\n" + + " else\r\n" + + " begin\r\n" + + " if dd > 28 then\r\n" + + " Result := false;\r\n" + + " end;\r\n" + + " end;\r\n" + + " end;\r\n" + + "end;\r\n" + + "\r\n" + + "function ValidateTime(s :string): Boolean;\r\n" + + "begin\r\n" + + " Result := True;\r\n" + + " if (s[1] < '0')\r\n" + + " or (s[1] > '2') then\r\n" + + " Result := false;\r\n" + + " if (s[2] < '0')\r\n" + + " or (s[2] > '9') then\r\n" + + " Result := false;\r\n" + + " if (s[1] = '2')\r\n" + + " and (s[2] > '3') then\r\n" + + " Result := false;\r\n" + + " if (s[3] < '0')\r\n" + + " or (s[3] > '5') { was 'and' should be 'or' ktj 5/1/96 } then\r\n" + + " Result := false;\r\n" + + " if (s[4] < '0')\r\n" + + " or (s[4] > '9') { was 'and' should be 'or' ktj 5/1/96 } then\r\n" + + " Result := false;\r\n" + + "end;\r\n" + + "\r\n" + + "function ValidateGMTVariance(s :string): Boolean;\r\n" + + "begin\r\n" + + " Result := True;\r\n" + + " if (s[1] <> ' ')\r\n" + + " and (s[1] <> '+')\r\n" + + " and (s[1] <> '-') then\r\n" + + " Result := false;\r\n" + + " if (s[2] < '0')\r\n" + + " or (s[2] > '1') then\r\n" + + " Result := false;\r\n" + + " if (s[3] < '0')\r\n" + + " or (s[3] > '9') then\r\n" + + " Result := false;\r\n" + + " if (s[2] = '1')\r\n" + + " and (s[3] > '4') {3 instead of 2 to allow for DST at Dateline} {now 4 for Tonga} then\r\n" + + " Result := false;\r\n" + + " if (s[4] < '0')\r\n" + + " and (s[4] > '5') then\r\n" + + " Result := false;\r\n" + + " if (s[5] < '0')\r\n" + + " and (s[5] > '9') then\r\n" + + " Result := false;\r\n" + + "end; {ValidateGMTVariance}\r\n" + + " {unit DateTime}\r\n" + + "\r\n" + + "function ValidateDateChange(s :string): Boolean;\r\n" + + "begin\r\n" + + " Result := True;\r\n" + + " if (s[1] <> ' ')\r\n" + + " and (s[1] <> '+')\r\n" + + " and (s[1] <> '-') then\r\n" + + " Result := false;\r\n" + + " if s[2] <> ' ' then\r\n" + + " begin\r\n" + + " if (s[2] < '0')\r\n" + + " or (s[2] > '2') then\r\n" + + " Result := false;\r\n" + + " end;\r\n" + + "end; {ValidateDateChange}\r\n" + + "\r\n" + + "function ValidateDailyFrequency(s :string): Boolean;\r\n" + + "var\r\n" + + " i ,\r\n" + + " FirstBlank :integer;\r\n" + + " PreviousChar :char;\r\n" + + "begin\r\n" + + " Result := True;\r\n" + + " FirstBlank := pos(' ' , s);\r\n" + + " if FirstBlank = 0 then\r\n" + + " FirstBlank := 8;\r\n" + + " if s[1] = 'X' then\r\n" + + " i := 2\r\n" + + " else\r\n" + + " i := 1;\r\n" + + " PreviousChar := '0';\r\n" + + " while i < FirstBlank do\r\n" + + " begin\r\n" + + " if (s[i] <= PreviousChar)\r\n" + + " or (s[i] > '7') then\r\n" + + " Result := false;\r\n" + + " PreviousChar := s[i];\r\n" + + " inc(i);\r\n" + + " end;\r\n" + + " while i <= 7 do\r\n" + + " begin\r\n" + + " if s[i] <> ' ' then\r\n" + + " Result := false;\r\n" + + " inc(i);\r\n" + + " end;\r\n" + + "end; {ValidateDailyFrequency}\r\n" + + " {unit DateTime}\r\n" + + "\r\n" + + "function LeapYear(YearAD :integer) :boolean;\r\n" + + "begin\r\n" + + " if YearAD < 100 then\r\n" + + " YearAD := Str2Int(AddCenturyToYear(Int2FullStr(YearAD , 2)));\r\n" + + " if copy(Int2IntStr(YearAD , 4) , 3 , 2) = '00' then\r\n" + + " begin\r\n" + + " if (YearAD mod 400) = 0 then\r\n" + + " LeapYear := true\r\n" + + " else\r\n" + + " LeapYear := false;\r\n" + + " end\r\n" + + " else\r\n" + + " begin\r\n" + + " if (YearAD mod 4) = 0 then\r\n" + + " LeapYear := true\r\n" + + " else\r\n" + + " LeapYear := false;\r\n" + + " end;\r\n" + + "end; {LeapYear}\r\n" + + "\r\n" + + "function JulianDay(DateNumeric :string) :longint;\r\n" + + "var\r\n" + + " Century , Year , Month , DayOfMonth :integer;\r\n" + + " YearsAD , DayOfYear :longint;\r\n" + + "begin\r\n" + + " JulianDay := 0;\r\n" + + " Century := ord(DateNumeric[1]);\r\n" + + " Year := ord(DateNumeric[2]);\r\n" + + " Month := ord(DateNumeric[3]);\r\n" + + " DayOfMonth := ord(DateNumeric[4]);\r\n" + + " if (Month < 1) or (Month > 12) then\r\n" + + " EXIT;\r\n" + + " if (DayOfMonth < 1) or (DayOfMonth > 31) then\r\n" + + " EXIT;\r\n" + + " YearsAD := (Century * 100) + (Year - 1);\r\n" + + " if (Month > 2)\r\n" + + " and (LeapYear(YearsAD + 1)) then\r\n" + + " DayOfYear := AnnualDaysToMonth[Month] + DayOfMonth + 1\r\n" + + " else\r\n" + + " DayOfYear := AnnualDaysToMonth[Month] + DayOfMonth;\r\n" + + " JulianDay := DayOfYear;\r\n" + + "end; {JulianDay}\r\n" + + "\r\n" + + "function DayAD(DateNumeric :string) :longint;\r\n" + + "var\r\n" + + " Century , Year , Month , DayOfMonth :integer;\r\n" + + " YearsAD , DayOfYear :longint;\r\n" + + "begin\r\n" + + " DayAD := 1;\r\n" + + " Century := ord(DateNumeric[1]);\r\n" + + " Year := ord(DateNumeric[2]);\r\n" + + " Month := ord(DateNumeric[3]);\r\n" + + " DayOfMonth := ord(DateNumeric[4]);\r\n" + + " if (Month < 1) or (Month > 12) then\r\n" + + " EXIT;\r\n" + + " if (DayOfMonth < 1) or (DayOfMonth > 31) then\r\n" + + " EXIT;\r\n" + + " YearsAD := (Century * 100) + (Year - 1);\r\n" + + " if (Month > 2)\r\n" + + " and (LeapYear(YearsAD + 1)) then\r\n" + + " DayOfYear := AnnualDaysToMonth[Month] + DayOfMonth + 1\r\n" + + " else\r\n" + + " DayOfYear := AnnualDaysToMonth[Month] + DayOfMonth;\r\n" + + " DayAD := (YearsAD * 365)\r\n" + + " + (YearsAD div 4) {number of leap years}\r\n" + + " + DayOfYear;\r\n" + + "end; {DayAD}\r\n" + + "\r\n" + + "function DayOfWeekAD(DayAD :longint) :shortint;\r\n" + + "begin\r\n" + + " DayOfWeekAD := ((DayAD - 2) mod 7) + 1;\r\n" + + "end; {DayOfWeekAD}\r\n" + + "\r\n" + + "function DayOfWeekAlpha(DayOfWeek :shortint) :string;\r\n" + + "begin\r\n" + + " DayOfWeekAlpha := AlphaDaysOfWeek[DayOfWeek];\r\n" + + "end; {DayOfWeekAlpha}\r\n" + + "\r\n" + + "function NumericDayOfWeek(Date :TDateTime) :integer;\r\n" + + "var\r\n" + + " DayOfWeek :string;\r\n" + + " I :integer;\r\n" + + "\r\n" + + "begin\r\n" + + " try //if FormatDateTime throws an exception\r\n" + + " DayOfWeek := FormatDateTime('ddd' , Date);\r\n" + + " result := 0; //no match\r\n" + + " for I := 1 to 7 do\r\n" + + " begin\r\n" + + " if (UpperCase(DayOfWeek) = AlphaDaysOfWeek[I]) then\r\n" + + " begin\r\n" + + " result := I;\r\n" + + " break;\r\n" + + " end;\r\n" + + " end;\r\n" + + " except\r\n" + + " result := -1; //bad day of week\r\n" + + " end;\r\n" + + "end;\r\n" + + "\r\n" + + "function DayADToDate(DayAD :longint) :string;\r\n" + + "var\r\n" + + " DaysOverQuad , YearsOverQuad , YearAD , i ,\r\n" + + " Month , DayOfMonth :integer;\r\n" + + " DayOfYear , Quad :longint;\r\n" + + " DayString , YearString :string[5];\r\n" + + "begin\r\n" + + " DayADToDate := ' ';\r\n" + + " Month := 0;\r\n" + + " if (DayAD < 1461) or (DayAD > 2000000) then\r\n" + + " EXIT;\r\n" + + " Quad := (DayAD - 1) div 1461;\r\n" + + " DaysOverQuad := DayAD mod 1461;\r\n" + + " if DaysOverQuad = 0 then\r\n" + + " YearsOverQuad := 3\r\n" + + " else\r\n" + + " YearsOverQuad := (DaysOverQuad - 1) div 365;\r\n" + + " YearAD := Quad * 4\r\n" + + " + YearsOverQuad\r\n" + + " + 1;\r\n" + + " DayOfYear := DayAD\r\n" + + " - Quad * 1461\r\n" + + " - YearsOverQuad * 365;\r\n" + + " if DayOfYear = 60 then\r\n" + + " begin\r\n" + + " if LeapYear(YearAD) then\r\n" + + " begin\r\n" + + " Month := 2;\r\n" + + " DayOfMonth := 29;\r\n" + + " end\r\n" + + " else\r\n" + + " begin\r\n" + + " Month := 3;\r\n" + + " DayOfMonth := 1;\r\n" + + " end;\r\n" + + " end\r\n" + + " else\r\n" + + " begin\r\n" + + " if LeapYear(YearAD)\r\n" + + " and (DayOfYear > 60) then\r\n" + + " DayOfYear := DayOfYear - 1;\r\n" + + " for i := 1 to 12 do\r\n" + + " begin\r\n" + + " if DayOfYear > AnnualDaysToMonth[i] then\r\n" + + " Month := i;\r\n" + + " end;\r\n" + + " DayOfMonth := DayOfYear - AnnualDaysToMonth[Month];\r\n" + + " end;\r\n" + + " str(YearAD :5 , YearString);\r\n" + + " str((DayOfMonth + 1000) :5 , DayString);\r\n" + + " DayADToDate := copy(DayString , 4 , 2)\r\n" + + " + AlphaMonths[Month]\r\n" + + " + copy(YearString , 4 , 2);\r\n" + + "end; {DayADToDate}\r\n" + + "\r\n" + + "function NumericMonth(Month :string) :shortint;\r\n" + + "var\r\n" + + " i :integer;\r\n" + + "begin\r\n" + + " NumericMonth := 0;\r\n" + + " for i := 1 to 12 do\r\n" + + " if Month = AlphaMonths[i] then\r\n" + + " NumericMonth := i;\r\n" + + "end;\r\n" + + "\r\n" + + "function AlphaMonth(MonthNumeric :shortint) :string;\r\n" + + "begin\r\n" + + " if (MonthNumeric < 13) and\r\n" + + " (MonthNumeric > 0) then\r\n" + + " AlphaMonth := AlphaMonths[MonthNumeric]\r\n" + + " else\r\n" + + " AlphaMonth := 'UNK';\r\n" + + "end;\r\n" + + "\r\n" + + "function TimeToMinutes(Time :string) :integer;\r\n" + + "var\r\n" + + " NumHours , NumMinutes , rc :integer;\r\n" + + "begin\r\n" + + " if Time[1] = ' ' then\r\n" + + " Time[1] := '0';\r\n" + + " if Time[2] = ' ' then\r\n" + + " Time[2] := '0';\r\n" + + " if Time[3] = ' ' then\r\n" + + " Time[3] := '0';\r\n" + + " if Time[4] = ' ' then\r\n" + + " Time[4] := '0';\r\n" + + " val(copy(Time , 1 , 2) , NumHours , rc);\r\n" + + " val(copy(Time , 3 , 2) , NumMinutes , rc);\r\n" + + " TimeToMinutes := NumHours * MIN_PER_HR + NumMinutes;\r\n" + + "end; {TimeToMinutes}\r\n" + + "\r\n" + + "function MinutesToTime(Minutes :integer) :string;\r\n" + + "var\r\n" + + " NumHours , NumMinutes :integer;\r\n" + + " CorrectedMinutes :integer;\r\n" + + " wTime :string[6];\r\n" + + "begin\r\n" + + " if (Minutes > 1440) then\r\n" + + " CorrectedMinutes := Minutes - 1440\r\n" + + " else\r\n" + + " CorrectedMinutes := Minutes;\r\n" + + " NumHours := CorrectedMinutes div MIN_PER_HR;\r\n" + + " NumMinutes := CorrectedMinutes mod MIN_PER_HR;\r\n" + + " if (NumHours = 24) and (NumMinutes = 0) then\r\n" + + " NumHours := 0;\r\n" + + " { Make sure it is left justified with zeros... }\r\n" + + " str((NumHours * 100 + NumMinutes + 10000) :6 , wTime);\r\n" + + " MinutesToTime := copy(wTime , 3 , 4);\r\n" + + "end; {MinutesToTime}\r\n" + + "\r\n" + + "function MinutesToTime5H(Minutes :LongInt) :string;\r\n" + + "var\r\n" + + " NumHours , NumMinutes :LongInt;\r\n" + + " wTime :string[9];\r\n" + + "begin\r\n" + + " NumHours := Minutes div MIN_PER_HR;\r\n" + + " NumMinutes := Minutes mod MIN_PER_HR;\r\n" + + " if (NumHours = 24) and (NumMinutes = 0) then\r\n" + + " NumHours := 0;\r\n" + + " { Make sure it is left justified with zeros... }\r\n" + + " str((NumHours * 100 + NumMinutes + 100000000) :9 , wTime);\r\n" + + " MinutesToTime5H := copy(wTime , 3 , 7);\r\n" + + "end; {MinutesToTime5H}\r\n" + + "\r\n" + + "function SecondsToTime(Seconds :integer) :string;\r\n" + + "var\r\n" + + " NumHours , NumMinutes , NumSeconds :integer;\r\n" + + " CorrectedSeconds :integer;\r\n" + + " SecondsRemaining :integer;\r\n" + + " wTime :string[8];\r\n" + + "begin\r\n" + + " if (Seconds > SEC_PER_DAY) then\r\n" + + " CorrectedSeconds := Seconds - SEC_PER_DAY\r\n" + + " else\r\n" + + " CorrectedSeconds := Seconds;\r\n" + + " NumHours := CorrectedSeconds div SEC_PER_HR;\r\n" + + " SecondsRemaining := CorrectedSeconds mod SEC_PER_HR;\r\n" + + " NumMinutes := SecondsRemaining div SEC_PER_MIN;\r\n" + + " NumSeconds := SecondsRemaining mod SEC_PER_MIN;\r\n" + + " if (NumHours = 24) and (NumMinutes = 0) and (NumSeconds = 0) then\r\n" + + " NumHours := 0;\r\n" + + " { Make sure it is left justified with zeros... }\r\n" + + " str(((NumHours * 10000) + (NumMinutes * 100) + NumSeconds + 10000000) :8 , wTime);\r\n" + + " SecondsToTime := copy(wTime , 3 , 6);\r\n" + + "end; {SecondsToTime}\r\n" + + "\r\n" + + "function GMTMinuteAD(NumericLocalDate\r\n" + + " , LocalTime\r\n" + + " , GMTVariance\r\n" + + " , DateChange :string) :longint;\r\n" + + "var\r\n" + + " Accumulator :longint;\r\n" + + " ReturnCode :integer;\r\n" + + "begin\r\n" + + " val(DateChange , Accumulator , ReturnCode);\r\n" + + " if ReturnCode = 0 then\r\n" + + " Accumulator := DayAD(NumericLocalDate) + Accumulator\r\n" + + " else\r\n" + + " Accumulator := DayAD(NumericLocalDate);\r\n" + + " Accumulator := Accumulator * MIN_PER_DAY\r\n" + + " + TimeToMinutes(LocalTime);\r\n" + + " if GMTVariance[1] = '-' then\r\n" + + " GMTMinuteAD := Accumulator + TimeToMinutes(copy(GMTVariance , 2 , 4))\r\n" + + " else\r\n" + + " GMTMinuteAD := Accumulator - TimeToMinutes(copy(GMTVariance , 2 , 4));\r\n" + + "end; {GMTMinuteAD}\r\n" + + "\r\n" + + "function MinAdToTime(i :longint) :string;\r\n" + + "begin\r\n" + + " Result := MinutesToTime(i mod MIN_PER_DAY);\r\n" + + " if (ValidEAGLETime(Result) = false) then\r\n" + + " Result := ' ';\r\n" + + "end; // MinAdToTime\r\n" + + "\r\n" + + "function MinAdToDate(i: longint; var ivIsOK: Boolean): string;\r\n" + + "begin\r\n" + + " Result := DayAdToDate(i div MIN_PER_DAY);\r\n" + + " ivIsOK := ValidateDate(Result);\r\n" + + " if (not ivIsOK) then\r\n" + + " Result := ' ';\r\n" + + "end; // MinAdToTime\r\n" + + "\r\n" + + "function MinAdToDate(i: longint): string;\r\n" + + "var\r\n" + + " vIsOK: Boolean;\r\n" + + "begin\r\n" + + " Result := MinAdToDate(i, vIsOK);\r\n" + + "end;\r\n" + + "\r\n" + + "procedure CalculateNextMonth(Date :string;\r\n" + + " var NextMonth , Year :string);\r\n" + + "var\r\n" + + " NMonth , NYear , i :integer;\r\n" + + "begin\r\n" + + " NMonth := 0;\r\n" + + " for i := 1 to 12 do\r\n" + + " if copy(Date , 3 , 3) = AlphaMonths[i] then\r\n" + + " NMonth := i;\r\n" + + " if NMonth = 0 then\r\n" + + " NextMonth := ' '\r\n" + + " else\r\n" + + " begin\r\n" + + " inc(NMonth);\r\n" + + " val(copy(Date , 6 , 2) , NYear , i);\r\n" + + " if i <> 0 then\r\n" + + " NYear := 99;\r\n" + + " if NYear < 50 then\r\n" + + " NYear := NYear + 2000\r\n" + + " else\r\n" + + " NYear := NYear + 1900;\r\n" + + " if NMonth > 12 then\r\n" + + " begin\r\n" + + " NMonth := 1;\r\n" + + " inc(NYear);\r\n" + + " end;\r\n" + + " NextMonth := AlphaMonths[NMonth];\r\n" + + " str(NYear :4 , Year);\r\n" + + " end;\r\n" + + "end; {NextMonth}\r\n" + + "\r\n" + + "function LocalToGMT(LocalTime , GMTVariance :string) :string;\r\n" + + "var\r\n" + + " GMT :integer;\r\n" + + "begin\r\n" + + " if GMTVariance[1] = '-' then\r\n" + + " GMT := TimeToMinutes(LocalTime)\r\n" + + " + TimeToMinutes(copy(GMTVariance , 2 , 4))\r\n" + + " else\r\n" + + " GMT := TimeToMinutes(LocalTime)\r\n" + + " - TimeToMinutes(copy(GMTVariance , 2 , 4));\r\n" + + " if GMT < 0 then\r\n" + + " begin\r\n" + + " LocalToGMT := MinutesToTime(GMT + MIN_PER_DAY);\r\n" + + " end\r\n" + + " else\r\n" + + " begin\r\n" + + " if GMT >= MIN_PER_DAY then\r\n" + + " begin\r\n" + + " LocalToGMT := MinutesToTime(GMT - MIN_PER_DAY);\r\n" + + " end\r\n" + + " else\r\n" + + " begin\r\n" + + " LocalToGMT := MinutesToTime(GMT);\r\n" + + " end;\r\n" + + " end;\r\n" + + "end; {LocalToGMT}\r\n" + + "\r\n" + + "function GMTtoLocal(GMT , GMTVariance :string) :string;\r\n" + + "var\r\n" + + " Local :integer;\r\n" + + "begin\r\n" + + " if GMTVariance[1] = '-' then\r\n" + + " Local := TimeToMinutes(GMT)\r\n" + + " - TimeToMinutes(copy(GMTVariance , 2 , 4))\r\n" + + " else\r\n" + + " Local := TimeToMinutes(GMT)\r\n" + + " + TimeToMinutes(copy(GMTVariance , 2 , 4));\r\n" + + " if Local < 0 then\r\n" + + " begin\r\n" + + " GMTtoLocal := MinutesToTime(Local + MIN_PER_DAY);\r\n" + + " end\r\n" + + " else\r\n" + + " begin\r\n" + + " if Local >= MIN_PER_DAY then\r\n" + + " begin\r\n" + + " GMTtoLocal := MinutesToTime(Local - MIN_PER_DAY);\r\n" + + " end\r\n" + + " else\r\n" + + " begin\r\n" + + " GMTtoLocal := MinutesToTime(local);\r\n" + + " end;\r\n" + + " end;\r\n" + + "end; {GMTtoLocal}\r\n" + + "\r\n" + + "function TimeToAMPM(Time :string) :string;\r\n" + + "var\r\n" + + " iTime , rc :integer;\r\n" + + "begin\r\n" + + " val(copy(Time , 1 , 2) , iTime , rc);\r\n" + + " if (rc = 0)\r\n" + + " and (iTime >= 1200) then\r\n" + + " begin\r\n" + + " iTime := iTime - 1200;\r\n" + + " str(iTime :4 , Time);\r\n" + + " TimeToAMPM := Time + 'P';\r\n" + + " end\r\n" + + " else\r\n" + + " TimeToAMPM := Time + 'A';\r\n" + + "end; {TimeToAMPM}\r\n" + + "\r\n" + + "function TimeToAMPM1(Time :string) :string;\r\n" + + "var\r\n" + + " TempHour :string[2];\r\n" + + "{ AMPM :Char;}\r\n" + + " AMPM :string[1];\r\n" + + " iTime :integer;\r\n" + + " oTime :string[5];\r\n" + + "begin\r\n" + + " AMPM := ' ';\r\n" + + " TempHour := copy(Time , 1 , 2);\r\n" + + " iTime := Str2Int(TempHour);\r\n" + + " if iTime > 12 then\r\n" + + " begin\r\n" + + " iTime := iTime - 12;\r\n" + + " if iTime = 12 then\r\n" + + " begin\r\n" + + " iTime := 0;\r\n" + + " AMPM := 'A';\r\n" + + " end\r\n" + + " else\r\n" + + " AMPM := 'P';\r\n" + + " end\r\n" + + " else\r\n" + + " begin\r\n" + + " if iTime = 12 then\r\n" + + " AMPM := 'P'\r\n" + + " else\r\n" + + " AMPM := 'A';\r\n" + + " end;\r\n" + + " TempHour := ' ';\r\n" + + " TempHour := Int2IntStr(iTime , 2);\r\n" + + " if TempHour[1] = ' ' then\r\n" + + " TempHour[1] := '0';\r\n" + + " if TempHour[2] = ' ' then\r\n" + + " TempHour[2] := '0';\r\n" + + " oTime := TempHour[1]\r\n" + + " + TempHour[2]\r\n" + + " + Time[3]\r\n" + + " + Time[4]\r\n" + + " + AMPM[1];\r\n" + + " TimeToAMPM1 := oTime;\r\n" + + "end; {TimeToAMPM1}\r\n" + + "\r\n" + + "function TimeToAMPM2(Time :string) :string;\r\n" + + "var\r\n" + + " TempHour :string[2];\r\n" + + "{ AMPM :Char;}\r\n" + + " AMPM :string[1];\r\n" + + " iTime :integer;\r\n" + + " oTime :string[5];\r\n" + + "begin\r\n" + + " AMPM := ' ';\r\n" + + " TempHour := copy(Time , 1 , 2);\r\n" + + " iTime := Str2Int(TempHour);\r\n" + + " if iTime > 12 then\r\n" + + " begin\r\n" + + " iTime := iTime - 12;\r\n" + + " if iTime = 12 then\r\n" + + " begin\r\n" + + " iTime := 0;\r\n" + + " AMPM := 'A';\r\n" + + " end\r\n" + + " else\r\n" + + " AMPM := 'P';\r\n" + + " end\r\n" + + " else\r\n" + + " begin\r\n" + + " if iTime = 12 then\r\n" + + " AMPM := 'P'\r\n" + + " else\r\n" + + " AMPM := 'A';\r\n" + + " end;\r\n" + + " TempHour := ' ';\r\n" + + " TempHour := Int2IntStr(iTime , 2);\r\n" + + " if TempHour[2] = ' ' then\r\n" + + " begin\r\n" + + " TempHour[1] := '1';\r\n" + + " TempHour[2] := '2';\r\n" + + " end;\r\n" + + " oTime := TempHour[1]\r\n" + + " + TempHour[2]\r\n" + + " + Time[3]\r\n" + + " + Time[4]\r\n" + + " + AMPM[1];\r\n" + + " if oTime = '1200P' then\r\n" + + " oTime := '1200N';\r\n" + + " if oTime = '1200A' then\r\n" + + " oTime := '1200M';\r\n" + + "\r\n" + + " TimeToAMPM2 := oTime;\r\n" + + "end; {TimeToAMPM2}\r\n" + + "\r\n" + + "function TimeAMToTime(Time :string) :string;\r\n" + + "var\r\n" + + " iTime :integer;\r\n" + + " oTime :string[4];\r\n" + + "begin\r\n" + + " if Time[5] = 'P' then\r\n" + + " begin\r\n" + + " iTime := TimeToMinutes(copy(Time , 1 , 4)) + 720;\r\n" + + " oTime := MinutesToTime(iTime);\r\n" + + " if (oTime[1] = '2') and (oTime[2] = '4') then\r\n" + + " begin\r\n" + + " oTime[1] := '1';\r\n" + + " oTime[2] := '2';\r\n" + + " end;\r\n" + + " end\r\n" + + " else\r\n" + + " begin\r\n" + + " oTime := copy(Time , 1 , 4);\r\n" + + " end;\r\n" + + " TimeAMToTime := oTime;\r\n" + + "end; {TimeAMToTime}\r\n" + + "\r\n" + + "function TimeToTimeMaintenance(iTime :integer) :string;\r\n" + + "var\r\n" + + " oTime :real;\r\n" + + "begin\r\n" + + " oTime := iTime / MIN_PER_HR;\r\n" + + " TimeToTimeMaintenance := Real2Str(oTime , 4);\r\n" + + "end; { TimeToTimeMaintenance }\r\n" + + "\r\n" + + "function EagleToCCYYMMDDDate(EagleDate :UniversalDateType) : CCYYMMDDDateType;\r\n" + + "var\r\n" + + " S: AnsiString;\r\n" + + "begin\r\n" + + " S := Format('%s%.2d%s', [AddCenturyToYear(copy(EagleDate , 6 , 2)),\r\n" + + " NumericMonth(copy(EagleDate , 3 , 3)),\r\n" + + " Copy(EagleDate, 1, 2)]);\r\n" + + " Move(S[1], Result, Length(S));\r\n" + + "end; {EagleToCCYYMMDDDate}\r\n" + + "\r\n" + + "procedure EagleToCrewTracDate\r\n" + + " (EagleDate :UniversalDateType;\r\n" + + " var StartCrewTracDate :CrewDateType);\r\n" + + "begin\r\n" + + " StartCrewTracDate := EagleToCCYYMMDDDate(EagleDate);\r\n" + + "end; {EagleToCrewTracDate}\r\n" + + "\r\n" + + "{** 04-10-95 * FlightEventUTCToLt ****************************************}\r\n" + + "\r\n" + + "procedure FlightEventUTCToLt\r\n" + + " (\r\n" + + " sNumFltDateUTC :NumericDateType;\r\n" + + " sSTDUTC :EagleTimeType;\r\n" + + " sFltEventUTC :EagleTimeType;\r\n" + + " sUTCVariance :UTCVarianceType;\r\n" + + " var stFltEventLt :FlightTimeType\r\n" + + " );\r\n" + + "\r\n" + + "{\r\n" + + " FILENAME: datetime.pas\r\n" + + "\r\n" + + " DESCRIPTION: FlightEventUTCToLt\r\n" + + "\r\n" + + " PARAMETERS: sNumFltDateUTC UTC flight date (numeric)\r\n" + + " sSTDUTC UTC schedule time of departure\r\n" + + " sFltEventUTC UTC flight time\r\n" + + " sUTCVariance UTC time variance for input time\r\n" + + " stFltEventLt Lt flight Time\r\n" + + "\r\n" + + " RETURNS: None NA\r\n" + + "\r\n" + + " LOCAL: iMinDifference Time difference in minutes\r\n" + + " iMinFltTimeUTC UTC flight time (0-1439); minutes\r\n" + + " since UTC \"midnight\"\r\n" + + " iMinSTDUTC UTC scheduled departure time (0-1439);\r\n" + + " minutes since UTC \"midnight\"\r\n" + + " iDayADFltDateLt Local date; days since base date\r\n" + + " iDayADFltDateUTC UTC date; days since base date\r\n" + + " sFltDateLt Local flight date string (ex. 02MAR95)\r\n" + + "\r\n" + + "-------------------------------------------------------------------------}\r\n" + + "\r\n" + + "var\r\n" + + " iMinDifference :integer;\r\n" + + " iMinFltTimeUTC :integer;\r\n" + + " iMinSTDUTC :integer;\r\n" + + " lDayADFltDateLt :longint;\r\n" + + " lDayADFltDateUTC :longint;\r\n" + + " sFltDateLt :UniversalDateType;\r\n" + + " sFltEventDate :CrewDateType;\r\n" + + "\r\n" + + "begin { procedure FlightEventUTCToLt }\r\n" + + "\r\n" + + " lDayADFltDateUTC := DayAD(sNumFltDateUTC);\r\n" + + " iMinSTDUTC := TimeToMinutes(sSTDUTC);\r\n" + + " iMinFltTimeUTC := TimeToMinutes(sFltEventUTC);\r\n" + + "\r\n" + + " iMinDifference := iMinFltTimeUTC - iMinSTDUTC;\r\n" + + " if (iMinDifference < -MAX_EARLY_DEP_MINS) then\r\n" + + " Inc(lDayADFltDateUTC)\r\n" + + " else if (iMinDifference > MAX_FLT_LENGTH_MINS) then\r\n" + + " Dec(lDayADFltDateUTC);\r\n" + + "\r\n" + + " { Convert to local date and time }\r\n" + + " stFltEventLt.UTCVariance := TimeToMinutes(Copy(sUTCVariance , 2 , 4));\r\n" + + " if (sUTCVariance[1] = '-') then\r\n" + + " stFltEventLt.UTCVariance := -stFltEventLt.UTCVariance;\r\n" + + "\r\n" + + " stFltEventLt.Time := iMinFltTimeUTC + stFltEventLt.UTCVariance;\r\n" + + " if (stFltEventLt.Time >= MIN_PER_DAY) then\r\n" + + " begin\r\n" + + " Dec(stFltEventLt.Time , MIN_PER_DAY);\r\n" + + " lDayADFltDateLt := lDayADFltDateUTC + 1;\r\n" + + " end { then }\r\n" + + " else if (stFltEventLt.Time < 0) then\r\n" + + " begin\r\n" + + " Inc(stFltEventLt.Time , MIN_PER_DAY);\r\n" + + " lDayADFltDateLt := lDayADFltDateUTC - 1;\r\n" + + " end { then }\r\n" + + " else\r\n" + + " lDayADFltDateLt := lDayADFltDateUTC;\r\n" + + "\r\n" + + " sFltDateLt := DayADtoDate(lDayADFltDateLt);\r\n" + + " EagleToCrewTracDate(sFltDateLt , sFltEventDate);\r\n" + + " move(sFltEventDate , stFltEventLt.Date , 9);\r\n" + + "\r\n" + + "end; { procedure FlightEventUTCToLt }\r\n" + + "\r\n" + + "{** 04-07-95 * GMTToOUTOFFONINMVTCrewTracTime ****************************}\r\n" + + "\r\n" + + "procedure GMTtoOUTOFFONINMVTCrewTracTime\r\n" + + " (EagleNumGMTDate ,\r\n" + + " EagleSTDudt ,\r\n" + + " EagleETDudt ,\r\n" + + " EagleGMTTime ,\r\n" + + " EagleGMTVariance :string;\r\n" + + " var CrewTracTime :FlightTimeType);\r\n" + + "var\r\n" + + " LocalDayAD :longint;\r\n" + + " GMTDayAD :longint;\r\n" + + " GMTTime :integer;\r\n" + + " LocalDate :string[7];\r\n" + + " CrewTracDate :CrewDateType;\r\n" + + "begin\r\n" + + " with CrewTracTime do\r\n" + + " begin\r\n" + + " GMTDayAD := DayAD(EagleNumGMTDate);\r\n" + + " GMTTime := TimeToMinutes(EagleGMTTime);\r\n" + + " {Convert to local}\r\n" + + " UTCVariance := TimeToMinutes(copy(EagleGMTVariance , 2 , 4));\r\n" + + " if EagleGMTVariance[1] = '-' then\r\n" + + " UTCVariance := -UTCVariance;\r\n" + + " Time := GMTTime + UTCVariance;\r\n" + + " LocalDayAD := GMTDayAD;\r\n" + + " if Time >= MIN_PER_DAY then\r\n" + + " begin\r\n" + + " inc(LocalDayAD);\r\n" + + " Time := Time - MIN_PER_DAY;\r\n" + + " end;\r\n" + + " if Time < 0 then\r\n" + + " begin\r\n" + + " dec(LocalDayAD);\r\n" + + " Time := Time + MIN_PER_DAY;\r\n" + + " end;\r\n" + + " LocalDate := DayADtoDate(LocalDayAD);\r\n" + + " EagleToCrewTracDate(LocalDate , CrewTracDate);\r\n" + + " move(CrewTracDate[1] , Date[1] , 8);\r\n" + + " end;\r\n" + + "end; {OUTOFFONINMVTCrewTracTime}\r\n" + + "\r\n" + + "function YMD2DMYEagle(inDate :string) :string;\r\n" + + "begin\r\n" + + " YMD2DMYEagle := copy(inDate , 7 , 2)\r\n" + + " + AlphaMonth(Str2Int(copy(inDate , 5 , 2)))\r\n" + + " + copy(inDate , 3 , 2);\r\n" + + "end;\r\n" + + "\r\n" + + "function ZIPDate(iNumDate :string) :string;\r\n" + + "var\r\n" + + " i :integer;\r\n" + + " Day , Month , Year :string[2];\r\n" + + " Date :string[6];\r\n" + + "begin\r\n" + + " str(ord(iNumDate[4]) :2 , Day);\r\n" + + " str(ord(iNumDate[3]) :2 , Month);\r\n" + + " str(ord(iNumDate[2]) :2 , Year);\r\n" + + " Date := Month + Day + Year;\r\n" + + " for i := 1 to 6 do\r\n" + + " begin\r\n" + + " if Date[i] = ' ' then\r\n" + + " Date[i] := '0';\r\n" + + " end;\r\n" + + " ZIPDate := Date;\r\n" + + "end;\r\n" + + "\r\n" + + "function ComputeElapsedMinutes(Time1udt , Time2udt :string) :integer;\r\n" + + "var\r\n" + + " dMin :integer;\r\n" + + "begin\r\n" + + " dMin := TimeToMinutes(Time2udt) - TimeToMinutes(Time1udt);\r\n" + + " if dMin < 0 then\r\n" + + " ComputeElapsedMinutes := dMin + MIN_PER_DAY\r\n" + + " else\r\n" + + " ComputeElapsedMinutes := dMin;\r\n" + + "end; {ComputeElapsedMinutes}\r\n" + + "\r\n" + + "procedure Delay(DelayAmount :word);\r\n" + + "\r\n" + + "var\r\n" + + " EndTime :TDateTime;\r\n" + + " FirstTime :TDateTime;\r\n" + + " DelayTime :double;\r\n" + + "\r\n" + + "begin\r\n" + + " { This has a resolution of 1/4 second because of the Sleep(250) but it\r\n" + + " is much easier on resources }\r\n" + + " FirstTime := Time;\r\n" + + " DelayTime := DelayAmount / 86400000;\r\n" + + " repeat\r\n" + + " Sleep(250);\r\n" + + " EndTime := Time;\r\n" + + " Application.ProcessMessages;\r\n" + + " until ((EndTime - FirstTime) > DelayTime) or (EndTime < FirstTime);\r\n" + + "end; {Delay}\r\n" + + "\r\n" + + "{** 02-24-99 * NowUTC *****************************************************}\r\n" + + "\r\n" + + "Function NowUTC : TDateTime;\r\n" + + "Var\r\n" + + " sysTime : TSystemTime;\r\n" + + "Begin\r\n" + + " GetSystemTime(sysTime); //on Windows, always returns current UTC Time - Windows internally works only in UTC.\r\n" + + " Result := SystemTimeToDateTime(sysTime);\r\n" + + "End;\r\n" + + "\r\n" + + "function nowUTCMinute: TDateTime;\r\n" + + "\r\n" + + "var\r\n" + + " SystemTime : TSystemTime;\r\n" + + " CurrentTime : TDateTime;\r\n" + + " CurrentDate : TDateTime;\r\n" + + "\r\n" + + "begin // nowUTCMinute\r\n" + + " GetSystemTime(SystemTime); // GetSystemTime gets time in UTC\r\n" + + " CurrentTime := EncodeTime(\r\n" + + " SystemTime.wHour,\r\n" + + " SystemTime.wMinute,\r\n" + + " 0, //Second\r\n" + + " 0); //MilliSeconds\r\n" + + "\r\n" + + " CurrentDate := EncodeDate(\r\n" + + " SystemTime.wYear,\r\n" + + " SystemTime.wMonth,\r\n" + + " SystemTime.wDay);\r\n" + + "\r\n" + + " Result := CurrentDate + CurrentTime;\r\n" + + "end; // nowUTCMinute\r\n" + + "\r\n" + + "{** 08-05-98 * GetUTCDate *****************************************************}\r\n" + + "\r\n" + + "function GetUTCDate :TDateTime;\r\n" + + "begin // GetUTCDate\r\n" + + " Result := Trunc(GetUTCDateTime);\r\n" + + "end; // GetUTCDate\r\n" + + "\r\n" + + "{** 07-30-98 * GetUTCTime *****************************************************}\r\n" + + "\r\n" + + "function GetUTCTime :TDateTime;\r\n" + + "begin // GetUTCTime\r\n" + + " Result := GetUTCDateTime;\r\n" + + " Result := Result - Trunc(Result);\r\n" + + "end; // GetUTCTime\r\n" + + "\r\n" + + "{** 07-30-98 * GetUTCDateTime *************************************************}\r\n" + + "\r\n" + + "function GetUTCDateTime :TDateTime;\r\n" + + "\r\n" + + "var\r\n" + + " SystemTime :TSystemTime;\r\n" + + " CurrentTime :TDateTime;\r\n" + + " CurrentDate :TDateTime;\r\n" + + "\r\n" + + "begin // GetUTCDateTime\r\n" + + " if (not AllTimeIsUTCBased) then\r\n" + + " Result := Now // get time from system clock without regard for utc time zone\r\n" + + " else\r\n" + + " begin\r\n" + + " GetSystemTime(SystemTime); // GetSystemTime gets time in UTC\r\n" + + "\r\n" + + " CurrentTime := EncodeTime(\r\n" + + " SystemTime.wHour ,\r\n" + + " SystemTime.wMinute ,\r\n" + + " SystemTime.wSecond ,\r\n" + + " SystemTime.wMilliSeconds);\r\n" + + "\r\n" + + " CurrentDate := EncodeDate(\r\n" + + " SystemTime.wYear ,\r\n" + + " SystemTime.wMonth ,\r\n" + + " SystemTime.wDay);\r\n" + + "\r\n" + + " Result := CurrentDate + CurrentTime;\r\n" + + " end; // else\r\n" + + "end; // GetUTCDateTime\r\n" + + "\r\n" + + "procedure TimeIsUTCBased(Value :boolean);\r\n" + + "begin\r\n" + + " AllTimeIsUTCBased := Value;\r\n" + + "end; // TimeIsUTCBased\r\n" + + "\r\n" + + "function NumToDate(DateNumeric :string) :string;\r\n" + + "begin\r\n" + + " Result := DayADToDate(DayAD(DateNumeric));\r\n" + + "end; // NumToDate\r\n" + + "\r\n" + + "// =============================================================================\r\n" + + "// DMB - this is a new function\r\n" + + "\r\n" + + "function EagleDateToDateTime(const StringDateTime: ShortString; var ivIsOK: Boolean): TDateTime;\r\n" + + "var\r\n" + + " Hour :integer;\r\n" + + " Min :integer;\r\n" + + " TempDate :UniversalDateType;\r\n" + + " Day , Month , Year :Word;\r\n" + + "begin\r\n" + + " TempDate := StringDateTime;\r\n" + + " ivIsOK := ValidateDate(TempDate);\r\n" + + " if ivIsOK then\r\n" + + " begin\r\n" + + " Hour := StrToIntDef(copy(StringDateTime , 9 , 2) , 0);\r\n" + + " Min := StrToIntDef(copy(StringDateTime , 11 , 2) , 0);\r\n" + + " Day := StrToIntDef(Copy(TempDate , 1 , 2), 0);\r\n" + + " Month := NumericMonth(Copy(TempDate , 3 , 3));\r\n" + + " Year := StrToIntDef(AddCenturyToYear(Copy(TempDate , 6 , 2)), 0);\r\n" + + " Result := Trunc(EncodeDate(Year, Month, Day)) + EncodeTime(Hour , Min , 0 , 0); // DMB\r\n" + + " end\r\n" + + " else\r\n" + + " Result := 0.0;\r\n" + + "end;\r\n" + + "\r\n" + + "function EagleDateToDateTime(const StringDateTime: ShortString): TDateTime;\r\n" + + "var\r\n" + + " vIsOK: Boolean;\r\n" + + "begin\r\n" + + " Result := EagleDateToDateTime(StringDateTime, vIsOK);\r\n" + + "end;\r\n" + + "\r\n" + + "function DateTimetoEagleDate(const DateTimeIn :TDateTime) :shortstring;\r\n" + + "var\r\n" + + " Day, Month, Year : Word;\r\n" + + " DayStr, YearStr : shortstring;\r\n" + + "begin\r\n" + + " if DateTimeIn = 0.0 then\r\n" + + " Result := ' ' //blank date\r\n" + + " else begin\r\n" + + " DecodeDate( DateTimeIn, Year, Month, Day );\r\n" + + "\r\n" + + " DayStr := PadL( IntToStr( Day ), 2, '0' );\r\n" + + " YearStr := PadL( IntToStr( Year ), 2, '0' );\r\n" + + "\r\n" + + " Result := DayStr + AlphaMonth(Month) + copy( YearStr, 3, 2 );\r\n" + + " end;\r\n" + + "end;\r\n" + + "\r\n" + + "function EagleDateTimeToDateTime(const iDate, iTime: ShortString; var ivIsOK: Boolean): TDateTime;\r\n" + + "begin\r\n" + + " Result := EagleDateToDateTime(iDate, ivIsOK) + EagleTimeToDateTime(iTime);\r\n" + + "end;\r\n" + + "\r\n" + + "function EagleDateTimeToDateTime(const iDate, iTime: ShortString): TDateTime;\r\n" + + "var\r\n" + + " vIsOK: Boolean;\r\n" + + "begin\r\n" + + " Result := EagleDateTimeToDateTime(iDate, iTime, vIsOK);\r\n" + + "end;\r\n" + + "\r\n" + + "function EagleTimeToDateTime(const iTime: ShortString; const iFixTime : Boolean = False): TDateTime;\r\n" + + "var\r\n" + + " vHH, vMM: Word;\r\n" + + "begin\r\n" + + " vHH := StrToIntDef(Copy(iTime, 1, 2), 0);\r\n" + + " vMM := StrToIntDef(Copy(iTime, 3, 2), 0);\r\n" + + " if (iFixTime) and (vMM = 60) then //used when time is equal to e.g. 2160 - should be 2200\r\n" + + " begin\r\n" + + " vMM := 0;\r\n" + + " Result := EncodeTime(vHH, vMM, 0, 0);\r\n" + + " Result := IncHour(Result, 1)\r\n" + + " end\r\n" + + " else\r\n" + + " Result := EncodeTime(vHH, vMM, 0, 0);\r\n" + + "end;\r\n" + + "\r\n" + + "function DateTimeToEagleTime(const iDateTime: TDateTime) : ShortString;\r\n" + + "var\r\n" + + " vHours, vMins, vSecs, vMsecs : Word;\r\n" + + " vHoursStr, vMinsStr : ShortString;\r\n" + + "begin\r\n" + + " Result := ' '; //blank time\r\n" + + " if iDateTime = 0.0 then\r\n" + + " exit;\r\n" + + "\r\n" + + " DecodeTime( iDateTime, vHours, vMins, vSecs, vMsecs );\r\n" + + " vHoursStr := PadL( IntToStr( vHours ), 2, '0' );\r\n" + + " vMinsStr := PadL( IntToStr( vMins ), 2, '0' );\r\n" + + " Result := vHoursStr + vMinsStr;\r\n" + + "end;\r\n" + + "\r\n" + + "function NumericYesterday :string;\r\n" + + "begin\r\n" + + " Result := NumericDate(DayADtoDate(DayAD(NumericDate(GetUniversalDate)) - 1));\r\n" + + "end; // NumericYesterday\r\n" + + "\r\n" + + "function NumericDateToUniversalDate(iNumDate :string) :UniversalDateType;\r\n" + + "begin\r\n" + + " NumericDateToUniversalDate := copy(NumericToYYYYMMDD(iNumDate) , 7 , 2) +\r\n" + + " AlphaMonth(StrToIntDef(copy(NumericToYYYYMMDD(iNumDate) , 5 , 2), 0)) +\r\n" + + " copy(NumericToYYYYMMDD(iNumDate) , 3 , 2);\r\n" + + "end;\r\n" + + "\r\n" + + "Function UniversalDateTimeToTDateTime\r\n" + + " ( UniversalDate: UniversalDateType;\r\n" + + " HHMM : EagleTimeType;\r\n" + + " var iTDateTime : TDateTime ) : boolean;\r\n" + + "var\r\n" + + " MMDDYY :string[6];\r\n" + + " WorkDate :TDateTime;\r\n" + + " WorkTime :TDateTime;\r\n" + + "Begin\r\n" + + " Result := false;\r\n" + + " iTDateTime := 0;\r\n" + + " if ValidEagleTime(HHMM) then\r\n" + + " if UniversalToUSDate(UniversalDate,MMDDYY) then\r\n" + + " begin\r\n" + + " WorkDate := EncodeDate(StrToInt(AddCenturyToYear(copy(MMDDYY,5,2))),\r\n" + + " StrToInt(copy(MMDDYY,1,2)),\r\n" + + " StrToInt(copy(MMDDYY,3,2)));\r\n" + + " WorkTime := EncodeTime(StrToInt(copy(HHMM,1,2)),\r\n" + + " StrToInt(copy(HHMM,3,2)),\r\n" + + " 0,\r\n" + + " 0);\r\n" + + "\r\n" + + " iTDateTime := WorkDate + WorkTime;\r\n" + + " Result := true;\r\n" + + " end;\r\n" + + "end;\r\n" + + "\r\n" + + "Function TDateTimeToUniversalDateTime\r\n" + + " ( iTDateTime : TDateTime;\r\n" + + " var UniversalDate: UniversalDateType;\r\n" + + " var HHMM : EagleTimeType ) : boolean;\r\n" + + "var\r\n" + + " Hour, Min, Sec, MSec :word;\r\n" + + "begin\r\n" + + " UniversalDate := ConvertDateTimeToUniversalDate(iTDateTime);\r\n" + + " decodetime(iTDateTime,Hour, Min, Sec, MSec);\r\n" + + " HHMM := int2fullstr(Hour,2) + int2fullstr(Min,2);\r\n" + + " result := true;\r\n" + + "end;\r\n" + + "\r\n" + + "function TDateTimeToDDHHMM (iTDateTime : TDateTime) :string;\r\n" + + "var\r\n" + + " Hour, Min, Sec, MSec :word;\r\n" + + " Year, Month, Day: Word;\r\n" + + "begin\r\n" + + " decodetime(iTDateTime,Hour, Min, Sec, MSec);\r\n" + + " decodedate(iTDateTime, Year, Month, Day);\r\n" + + " result := int2fullstr(Day,2) + int2fullstr(Hour,2) + int2fullstr(Min,2);\r\n" + + "end;\r\n" + + "\r\n" + + "function DDHHMMToTDateTime (iDDHHMM : string; iRefTimestamp: TDateTime = -1) :TDateTime;\r\n" + + "var\r\n" + + " DD: word;\r\n" + + " Hour, Min, Sec, MSec :word;\r\n" + + " Year, Month, Day: Word;\r\n" + + " DateDateTime: TDateTime;\r\n" + + " TimeDateTime: TDateTime;\r\n" + + "begin\r\n" + + " if iRefTimestamp = -1 then\r\n" + + " iRefTimestamp := Now;\r\n" + + " DD := Str2Int(copy(iDDHHMM,1,2));\r\n" + + " decodedate(iRefTimestamp, Year, Month, Day);\r\n" + + " if Day <> DD\r\n" + + " then begin\r\n" + + " if (Day > 20)\r\n" + + " and (DD < 10)\r\n" + + " then begin\r\n" + + " if Month = 12\r\n" + + " then begin\r\n" + + " Month := 1;\r\n" + + " inc(Year);\r\n" + + " end\r\n" + + " else inc(Month);\r\n" + + " end\r\n" + + " else begin\r\n" + + " if (Day < 20)\r\n" + + " and (DD > 10)\r\n" + + " then begin\r\n" + + " if Month = 1\r\n" + + " then begin\r\n" + + " Month := 12;\r\n" + + " dec(Year);\r\n" + + " end\r\n" + + " else dec(Month);\r\n" + + " end;\r\n" + + " end;\r\n" + + " Day := DD;\r\n" + + " end;\r\n" + + " DateDateTime := encodedate(Year, Month, Day);\r\n" + + " Hour := Str2Int(copy(iDDHHMM,3,2));\r\n" + + " Min := Str2Int(copy(iDDHHMM,5,2));\r\n" + + " Sec := 0;\r\n" + + " MSec := 0;\r\n" + + " TimeDateTime := encodetime(Hour, Min, Sec, MSec);\r\n" + + " result := DateDateTime + TimeDateTime;\r\n" + + "end;\r\n" + + "\r\n" + + "{ TODO : Copied from Drb\\DateTime.pas }\r\n" + + "\r\n" + + "{** 10-27-99 * NumericDateToDDMMMYY **************************************}\r\n" + + "Function NumericDateToDDMMMYY (NumericDateIn : String) : String;\r\n" + + "Var\r\n" + + " i : Integer;\r\n" + + " Day, Year : String[2];\r\n" + + " Month : String[3];\r\n" + + " Date : String[7];\r\n" + + "\r\n" + + "Begin // NumericDateToDDMMMYY\r\n" + + "\r\n" + + " Str (Ord (NumericDateIn[4]):2, Day);\r\n" + + " Month := AlphaMonth (Ord (NumericDateIn[3]));\r\n" + + " Str (Ord (NumericDateIn[2]):2, Year);\r\n" + + "\r\n" + + " Date := Day + Month + Year;\r\n" + + "\r\n" + + " For i := 1 to 7 Do\r\n" + + " If Date[i] = ' ' then\r\n" + + " Date[i] := '0';\r\n" + + "\r\n" + + " Result := Date;\r\n" + + "\r\n" + + "end; // NumericDateToDDMMMYY\r\n" + + "\r\n" + + "{ TODO : Copied from Drb\\DateTime.pas }\r\n" + + "{** 11-04-99 * ValidNumericDate ***********************************************}\r\n" + + "Function ValidNumericDate (Const NumericDateIn : String) : Boolean;\r\n" + + "Var\r\n" + + " ValidCentury,\r\n" + + " ValidYear,\r\n" + + " ValidMonth,\r\n" + + " ValidDay : Boolean;\r\n" + + "\r\n" + + "Begin // ValidNumericDate\r\n" + + "\r\n" + + " ValidCentury := (NumericDateIn[1] >= #19) and (NumericDateIn[1] <= #99);\r\n" + + " ValidYear := (NumericDateIn[2] >= #0) and (NumericDateIn[2] <= #99);\r\n" + + " ValidMonth := (NumericDateIn[3] >= #1) and (NumericDateIn[3] <= #12);\r\n" + + " ValidDay := (NumericDateIn[4] >= #1) and (NumericDateIn[4] <= #31);\r\n" + + "\r\n" + + " Result := ValidCentury and ValidYear and ValidMonth and ValidDay;\r\n" + + "\r\n" + + "end; // ValidNumericDate\r\n" + + "\r\n" + + "{ TODO : Copied from Drb\\DateTime.pas }{** 07-30-98 * DateTimeToDDMMMYY ************************************************}\r\n" + + "function DateTimeToDDMMMYY( NewDate : TDateTime ) : string;\r\n" + + "\r\n" + + "var\r\n" + + " Year : word;\r\n" + + " Month : word;\r\n" + + " Day : word;\r\n" + + " YearStr : string;\r\n" + + " DayStr : string;\r\n" + + "\r\n" + + "begin // DateTimeToDDMMMYY\r\n" + + " try\r\n" + + " try\r\n" + + " DecodeDate(NewDate, Year, Month, Day);\r\n" + + " except\r\n" + + " DecodeDate(GetUTCDateTime, Year, Month, Day);\r\n" + + " end; // try\r\n" + + "\r\n" + + " DayStr := IntToStr(Day);\r\n" + + " if Length(DayStr) < 2 then\r\n" + + " DayStr := '0'+DayStr;\r\n" + + "\r\n" + + " YearStr := Copy(IntToStr(Year),3,2);\r\n" + + "\r\n" + + " Result := DayStr+ DateTime.AlphaMonth(Month) + YearStr;\r\n" + + " except\r\n" + + " Result := coBlankDate;\r\n" + + " end;\r\n" + + "end; // DateTimeToDDMMMYY\r\n" + + "\r\n" + + "{ TODO : Copied from Drb\\DateTime.pas }\r\n" + + "function NumericDateToDateTime(const iNumericDate : string): TDatetime;\r\n" + + "begin\r\n" + + " Result := DDMMMYYDateToDateTime(NumericDateToDDMMMYY(iNumericDate));\r\n" + + "end;\r\n" + + "\r\n" + + "{ TODO : Copied from Drb\\DateTime.pas }\r\n" + + "{** 04-20-04 * DDMMMYYDateToDateTime ******************************************}\r\n" + + "function DDMMMYYDateToDateTime( DDMMMYYDate : string ) : TDateTime;\r\n" + + "\r\n" + + "var\r\n" + + " YearStr : string[4];\r\n" + + " Year : word;\r\n" + + " Month : word;\r\n" + + " Day : word;\r\n" + + "\r\n" + + "begin // DDMMMYYDateToDateTime\r\n" + + " try\r\n" + + " Day := StrToInt(Copy(DDMMMYYDate,1,2));\r\n" + + " except\r\n" + + " on E : EConvertError do\r\n" + + " raise Exception.Create( Copy(DDMMMYYDate,1,2) + ' is not a valid day' );\r\n" + + " end;\r\n" + + "\r\n" + + " try\r\n" + + " YearStr := DateTime.AddCenturyToYear( Copy(DDMMMYYDate,6,2) );\r\n" + + " Year := StrToInt( YearStr );\r\n" + + " except\r\n" + + " on E : EConvertError do\r\n" + + " raise Exception.Create( YearStr + ' is not a valid year' );\r\n" + + " end;\r\n" + + "\r\n" + + " Month := DateTime.NumericMonth( Copy(DDMMMYYDate,3,3) );\r\n" + + "\r\n" + + " try\r\n" + + " Result := EncodeDate( Year, Month, Day);\r\n" + + " except\r\n" + + " Result := GetUTCDateTime;\r\n" + + " end; // try\r\n" + + "end; // DDMMMYYDateToDateTime\r\n" + + "\r\n" + + "function IsFakeDateEnabled: Boolean;\r\n" + + "begin\r\n" + + " Result := FileExists('FakeDate.txt');\r\n" + + "end;\r\n" + + "\r\n" + + "procedure FakeDate;\r\n" + + "begin\r\n" + + " FTestDate := '';\r\n" + + " with TStringList.Create do\r\n" + + " try\r\n" + + " LoadFromFile('FakeDate.txt');\r\n" + + " if Count <> 1 then\r\n" + + " Exit;\r\n" + + "\r\n" + + " FTestDate := Strings[0];\r\n" + + " if not ValidateDate(FTestDate) then\r\n" + + " begin\r\n" + + " ShowMessageFmt('Error in format (DDMMMYY) of fake date of - \"%s\"'#13#10' from \"%s\\FakeDate.txt\"', [\r\n" + + " FTestDate,\r\n" + + " GetCurrentDir\r\n" + + " ]);\r\n" + + " FTestDate := '';\r\n" + + " end\r\n" + + " else\r\n" + + " ShowMessageFmt('Running with fake date of - \"%s\" from \"%s\\FakeDate.txt\"', [\r\n" + + " FTestDate,\r\n" + + " GetCurrentDir\r\n" + + " ]);\r\n" + + " finally\r\n" + + " Free;\r\n" + + " end;\r\n" + + "end;\r\n" + + "\r\n" + + "function DateTimeToNumericDate(const DateTimeIn :TDateTime) :NumericDateType;\r\n" + + "var\r\n" + + " vEagleDate : UniversalDateType;\r\n" + + "begin\r\n" + + " vEagleDate := DateTimetoEagleDate(DateTimeIn);\r\n" + + " Result := NumericDate(vEagleDate);\r\n" + + "end;\r\n" + + "\r\n" + + "function NumericDateWithTimeToDateTime(iNumericDateTime: ShortString): TDateTime;\r\n" + + "var\r\n" + + " MessageDate: UniversalDateType;\r\n" + + " MessageTime: EagleTimeType;\r\n" + + " MessageDateTime: TDateTime;\r\n" + + "begin\r\n" + + " MessageDate := DayADtoDate(DayAD(copy(iNumericDateTime, 1, 4)));\r\n" + + " MessageTime := MinutesToTime(ord(iNumericDateTime[5])*60+ord(iNumericDateTime[6]));\r\n" + + " if not UniversalDateTimeToTDateTime(MessageDate, MessageTime, MessageDateTime) then\r\n" + + " MessageDateTime := Now;\r\n" + + " Result := MessageDateTime;\r\n" + + "end;\r\n" + + "\r\n" + + "function DateTimeToNumericDateWithTime(iValue: TDateTime): ShortString;\r\n" + + "var\r\n" + + " vHours, vMinutes, vSeconds, vMillis: Word;\r\n" + + "begin\r\n" + + " DecodeTime(iValue, vHours, vMinutes, vSeconds, vMillis);\r\n" + + " Result := DateTimeToNumericDate(iValue) + Chr(vHours) + Chr(vMinutes);\r\n" + + "end;\r\n" + + "\r\n" + + "function YYYYMMDDToTDateTime(iYYYYMMDD: AnsiString): TDateTime;\r\n" + + "begin\r\n" + + " Result := NumericDateToDateTime(YYYYMMDDtoNumericDate(iYYYYMMDD));\r\n" + + "end;\r\n" + + "\r\n" + + "function HHMMToTTime(iHHMM: AnsiString): TDateTime;\r\n" + + "begin\r\n" + + " Result := TimeOf(DDHHMMToTDateTime('01' + iHHMM));\r\n" + + "end;\r\n" + + "\r\n" + + "initialization\r\n" + + " // Default to always use UTC time\r\n" + + " TimeIsUTCBased(true);\r\n" + + "{ TODO -oMPL : Copied from DRB DateTime }\r\n" + + " coMaxDate := EncodeDate(9999, 12, 31);\r\n" + + " if IsFakeDateEnabled then\r\n" + + " FakeDate;\r\n" + + "end. // Unit DateTime\r\n" + + "\r\n" + + "\r\n"; + + #endregion + + TestGetUnits(cDateTime, + new string[] {"SysUtils", "Classes", "Math", "Windows"}, + new string[] {"Mystd", "Forms", "Dialogs", "DateUtils"}); + } + + [Test] + public void GetUnits_Login() + { + #region (Test value) + + const string cLogin = + "interface\r\n" + + "\r\n" + + "uses\r\n" + + " Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,\r\n" + + " Dialogs,\r\n" + + " MYSTD, DATETIME, OPERio, TimeSync, AdminOptionsInfo, ChangePassword,\r\n" + + " DRBCryptography, codeio, GDeclare, Errorsio, FILEVIEW, {TraditionalLoginFrm,}\r\n" + + " GuggenheimLoginFrm;\r\n" + + "\r\n" + + "type\r\n" + + "// TDefaultLoginForm = TTraditionalLoginForm;\r\n" + + " TDefaultLoginForm = TGuggenheimLoginForm;\r\n" + + "\r\n" + + " TLogin = class(TInterfacedObject)\r\n" + + " private\r\n" + + " FAdminOptionsInfoRec :TPasswordOptionsInfoRec;\r\n" + + " FNoNeedToValidate :Boolean;\r\n" + + " FUserID: string[4];\r\n" + + " FCheckDPMAIL :boolean;\r\n" + + " FirstTime :boolean;\r\n" + + " procedure ShowDPMAIL(OperatorRecord: OperatorRecordType);\r\n" + + " procedure SetDataPath(const Value: AnsiString);\r\n" + + " private\r\n" + + " FSigninForm: TForm;\r\n" + + " FSigninFormClass: TFormClass;\r\n" + + " procedure SetSigninFormClass(const Value: TFormClass);\r\n" + + " protected\r\n" + + " function SignInFormNeeded: TForm; virtual;\r\n" + + " function GetPassword: AnsiString;\r\n" + + " function GetCompanyCode: AnsiString;\r\n" + + " function GetLocalDisk: AnsiString;\r\n" + + " function GetMasterDisk: AnsiString;\r\n" + + " function GetMasterExeDisk: AnsiString;\r\n" + + " function GetOperatorId: AnsiString;\r\n" + + " function GetSystemName: AnsiString;\r\n" + + " function GetWorkstation: AnsiString;\r\n" + + " function GetDataDisk: AnsiString;\r\n" + + " procedure SetPassword(const Value: AnsiString);\r\n" + + " procedure SetCompanyCode(const Value: AnsiString);\r\n" + + " procedure SetLocalDisk(const Value: AnsiString);\r\n" + + " procedure SetMasterDisk(const Value: AnsiString);\r\n" + + " procedure SetMasterExeDisk(const Value: AnsiString);\r\n" + + " procedure SetOperatorId(const Value: AnsiString);\r\n" + + " procedure SetSystemName(const Value: AnsiString);\r\n" + + " procedure SetWorkstation(const Value: AnsiString);\r\n" + + " procedure SetDataDisk(const Value: AnsiString);\r\n" + + " function MissingData: boolean;\r\n" + + " function GetDataPath: AnsiString;\r\n" + + " function CalcDataPath :ShortString;\r\n" + + " procedure FocusField(Field: AnsiString); virtual;\r\n" + + " function OtherChecks :boolean; virtual;\r\n" + + " function CheckPasswordRules(var OperInfoRec :OPERATORRecordType) :boolean;\r\n" + + " procedure ProcessFieldError(Field, ErrorMessage: AnsiString); virtual;\r\n" + + " procedure SetCheckDPMAIL(Value: Boolean);\r\n" + + " property Password: AnsiString read GetPassword write SetPassword;\r\n" + + " property CompanyCode: AnsiString read GetCompanyCode write SetCompanyCode;\r\n" + + " property Workstation: AnsiString read GetWorkstation write SetWorkstation;\r\n" + + " property MasterExeDisk: AnsiString read GetMasterExeDisk write SetMasterExeDisk;\r\n" + + " property MasterDisk: AnsiString read GetMasterDisk write SetMasterDisk;\r\n" + + " property LocalDisk: AnsiString read GetLocalDisk write SetLocalDisk;\r\n" + + " property SystemName: AnsiString read GetSystemName write SetSystemName;\r\n" + + " property OperatorId: AnsiString read GetOperatorId write SetOperatorId;\r\n" + + " property DataDisk: AnsiString read GetDataDisk write SetDataDisk;\r\n" + + " property NoNeedToValidate: Boolean read FNoNeedToValidate write FNoNeedToValidate;\r\n" + + " property DataPath: AnsiString read GetDataPath write SetDataPath;\r\n" + + " procedure Initialize;\r\n" + + " procedure VerifyPassword;\r\n" + + " public\r\n" + + " AOK :boolean;\r\n" + + " constructor Create(const SigninFormClass: TFormClass = nil);\r\n" + + " destructor Destroy; override;\r\n" + + " procedure Execute;\r\n" + + " function CheckPassword( Password :shortstring;\r\n" + + " OperInfoRec :OperatorRecordType;\r\n" + + " var PasswordValid :boolean) :ShortString;\r\n" + + " property CheckDPMAIL: Boolean read FCheckDPMAIL write SetCheckDPMAIL;\r\n" + + " property SigninFormClass: TFormClass read FSigninFormClass write SetSigninFormClass;\r\n" + + " end;\r\n" + + "\r\n" + + "function ShowLoginDialog(DoDPMailCheck: Boolean = False): Boolean;\r\n" + + "\r\n" + + "implementation\r\n" + + "\r\n" + + "uses\r\n" + + " CommonTypes, CommonConsts,\r\n" + + " ReceiveMAIL ,\r\n" + + " DMGlobals, LoginFrm;\r\n" + + "\r\n" + + "{$I ERRMSGS.INC}\r\n" + + "\r\n" + + "function ShowLoginDialog(DoDPMailCheck: Boolean = False): Boolean;\r\n" + + "begin\r\n" + + " with TLogin.Create do\r\n" + + " try\r\n" + + " CheckDPMAIL := DoDPMailCheck;\r\n" + + " Execute;\r\n" + + " Result := AOK;\r\n" + + " finally\r\n" + + " Free;\r\n" + + " end;\r\n" + + "end;\r\n" + + "\r\n" + + "{ TLogin }\r\n"; + + #endregion + + TestGetUnits(cLogin, + new string[] {"Windows", "Messages", "SysUtils", "Variants", "Classes", "Graphics", "Controls", + "Forms", "Dialogs", "MYSTD", "DATETIME", "OPERio", "TimeSync", "AdminOptionsInfo", "ChangePassword", + "DRBCryptography", "codeio", "GDeclare", "Errorsio", "FILEVIEW", "GuggenheimLoginFrm"}, + new string[] {"CommonTypes", "CommonConsts", "ReceiveMAIL", "DMGlobals", "LoginFrm"}); + } + + [Test] + public void GetUnits_Mqin_zzz() + { + #region (Test value) + + const string cMqin_zzz = + "{*******************************************************************\r\n" + + "$History: Mqin_zzz.pas $\r\n" + + "//\r\n" + + "// ***************** Version 17 *****************\r\n" + + "// User: 893894 Date: 1/09/06 Time: 2:01p\r\n" + + "// Updated in $/_Patch_Staging/5.4.0/U\r\n" + + "// Never call FindClose without corresponding FindFirst. It causes serious\r\n" + + "// problems because FindClose tries to free some resources that have not\r\n" + + "// been allocated.\r\n" + + "//\r\n" + + "// ***************** Version 15 *****************\r\n" + + "// User: 899482 Date: 6/01/05 Time: 12:37a\r\n" + + "// Updated in $/DISPMGR/5.3/U\r\n" + + "// Remove global declaration of CodeRecord from GDCL_ALL (HAL 57104)\r\n" + + "//\r\n" + + "// ***************** Version 13 *****************\r\n" + + "// User: Dmscm Date: 8/09/04 Time: 4:23p\r\n" + + "// Updated in $/DISPMGR/_AllSource/U\r\n" + + "// ASD Enhancement (ANZ 87743)\r\n" + + "//\r\n" + + "// ***************** Version 12 *****************\r\n" + + "// User: 899469 Date: 4/01/04 Time: 11:59p\r\n" + + "// Updated in $/DISPMGR/_AllSource/U\r\n" + + "// Modified GetTransactions to process AMDAR documents (JZA 66709)\r\n" + + "//\r\n" + + "// ***************** Version 11 *****************\r\n" + + "// User: 618382 Date: 3/05/04 Time: 2:51p\r\n" + + "// Updated in $/DISPMGR/_AllSource/U\r\n" + + "// Fixed CommDrvr Crash when an .err file exists in EIA SITA format\r\n" + + "// message(EIA 68049)\r\n" + + "//\r\n" + + "// ***************** Version 10 *****************\r\n" + + "// User: 618382 Date: 2/12/04 Time: 2:23p\r\n" + + "// Updated in $/DISPMGR/_AllSource/U\r\n" + + "// Added procedure MoveSitaFileToIATAFolder(68049,77312 EIA)\r\n" + + "//\r\n" + + "// ***************** Version 9 *****************\r\n" + + "// User: 618382 Date: 1/20/04 Time: 3:23p\r\n" + + "// Updated in $/DISPMGR/_AllSource/U\r\n" + + "// Changed StrToInt to StrToIntDef(SBG 71732)\r\n" + + "//\r\n" + + "// ***************** Version 8 *****************\r\n" + + "// User: 618382 Date: 10/10/03 Time: 12:59p\r\n" + + "// Updated in $/DISPMGR/_AllSource/U\r\n" + + "// Functionality added to do Automatic Schedule load\r\n" + + "//\r\n" + + "// ***************** Version 7 *****************\r\n" + + "// User: 899480 Date: 9/19/03 Time: 6:25p\r\n" + + "// Updated in $/DISPMGR/_AllSource/U\r\n" + + "// Remove reference to EAGLE and AIRPATH (DDTS 69217)\r\n" + + "//\r\n" + + "// ***************** Version 6 *****************\r\n" + + "// User: 618382 Date: 7/28/03 Time: 4:52p\r\n" + + "// Updated in $/AP360T/_AllSource/U\r\n" + + "// Added EIA SITA message type processing\r\n" + + "//\r\n" + + "// ***************** Version 5 *****************\r\n" + + "// User: 982760 Date: 5/22/03 Time: 12:14a\r\n" + + "// Updated in $/AP360T/_AllSource/U\r\n" + + "// Correction to CPA's Email to MSSend. (2244 CPA)\r\n" + + "//\r\n" + + "// ***************** Version 4 *****************\r\n" + + "// User: 982760 Date: 11/19/02 Time: 7:06p\r\n" + + "// Updated in $/FP1/_AllSource/U\r\n" + + "// Merged with V3.6.3 - KB\r\n" + + "//\r\n" + + "// ***************** Version 3 *****************\r\n" + + "// User: 899480 Date: 11/06/02 Time: 5:27p\r\n" + + "// Updated in $/FP1/_AllSource/U\r\n" + + "// Add logic to receive Email messages from EmailInPath and\r\n" + + "// output to EmailOutPath (CPAMerge-SL).\r\n" + + " *\r\n" + + " * ***************** Version 2 *****************\r\n" + + " * User: 982760 Date: 4/24/02 Time: 6:38a\r\n" + + " * Updated in $/FP1/FDCOMM/U\r\n" + + " * Merged - KB\r\n" + + "//\r\n" + + "// ***************** Version 19 *****************\r\n" + + "// User: Wek Date: 10/15/01 Time: 1:37p\r\n" + + "// Updated in $/GUI/eaglegui/u\r\n" + + "// Hermes ACARS interface(AWE1635).\r\n" + + "//\r\n" + + "// ***************** Version 18 *****************\r\n" + + "// User: Wek Date: 4/20/00 Time: 11:46a\r\n" + + "// Updated in $/GUI/eaglegui/u\r\n" + + "// Added processing of Canadian NOTAMS. (WJA 694)\r\n" + + "//\r\n" + + "// ***************** Version 17 *****************\r\n" + + "// User: Jmk Date: 11/30/99 Time: 10:32a\r\n" + + "// Updated in $/GUI/eaglegui/u\r\n" + + "// Kerry's 30 Nov 99 update\r\n" + + "//\r\n" + + "// ***************** Version 16 *****************\r\n" + + "// User: Jmk Date: 7/29/99 Time: 2:02p\r\n" + + "// Updated in $/GUI/eaglegui/u\r\n" + + "// Kerry's 29Jul99 update\r\n" + + "//\r\n" + + "// ***************** Version 15 *****************\r\n" + + "// User: Jmk Date: 7/19/99 Time: 9:26a\r\n" + + "// Updated in $/GUI/eaglegui/u\r\n" + + "// Kerry Update 19Jul99\r\n" + + "//\r\n" + + "// ***************** Version 14 *****************\r\n" + + "// User: Jmk Date: 6/25/99 Time: 11:32a\r\n" + + "// Updated in $/GUI/eaglegui/u\r\n" + + "// OAS 25Jun99 Updates from Kerry\r\n" + + "//\r\n" + + "// ***************** Version 13 *****************\r\n" + + "// User: Jmk Date: 6/02/99 Time: 11:43a\r\n" + + "// Updated in $/GUI/eaglegui/u\r\n" + + "// Updates from Kerry 1 jun 99\r\n" + + "//\r\n" + + "// ***************** Version 12 *****************\r\n" + + "// User: Jmk Date: 5/04/99 Time: 1:50p\r\n" + + "// Updated in $/GUI/eaglegui/u\r\n" + + "// OAS changes may 5 1999\r\n" + + "//\r\n" + + "// ***************** Version 11 *****************\r\n" + + "// User: Jmk Date: 4/20/99 Time: 3:06p\r\n" + + "// Updated in $/GUI/eaglegui/u\r\n" + + "// Kerry update apr20 99\r\n" + + "//\r\n" + + "// ***************** Version 10 *****************\r\n" + + "// User: Wek Date: 2/22/99 Time: 1:07p\r\n" + + "// Updated in $/GUI/eaglegui/u\r\n" + + "// OAS Washington Resync\r\n" + + "//\r\n" + + "// ***************** Version 9 *****************\r\n" + + "// User: Wek Date: 1/07/99 Time: 3:58p\r\n" + + "// Updated in $/GUI/eaglegui/u\r\n" + + "// dRb 837 Remove all hardcoding of \\EAGLE\\ and use SystemPath field from\r\n" + + "// GDECLARE\r\n" + + "//\r\n" + + "// ***************** Version 8 *****************\r\n" + + "// User: Wek Date: 9/23/98 Time: 2:11p\r\n" + + "// Updated in $/GUI/eaglegui/u\r\n" + + "// Ron's Labor Day Update\r\n" + + "//\r\n" + + "// ***************** Version 7 *****************\r\n" + + "// User: Wek Date: 7/04/98 Time: 6:09p\r\n" + + "// Updated in $/GUI/eaglegui/u\r\n" + + "// REG Independence Day Synchronization\r\n" + + "//\r\n" + + "// ***************** Version 6 *****************\r\n" + + "// User: Wek Date: 5/24/98 Time: 6:32p\r\n" + + "// Updated in $/GUI/eaglegui/u\r\n" + + "// Ron's Memorial Day Offering\r\n" + + "//\r\n" + + "// ***************** Version 5 *****************\r\n" + + "// User: Imp Date: 4/02/98 Time: 4:18p\r\n" + + "// Updated in $/GUI/eaglegui/u\r\n" + + "// oas files 4-2-98\r\n" + + "//\r\n" + + "// ***************** Version 4 *****************\r\n" + + "// User: Imp Date: 2/05/98 Time: 9:53a\r\n" + + "// Updated in $/GUI/eaglegui/u\r\n" + + "// RG changes sent 02-05-98\r\n" + + "//\r\n" + + "// ***************** Version 3 *****************\r\n" + + "// User: Shl Date: 1/08/98 Time: 4:52p\r\n" + + "// Updated in $/GUI/eaglegui/u\r\n" + + "// RG-OASNEW Changes sent on 02-01-98\r\n" + + "//\r\n" + + "// ***************** Version 2 *****************\r\n" + + "// User: Imp Date: 12/16/97 Time: 4:48p\r\n" + + "// Updated in $/GUI/eaglegui/u\r\n" + + "// dRb72 Added History stamp\r\n" + + "*******************************************************************}\r\n" + + "Unit MQIN_ZZZ;\r\n" + + "\r\n" + + "Interface\r\n" + + "\r\n" + + "uses\r\n" + + " Windows,\r\n" + + " Classes,\r\n" + + " SysUtils,\r\n" + + " Dialogs;\r\n" + + "\r\n" + + "\r\n" + + "{BEGIN COMMENTS\r\n" + + "\r\n" + + "TITLE: System Message Transmitter and Receiver for ANZ teletype messages\r\n" + + "\r\n" + + "PURPOSE:\r\n" + + "\r\n" + + "History\r\n" + + " DATE WHO VER DESCRIPTION\r\n" + + " ====== === === =========================================================\r\n" + + " 22Sep00 KB Handle Graphical files in TRAN\r\n" + + " 21Jul99 KB 2.63 Ignore AFTN Check messages\r\n" + + " 05Jul99 KB 2.62 Process X25 Sita messages through SITA processing rather than IATA\r\n" + + " 10Jun99 KB 2.61 If files a Tran Directory needs to go through the Scansmi processing\r\n" + + " in RECV then write them to a SCAN subdirectory of TranoutPath.\r\n" + + " 22Apr99 KB 2.60 Ignore zero length TRAN messages.\r\n" + + " 21Apr99 KB 2.59 Change the way we ensure each part is for the same schedule\r\n" + + " 12Apr99 KB 2.58 Ansett to use Air NZ format Schedules\r\n" + + " 31Mar99 KB 2.57 Default TranMsgtype to blank if not 3 chars after the '.'\r\n" + + " 2Feb99 TD 2.56 Provide for Code Record Specification of the OPMET\r\n" + + " Source Directory\r\n" + + " 27Jan99 TD 2.55 Extract OPMET Messages and Write as Transactions Out\r\n" + + " 26Jan99 TD 2.54 Retain last char of Transaction file name for\r\n" + + " Ansett message type identification\r\n" + + " Disable DuplicateMessageCheck for Transactions\r\n" + + " 01Jan99 KB 2.53 Added CheckCircuitSequenceNo for all circuits. Uses MQIN_ZZZ\r\n" + + " ..../ORIG. alternateCode.\r\n" + + " 30Dec98 TD 2.53 Use Global Variable 'SystemPath' Instead of ':\\EAGLE\\'\r\n" + + " 22Jun98 KB 2.52 Removed CheckCarinaCircuitSequenceNo\r\n" + + " 4Jun98 KB 2.51 Changes for processing Schedule files for the ICOC project\r\n" + + " 1May98 KB 2.50 If a message has an envelope, strip it off and then process the\r\n" + + " message in the format of the enveloped message.\r\n" + + " 28Apr98 KB 2.49 Don't check for duplicate or add to savemsgs if Sita message\r\n" + + " has echo status of 'S'.\r\n" + + " 20Apr98 KB 2.48 Allow for multiple input directories. These are defined in\r\n" + + " MQIN_ZZZ code records. eg IATA/ORIG1, IATA/ORIG2, ...\r\n" + + " 8Apr98 KB 2.47 Use FindOldestFile to process in the correct order\r\n" + + " 17Mar98 KB 2.46 Changes for filtering out duplicate messages\r\n" + + " 3Feb98 KB 2.45 Change Code Record CodeReference from RECV_ZZZ to COMMDRVR\r\n" + + " 11Aug97 TD 2.44 Corection to Error Locating POSWX KeyWord.\r\n" + + "END COMMENTS}\r\n" + + "\r\n" + + "Procedure MQIN_ZZZMainProcedure;\r\n" + + "\r\n" + + "Implementation\r\n" + + "\r\n" + + "Uses\r\n" + + " AMDARMsgIO, CommonConsts, CommonTypes, DMGlobals, GDeclare,\r\n" + + " GDCL_ALL, DateTime, MySTD, Codeio, CARINAio, MMATEZZZ, {AFTN Message Mate Handler....}\r\n" + + " QIO_AAA, OPMETAAA, POSTLOG, QMSGDESK, QMSGRESP, OASFiles, oCOMMCTL,\r\n" + + " FILEUNIT, GATEWYio, CompList, SCHFiles, FileCtrl, FunctionalityProvider,\r\n" + + " FunctionalityInterface, FlightWxImagesFunctionalityInterface, MessageTypeRecognizer;\r\n" + + "\r\n" + + "Const\r\n" + + " ProgramName = 'MQIN_ZZZ';\r\n" + + " ProgramVersion = '2.61';\r\n" + + " MaxSITAElapsedTime = 5;\r\n" + + "\r\n"; + + #endregion + + TestGetUnits(cMqin_zzz, + new string[] {"Windows", "Classes", "SysUtils", "Dialogs"}, + new string[] {"AMDARMsgIO", "CommonConsts", "CommonTypes", "DMGlobals", "GDeclare", + "GDCL_ALL", "DateTime", "MySTD", "Codeio", "CARINAio", "MMATEZZZ", "QIO_AAA", "OPMETAAA", + "POSTLOG", "QMSGDESK", "QMSGRESP", "OASFiles", "oCOMMCTL", "FILEUNIT", "GATEWYio", + "CompList", "SCHFiles", "FileCtrl", "FunctionalityProvider", "FunctionalityInterface", + "FlightWxImagesFunctionalityInterface", "MessageTypeRecognizer"}); + } + + [Test] + public void GetUnits_Log4D() + { + #region (Test value) + + const string cLog4D = + "unit Log4D;\r\n" + + "\r\n" + + "{\r\n" + + " Logging for Delphi.\r\n" + + " Based on log4j Java package from Apache\r\n" + + " (http://jakarta.apache.org/log4j/docs/index.html).\r\n" + + " Currently based on log4j 1.2.8.\r\n" + + "\r\n" + + " Written by Keith Wood (kbwood@iprimus.com.au).\r\n" + + " Version 1.0 - 29 April 2001.\r\n" + + " Version 1.2 - 9 September 2003.\r\n" + + " Version 1.3 - 24 July 2004.\r\n" + + " Version 1.4 - 19 January 2007.\r\n" + + "}\r\n" + + "\r\n" + + "interface\r\n" + + "\r\n" + + "{$H+}\r\n" + + "\r\n" + + "{$IFDEF VER130} { Delphi 5 }\r\n" + + "{$DEFINE DELPHI5}\r\n" + + "{$DEFINE DELPHI4_UP}\r\n" + + "{$DEFINE DELPHI5_UP}\r\n" + + "{$ENDIF}\r\n" + + "\r\n" + + "{$IFDEF VER140} { Delphi 6 }\r\n" + + "{$DEFINE DELPHI6}\r\n" + + "{$DEFINE DELPHI4_UP}\r\n" + + "{$DEFINE DELPHI5_UP}\r\n" + + "{$DEFINE DELPHI6_UP}\r\n" + + "{$ENDIF}\r\n" + + "\r\n" + + "{$IFDEF VER150} { Delphi 7 }\r\n" + + "{$DEFINE DELPHI7}\r\n" + + "{$DEFINE DELPHI4_UP}\r\n" + + "{$DEFINE DELPHI5_UP}\r\n" + + "{$DEFINE DELPHI6_UP}\r\n" + + "{$DEFINE DELPHI7_UP}\r\n" + + "{$ENDIF}\r\n" + + "\r\n" + + "{$IFDEF VER180} { Delphi 2006 }\r\n" + + "{$DEFINE DELPHI7}\r\n" + + "{$DEFINE DELPHI4_UP}\r\n" + + "{$DEFINE DELPHI5_UP}\r\n" + + "{$DEFINE DELPHI6_UP}\r\n" + + "{$DEFINE DELPHI7_UP}\r\n" + + "{$ENDIF}\r\n" + + "\r\n" + + "uses\r\n" + + " Classes,\r\n" + + "{$IFDEF LINUX}\r\n" + + " SyncObjs,\r\n" + + "{$ELSE}\r\n" + + " Windows, Winsock,\r\n" + + "{$ENDIF}\r\n" + + "{$IFDEF DELPHI5_UP}\r\n" + + " Contnrs,\r\n" + + "{$ENDIF}\r\n" + + " SysUtils;\r\n" + + "\r\n" + + "const\r\n" + + " Log4DVersion = '1.4';\r\n" + + "\r\n" + + " { Default pattern string for log output.\r\n" + + " Shows the application supplied message. }\r\n" + + " DefaultPattern = '%m%n';\r\n" + + " { A conversion pattern equivalent to the TTCC layout.\r\n" + + " Shows runtime, thread, level, logger, NDC, and message. }\r\n" + + " TTCCPattern = '%r [%t] %p %c %x - %m%n';\r\n" + + "\r\n" + + " { Common prefix for option names in an initialisation file.\r\n" + + " Note that the search for all option names is case sensitive. }\r\n" + + " KeyPrefix = 'log4d';\r\n" + + " { Specify the additivity of a logger's appenders. }\r\n" + + " AdditiveKey = KeyPrefix + '.additive.';\r\n" + + " { Define a named appender. }\r\n" + + " AppenderKey = KeyPrefix + '.appender.';\r\n" + + " { Nominate a factory to use to generate loggers.\r\n" + + " This factory must have been registered with RegisterLoggerFactory.\r\n" + + " If none is specified, then the default factory is used. }\r\n" + + " LoggerFactoryKey = KeyPrefix + '.loggerFactory';\r\n" + + " { Define a new logger, and set its logging level and appenders. }\r\n" + + " LoggerKey = KeyPrefix + '.logger.';\r\n" + + " { Defining this value as true makes log4d print internal debug\r\n" + + " statements to debug output. }\r\n" + + " DebugKey = KeyPrefix + '.configDebug';\r\n" + + " { Specify the error handler to be used with an appender. }\r\n" + + " ErrorHandlerKey = '.errorHandler';\r\n" + + " { Specify the filters to be used with an appender. }\r\n" + + " FilterKey = '.filter';\r\n" + + " { Specify the layout to be used with an appender. }\r\n" + + " LayoutKey = '.layout';\r\n" + + " { Associate an object renderer with the class to be rendered. }\r\n" + + " RendererKey = KeyPrefix + '.renderer.';\r\n" + + " { Set the logging level and appenders for the root. }\r\n" + + " RootLoggerKey = KeyPrefix + '.rootLogger';\r\n" + + " { Set the overall logging level. }\r\n" + + " ThresholdKey = KeyPrefix + '.threshold';\r\n" + + "\r\n" + + " { Special level value signifying inherited behaviour. }\r\n" + + " InheritedLevel = 'inherited';\r\n" + + "\r\n" + + " { Accept option for TLog*Filter. }\r\n" + + " AcceptMatchOpt = 'acceptOnMatch';\r\n" + + " { Appending option for TLogFileAppender. }\r\n" + + " AppendOpt = 'append';\r\n" + + " { Common date format option for layouts. }\r\n" + + " DateFormatOpt = 'dateFormat';\r\n" + + " { File name option for TLogFileAppender. }\r\n" + + " FileNameOpt = 'fileName';\r\n" + + " { Case-sensitivity option for TLogStringFilter. }\r\n" + + " IgnoreCaseOpt = 'ignoreCase';\r\n" + + " { Match string option for TLogLevelMatchFilter and TLogStringFilter. }\r\n" + + " MatchOpt = 'match';\r\n" + + " { Maximum string option for TLogLevelRangeFilter. }\r\n" + + " MaxOpt = 'maximum';\r\n" + + " { Minimum string option for TLogLevelRangeFilter. }\r\n" + + " MinOpt = 'minimum';\r\n" + + " { Pattern option for TLogPatternLayout. }\r\n" + + " PatternOpt = 'pattern';\r\n" + + " { Title option for TLogHTMLLayout. }\r\n" + + " TitleOpt = 'title';\r\n" + + "\r\n" + + "type\r\n" + + "{$IFDEF DELPHI4}\r\n" + + " TClassList = TList;\r\n" + + " TObjectList = TList;\r\n" + + "{$ENDIF}\r\n" + + "\r\n" + + "{$IFDEF LINUX}\r\n" + + " TRTLCriticalSection = TCriticalSection;\r\n" + + "{$ENDIF}\r\n" + + "\r\n" + + " { Log-specific exceptions. }\r\n" + + " ELogException = class(Exception);\r\n" + + "\r\n" + + " { Allow for initialisation of a dynamically created object. }\r\n" + + " ILogDynamicCreate = interface(IUnknown)\r\n" + + " ['{287DAA34-3A9F-45C6-9417-1B0D4DFAC86C}']\r\n" + + " procedure Init;\r\n" + + " end;\r\n" + + "\r\n" + + " { Get/set arbitrary options on an object. }\r\n" + + " ILogOptionHandler = interface(ILogDynamicCreate)\r\n" + + " ['{AC1C0E30-2DBF-4C55-9C2E-9A0F1A3E4F58}']\r\n" + + " function GetOption(const Name: string): string;\r\n" + + " procedure SetOption(const Name, Value: string);\r\n" + + " property Options[const Name: string]: string Read GetOption Write SetOption;\r\n" + + " procedure OnSetOptionsComplete;\r\n" + + " end;\r\n" + + "\r\n" + + " { Base class for handling options. }\r\n" + + " TLogOptionHandler = class(TInterfacedObject, ILogOptionHandler)\r\n" + + " private\r\n" + + " FOptions: TStringList;\r\n" + + " protected\r\n" + + " function GetOption(const Name: string): string; virtual;\r\n" + + " procedure SetOption(const Name, Value: string); virtual;\r\n" + + " procedure OnSetOptionsComplete; virtual;\r\n" + + " public\r\n" + + " constructor Create; virtual;\r\n" + + " destructor Destroy; override;\r\n" + + " property Options[const Name: string]: string Read GetOption Write SetOption;\r\n" + + " procedure Init; virtual;\r\n" + + " end;\r\n" + + "\r\n" + + "{ Levels ----------------------------------------------------------------------}\r\n" + + "\r\n" + + " { Levels of messages for logging.\r\n" + + " The Level property identifies increasing severity of messages.\r\n" + + " All those above or equal to a particular setting are logged. }\r\n" + + " TLogLevel = class(TObject)\r\n" + + " private\r\n" + + " FLevel: integer;\r\n" + + " FName: string;\r\n" + + " protected\r\n" + + " constructor Create(Name: string; Level: integer);\r\n" + + " public\r\n" + + " property Level: integer Read FLevel;\r\n" + + " property Name: string Read FName;\r\n" + + " function IsGreaterOrEqual(LogLevel: TLogLevel): boolean;\r\n" + + " { Retrieve a level object given its level. }\r\n" + + " class function GetLevel(LogLevel: integer): TLogLevel; overload;\r\n" + + " { Retrieve a level object given its level, or default if not valid. }\r\n" + + " class function GetLevel(LogLevel: integer; DefaultLevel: TLogLevel): TLogLevel;\r\n" + + " overload;\r\n" + + " { Retrieve a level object given its name. }\r\n" + + " class function GetLevel(Name: string): TLogLevel; overload;\r\n" + + " { Retrieve a level object given its name, or default if not valid. }\r\n" + + " class function GetLevel(Name: string; DefaultLevel: TLogLevel): TLogLevel;\r\n" + + " overload;\r\n" + + " end;\r\n" + + "\r\n" + + "const\r\n" + + " { Levels of logging as integer values. }\r\n" + + " OffValue = High(integer);\r\n" + + " FatalValue = 50000;\r\n" + + " ErrorValue = 40000;\r\n" + + " WarnValue = 30000;\r\n" + + " InfoValue = 20000;\r\n" + + " DebugValue = 10000;\r\n" + + " AllValue = Low(integer);\r\n" + + "\r\n" + + "var\r\n" + + " { Standard levels are automatically created (in decreasing severity):\r\n" + + " Off, Fatal, Error, Warn, Info, Debug, All. }\r\n" + + " Off: TLogLevel;\r\n" + + " Fatal: TLogLevel;\r\n" + + " Error: TLogLevel;\r\n" + + " Warn: TLogLevel;\r\n" + + " Info: TLogLevel;\r\n" + + " Debug: TLogLevel;\r\n" + + " All: TLogLevel;\r\n" + + "\r\n" + + "{ NDC -------------------------------------------------------------------------}\r\n" + + "\r\n" + + "type\r\n" + + " { Keep track of the nested diagnostic context (NDC). }\r\n" + + " TLogNDC = class(TObject)\r\n" + + " private\r\n" + + " class function GetNDCIndex: integer;\r\n" + + " class function GetThreadId: string;\r\n" + + " public\r\n" + + " class procedure Clear;\r\n" + + " class procedure CloneStack(const Context: TStringList);\r\n" + + " class function GetDepth: integer;\r\n" + + " class procedure Inherit(const Context: TStringList);\r\n" + + " class function Peek: string;\r\n" + + " class function Pop: string;\r\n" + + " class procedure Push(const Context: string);\r\n" + + " class procedure Remove;\r\n" + + " class procedure SetMaxDepth(const MaxDepth: integer);\r\n" + + " end;\r\n" + + "\r\n" + + "{ Events ----------------------------------------------------------------------}\r\n" + + "\r\n" + + " TLogLogger = class;\r\n" + + "\r\n" + + " { An event to be logged. }\r\n" + + " TLogEvent = class(TPersistent)\r\n" + + " private\r\n" + + " FError: Exception;\r\n" + + " FLevel: TLogLevel;\r\n" + + " FLogger: TLogLogger;\r\n" + + " FMessage: string;\r\n" + + " FTimeStamp: TDateTime;\r\n" + + " FFileName: string;\r\n" + + " FMethod: string;\r\n" + + " function GetElapsedTime: longint;\r\n" + + " function GetErrorClass: string;\r\n" + + " function GetErrorMessage: string;\r\n" + + " function GetLoggerName: string;\r\n" + + " function GetNDC: string;\r\n" + + " function GetThreadId: longint;\r\n" + + " function GetProcessId: longint;\r\n" + + " public\r\n" + + " constructor Create(const Logger: TLogLogger; const Level: TLogLevel; const FileName, Method, Message: string; const Err: Exception; const TimeStamp: TDateTime = 0); overload;\r\n" + + " constructor Create(const Logger: TLogLogger; const Level: TLogLevel; const FileName, Method: string; const Message: TObject; const Err: Exception; const TimeStamp: TDateTime = 0); overload;\r\n" + + " property ElapsedTime: longint Read GetElapsedTime;\r\n" + + " property Error: Exception Read FError;\r\n" + + " property ErrorClass: string Read GetErrorClass;\r\n" + + " property ErrorMessage: string Read GetErrorMessage;\r\n" + + " property Level: TLogLevel Read FLevel;\r\n" + + " property LoggerName: string Read GetLoggerName;\r\n" + + " property Message: string Read FMessage;\r\n" + + " property NDC: string Read GetNDC;\r\n" + + " property ThreadId: longint Read GetThreadId;\r\n" + + " property ProcessId: longint Read GetProcessId;\r\n" + + " property TimeStamp: TDateTime Read FTimeStamp;\r\n" + + " property FileName: string Read FFileName;\r\n" + + " property Method: string Read FMethod;\r\n" + + " end;\r\n" + + "\r\n" + + "{ Logger factory --------------------------------------------------------------}\r\n" + + "\r\n" + + " { Factory for creating loggers. }\r\n" + + " ILogLoggerFactory = interface(IUnknown)\r\n" + + " ['{AEE5E86C-B708-45B2-BEAD-B370D71CAA2F}']\r\n" + + " function MakeNewLoggerInstance(const Name: string): TLogLogger;\r\n" + + " end;\r\n" + + "\r\n" + + " { Default implementation of a logger factory. }\r\n" + + " TLogDefaultLoggerFactory = class(TInterfacedObject, ILogLoggerFactory)\r\n" + + " public\r\n" + + " function MakeNewLoggerInstance(const Name: string): TLogLogger;\r\n" + + " end;\r\n" + + "\r\n" + + "{ Loggers ---------------------------------------------------------------------}\r\n" + + "\r\n" + + " ILogAppender = interface;\r\n" + + " ILogRenderer = interface;\r\n" + + " TLogHierarchy = class;\r\n" + + "\r\n" + + " { This is the central class in the Log4D package. One of the distinctive\r\n" + + " features of Log4D is hierarchical loggers and their evaluation. }\r\n" + + " TLogLogger = class(TLogOptionHandler, ILogOptionHandler)\r\n" + + " private\r\n" + + " FAdditive: boolean;\r\n" + + " FAppenders: TInterfaceList;\r\n" + + " FHierarchy: TLogHierarchy;\r\n" + + " FLevel: TLogLevel;\r\n" + + " FName: string;\r\n" + + " FParent: TLogLogger;\r\n" + + " protected\r\n" + + " FCriticalLogger: TRTLCriticalSection;\r\n" + + " procedure CallAppenders(const Event: TLogEvent);\r\n" + + " procedure CloseAllAppenders;\r\n" + + " function CountAppenders: integer;\r\n" + + " procedure DoLog(const LogLevel: TLogLevel; const FileName, Method, Message: string; const Err: Exception = nil); overload; virtual;\r\n" + + " procedure DoLog(const LogLevel: TLogLevel; const FileName, Method: string; const Message: TObject; const Err: Exception = nil); overload; virtual;\r\n" + + " function GetLevel: TLogLevel; virtual;\r\n" + + " public\r\n" + + " constructor Create(const Name: string); reintroduce;\r\n" + + " destructor Destroy; override;\r\n" + + " property Additive: boolean Read FAdditive Write FAdditive;\r\n" + + " property Appenders: TInterfaceList Read FAppenders;\r\n" + + " property Hierarchy: TLogHierarchy Read FHierarchy Write FHierarchy;\r\n" + + " property Level: TLogLevel Read GetLevel Write FLevel;\r\n" + + " property Name: string Read FName;\r\n" + + " property Parent: TLogLogger Read FParent;\r\n" + + " procedure AddAppender(const Appender: ILogAppender);\r\n" + + " procedure AssertLog(const Assertion: boolean; const FileName, Method, Message: string); overload;\r\n" + + " procedure AssertLog(const Assertion: boolean; const FileName, Method, Message: string; Params: array of const); overload;\r\n" + + " procedure AssertLog(const Assertion: boolean; const FileName, Method: string; const Message: TObject); overload;\r\n" + + " procedure Debug(const FileName, Method, Message: string; const Err: Exception = nil);\r\n" + + " overload; virtual;\r\n" + + " procedure Debug(const FileName, Method, Message: string; Params: array of const; const Err: Exception = nil); overload; virtual;\r\n" + + " procedure Debug(const FileName, Method: string; const Message: TObject; const Err: Exception = nil); overload; virtual;\r\n" + + " procedure Error(const FileName, Method, Message: string; const Err: Exception = nil);\r\n" + + " overload; virtual;\r\n" + + " procedure Error(const FileName, Method, Message: string; Params: array of const; const Err: Exception = nil); overload; virtual;\r\n" + + " procedure Error(const FileName, Method: string; const Message: TObject; const Err: Exception = nil); overload; virtual;\r\n" + + " procedure Fatal(const FileName, Method, Message: string; const Err: Exception = nil);\r\n" + + " overload; virtual;\r\n" + + " procedure Fatal(const FileName, Method, Message: string; Params: array of const; const Err: Exception = nil); overload; virtual;\r\n" + + " procedure Fatal(const FileName, Method: string; const Message: TObject; const Err: Exception = nil); overload; virtual;\r\n" + + " function GetAppender(const Name: string): ILogAppender;\r\n" + + " class function GetLogger(const Clazz: TClass; const Factory: ILogLoggerFactory = nil): TLogLogger; overload;\r\n" + + " class function GetLogger(const Name: string; const Factory: ILogLoggerFactory = nil): TLogLogger; overload;\r\n" + + " class function GetRootLogger: TLogLogger;\r\n" + + " procedure Info(const FileName, Method, Message: string; const Err: Exception = nil);\r\n" + + " overload; virtual;\r\n" + + " procedure Info(const FileName, Method, Message: string; Params: array of const; const Err: Exception = nil); overload; virtual;\r\n" + + " procedure Info(const FileName, Method: string; const Message: TObject; const Err: Exception = nil); overload; virtual;\r\n" + + " function IsAppender(const Appender: ILogAppender): boolean;\r\n" + + " function IsDebugEnabled: boolean;\r\n" + + " function IsEnabledFor(const LogLevel: TLogLevel): boolean;\r\n" + + " function IsErrorEnabled: boolean;\r\n" + + " function IsFatalEnabled: boolean;\r\n" + + " function IsInfoEnabled: boolean;\r\n" + + " function IsWarnEnabled: boolean;\r\n" + + " procedure LockLogger;\r\n" + + " procedure Log(const LogLevel: TLogLevel; const FileName, Method, Message: string; const Err: Exception = nil); overload;\r\n" + + " procedure Log(const LogLevel: TLogLevel; const FileName, Method, Message: string; Params: array of const; const Err: Exception = nil); overload;\r\n" + + " procedure Log(const LogLevel: TLogLevel; const FileName, Method: string; const Message: TObject; const Err: Exception = nil); overload;\r\n" + + " procedure RemoveAllAppenders;\r\n" + + " procedure RemoveAppender(const Appender: ILogAppender); overload;\r\n" + + " procedure RemoveAppender(const Name: string); overload;\r\n" + + " procedure UnlockLogger;\r\n" + + " procedure Warn(const FileName, Method, Message: string; const Err: Exception = nil);\r\n" + + " overload; virtual;\r\n" + + " procedure Warn(const FileName, Method, Message: string; Params: array of const; const Err: Exception = nil); overload; virtual;\r\n" + + " procedure Warn(const FileName, Method: string; const Message: TObject; const Err: Exception = nil); overload; virtual;\r\n" + + " end;\r\n" + + "\r\n" + + " { The specialised root logger - cannot have a nil level. }\r\n" + + " TLogRoot = class(TLogLogger)\r\n" + + " private\r\n" + + " procedure SetLevel(const Level: TLogLevel);\r\n" + + " public\r\n" + + " constructor Create(const Level: TLogLevel);\r\n" + + " property Level: TLogLevel Read GetLevel Write SetLevel;\r\n" + + " end;\r\n" + + "\r\n" + + " { Specialised logger for internal logging. }\r\n" + + " TLogLog = class(TLogLogger)\r\n" + + " private\r\n" + + " FInternalDebugging: boolean;\r\n" + + " protected\r\n" + + " procedure DoLog(const LogLevel: TLogLevel; const FileName, Method, Message: string; const Err: Exception); override;\r\n" + + " procedure DoLog(const LogLevel: TLogLevel; const FileName, Method: string; const Message: TObject; const Err: Exception); override;\r\n" + + " public\r\n" + + " constructor Create;\r\n" + + " property InternalDebugging: boolean Read FInternalDebugging Write FInternalDebugging;\r\n" + + " end;\r\n" + + "\r\n" + + "{ Hierarchy -------------------------------------------------------------------}\r\n" + + "\r\n" + + " { Listen to events occuring within a hierarchy. }\r\n" + + " ILogHierarchyEventListener = interface\r\n" + + " ['{A216D50F-B9A5-4871-8EE3-CB55C41E138B}']\r\n" + + " procedure AddAppenderEvent(const Logger: TLogLogger; const Appender: ILogAppender);\r\n" + + " procedure RemoveAppenderEvent(const Logger: TLogLogger; const Appender: ILogAppender);\r\n" + + " end;\r\n" + + "\r\n" + + " { This class is specialised in retreiving loggers by name and\r\n" + + " also maintaining the logger hierarchy.\r\n" + + "\r\n" + + " The casual user should not have to deal with this class directly.\r\n" + + "\r\n" + + " The structure of the logger hierachy is maintained by the GetInstance\r\n" + + " method. The hierarchy is such that children link to their parent but\r\n" + + " parents do not have any pointers to their children. Moreover, loggers\r\n" + + " can be instantiated in any order, in particular descendant before ancestor.\r\n" + + "\r\n" + + " In case a descendant is created before a particular ancestor, then it creates\r\n" + + " an empty node for the ancestor and adds itself to it. Other descendants\r\n" + + " of the same ancestor add themselves to the previously created node. }\r\n" + + " TLogHierarchy = class(TObject)\r\n" + + " private\r\n" + + " FEmittedNoAppenderWarning: boolean;\r\n" + + " FListeners: TInterfaceList;\r\n" + + " FLoggers: TStringList;\r\n" + + " FRenderedClasses: TClassList;\r\n" + + " FRenderers: TInterfaceList;\r\n" + + " FRoot: TLogLogger;\r\n" + + " FThreshold: TLogLevel;\r\n" + + " procedure SetThreshold(const Level: TLogLevel); overload;\r\n" + + " procedure UpdateParent(const Logger: TLogLogger);\r\n" + + " protected\r\n" + + " FCriticalHierarchy: TRTLCriticalSection;\r\n" + + " public\r\n" + + " constructor Create(Root: TLogLogger);\r\n" + + " destructor Destroy; override;\r\n" + + " property Root: TLogLogger Read FRoot;\r\n" + + " property Threshold: TLogLevel Read FThreshold Write SetThreshold;\r\n" + + " procedure AddHierarchyEventListener(const Listener: ILogHierarchyEventListener);\r\n" + + " procedure AddRenderer(RenderedClass: TClass; Renderer: ILogRenderer);\r\n" + + " procedure Clear;\r\n" + + " procedure EmitNoAppenderWarning(const Logger: TLogLogger);\r\n" + + " function Exists(const Name: string): TLogLogger;\r\n" + + " procedure FireAppenderEvent(const Adding: boolean; const Logger: TLogLogger; const Appender: ILogAppender);\r\n" + + " procedure GetCurrentLoggers(const List: TStringList);\r\n" + + " function GetLogger(const Name: string; const Factory: ILogLoggerFactory = nil): TLogLogger;\r\n" + + " function GetRenderer(const RenderedClass: TClass): ILogRenderer;\r\n" + + " function IsDisabled(const LogLevel: integer): boolean;\r\n" + + " procedure RemoveHierarchyEventListener(const Listener: ILogHierarchyEventListener);\r\n" + + " procedure ResetConfiguration;\r\n" + + " procedure Shutdown;\r\n" + + " end;\r\n" + + "\r\n" + + "{ Layouts ---------------------------------------------------------------------}\r\n" + + "\r\n" + + " { Functional requirements for a layout. }\r\n" + + " ILogLayout = interface(ILogOptionHandler)\r\n" + + " ['{87FDD680-96D7-45A0-A135-CB88ABAD5519}']\r\n" + + " function Format(const Event: TLogEvent): string;\r\n" + + " function GetContentType: string;\r\n" + + " function GetFooter: string;\r\n" + + " function GetHeader: string;\r\n" + + " function IgnoresException: boolean;\r\n" + + " property ContentType: string Read GetContentType;\r\n" + + " property Footer: string Read GetFooter;\r\n" + + " property Header: string Read GetHeader;\r\n" + + " end;\r\n" + + "\r\n" + + " { Abstract base for layouts.\r\n" + + " Subclasses must at least override Format.\r\n" + + "\r\n" + + " Accepts the following options:\r\n" + + "\r\n" + + " # Format for date and time stamps, string, optional, defaults to ShortDateFormat\r\n" + + " # See FormatDateTime function for more details\r\n" + + " log4d.appender..layout.dateFormat=yyyy/mm/dd hh:nn:ss.zzz\r\n" + + " }\r\n" + + " TLogCustomLayout = class(TLogOptionHandler, ILogDynamicCreate,\r\n" + + " ILogOptionHandler, ILogLayout)\r\n" + + " private\r\n" + + " FDateFormat: string;\r\n" + + " protected\r\n" + + " property DateFormat: string Read FDateFormat Write FDateFormat;\r\n" + + " function GetContentType: string; virtual;\r\n" + + " function GetHeader: string; virtual;\r\n" + + " function GetFooter: string; virtual;\r\n" + + " procedure SetOption(const Name, Value: string); override;\r\n" + + " public\r\n" + + " property ContentType: string Read GetContentType;\r\n" + + " property Footer: string Read GetFooter;\r\n" + + " property Header: string Read GetHeader;\r\n" + + " function Format(const Event: TLogEvent): string; virtual; abstract;\r\n" + + " function IgnoresException: boolean; virtual;\r\n" + + " procedure Init; override;\r\n" + + " end;\r\n" + + "\r\n" + + " { Basic implementation of a layout. }\r\n" + + " TLogSimpleLayout = class(TLogCustomLayout)\r\n" + + " public\r\n" + + " function Format(const Event: TLogEvent): string; override;\r\n" + + " end;\r\n" + + "\r\n" + + " { This layout outputs events in a HTML table.\r\n" + + "\r\n" + + " Accepts the following options:\r\n" + + "\r\n" + + " # Title for HTML page, string, optional\r\n" + + " log4d.appender..layout.title=Logging Messages\r\n" + + " }\r\n" + + " TLogHTMLLayout = class(TLogCustomLayout)\r\n" + + " private\r\n" + + " FTitle: string;\r\n" + + " protected\r\n" + + " function GetContentType: string; override;\r\n" + + " function GetFooter: string; override;\r\n" + + " function GetHeader: string; override;\r\n" + + " procedure SetOption(const Name, Value: string); override;\r\n" + + " public\r\n" + + " property Title: string Read FTitle Write FTitle;\r\n" + + " function Format(const Event: TLogEvent): string; override;\r\n" + + " function IgnoresException: boolean; override;\r\n" + + " end;\r\n" + + "\r\n" + + " { Layout based on specified pattern.\r\n" + + "\r\n" + + " Accepts the following options:\r\n" + + "\r\n" + + " # Format for rendering the log event, string, optional, defaults to %m%n\r\n" + + " # See comments of Format method for more details\r\n" + + " log4d.appender..layout.pattern=%r [%t] %p %c %x - %m%n\r\n" + + " }\r\n" + + " TLogPatternLayout = class(TLogCustomLayout)\r\n" + + " private\r\n" + + " FPattern: string;\r\n" + + " FPatternParts: TStringList;\r\n" + + " procedure SetPattern(const Pattern: string);\r\n" + + " protected\r\n" + + " procedure SetOption(const Name, Value: string); override;\r\n" + + " public\r\n" + + " constructor Create(const Pattern: string = DefaultPattern); reintroduce;\r\n" + + " destructor Destroy; override;\r\n" + + " property Pattern: string Read FPattern Write SetPattern;\r\n" + + " function Format(const Event: TLogEvent): string; override;\r\n" + + " procedure Init; override;\r\n" + + " end;\r\n" + + "\r\n" + + "{ Renderers -------------------------------------------------------------------}\r\n" + + "\r\n" + + " { Renderers transform an object into a string message for display. }\r\n" + + " ILogRenderer = interface(ILogOptionHandler)\r\n" + + " ['{169B03C6-E2C7-4F62-AD19-17408AB30681}']\r\n" + + " function Render(const Message: TObject): string;\r\n" + + " end;\r\n" + + "\r\n" + + " { Abstract base class for renderers - handles basic option setting.\r\n" + + " Subclasses must at least override Render. }\r\n" + + " TLogCustomRenderer = class(TLogOptionHandler, ILogDynamicCreate,\r\n" + + " ILogOptionHandler, ILogRenderer)\r\n" + + " public\r\n" + + " function Render(const Message: TObject): string; virtual; abstract;\r\n" + + " end;\r\n" + + "\r\n" + + "{ ErrorHandler ----------------------------------------------------------------}\r\n" + + "\r\n" + + " { Appenders may delegate their error handling to ErrorHandlers.\r\n" + + "\r\n" + + " Error handling is a particularly tedious to get right because by\r\n" + + " definition errors are hard to predict and to reproduce. }\r\n" + + " ILogErrorHandler = interface(ILogOptionHandler)\r\n" + + " ['{B902C52A-5E4E-47A8-B291-BE8E7660F754}']\r\n" + + " procedure SetAppender(const Appender: ILogAppender);\r\n" + + " procedure SetBackupAppender(const BackupAppender: ILogAppender);\r\n" + + " procedure SetLogger(const Logger: TLogLogger);\r\n" + + " { The appender for which errors are handled. }\r\n" + + " property Appender: ILogAppender Write SetAppender;\r\n" + + " { The appender to use in case of failure. }\r\n" + + " property BackupAppender: ILogAppender Write SetBackupAppender;\r\n" + + " { The logger that the failing appender might be attached to. }\r\n" + + " property Logger: TLogLogger Write SetLogger;\r\n" + + " { This method prints the error message passed as a parameter. }\r\n" + + " procedure Error(const Message: string); overload;\r\n" + + " { This method should handle the error. Information about the error\r\n" + + " condition is passed a parameter. }\r\n" + + " procedure Error(const Message: string; const Err: Exception; const ErrorCode: integer; const Event: TLogEvent = nil); overload;\r\n" + + " end;\r\n" + + "\r\n" + + " { Abstract base class for error handlers - handles basic option setting.\r\n" + + " Subclasses must at least override Error. }\r\n" + + " TLogCustomErrorHandler = class(TLogOptionHandler, ILogDynamicCreate,\r\n" + + " ILogOptionHandler, ILogErrorHandler)\r\n" + + " private\r\n" + + " FAppender: ILogAppender;\r\n" + + " FBackupAppender: ILogAppender;\r\n" + + " FLogger: TLogLogger;\r\n" + + " protected\r\n" + + " procedure SetAppender(const Appender: ILogAppender); virtual;\r\n" + + " procedure SetBackupAppender(const BackupAppender: ILogAppender); virtual;\r\n" + + " procedure SetLogger(const Logger: TLogLogger); virtual;\r\n" + + " public\r\n" + + " property Appender: ILogAppender Write SetAppender;\r\n" + + " property BackupAppender: ILogAppender Write SetBackupAppender;\r\n" + + " property Logger: TLogLogger Write SetLogger;\r\n" + + " procedure Error(const Message: string); overload; virtual; abstract;\r\n" + + " procedure Error(const Message: string; const Err: Exception; const ErrorCode: integer; const Event: TLogEvent = nil); overload;\r\n" + + " virtual; abstract;\r\n" + + " end;\r\n" + + "\r\n" + + " { Fallback on an alternative appender if an error arises. }\r\n" + + " TLogFallbackErrorHandler = class(TLogCustomErrorHandler)\r\n" + + " private\r\n" + + " FLoggers: TObjectList;\r\n" + + " protected\r\n" + + " procedure SetLogger(const Logger: TLogLogger); override;\r\n" + + " public\r\n" + + " constructor Create; override;\r\n" + + " destructor Destroy; override;\r\n" + + " procedure Error(const Message: string); overload; override;\r\n" + + " procedure Error(const Message: string; const Err: Exception; const ErrorCode: integer; const Event: TLogEvent = nil); overload;\r\n" + + " override;\r\n" + + " end;\r\n" + + "\r\n" + + " { Displays only the first error sent to it to debugging output. }\r\n" + + " TLogOnlyOnceErrorHandler = class(TLogCustomErrorHandler)\r\n" + + " private\r\n" + + " FSeenError: boolean;\r\n" + + " public\r\n" + + " procedure Error(const Message: string); overload; override;\r\n" + + " procedure Error(const Message: string; const Err: Exception; const ErrorCode: integer; const Event: TLogEvent = nil); overload;\r\n" + + " override;\r\n" + + " end;\r\n" + + "\r\n" + + "{ Filters ---------------------------------------------------------------------}\r\n" + + "\r\n" + + " TLogFilterDecision = (fdDeny, fdNeutral, fdAccept);\r\n" + + "\r\n" + + " { Filters can control to a finer degree of detail which messages get logged. }\r\n" + + " ILogFilter = interface(ILogOptionHandler)\r\n" + + " ['{B28213D7-ACE2-4C44-B820-D9437D44F8DA}']\r\n" + + " function Decide(const Event: TLogEvent): TLogFilterDecision;\r\n" + + " end;\r\n" + + "\r\n" + + " { Abstract base class for filters - handles basic option setting.\r\n" + + " Subclasses must at least override Decide.\r\n" + + "\r\n" + + " Accepts the following options:\r\n" + + "\r\n" + + " # Class identification\r\n" + + " log4d.appender..filter1=TLogCustomFilter\r\n" + + " # Accept or reject the log event when deciding, Boolean, optional, default true\r\n" + + " log4d.appender..filter1.acceptOnMatch=true\r\n" + + " }\r\n" + + " TLogCustomFilter = class(TLogOptionHandler, ILogDynamicCreate,\r\n" + + " ILogOptionHandler, ILogFilter)\r\n" + + " private\r\n" + + " FAcceptOnMatch: boolean;\r\n" + + " protected\r\n" + + " property AcceptOnMatch: boolean Read FAcceptOnMatch Write FAcceptOnMatch;\r\n" + + " procedure SetOption(const Name, Value: string); override;\r\n" + + " public\r\n" + + " constructor Create(const AcceptOnMatch: boolean = True); reintroduce;\r\n" + + " function Decide(const Event: TLogEvent): TLogFilterDecision; virtual;\r\n" + + " abstract;\r\n" + + " end;\r\n" + + "\r\n" + + " { Deny all messages. }\r\n" + + " TLogDenyAllFilter = class(TLogCustomFilter)\r\n" + + " public\r\n" + + " property AcceptOnMatch;\r\n" + + " function Decide(const Event: TLogEvent): TLogFilterDecision; override;\r\n" + + " end;\r\n" + + "\r\n" + + " { Filter by the message's level.\r\n" + + "\r\n" + + " Accepts the following options (as well as the standard acceptOnMatch one):\r\n" + + "\r\n" + + " # Class identification\r\n" + + " log4d.appender..filter1=TLogLevelMatchFilter\r\n" + + " # Logging level to match on, Level, mandatory\r\n" + + " log4d.appender..filter1.match=warn\r\n" + + " }\r\n" + + " TLogLevelMatchFilter = class(TLogCustomFilter)\r\n" + + " private\r\n" + + " FMatchLevel: TLogLevel;\r\n" + + " protected\r\n" + + " procedure SetOption(const Name, Value: string); override;\r\n" + + " public\r\n" + + " constructor Create(const MatchLevel: TLogLevel; const AcceptOnMatch: boolean = True); reintroduce;\r\n" + + " property AcceptOnMatch;\r\n" + + " property MatchLevel: TLogLevel Read FMatchLevel Write FMatchLevel;\r\n" + + " function Decide(const Event: TLogEvent): TLogFilterDecision; override;\r\n" + + " end;\r\n" + + "\r\n" + + " { Filter by the message's level being within a range.\r\n" + + "\r\n" + + " Accepts the following options (as well as the standard acceptOnMatch one):\r\n" + + "\r\n" + + " # Class identification\r\n" + + " log4d.appender..filter1=TLogLevelRangeFilter\r\n" + + " # Minimum logging level to match on, Level, mandatory\r\n" + + " log4d.appender..filter1.minimum=warn\r\n" + + " # Maximum logging level to match on, Level, mandatory\r\n" + + " log4d.appender..filter1.maximum=error\r\n" + + " }\r\n" + + " TLogLevelRangeFilter = class(TLogCustomFilter)\r\n" + + " private\r\n" + + " FMaxLevel: TLogLevel;\r\n" + + " FMinLevel: TLogLevel;\r\n" + + " protected\r\n" + + " procedure SetOption(const Name, Value: string); override;\r\n" + + " public\r\n" + + " constructor Create(const MaxLevel, MinLevel: TLogLevel; const AcceptOnMatch: boolean = True); reintroduce;\r\n" + + " property AcceptOnMatch;\r\n" + + " property MaxLevel: TLogLevel Read FMaxLevel Write FMaxLevel;\r\n" + + " property MinLevel: TLogLevel Read FMinLevel Write FMinLevel;\r\n" + + " function Decide(const Event: TLogEvent): TLogFilterDecision; override;\r\n" + + " end;\r\n" + + "\r\n" + + " { Filter by text within the message.\r\n" + + "\r\n" + + " Accepts the following options (as well as the standard acceptOnMatch one):\r\n" + + "\r\n" + + " # Class identification\r\n" + + " log4d.appender..filter1=TLogStringFilter\r\n" + + " # Text to match on anywhere in message, string, mandatory\r\n" + + " log4d.appender..filter1.match=xyz\r\n" + + " # Whether match is case-sensitive, Boolean, optional, defaults to false\r\n" + + " log4d.appender..filter1.ignoreCase=true\r\n" + + " }\r\n" + + " TLogStringFilter = class(TLogCustomFilter)\r\n" + + " private\r\n" + + " FIgnoreCase: boolean;\r\n" + + " FMatch: string;\r\n" + + " protected\r\n" + + " procedure SetOption(const Name, Value: string); override;\r\n" + + " public\r\n" + + " constructor Create(const Match: string; const IgnoreCase: boolean = False; const AcceptOnMatch: boolean = True); reintroduce;\r\n" + + " property AcceptOnMatch;\r\n" + + " property IgnoreCase: boolean Read FIgnoreCase Write FIgnoreCase;\r\n" + + " property Match: string Read FMatch Write FMatch;\r\n" + + " function Decide(const Event: TLogEvent): TLogFilterDecision; override;\r\n" + + " end;\r\n" + + "\r\n" + + "{ Appenders -------------------------------------------------------------------}\r\n" + + "\r\n" + + " { Implement this interface for your own strategies\r\n" + + " for printing log statements. }\r\n" + + " ILogAppender = interface(ILogOptionHandler)\r\n" + + " ['{E1A06EA7-34CA-4DA4-9A8A-C76CF34257AC}']\r\n" + + " procedure AddFilter(const Filter: ILogFilter);\r\n" + + " procedure Append(const Event: TLogEvent);\r\n" + + " procedure Close;\r\n" + + " function GetErrorHandler: ILogErrorHandler;\r\n" + + " function GetFilters: TInterfaceList;\r\n" + + " function GetLayout: ILogLayout;\r\n" + + " function GetName: string;\r\n" + + " procedure RemoveAllFilters;\r\n" + + " procedure RemoveFilter(const Filter: ILogFilter);\r\n" + + " function RequiresLayout: boolean;\r\n" + + " procedure SetErrorHandler(const ErrorHandler: ILogErrorHandler);\r\n" + + " procedure SetLayout(const Layout: ILogLayout);\r\n" + + " procedure SetName(const Name: string);\r\n" + + " property ErrorHandler: ILogErrorHandler Read GetErrorHandler Write SetErrorHandler;\r\n" + + " property Filters: TInterfaceList Read GetFilters;\r\n" + + " property Layout: ILogLayout Read GetLayout Write SetLayout;\r\n" + + " property Name: string Read GetName Write SetName;\r\n" + + " end;\r\n" + + "\r\n" + + " { Basic implementation of an appender for printing log statements.\r\n" + + " Subclasses should at least override DoAppend(string). }\r\n" + + " TLogCustomAppender = class(TLogOptionHandler, ILogDynamicCreate,\r\n" + + " ILogOptionHandler, ILogAppender)\r\n" + + " private\r\n" + + " FClosed: boolean;\r\n" + + " FErrorHandler: ILogErrorHandler;\r\n" + + " FFilters: TInterfaceList;\r\n" + + " FLayout: ILogLayout;\r\n" + + " FName: string;\r\n" + + " function GetErrorHandler: ILogErrorHandler;\r\n" + + " function GetFilters: TInterfaceList;\r\n" + + " function GetLayout: ILogLayout;\r\n" + + " function GetName: string;\r\n" + + " procedure SetErrorHandler(const ErrorHandler: ILogErrorHandler);\r\n" + + " procedure SetLayout(const Layout: ILogLayout);\r\n" + + " procedure SetName(const Name: string);\r\n" + + " protected\r\n" + + " FCriticalAppender: TRTLCriticalSection;\r\n" + + " function CheckEntryConditions: boolean; virtual;\r\n" + + " function CheckFilters(const Event: TLogEvent): boolean; virtual;\r\n" + + " procedure DoAppend(const Event: TLogEvent); overload; virtual;\r\n" + + " procedure DoAppend(const Message: string); overload; virtual; abstract;\r\n" + + " procedure WriteFooter; virtual;\r\n" + + " procedure WriteHeader; virtual;\r\n" + + " public\r\n" + + " constructor Create(const Name: string; const Layout: ILogLayout = nil);\r\n" + + " reintroduce; virtual;\r\n" + + " destructor Destroy; override;\r\n" + + " property ErrorHandler: ILogErrorHandler Read GetErrorHandler Write SetErrorHandler;\r\n" + + " property Filters: TInterfaceList Read GetFilters;\r\n" + + " property Layout: ILogLayout Read GetLayout Write SetLayout;\r\n" + + " property Name: string Read GetName Write SetName;\r\n" + + " procedure AddFilter(const Filter: ILogFilter); virtual;\r\n" + + " procedure Append(const Event: TLogEvent); virtual;\r\n" + + " procedure Close; virtual;\r\n" + + " procedure Init; override;\r\n" + + " procedure RemoveAllFilters; virtual;\r\n" + + " procedure RemoveFilter(const Filter: ILogFilter); virtual;\r\n" + + " function RequiresLayout: boolean; virtual;\r\n" + + " end;\r\n" + + "\r\n" + + " { Discard log messages. }\r\n" + + " TLogNullAppender = class(TLogCustomAppender)\r\n" + + " protected\r\n" + + " procedure DoAppend(const Message: string); override;\r\n" + + " end;\r\n" + + "\r\n" + + " { Send log messages to debugging output. }\r\n" + + " TLogODSAppender = class(TLogCustomAppender)\r\n" + + " protected\r\n" + + " procedure DoAppend(const Message: string); override;\r\n" + + " end;\r\n" + + "\r\n" + + " { Send log messages to a stream. }\r\n" + + " TLogStreamAppender = class(TLogCustomAppender)\r\n" + + " private\r\n" + + " FStream: TStream;\r\n" + + " protected\r\n" + + " procedure DoAppend(const Message: string); override;\r\n" + + " procedure DoWrite(const StrStream: TStringStream); virtual;\r\n" + + " public\r\n" + + " constructor Create(const Name: string; const Stream: TStream; const Layout: ILogLayout = nil); reintroduce; virtual;\r\n" + + " destructor Destroy; override;\r\n" + + " end;\r\n" + + "\r\n" + + " { Send log messages to a file.\r\n" + + "\r\n" + + " Accepts the following options:\r\n" + + "\r\n" + + " # Class identification\r\n" + + " log4d.appender.=TLogFileAppender\r\n" + + " # Name of the file to write to, string, mandatory\r\n" + + " log4d.appender..fileName=C:\\Logs\\App.log\r\n" + + " # Whether to append to file, Boolean, optional, defaults to true\r\n" + + " log4d.appender..append=false\r\n" + + " }\r\n" + + " TLogFileAppender = class(TLogStreamAppender)\r\n" + + " private\r\n" + + " FAppend: boolean;\r\n" + + " FFileName: TFileName;\r\n" + + " function GetMachineName: String;\r\n" + + " function GetExecutableName: String;\r\n" + + " function ExpandOption(Data, Option, Value: String): String;\r\n" + + " function ExpandOptions(Value: String): String;\r\n" + + " protected\r\n" + + " procedure SetOption(const Name, Value: string); override;\r\n" + + " procedure CreateLogFile;\r\n" + + " procedure OnSetOptionsComplete(); override;\r\n" + + " procedure OpenLogFile();\r\n" + + " public\r\n" + + " constructor Create(const Name, FileName: string; const Layout: ILogLayout = nil; const Append: boolean = True);\r\n" + + " reintroduce; virtual;\r\n" + + " property FileName: TFileName Read FFileName;\r\n" + + " property OpenAppend: boolean Read FAppend;\r\n" + + " end;\r\n" + + "\r\n" + + " TRollingLogFileAppender = class(TLogFileAppender)\r\n" + + " private\r\n" + + " FMaxSize: int64;\r\n" + + " FCount: integer;\r\n" + + " function CanRollFiles: boolean;\r\n" + + " protected\r\n" + + " procedure SetOption(const Name, Value: string); override;\r\n" + + " procedure DoWrite(const StrStream: TStringStream); override;\r\n" + + " function ExtractName(const iFileName: string): string;\r\n" + + " function ExtractExtension(const iFileName: string): string;\r\n" + + " function FindIndex(const iText: string; const iSearchItem: char): longint;\r\n" + + " function MakeFileName(const iFileName: string; const iAppendIndex: longint): string;\r\n" + + " procedure RollLogFiles();\r\n" + + " procedure ChangeFileName(const iFrom, iTo: string);\r\n" + + " procedure RemoveFile(const iFileName: string);\r\n" + + " public\r\n" + + " constructor Create(const Name, FileName: string; const Layout: ILogLayout = nil; const Append: boolean = True); override;\r\n" + + " procedure Init; override;\r\n" + + " property MaxSize: int64 Read FMaxSize Write FMaxSize;\r\n" + + " end;\r\n" + + "\r\n" + + "{ Configurators ---------------------------------------------------------------}\r\n" + + "\r\n" + + " { Use this class to quickly configure the package. }\r\n" + + " TLogBasicConfigurator = class(TObject)\r\n" + + " private\r\n" + + " FRegistry: TStringList;\r\n" + + " FLoggerFactory: ILogLoggerFactory;\r\n" + + " protected\r\n" + + " { Used by subclasses to add a renderer\r\n" + + " to the hierarchy passed as parameter. }\r\n" + + " procedure AddRenderer(const Hierarchy: TLogHierarchy; const RenderedName, RendererName: string);\r\n" + + " function AppenderGet(const Name: string): ILogAppender;\r\n" + + " procedure AppenderPut(const Appender: ILogAppender);\r\n" + + " procedure SetGlobalProps(const Hierarchy: TLogHierarchy; const FactoryClassName, Debug, Threshold: string);\r\n" + + " public\r\n" + + " constructor Create;\r\n" + + " destructor Destroy; override;\r\n" + + " { Add appender to the root logger. If no appender is provided,\r\n" + + " add a TLogODSAppender that uses TLogPatternLayout with the\r\n" + + " TTCCPattern and prints to debugging output for the root logger. }\r\n" + + " class procedure Configure(const Appender: ILogAppender = nil);\r\n" + + " { Reset the default hierarchy to its default. It is equivalent to calling\r\n" + + " Logger.GetDefaultHierarchy.ResetConfiguration.\r\n" + + " See TLogHierarchy.ResetConfiguration for more details. }\r\n" + + " class procedure ResetConfiguration;\r\n" + + " end;\r\n" + + "\r\n" + + " { Extends BasicConfigurator to provide configuration from an external file.\r\n" + + " See DoConfigure for the expected format.\r\n" + + "\r\n" + + " It is sometimes useful to see how Log4D is reading configuration files.\r\n" + + " You can enable Log4D internal logging by defining the log4d.debug variable. }\r\n" + + " TLogPropertyConfigurator = class(TLogBasicConfigurator)\r\n" + + " protected\r\n" + + " procedure ConfigureRootLogger(const Props: TStringList; const Hierarchy: TLogHierarchy);\r\n" + + " procedure ParseAdditivityForLogger(const Props: TStringList; const Logger: TLogLogger);\r\n" + + " function ParseAppender(const Props: TStringList; const AppenderName: string): ILogAppender;\r\n" + + " procedure ParseLoggersAndRenderers(const Props: TStringList; const Hierarchy: TLogHierarchy);\r\n" + + " procedure ParseLogger(const Props: TStringList; const Logger: TLogLogger; const Value: string);\r\n" + + " public\r\n" + + " class procedure Configure(const Filename: string); overload;\r\n" + + " class procedure Configure(const Props: TStringList); overload;\r\n" + + " procedure DoConfigure(const FileName: string; const Hierarchy: TLogHierarchy);\r\n" + + " overload;\r\n" + + " procedure DoConfigure(const Props: TStringList; const Hierarchy: TLogHierarchy); overload;\r\n" + + " end;\r\n" + + "\r\n" + + "{ Register a new appender class. }\r\n" + + "procedure RegisterAppender(const Appender: TClass);\r\n" + + "{ Find an appender based on its class name and create a new instance of it. }\r\n" + + "function FindAppender(const ClassName: string): ILogAppender;\r\n" + + "\r\n" + + "{ Register a new logger factory class. }\r\n" + + "procedure RegisterLoggerFactory(const LoggerFactory: TClass);\r\n" + + "{ Find a logger factory based on its class name\r\n" + + " and create a new instance of it. }\r\n" + + "function FindLoggerFactory(const ClassName: string): ILogLoggerFactory;\r\n" + + "\r\n" + + "{ Register a new error handler class. }\r\n" + + "procedure RegisterErrorHandler(const ErrorHandler: TClass);\r\n" + + "{ Find an error handler based on its class name\r\n" + + " and create a new instance of it. }\r\n" + + "function FindErrorHandler(const ClassName: string): ILogErrorHandler;\r\n" + + "\r\n" + + "{ Register a new filter class. }\r\n" + + "procedure RegisterFilter(const Filter: TClass);\r\n" + + "{ Find a filter based on its class name and create a new instance of it. }\r\n" + + "function FindFilter(const ClassName: string): ILogFilter;\r\n" + + "\r\n" + + "{ Register a new layout class. }\r\n" + + "procedure RegisterLayout(const Layout: TClass);\r\n" + + "{ Find a layout based on its class name and create a new instance of it. }\r\n" + + "function FindLayout(const ClassName: string): ILogLayout;\r\n" + + "\r\n" + + "{ Register a new class that can be rendered. }\r\n" + + "procedure RegisterRendered(const Rendered: TClass);\r\n" + + "{ Find a rendered class based on its class name and return its class. }\r\n" + + "function FindRendered(const ClassName: string): TClass;\r\n" + + "\r\n" + + "{ Register a new object renderer class. }\r\n" + + "procedure RegisterRenderer(const Renderer: TClass);\r\n" + + "{ Find an object renderer based on its class name\r\n" + + " and create a new instance of it. }\r\n" + + "function FindRenderer(const ClassName: string): ILogRenderer;\r\n" + + "\r\n" + + "{ Convert string value to a Boolean, with default. }\r\n" + + "function StrToBool(Value: string; const Default: boolean): boolean;\r\n" + + "\r\n" + + "{$IFDEF LINUX}\r\n" + + "procedure EnterCriticalSection(var CS: TCriticalSection);\r\n" + + "procedure LeaveCriticalSection(var CS: TCriticalSection);\r\n" + + "procedure InitializeCriticalSection(var CS: TCriticalSection);\r\n" + + "procedure DeleteCriticalSection(var CS: TCriticalSection);\r\n" + + "function GetCurrentThreadID: Integer;\r\n" + + "procedure OutputDebugString(const S: PChar);\r\n" + + "{$ENDIF}\r\n" + + "\r\n" + + "var\r\n" + + " { Default implementation of ILogLoggerFactory }\r\n" + + " DefaultLoggerFactory: TLogDefaultLoggerFactory;\r\n" + + " { The logging hierarchy }\r\n" + + " DefaultHierarchy: TLogHierarchy;\r\n" + + " { Internal package logging. }\r\n" + + " LogLog: TLogLog;\r\n" + + "\r\n" + + "implementation\r\n" + + "\r\n" + + "const\r\n" + + " CRLF = #13#10;\r\n" + + " TAB = #9;\r\n" + + " MilliSecsPerDay = 24 * 60 * 60 * 1000;\r\n" + + " DefaultRollingFileSize = 1024 * 1024;\r\n" + + "\r\n" + + "\r\n"; + + #endregion + + TestGetUnits(cLog4D, + new string[] {"Classes", "SyncObjs", "Windows", "Winsock", "Contnrs", "SysUtils"}, + new string[] {}); + } + + [Test] + public void GetUnits_FDFormat() + { + #region (Test value) + + const string cFDFormat = + "{$O+,F+}\r\n" + + "\r\n" + + "interface\r\n" + + "uses\r\n" + + " Windows, SYSUTILS , CLASSES , DIALOGS\r\n" + + " , DBunit\r\n" + + " , GDeclare\r\n" + + " , DateTime\r\n" + + " , MYSTD\r\n" + + " , STDATMOS\r\n" + + " , ERRORSio\r\n" + + " , CODEio\r\n" + + " , ACATCio\r\n" + + " , ACLOGio\r\n" + + " , ACWGTSio\r\n" + + " , APTio\r\n" + + " , Bufferio\r\n" + + " , CTFFOTio\r\n" + + " , OldCTFFOTio\r\n" + + " , FDAPTio\r\n" + + " , FDBOOKio\r\n" + + " , FDRELio\r\n" + + " , FDRMKSio\r\n" + + " , FFSIio\r\n" + + " , FPCFPio\r\n" + + " , FPCFPI\r\n" + + " , FPFORMio\r\n" + + " , FPGlobal // added to get DispatchPolicyType\r\n" + + " , FPLITEio\r\n" + + " , FPMASKio\r\n" + + " , FPMONio\r\n" + + " , FSDLYio\r\n" + + " , FFJUMPio\r\n" + + " , METW2io\r\n" + + " , OPERio\r\n" + + " , DPODio\r\n" + + " ;\r\n"; + + #endregion + + TestGetUnits(cFDFormat, + new string[] {"Windows", "SYSUTILS", "CLASSES", "DIALOGS", "DBunit", "GDeclare", "DateTime", + "MYSTD", "STDATMOS", "ERRORSio", "CODEio", "ACATCio", "ACLOGio", "ACWGTSio", "APTio", + "Bufferio", "CTFFOTio", "OldCTFFOTio", "FDAPTio", "FDBOOKio", "FDRELio", "FDRMKSio", + "FFSIio", "FPCFPio", "FPCFPI", "FPFORMio", "FPGlobal", "FPLITEio", "FPMASKio", "FPMONio", + "FSDLYio", "FFJUMPio", "METW2io", "OPERio", "DPODio"}, + new string[] {}); + } + + [Test] + public void GetUnits_Schedzzz() + { + #region (Test value) + + const string cSchedzzz = + "unit SCHEDZZZ;\r\n" + + "\r\n" + + "interface\r\n" + + "uses SYSUTILS\r\n" + + " , DBunit {Btrieve Interface }\r\n" + + " , DateTime {Various Date/time Coversions }\r\n" + + " , GDeclare {Global Declares and Procedures }\r\n" + + " , GDCL_ALL\r\n" + + " , MyStd {Field Manipulation Routines }\r\n" + + " , MyStdIO {Screen Manipulation Routines }\r\n" + + " , FLTEdits\r\n" + + " , StdEdits {Standards Field Type Edits }\r\n" + + " {Mouse Routines }\r\n" + + " , ERRORSio {Retrieve Message for Error Code }\r\n" + + " , ACWGTSio\r\n" + + " , FDAPTio\r\n" + + " , FSDLYio\r\n" + + " , FSDailyu\r\n" + + " , CODEIO\r\n" + + " , POSTLOG\r\n" + + " , oCOMMCTL\r\n" + + " , QMSGDESK\r\n" + + " , AOPCODio\r\n" + + " , FFSIio\r\n" + + " , SCHFiles\r\n" + + " , Classes\r\n" + + " ;\r\n" + + "\r\n" + + "{ HISTORY\r\n" + + "\r\n"; + + #endregion + + TestGetUnits(cSchedzzz, + new string[] {"SYSUTILS", "DBunit", "DateTime", "GDeclare", "GDCL_ALL", "MyStd", "MyStdIO", "FLTEdits", "StdEdits", "ERRORSio", "ACWGTSio", "FDAPTio", "FSDLYio", "FSDailyu", "CODEIO", "POSTLOG", "oCOMMCTL", "QMSGDESK", "AOPCODio", "FFSIio", "SCHFiles", "Classes"}, + new string[] {}); + } + } +} diff --git a/DelphiProjectHandler.Tests/Utilities/MethodRunnerClass.cs b/DelphiProjectHandler.Tests/Utilities/MethodRunnerClass.cs new file mode 100644 index 0000000..3117e66 --- /dev/null +++ b/DelphiProjectHandler.Tests/Utilities/MethodRunnerClass.cs @@ -0,0 +1,58 @@ +using System; +using System.Reflection; + +namespace DelphiProjectHandler.Tests.Utilities +{ + /// + /// Runs static and non-static private methods. + /// + public class MethodRunner + { + /// + /// Runs a private method of an object instance. + /// + /// Existing object instance. + /// Method to run. + /// Parameters for the method. + /// Result of running the method. + public static object RunInstance(object iObject, string iMethodName, object[] iParams) + { + BindingFlags vFlags = BindingFlags.Instance; + return RunMethod(iObject.GetType(), iObject, vFlags, iMethodName, iParams); + } + + /// + /// Runs a private static method of a class. + /// + /// Class type. + /// Method to run. + /// Parameters for the method. + /// Result of running the method. + public static object RunStatic(Type iType, string iMethodName, object[] iParams) + { + BindingFlags vFlags = BindingFlags.Static; + return RunMethod(iType, null, vFlags, iMethodName, iParams); + } + + /// + /// Runs a private static or non-static method of a class or existing object instance. + /// + /// Class type. + /// Existing object instance. + /// Flags used when searching for the method. + /// By default BindingFlags.NonPublic and BindingFlags.Public will be + /// added. + /// Method to run. + /// Parameters for the method. + /// Result of running the method. + protected static object RunMethod(Type iType, object iObject, BindingFlags iBindingFlags, string iMethodName, params object[] iParams) + { + iBindingFlags = iBindingFlags | BindingFlags.NonPublic | BindingFlags.Public; + MethodInfo vMethodInfo = iType.GetMethod(iMethodName, iBindingFlags); + if (vMethodInfo == null) + throw new ArgumentException("Private method " + iMethodName + " was not found in type " + iType.ToString()); + + return vMethodInfo.Invoke(iObject, iParams); + } + } +} diff --git a/DelphiProjectHandler.Tests/Utilities/MethodRunnerClassTests.cs b/DelphiProjectHandler.Tests/Utilities/MethodRunnerClassTests.cs new file mode 100644 index 0000000..3950982 --- /dev/null +++ b/DelphiProjectHandler.Tests/Utilities/MethodRunnerClassTests.cs @@ -0,0 +1,93 @@ +using System; +using NUnit.Framework; + +namespace DelphiProjectHandler.Tests.Utilities +{ + [TestFixture] + public class MethodRunnerClassTests + { + protected class MethodRunnerTester + { + protected static int Calculate(int iLeft, int iRight, int iMultiplier) + { + return (iLeft + iRight) * iMultiplier; + } + + public MethodRunnerTester(int iOffset) + { + Offset = iOffset; + } + + public int Offset; + + public void VoidFunction(int iLeft, int iRight, ref int ivTotal) + { + ivTotal = Calculate(iLeft, iRight, 2) + Offset; + } + + public int Function(int iLeft, int iRight) + { + return Calculate(iLeft, iRight, 3) + Offset; + } + + public static void StaticVoidFunction(int iLeft, int iRight, ref int ivTotal) + { + ivTotal = Calculate(iLeft, iRight, 4); + } + + public static int StaticFunction(int iLeft, int iRight) + { + return Calculate(iLeft, iRight, 5); + } + } + + [Test] + public void RunInstanceFunction() + { + MethodRunnerTester vTester = new MethodRunnerTester(1); + int vActual = (int)MethodRunner.RunInstance(vTester, "Function", new object[] { 2, 3 }); + Assert.AreEqual(16, vActual, "Wrong result for instance function"); + } + + [Test] + public void RunInstanceVoidFunction() + { + MethodRunnerTester vTester = new MethodRunnerTester(2); + int vActual = 0; + object[] vParams = new object[] { 2, 3, vActual }; + MethodRunner.RunInstance(vTester, "VoidFunction", vParams); + Assert.AreEqual(12, vParams[2], "Wrong result for void instance function"); + } + + [Test] + public void RunStaticFunction() + { + int vActual = (int)MethodRunner.RunStatic(typeof(MethodRunnerTester), "StaticFunction", new object[] { 2, 3 }); + Assert.AreEqual(25, vActual, "Wrong result for instance function"); + } + + [Test] + public void RunStaticVoidFunction() + { + int vActual = 0; + object[] vParams = new object[] { 2, 3, vActual }; + MethodRunner.RunStatic(typeof(MethodRunnerTester), "StaticVoidFunction", vParams); + Assert.AreEqual(20, vParams[2], "Wrong result for instance function"); + } + + [Test] + [ExpectedException(typeof(ArgumentException))] + public void RunNonExistingMethod() + { + MethodRunnerTester vTester = new MethodRunnerTester(1); + MethodRunner.RunInstance(vTester, "NonExistingMethod", null); + } + + [Test] + [ExpectedException(typeof(ArgumentException))] + public void RunNonExistingStaticMethod() + { + MethodRunner.RunStatic(typeof(MethodRunnerTester), "NonExistingMethod", null); + } + } +} diff --git a/DelphiProjectHandler.Tests/Utils/ListUtilsTests.cs b/DelphiProjectHandler.Tests/Utils/ListUtilsTests.cs new file mode 100644 index 0000000..18fea07 --- /dev/null +++ b/DelphiProjectHandler.Tests/Utils/ListUtilsTests.cs @@ -0,0 +1,67 @@ +/* + * Created by SharpDevelop. + * User: SG0894652 + * Date: 8/10/2009 + * Time: 9:01 PM + * + * To change this template use Tools | Options | Coding | Edit Standard Headers. + */ +using System; +using System.Collections.Generic; +using NUnit.Framework; + +using DelphiProjectHandler.Dialogs; + +namespace DelphiProjectHandler.Tests.Utils +{ + [TestFixture] + public class ListUtilsTests + { + #region (Test methods) + + protected void CompareLists(IList iActual, IList iExpected, string iErrorMsg) + { + Assert.AreEqual(iExpected.Count, iActual.Count, "Different no. of items returned."); + for (int vItemIdx = 0; vItemIdx < iActual.Count; vItemIdx++) + Assert.AreEqual(iExpected[vItemIdx], iActual[vItemIdx], "Different items found. Item: " + vItemIdx.ToString() + ". " + iErrorMsg); + } + + protected void TestRemoveDuplicates(T[] iValues, T[] iExpected, string iErrorMsg) + { + IList vActual = ListUtils.RemoveDuplicates(iValues); + CompareLists(vActual, iExpected, iErrorMsg); + } + + protected void TestNormalize(T[] iValues, T[] iExpected, string iErrorMsg) + { + IList vActual = ListUtils.Normalize(iValues); + CompareLists(vActual, iExpected, iErrorMsg); + } + + #endregion + + [Test] + public void RemoveDuplicates() + { + TestRemoveDuplicates( + new int[] {123, 234, 345, 456, 123, 123, 234, 234, 345, 345, 456, 456}, + new int[] {123, 234, 345, 456}, "Test 1" + ); + TestRemoveDuplicates( + new string[] {"123", "234", "345", "abc", "def", "ghi", "123", "234", "345", "abc", "def", "ghi", "123", "234", "345", "abc", "def", "ghi", null, null}, + new string[] {"123", "234", "345", "abc", "def", "ghi", null}, "Test 2"); + } + + [Test] + public void Normalize() + { + TestNormalize( + new int[] {123, 234, 345, 456, 123, 123, 234, 234, 345, 345, 456, 456}, + new int[] {123, 234, 345, 456}, "Test 1" + ); + TestNormalize( + new string[] {"123", "234", "345", "abc", "def", "ghi", "123", "234", "345", "abc", "def", "ghi", "123", "234", "345", "abc", "def", "ghi", null, null}, + new string[] {"123", "234", "345", "abc", "def", "ghi", null}, "Test 2"); + } + } +} diff --git a/DelphiProjectHandler.Tests/Utils/PathUtilsClassTests.cs b/DelphiProjectHandler.Tests/Utils/PathUtilsClassTests.cs new file mode 100644 index 0000000..595eb09 --- /dev/null +++ b/DelphiProjectHandler.Tests/Utils/PathUtilsClassTests.cs @@ -0,0 +1,352 @@ +using System; +using System.Collections.Generic; +using System.IO; +using NUnit.Framework; + +using DelphiProjectHandler.Dialogs; + +namespace DelphiProjectHandler.Tests.Utils +{ + [TestFixture] + public class PathUtilsClassTests + { + #region (Helper methods) + + protected void CompareLists(IList iActual, IList iExpected, string iErrorMsg) + { + Assert.AreEqual(iExpected.Count, iActual.Count, "Different no. of items returned."); + for (int vItemIdx = 0; vItemIdx < iActual.Count; vItemIdx++) + Assert.AreEqual(iExpected[vItemIdx], iActual[vItemIdx], "Different items found. Item: " + vItemIdx.ToString() + ". " + iErrorMsg); + } + + protected void DoFail(string iMessage, string iCorrectPath, string iPathToFix) + { + Assert.Fail(iMessage + "; " + GetPathsMessage(iCorrectPath, iPathToFix)); + } + + protected string GetPathsMessage(string iBasePath, string iPath) + { + return string.Format("Base path: {0}; Path: {1}", iBasePath, iPath); + } + + #endregion + #region (Test methods) + + protected void TestConcatFolders(int iStartIndex, string[] iFolders, string iExpected) + { + string vActual = PathUtils.ConcatFolders(iStartIndex, iFolders); + Assert.AreEqual(iExpected, vActual); + } + + protected void TestBuildGoUpPath(int iCount, string iExpected) + { + string vActual = PathUtils.BuildGoUpPath(iCount); + Assert.AreEqual(iExpected, vActual, "Number of levels: " + iCount.ToString()); + } + + protected void TestSplitPaths(string iPath, string[] iExpected) + { + string[] vActual = PathUtils.SplitPath(iPath); + Assert.AreEqual(iExpected.Length, vActual.Length, "Different number of folders returned. Path: " + iPath); + for (int vFolderIdx = 0; vFolderIdx < vActual.Length; vFolderIdx++) + Assert.AreEqual(iExpected[vFolderIdx], vActual[vFolderIdx], string.Format("Wrong folder. Path: {0}, Index: {1}", iPath, vFolderIdx.ToString())); + } + + protected void TestFixRootPath(string iCorrectPath, string iPathToFix, string iExpected) + { + try + { + string vActual = PathUtils.FixRootPath(iCorrectPath, iPathToFix); + Assert.AreEqual(iExpected, vActual, GetPathsMessage(iCorrectPath, iPathToFix)); + } + catch (Exception e) + { + DoFail(e.Message, iCorrectPath, iPathToFix); + } + } + + protected void TestFixRootPath(string iBasePath) + { + try + { + string vRootPath = ""; + if (iBasePath != "") + vRootPath = Path.GetPathRoot(iBasePath).TrimEnd(Path.DirectorySeparatorChar); + TestFixRootPath(iBasePath, @"\temp2", vRootPath + @"\temp2"); + TestFixRootPath(iBasePath, @"d:\temp2", @"d:\temp2"); + TestFixRootPath(iBasePath, @"temp2", @"temp2"); + TestFixRootPath(iBasePath, @"", @""); + } + catch (Exception e) + { + DoFail(e.Message, iBasePath, ""); + } + } + + protected void TestCombine(string iBasePath, string iAddedPath, string iExpected, bool iShouldFail) + { + string vActual = ""; + try + { + vActual = PathUtils.Combine(iBasePath, iAddedPath); + if (iShouldFail) + DoFail("Exception should be raised, while it wasn't", iBasePath, iAddedPath); + } + catch (ArgumentException e) + { + if (!iShouldFail) + DoFail("Exception was raised while it shouldn't. " + e.Message, iBasePath, iAddedPath); + else + return; + } + Assert.AreEqual(iExpected, vActual, GetPathsMessage(iBasePath, iAddedPath)); + } + + protected void TestCombine(string iBasePath) + { + try + { + string vBasePath = PathUtils.AddEndingDirectorySeparator(iBasePath); + TestCombine(iBasePath, @"c:\", @"c:\", iBasePath != ""); + TestCombine(iBasePath, @"c:\temp", @"c:\temp", iBasePath != ""); + TestCombine(iBasePath, @"c:", @"c:", iBasePath != ""); + TestCombine(iBasePath, @"\temp", vBasePath + @"temp", false); + TestCombine(iBasePath, @"temp", vBasePath + @"temp", false); + TestCombine(iBasePath, @"\", vBasePath, false); + TestCombine(iBasePath, @"", vBasePath, false); + } + catch (Exception e) + { + DoFail(e.Message, iBasePath, ""); + } + } + + protected void TestRemoveEndingDirectorySeparator(string iPath, string iExpected) + { + string vActual = PathUtils.RemoveEndingDirectorySeparator(iPath); + Assert.AreEqual(iExpected, vActual, "Test value: " + iPath); + } + + protected void TestAddEndingDirectorySeparator(string iPath, string iExpected) + { + string vActual = PathUtils.AddEndingDirectorySeparator(iPath); + Assert.AreEqual(iExpected, vActual, "Test value: " + iPath); + } + + protected void TestAddEndingDirectorySeparator_List(IList iPaths, IList iExpected) + { + IList vActual = PathUtils.AddEndingDirectorySeparator(iPaths); + CompareLists(vActual, iExpected, ""); + } + + protected void TestHaveSameRoots(string iLeftPath, string iRightPath, bool iExpected) + { + bool vActual = PathUtils.HaveSameRoots(iLeftPath, iRightPath); + Assert.AreEqual(iExpected, vActual, "Left path: " + iLeftPath + "; Right path: " + iRightPath); + } + + protected void TestGetFirstDifferentFolderIdx(string[] iLeftFolders, string[] iRightFolders, int iExpected) + { + int vActual = PathUtils.GetFirstDifferentFolderIdx(iLeftFolders, iRightFolders); + Assert.AreEqual(iExpected, vActual); + } + + protected void TestIsValidPath(string iPath, bool iExpected, string iErrorMsg) + { + bool vActual = PathUtils.IsValidPath(iPath); + Assert.AreEqual(iExpected, vActual, "Path was recognized incorrectly. " + iErrorMsg); + } + + protected void TestRemoveInvalidPaths(IList iPaths, IList iExpected) + { + IList vActual = PathUtils.RemoveInvalidPaths(iPaths); + Assert.AreEqual(iExpected.Count, vActual.Count, "Wrong no. of items was returned"); + for (int vItemIdx = 0; vItemIdx < vActual.Count; vItemIdx++) + Assert.AreEqual(iExpected[vItemIdx], vActual[vItemIdx], "Paths are different. Index: " + vItemIdx.ToString()); + } + + protected void TestNormalize(IList iPaths, IList iExpected) + { + IList vActual = PathUtils.Normalize(iPaths); + CompareLists(vActual, iExpected, ""); + } + + #endregion + + [Test] + public void ConcatFolders_StartOn1st() + { + TestConcatFolders(0, new string[] { "folder1" }, @"folder1\"); + TestConcatFolders(0, new string[] { "folder1", "folder2" }, @"folder1\folder2\"); + TestConcatFolders(0, new string[] { "folder1", "folder2", @"folder3\" }, @"folder1\folder2\folder3\"); + } + + [Test] + public void ConcatFolders_StartOn2nd() + { + TestConcatFolders(1, new string[] { "folder1" }, @""); + TestConcatFolders(1, new string[] { "folder1", "folder2" }, @"folder2\"); + TestConcatFolders(1, new string[] { "folder1", "folder2", @"folder3\" }, @"folder2\folder3\"); + } + + [Test] + public void ConcatFolders_StartOn3rd() + { + TestConcatFolders(2, new string[] { "folder1" }, @""); + TestConcatFolders(2, new string[] { "folder1", "folder2" }, @""); + TestConcatFolders(2, new string[] { "folder1", "folder2", @"folder3\" }, @"folder3\"); + } + + [Test] + public void ConcatFolders_InvalidIndex() + { + TestConcatFolders(-1, new string[] { "folder1", "folder2" }, @""); + } + + [Test] + public void BuildGoUpPath() + { + TestBuildGoUpPath(-1, @""); + TestBuildGoUpPath(0, @""); + TestBuildGoUpPath(1, @"..\"); + TestBuildGoUpPath(2, @"..\..\"); + TestBuildGoUpPath(3, @"..\..\..\"); + } + + [Test] + public void SplitPaths() + { + TestSplitPaths(@"temp1", new string[] { "temp1" }); + TestSplitPaths(@"temp1\temp2", new string[] { "temp1", "temp2" }); + TestSplitPaths(@"c:\temp1\temp2", new string[] { "c:", "temp1", "temp2" }); + TestSplitPaths(@"c:\temp1\temp2\", new string[] { "c:", "temp1", "temp2", "" }); + TestSplitPaths(@"\temp1\temp2\", new string[] { "", "temp1", "temp2", "" }); + TestSplitPaths(@"\temp1\temp2", new string[] { "", "temp1", "temp2" }); + TestSplitPaths(@"", new string[] { }); + } + + [Test] + public void FixRootPath() + { + TestFixRootPath(@"c:\"); + TestFixRootPath(@"temp1"); + TestFixRootPath(@"\temp1"); + TestFixRootPath(@""); + } + + [Test] + public void Combine() + { + TestCombine(@"c:\"); + TestCombine(@"c:\temp1"); + TestCombine(@"c:"); + TestCombine(@"\temp1"); + TestCombine(@"temp1"); + TestCombine(@"\"); + TestCombine(@""); + } + + [Test] + public void RemoveEndingDirectorySeparator() + { + TestRemoveEndingDirectorySeparator(@"c:\", @"c:\"); + TestRemoveEndingDirectorySeparator(@"c:\temp", @"c:\temp"); + TestRemoveEndingDirectorySeparator(@"c:\temp\", @"c:\temp"); + TestRemoveEndingDirectorySeparator(@"\", @"\"); + TestRemoveEndingDirectorySeparator(@"", @""); + TestRemoveEndingDirectorySeparator(@"\temp\", @"\temp"); + } + + [Test] + public void AddEndingDirectorySeparator() + { + TestAddEndingDirectorySeparator(@"c:\temp", @"c:\temp\"); + TestAddEndingDirectorySeparator(@"c:\", @"c:\"); + TestAddEndingDirectorySeparator(@"c:\temp\", @"c:\temp\"); + TestAddEndingDirectorySeparator(@"\", @"\"); + TestAddEndingDirectorySeparator(@"", @""); + TestAddEndingDirectorySeparator(@"c:", @"c:\"); + } + + [Test] + public void AddEndingDirectorySeparator_List() + { + TestAddEndingDirectorySeparator_List( + new string[] {@"c:\temp", @"c:\", @"c:\temp\", @"\", "", "c:"}, + new string[] {@"c:\temp\", @"c:\", @"c:\temp\", @"\", "", @"c:\"}); + } + + [Test] + public void HaveSameRoots() + { + TestHaveSameRoots(@"c:\", @"c:\temp", true); + TestHaveSameRoots(@"c:\", @"c:\", true); + TestHaveSameRoots(@"c:\Temp\", @"c:\temp", true); + TestHaveSameRoots(@"\temp", @"\temp2", true); + TestHaveSameRoots(@"\", @"\", true); + TestHaveSameRoots(@"c:\", @"d:\", false); + TestHaveSameRoots(@"c:\temp", @"d:\temp", false); + TestHaveSameRoots(@"\temp", @"c:\temp", false); + } + + [Test] + public void GetFirstDifferentFolderIdx() + { + TestGetFirstDifferentFolderIdx( + new string[] {"folder1", "folder2", "folder3"}, + new string[] {"folder1", "folder2", "folder5"}, + 2); + TestGetFirstDifferentFolderIdx( + new string[] { "folder1" }, + new string[] { "folder2" }, + 0); + TestGetFirstDifferentFolderIdx( + new string[] { "folder1", "folder2" }, + new string[] { "folder1", "folder2", "folder3", "folder4" }, + 2); + TestGetFirstDifferentFolderIdx( + new string[] { "folder1", "folder2", "folder3", "folder4" }, + new string[] { "folder1", "folder2" }, + 2); + TestGetFirstDifferentFolderIdx( + new string[] { "folder1", "folder2" }, + new string[] { "folder1", "folder2" }, + 2); + TestGetFirstDifferentFolderIdx( + new string[] { "folder1" }, + new string[] { "folder1" }, + 1); + TestGetFirstDifferentFolderIdx( + new string[] { }, + new string[] { }, + 0); + } + + [Test] + public void IsValidPath() + { + TestIsValidPath(@"C:\", true, "Test 1"); + TestIsValidPath(@"C:\Windows", true, "Test 2"); + TestIsValidPath(@"C:\Windows\", true, "Test 3"); + TestIsValidPath(@"C:\1234", false, "Test 4"); + TestIsValidPath(@"C:\Windows\abc123", false, "Test 5"); + } + + [Test] + public void RemoveInvalidPaths() + { + TestRemoveInvalidPaths( + new string[] {@"C:\", @"c:\12345", @"C:\windows", @"c:\windows\abc123", @"C:\windows\", @"c:\1234\abc"}, + new string[] {@"C:\", @"C:\windows", @"C:\windows\"}); + } + + [Test] + public void Normalize() + { + TestNormalize( + new string[] {@"C:\WINDOWS", null, @"C:\", @"", @"C:\123abc", @"C:\windows", @"c:\windows\", @"", @"c:\windows\123abc\", null}, + new string[] {@"c:\", @"c:\windows\"} + ); + } + } +} diff --git a/DelphiProjectHandler.Tests/Utils/RelativePathClassTests.cs b/DelphiProjectHandler.Tests/Utils/RelativePathClassTests.cs new file mode 100644 index 0000000..b865f6a --- /dev/null +++ b/DelphiProjectHandler.Tests/Utils/RelativePathClassTests.cs @@ -0,0 +1,192 @@ +using System; +using System.IO; +using NUnit.Framework; + +using DelphiProjectHandler.Dialogs; + +namespace DelphiProjectHandler.Tests.Utils +{ + [TestFixture] + public class RelativePathClassTests + { + #region (Test methods) + + protected string GetTestFailMessage(string iBasePath, string iPath) + { + return string.Format("Base path: {0}, Destination path: {1}", iBasePath, iPath); + } + + protected void DoGetRelativePath(string iBasePath, string iPath, string iExpected) + { + try + { + string vActual = RelativePath.GetRelativePath(iBasePath, iPath); + Assert.AreEqual(iExpected, vActual, GetTestFailMessage(iBasePath, iPath)); + } + catch (Exception e) + { + Assert.Fail(e.Message + "; " + GetTestFailMessage(iBasePath, iPath)); + } + } + + protected void DoGetRelativePath(string iBasePath, string iPath) + { + DoGetRelativePath(iBasePath, iPath, iPath); + } + + protected void DoGetRelativeFileName(bool iRelativeToPath, string iBaseFileName, string iFileName, string iExpected) + { + try + { + if (iRelativeToPath) + iBaseFileName = PathUtils.AddEndingDirectorySeparator(Path.GetDirectoryName(iBaseFileName)); + + string vActual = RelativePath.GetRelativeFileName(iBaseFileName, iFileName); + Assert.AreEqual(iExpected, vActual, GetTestFailMessage(iBaseFileName, iFileName)); + } + catch (Exception e) + { + Assert.Fail(e.Message + "; " + GetTestFailMessage(iBaseFileName, iFileName)); + } + } + + protected void DoGetRelativeFileName(bool iToBasePath, string iBaseFileName, string iFileName) + { + DoGetRelativeFileName(iToBasePath, iBaseFileName, iFileName, iFileName); + } + + protected void DoGetRelativeFileNameByFolder(string iBaseFolder, string iFileName, string iExpected) + { + string vActual = RelativePath.GetRelativeFilenameByFolder(iBaseFolder, iFileName); + Assert.AreEqual(iExpected, vActual, GetTestFailMessage(iBaseFolder, iFileName)); + } + + protected void DoGetRelativeFileNameByFolder(string iBaseFolder, string iFileName) + { + DoGetRelativeFileNameByFolder(iBaseFolder, iFileName, iFileName); + } + + #endregion + + [Test] + public void GetRelativePath_DifferentRoots() + { + DoGetRelativePath(@"c:\windows\temp", @"d:\windows\temp\"); + } + + [Test] + public void GetRelativePath_Rooted_NotRooted() + { + DoGetRelativePath(@"c:\windows\temp", @"windows\temp\"); + } + + [Test] + public void GetRelativePath_Rooted() + { + DoGetRelativePath(@"c:\Windows\temp", @"c:\windows\temp\folder1\folder2", @"folder1\folder2\"); + DoGetRelativePath(@"c:\windows\temp\folder1\folder2", @"c:\windows\temp\", @"..\..\"); + DoGetRelativePath(@"c:\windows\temp\folder1\folder2", @"c:\windows\temp\folder3\folder4", @"..\..\folder3\folder4\"); + DoGetRelativePath(@"c:\windows\temp\", "", @"c:\windows\temp\"); + DoGetRelativePath(@"c:\windows\temp", @"c:\windows\temp", ""); + } + + [Test] + public void GetRelativePath_Rooted_RootFolder() + { + DoGetRelativePath(@"c:\windows\temp", @"\windows\temp\folder1\folder2", @"folder1\folder2\"); + DoGetRelativePath(@"c:\windows\temp\folder1\folder2", @"\windows\temp\", @"..\..\"); + DoGetRelativePath(@"c:\windows\temp\folder1\folder2", @"\windows\temp\folder3\folder4", @"..\..\folder3\folder4\"); + DoGetRelativePath(@"c:\windows\temp\", @"\", @"..\..\"); + } + + [Test] + public void GetRelativePath_NotRooted() + { + DoGetRelativePath(@"Windows\temp", @"windows\temp\folder1\folder2", @"folder1\folder2\"); + DoGetRelativePath(@"windows\temp\folder1\folder2", @"windows\temp\", @"..\..\"); + DoGetRelativePath(@"windows\temp\folder1\folder2", @"windows\temp\folder3\folder4", @"..\..\folder3\folder4\"); + DoGetRelativePath(@"windows\temp\", "", @"windows\temp\"); + DoGetRelativePath(@"windows\temp", @"windows\temp", ""); + + DoGetRelativePath(@"\windows\temp", @"c:\windows\temp\folder1\folder2", @"folder1\folder2\"); + DoGetRelativePath(@"\windows\temp\folder1\folder2", @"c:\windows\temp\", @"..\..\"); + DoGetRelativePath(@"\windows\temp\folder1\folder2", @"c:\windows\temp\folder3\folder4", @"..\..\folder3\folder4\"); + DoGetRelativePath(@"\windows\temp\", "", @"\windows\temp\"); + DoGetRelativePath(@"\windows\temp", @"c:\windows\temp", ""); + } + + [Test] + public void GetRelativePath_NotRooted_Rooted() + { + DoGetRelativePath(@"windows\temp", @"c:\windows\temp\folder1\folder2\"); + DoGetRelativePath(@"windows\temp\folder1\folder2", @"c:\windows\temp\"); + DoGetRelativePath(@"windows\temp\folder1\folder2", @"c:\windows\temp\folder3\folder4\"); + DoGetRelativePath(@"windows\temp\", "", @"windows\temp\"); + DoGetRelativePath(@"windows\temp", @"c:\windows\temp\"); + } + + [Test] + public void GetRelativeFileName_DifferentRoots() + { + for (int vIdx = 0; vIdx <= 1; vIdx++) + { + bool vToBasePath = Convert.ToBoolean(vIdx); + DoGetRelativeFileName(vToBasePath, @"c:\windows\temp\file1.txt", @"d:\windows\temp\file2.txt"); + + DoGetRelativeFileName(vToBasePath, @"c:\windows\temp\file1.txt", @"windows\temp\file2.txt"); + + DoGetRelativeFileName(vToBasePath, @"c:\windows\temp\file1.txt", @"c:\windows\temp\folder1\folder2\file2.txt", @"folder1\folder2\file2.txt"); + DoGetRelativeFileName(vToBasePath, @"c:\windows\temp\folder1\folder2\file1.txt", @"c:\windows\temp\file2.txt", @"..\..\file2.txt"); + DoGetRelativeFileName(vToBasePath, @"c:\windows\temp\folder1\folder2\file1.txt", @"c:\windows\temp\folder3\folder4\file2.txt", @"..\..\folder3\folder4\file2.txt"); + DoGetRelativeFileName(vToBasePath, @"c:\windows\temp\file1.txt", "file2.txt", @"c:\windows\temp\file2.txt"); + DoGetRelativeFileName(vToBasePath, @"c:\windows\temp\file1.txt", @"c:\windows\temp\file2.txt", "file2.txt"); + + DoGetRelativeFileName(vToBasePath, @"c:\windows\temp\file1.txt", @"\windows\temp\folder1\folder2\file2.txt", @"folder1\folder2\file2.txt"); + DoGetRelativeFileName(vToBasePath, @"c:\windows\temp\folder1\folder2\file1.txt", @"\windows\temp\file2.txt", @"..\..\file2.txt"); + DoGetRelativeFileName(vToBasePath, @"c:\windows\temp\folder1\folder2\file1.txt", @"\windows\temp\folder3\folder4\file2.txt", @"..\..\folder3\folder4\file2.txt"); + DoGetRelativeFileName(vToBasePath, @"c:\windows\temp\file1.txt", @"\file2.txt", @"..\..\file2.txt"); + + DoGetRelativeFileName(vToBasePath, @"\windows\temp\file1.txt", @"c:\windows\temp\folder1\folder2\file2.txt", @"folder1\folder2\file2.txt"); + DoGetRelativeFileName(vToBasePath, @"\windows\temp\folder1\folder2\file1.txt", @"c:\windows\temp\file2.txt", @"..\..\file2.txt"); + DoGetRelativeFileName(vToBasePath, @"\windows\temp\folder1\folder2\file1.txt", @"c:\windows\temp\folder3\folder4\file2.txt", @"..\..\folder3\folder4\file2.txt"); + DoGetRelativeFileName(vToBasePath, @"\windows\temp\file1.txt", @"c:\windows\temp\file2.txt", "file2.txt"); + DoGetRelativeFileName(vToBasePath, @"\windows\temp\file1.txt", "file2.txt", @"\windows\temp\file2.txt"); + + DoGetRelativeFileName(vToBasePath, @"windows\temp\file1.txt", @"windows\temp\folder1\folder2\file2.txt", @"folder1\folder2\file2.txt"); + DoGetRelativeFileName(vToBasePath, @"windows\temp\folder1\folder2\file1.txt", @"windows\temp\file2.txt", @"..\..\file2.txt"); + DoGetRelativeFileName(vToBasePath, @"windows\temp\folder1\folder2\file1.txt", @"windows\temp\folder3\folder4\file2.txt", @"..\..\folder3\folder4\file2.txt"); + DoGetRelativeFileName(vToBasePath, @"windows\temp\file1.txt", "file2.txt", @"windows\temp\file2.txt"); + DoGetRelativeFileName(vToBasePath, @"windows\temp\file1.txt", @"windows\temp\file2.txt", "file2.txt"); + + DoGetRelativeFileName(vToBasePath, @"windows\temp\file1.txt", @"c:\windows\temp\folder1\folder2\file2.txt"); + DoGetRelativeFileName(vToBasePath, @"windows\temp\folder1\folder2\file1.txt", @"c:\windows\temp\file2.txt"); + DoGetRelativeFileName(vToBasePath, @"windows\temp\folder1\folder2\file1.txt", @"c:\windows\temp\folder3\folder4\file2.txt"); + DoGetRelativeFileName(vToBasePath, @"windows\temp\file1.txt", "file2.txt", @"windows\temp\file2.txt"); + DoGetRelativeFileName(vToBasePath, @"windows\temp\file1.txt", @"c:\windows\temp\file2.txt"); + } + } + + [Test] + public void IsPathRooted() + { + Assert.IsTrue(Path.IsPathRooted(@"c:\temp"), @"c:\temp"); + Assert.IsTrue(Path.IsPathRooted(@"c:\"), @"c:\"); + Assert.IsTrue(Path.IsPathRooted(@"c:"), @"c:"); + Assert.IsTrue(Path.IsPathRooted(@"\temp"), @"\temp"); + Assert.IsFalse(Path.IsPathRooted(@"temp"), @"temp"); + } + + [Test] + public void GetRelativeFileName() + { + DoGetRelativeFileName(false, @"c:\Temp\folder1\folder2\filename1.txt", @"c:\temp\folder1\filename2.txt", @"..\filename2.txt"); + } + + [Test] + public void GetRelativeFileNameByFolder() + { + DoGetRelativeFileNameByFolder(@"c:\Temp\folder1\folder2", @"c:\temp\filename1.txt", @"..\..\filename1.txt"); + DoGetRelativeFileNameByFolder(@"", @"c:\temp\filename1.txt"); + } + } +} diff --git a/DelphiProjectHandler.Tests/Utils/StringListUtilsTests.cs b/DelphiProjectHandler.Tests/Utils/StringListUtilsTests.cs new file mode 100644 index 0000000..0a7bda0 --- /dev/null +++ b/DelphiProjectHandler.Tests/Utils/StringListUtilsTests.cs @@ -0,0 +1,140 @@ +/* + * Created by SharpDevelop. + * User: SG0894652 + * Date: 8/10/2009 + * Time: 9:20 PM + * + * To change this template use Tools | Options | Coding | Edit Standard Headers. + */ + +using System; +using System.Collections.Generic; +using NUnit.Framework; + +using DelphiProjectHandler.Dialogs; + +namespace DelphiProjectHandler.Tests.Utils +{ + [TestFixture] + public class StringListUtilsTests + { + #region (Test methods) + + protected void CompareLists(IList iActual, IList iExpected, string iErrorMsg) + { + Assert.AreEqual(iExpected.Count, iActual.Count, "Different no. of items returned."); + for (int vItemIdx = 0; vItemIdx < iActual.Count; vItemIdx++) + Assert.AreEqual(iExpected[vItemIdx], iActual[vItemIdx], "Different items found. Item: " + vItemIdx.ToString() + ". " + iErrorMsg); + } + + protected void TestRemoveEmpty(IList iStrings, IList iExpected, string iErrorMsg) + { + IList vActual = StringListUtils.RemoveEmpty(iStrings); + CompareLists(vActual, iExpected, iErrorMsg); + } + + protected void TestToLower(IList iStrings, IList iExpected, string iErrorMsg) + { + IList vActual = StringListUtils.ToLower(iStrings); + CompareLists(vActual, iExpected, iErrorMsg); + } + + protected void TestToUpper(IList iStrings, IList iExpected, string iErrorMsg) + { + IList vActual = StringListUtils.ToUpper(iStrings); + CompareLists(vActual, iExpected, iErrorMsg); + } + + protected void TestRemoveDuplicates(IList iStrings, IList iExpected, string iErrorMsg) + { + IList vActual = StringListUtils.RemoveDuplicates(iStrings); + CompareLists(vActual, iExpected, iErrorMsg); + } + + protected void TestNormalize(IList iStrings, IList iExpected, string iErrorMsg) + { + IList vActual = StringListUtils.Normalize(iStrings); + CompareLists(vActual, iExpected, iErrorMsg); + } + + protected void TestSort(IList iStrings, IList iExpected, bool iAscending, bool iIgnoreCase, string iErrorMsg) + { + IList vActual = StringListUtils.Sort(iStrings, iAscending, iIgnoreCase); + CompareLists(vActual, iExpected, iErrorMsg); + } + + #endregion + + [Test] + public void RemoveEmpty() + { + TestRemoveEmpty( + new string[] {"", "1", " ", "2", " ", "3 ", null, "4", null, "5"}, + new string[] {"1", "2", "3 ", "4", "5"}, "Test 1" + ); + } + + [Test] + public void ToLower() + { + TestToLower( + new string[] {"ABC", null, "DeF", "", "ghi"}, + new string[] {"abc", null, "def", "", "ghi"}, "Test 1" + ); + } + + [Test] + public void ToUpper() + { + TestToUpper( + new string[] {"ABC", null, "DeF", "", "ghi"}, + new string[] {"ABC", null, "DEF", "", "GHI"}, "Test 1" + ); + } + + [Test] + public void Normalize() + { + TestNormalize( + new string[] {"ABC", null, "DeF", "", "ghi", "abc", "def", "", "ghi", null}, + new string[] {"abc", "def", "ghi"}, "Test 1" + ); + } + + [Test] + public void RemoveDuplicates() + { + TestRemoveDuplicates( + new string[] {"123", "234", "345", "abc", "def", "ghi", "123", "234", "345", "abc", "def", "ghi", "123", "234", "345", "abc", "def", "ghi", null, null}, + new string[] {"123", "234", "345", "abc", "def", "ghi", null}, "Test 2"); + } + + [Test] + public void Sort() + { + TestSort( + new string[] {"g", "f", "e", "d", "c", "b", "a", "G", "F", "E", "D", "C", "B", "A"}, + new string[] {"A", "a", "b", "B", "C", "c", "D", "d", "E", "e", "f", "F", "g", "G"}, + true, true, "Test 1" + ); + + TestSort( + new string[] {"A", "a", "B", "b", "C", "c", "D", "d", "E", "e", "F", "f", "G", "g"}, + new string[] {"G", "g", "F", "f", "E", "e", "d", "D", "C", "c", "B", "b", "A", "a"}, + false, true, "Test 2" + ); + + TestSort( + new string[] {"g", "f", "e", "d", "c", "b", "a", "G", "F", "E", "D", "C", "B", "A"}, + new string[] {"a", "A", "b", "B", "c", "C", "d", "D", "e", "E", "f", "F", "g", "G"}, + true, false, "Test 3" + ); + + TestSort( + new string[] {"A", "a", "B", "b", "C", "c", "D", "d", "E", "e", "F", "f", "G", "g"}, + new string[] {"G", "g", "F", "f", "E", "e", "D", "d", "C", "c", "B", "b", "A", "a"}, + false, false, "Test 4" + ); + } + } +} diff --git a/DelphiProjectHandler.sln b/DelphiProjectHandler.sln new file mode 100644 index 0000000..3798a27 --- /dev/null +++ b/DelphiProjectHandler.sln @@ -0,0 +1,54 @@ + +Microsoft Visual Studio Solution File, Format Version 11.00 +# Visual C# Express 2010 +Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "DelphiProjectHandler", "DelphiProjectHandler\DelphiProjectHandler.csproj", "{5C84FFF1-2B72-440F-A36D-7D411CF7AE61}" +EndProject +Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "DelphiProjectHandler.Tests", "DelphiProjectHandler.Tests\DelphiProjectHandler.Tests.csproj", "{C5750BD9-B5F5-49D4-BE26-5883BFA2894F}" +EndProject +Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "DelphiProjectManager", "..\DelphiProjectHandler\DelphiProjectManager\DelphiProjectManager.csproj", "{2517AB5F-FBA4-40A4-AE1E-F2CB619E5CBA}" +EndProject +Global + GlobalSection(SolutionConfigurationPlatforms) = preSolution + Debug|Any CPU = Debug|Any CPU + Debug|Mixed Platforms = Debug|Mixed Platforms + Debug|x86 = Debug|x86 + Release|Any CPU = Release|Any CPU + Release|Mixed Platforms = Release|Mixed Platforms + Release|x86 = Release|x86 + EndGlobalSection + GlobalSection(ProjectConfigurationPlatforms) = postSolution + {5C84FFF1-2B72-440F-A36D-7D411CF7AE61}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {5C84FFF1-2B72-440F-A36D-7D411CF7AE61}.Debug|Any CPU.Build.0 = Debug|Any CPU + {5C84FFF1-2B72-440F-A36D-7D411CF7AE61}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU + {5C84FFF1-2B72-440F-A36D-7D411CF7AE61}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU + {5C84FFF1-2B72-440F-A36D-7D411CF7AE61}.Debug|x86.ActiveCfg = Debug|Any CPU + {5C84FFF1-2B72-440F-A36D-7D411CF7AE61}.Release|Any CPU.ActiveCfg = Release|Any CPU + {5C84FFF1-2B72-440F-A36D-7D411CF7AE61}.Release|Any CPU.Build.0 = Release|Any CPU + {5C84FFF1-2B72-440F-A36D-7D411CF7AE61}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU + {5C84FFF1-2B72-440F-A36D-7D411CF7AE61}.Release|Mixed Platforms.Build.0 = Release|Any CPU + {5C84FFF1-2B72-440F-A36D-7D411CF7AE61}.Release|x86.ActiveCfg = Release|Any CPU + {C5750BD9-B5F5-49D4-BE26-5883BFA2894F}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {C5750BD9-B5F5-49D4-BE26-5883BFA2894F}.Debug|Any CPU.Build.0 = Debug|Any CPU + {C5750BD9-B5F5-49D4-BE26-5883BFA2894F}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU + {C5750BD9-B5F5-49D4-BE26-5883BFA2894F}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU + {C5750BD9-B5F5-49D4-BE26-5883BFA2894F}.Debug|x86.ActiveCfg = Debug|Any CPU + {C5750BD9-B5F5-49D4-BE26-5883BFA2894F}.Release|Any CPU.ActiveCfg = Release|Any CPU + {C5750BD9-B5F5-49D4-BE26-5883BFA2894F}.Release|Any CPU.Build.0 = Release|Any CPU + {C5750BD9-B5F5-49D4-BE26-5883BFA2894F}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU + {C5750BD9-B5F5-49D4-BE26-5883BFA2894F}.Release|Mixed Platforms.Build.0 = Release|Any CPU + {C5750BD9-B5F5-49D4-BE26-5883BFA2894F}.Release|x86.ActiveCfg = Release|Any CPU + {2517AB5F-FBA4-40A4-AE1E-F2CB619E5CBA}.Debug|Any CPU.ActiveCfg = Debug|x86 + {2517AB5F-FBA4-40A4-AE1E-F2CB619E5CBA}.Debug|Mixed Platforms.ActiveCfg = Debug|x86 + {2517AB5F-FBA4-40A4-AE1E-F2CB619E5CBA}.Debug|Mixed Platforms.Build.0 = Debug|x86 + {2517AB5F-FBA4-40A4-AE1E-F2CB619E5CBA}.Debug|x86.ActiveCfg = Debug|x86 + {2517AB5F-FBA4-40A4-AE1E-F2CB619E5CBA}.Debug|x86.Build.0 = Debug|x86 + {2517AB5F-FBA4-40A4-AE1E-F2CB619E5CBA}.Release|Any CPU.ActiveCfg = Release|x86 + {2517AB5F-FBA4-40A4-AE1E-F2CB619E5CBA}.Release|Mixed Platforms.ActiveCfg = Release|x86 + {2517AB5F-FBA4-40A4-AE1E-F2CB619E5CBA}.Release|Mixed Platforms.Build.0 = Release|x86 + {2517AB5F-FBA4-40A4-AE1E-F2CB619E5CBA}.Release|x86.ActiveCfg = Release|x86 + {2517AB5F-FBA4-40A4-AE1E-F2CB619E5CBA}.Release|x86.Build.0 = Release|x86 + EndGlobalSection + GlobalSection(SolutionProperties) = preSolution + HideSolutionNode = FALSE + EndGlobalSection +EndGlobal diff --git a/DelphiProjectHandler/DelphiProjectHandler.csproj b/DelphiProjectHandler/DelphiProjectHandler.csproj new file mode 100644 index 0000000..4b169fd --- /dev/null +++ b/DelphiProjectHandler/DelphiProjectHandler.csproj @@ -0,0 +1,241 @@ + + + + Debug + AnyCPU + 9.0.30729 + 2.0 + {5C84FFF1-2B72-440F-A36D-7D411CF7AE61} + WinExe + Properties + DelphiProjectHandler + DelphiProjectHandler + + + + + 3.5 + v4.0 + false + publish\ + true + Disk + false + Foreground + 7 + Days + false + false + true + 0 + 1.0.0.%2a + false + true + + + true + full + false + bin\Debug\ + DEBUG;TRACE + prompt + 4 + + + pdbonly + true + bin\Release\ + TRACE + prompt + 4 + + + + + 3.5 + + + + 3.5 + + + + + + + 3.5 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Form + + + FormDelphiProjectManager.cs + + + + + + + + + + Designer + FormDelphiProjectManager.cs + + + ResXFileCodeGenerator + Resources.Designer.cs + Designer + + + True + Resources.resx + True + + + SettingsSingleFileGenerator + Settings.Designer.cs + + + True + Settings.settings + True + + + + + + + + + + + False + .NET Framework 3.5 SP1 Client Profile + false + + + False + .NET Framework 2.0 %28x86%29 + false + + + False + .NET Framework 3.0 %28x86%29 + false + + + False + .NET Framework 3.5 + false + + + False + .NET Framework 3.5 SP1 + true + + + False + Windows Installer 3.1 + true + + + + + + \ No newline at end of file diff --git a/DelphiProjectHandler/Program.cs b/DelphiProjectHandler/Program.cs new file mode 100644 index 0000000..f02a646 --- /dev/null +++ b/DelphiProjectHandler/Program.cs @@ -0,0 +1,22 @@ +using System; +using System.Collections.Generic; +using System.Windows.Forms; + +using DelphiProjectHandler.View; + +namespace DelphiProjectHandler +{ + static class Program + { + /// + /// The main entry point for the application. + /// + [STAThread] + static void Main() + { + Application.EnableVisualStyles(); + Application.SetCompatibleTextRenderingDefault(false); + Application.Run(new FormDelphiProjectManager()); + } + } +} \ No newline at end of file diff --git a/DelphiProjectHandler/Properties/AssemblyInfo.cs b/DelphiProjectHandler/Properties/AssemblyInfo.cs new file mode 100644 index 0000000..b9e8356 --- /dev/null +++ b/DelphiProjectHandler/Properties/AssemblyInfo.cs @@ -0,0 +1,33 @@ +using System.Reflection; +using System.Runtime.CompilerServices; +using System.Runtime.InteropServices; + +// General Information about an assembly is controlled through the following +// set of attributes. Change these attribute values to modify the information +// associated with an assembly. +[assembly: AssemblyTitle("DelphiProjectHandler")] +[assembly: AssemblyDescription("")] +[assembly: AssemblyConfiguration("")] +[assembly: AssemblyCompany("ProfiMile LemaÅ„czyk sp. j.")] +[assembly: AssemblyProduct("DelphiProjectHandler")] +[assembly: AssemblyCopyright("Copyright © ProfiMile LemaÅ„czyk sp. j. 2006")] +[assembly: AssemblyTrademark("")] +[assembly: AssemblyCulture("")] + +// Setting ComVisible to false makes the types in this assembly not visible +// to COM components. If you need to access a type in this assembly from +// COM, set the ComVisible attribute to true on that type. +[assembly: ComVisible(false)] + +// The following GUID is for the ID of the typelib if this project is exposed to COM +[assembly: Guid("664d3bb0-413b-43a3-a175-26af528fb88b")] + +// Version information for an assembly consists of the following four values: +// +// Major Version +// Minor Version +// Build Number +// Revision +// +[assembly: AssemblyVersion("1.0.0.0")] +[assembly: AssemblyFileVersion("1.0.0.0")] diff --git a/DelphiProjectHandler/Properties/Resources.Designer.cs b/DelphiProjectHandler/Properties/Resources.Designer.cs new file mode 100644 index 0000000..38376c6 --- /dev/null +++ b/DelphiProjectHandler/Properties/Resources.Designer.cs @@ -0,0 +1,63 @@ +//------------------------------------------------------------------------------ +// +// This code was generated by a tool. +// Runtime Version:4.0.30319.1 +// +// Changes to this file may cause incorrect behavior and will be lost if +// the code is regenerated. +// +//------------------------------------------------------------------------------ + +namespace DelphiProjectHandler.Properties { + using System; + + + /// + /// A strongly-typed resource class, for looking up localized strings, etc. + /// + // This class was auto-generated by the StronglyTypedResourceBuilder + // class via a tool like ResGen or Visual Studio. + // To add or remove a member, edit your .ResX file then rerun ResGen + // with the /str option, or rebuild your VS project. + [global::System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0")] + [global::System.Diagnostics.DebuggerNonUserCodeAttribute()] + [global::System.Runtime.CompilerServices.CompilerGeneratedAttribute()] + internal class Resources { + + private static global::System.Resources.ResourceManager resourceMan; + + private static global::System.Globalization.CultureInfo resourceCulture; + + [global::System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1811:AvoidUncalledPrivateCode")] + internal Resources() { + } + + /// + /// Returns the cached ResourceManager instance used by this class. + /// + [global::System.ComponentModel.EditorBrowsableAttribute(global::System.ComponentModel.EditorBrowsableState.Advanced)] + internal static global::System.Resources.ResourceManager ResourceManager { + get { + if (object.ReferenceEquals(resourceMan, null)) { + global::System.Resources.ResourceManager temp = new global::System.Resources.ResourceManager("DelphiProjectHandler.Properties.Resources", typeof(Resources).Assembly); + resourceMan = temp; + } + return resourceMan; + } + } + + /// + /// Overrides the current thread's CurrentUICulture property for all + /// resource lookups using this strongly typed resource class. + /// + [global::System.ComponentModel.EditorBrowsableAttribute(global::System.ComponentModel.EditorBrowsableState.Advanced)] + internal static global::System.Globalization.CultureInfo Culture { + get { + return resourceCulture; + } + set { + resourceCulture = value; + } + } + } +} diff --git a/DelphiProjectHandler/Properties/Resources.resx b/DelphiProjectHandler/Properties/Resources.resx new file mode 100644 index 0000000..af7dbeb --- /dev/null +++ b/DelphiProjectHandler/Properties/Resources.resx @@ -0,0 +1,117 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/DelphiProjectHandler/Properties/Settings.Designer.cs b/DelphiProjectHandler/Properties/Settings.Designer.cs new file mode 100644 index 0000000..cebc5ad --- /dev/null +++ b/DelphiProjectHandler/Properties/Settings.Designer.cs @@ -0,0 +1,26 @@ +//------------------------------------------------------------------------------ +// +// This code was generated by a tool. +// Runtime Version:4.0.30319.1 +// +// Changes to this file may cause incorrect behavior and will be lost if +// the code is regenerated. +// +//------------------------------------------------------------------------------ + +namespace DelphiProjectHandler.Properties { + + + [global::System.Runtime.CompilerServices.CompilerGeneratedAttribute()] + [global::System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "10.0.0.0")] + internal sealed partial class Settings : global::System.Configuration.ApplicationSettingsBase { + + private static Settings defaultInstance = ((Settings)(global::System.Configuration.ApplicationSettingsBase.Synchronized(new Settings()))); + + public static Settings Default { + get { + return defaultInstance; + } + } + } +} diff --git a/DelphiProjectHandler/Properties/Settings.settings b/DelphiProjectHandler/Properties/Settings.settings new file mode 100644 index 0000000..3964565 --- /dev/null +++ b/DelphiProjectHandler/Properties/Settings.settings @@ -0,0 +1,7 @@ + + + + + + + diff --git a/DelphiProjectHandler/src/Controller/FixProjectActionsController.cs b/DelphiProjectHandler/src/Controller/FixProjectActionsController.cs new file mode 100644 index 0000000..fc81354 --- /dev/null +++ b/DelphiProjectHandler/src/Controller/FixProjectActionsController.cs @@ -0,0 +1,81 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; + +using DelphiProjectHandler.Model; +using DelphiProjectHandler.Operations; +using DelphiProjectHandler.Operations.Projects; + +namespace DelphiProjectHandler.Controller +{ + public class FixProjectActionsController: IFixProjectActionsController + { + #region Private + + private IFixProjectSettings fModel; + private IDelphiFileAgent fDelphiFileAgent; + + #endregion + #region Protected + + protected void ExecuteOperation(IDelphiFileOperation aOperation) + { + foreach (string vProjectName in Model.Projects) + { + if (vProjectName == "") + continue; + + fDelphiFileAgent.Execute(vProjectName, aOperation); + } + } + + #endregion + #region Public + + public FixProjectActionsController() + { + fDelphiFileAgent = new DelphiFileAgent(); + } + + #endregion + #region IProjectManipulator Implementation + + public void AddUnits() + { + IDelphiFileOperation vOperation = new DelphiProjectAddUnitOperation(Model.UnitConstraints, Model.UnitsToManipulate, Model.AddUnitPathsToDPRs); + ExecuteOperation(vOperation); + } + + public void RemoveUnits() + { + IDelphiFileOperation vOperation = new DelphiProjectRemoveUnitOperation(Model.UnitConstraints, Model.UnitsToManipulate, Model.AddUnitPathsToDPRs); + ExecuteOperation(vOperation); + } + + public void FixPaths() + { + IDelphiFileOperation vOperation = new DelphiProjectFixPathsOperation(Model.UnitConstraints, Model.UnitsToManipulate, Model.AddUnitPathsToDPRs); + ExecuteOperation(vOperation); + } + + public void FixForms() + { + IDelphiFileOperation vOperation = new DelphiProjectFixFormsOperation(Model.UnitConstraints, Model.UnitsToManipulate, Model.AddUnitPathsToDPRs); + ExecuteOperation(vOperation); + } + + public IFixProjectSettings Model + { + get { return fModel; } + set + { + if (value == null) + throw new ArgumentNullException("Model"); + fModel = value; + } + } + + #endregion + } +} diff --git a/DelphiProjectHandler/src/Controller/FixProjectSettingsController.cs b/DelphiProjectHandler/src/Controller/FixProjectSettingsController.cs new file mode 100644 index 0000000..1b2238d --- /dev/null +++ b/DelphiProjectHandler/src/Controller/FixProjectSettingsController.cs @@ -0,0 +1,144 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; + +using DelphiProjectHandler.Model; +using DelphiProjectHandler.Dialogs.FileSelectors; +using DelphiProjectHandler.Dialogs.FileSelectors.Specialized; +using DelphiProjectHandler.Utils; + +namespace DelphiProjectHandler.Controller +{ + public class FixProjectSettingsController: IFixProjectSettingsController + { + #region Private + + private IFixProjectSettings fModel; + private IFilesSelector fDprFilesSelector; + private IFilesSelector fPasFilesSelector; + + #endregion + #region Protected + + protected IFilesSelector CreatePasFilesSelector() + { + return new PasFilesSelector(new FilesSelector()); + } + + protected IFilesSelector CreateDprFilesSelector() + { + return new DprFilesSelector(new FilesSelector()); + } + + protected void ImportFiles(string aDescription, string aFileMask, ICollection aList) + { + ValidateModel(); + IFolderFilesImporter vImporter = new FolderFilesImporter(); + aList.Add(vImporter.SelectFiles(aDescription, aFileMask)); + Model.NotifyObservers(); + } + + protected void SelectFiles(IFilesSelector aFilesSelector, ICollection aList) + { + ValidateModel(); + aList.Add(aFilesSelector.SelectFiles()); + Model.NotifyObservers(); + } + + protected void SetFiles(ICollection aNewFiles, IList aDestList) + { + ValidateModel(); + aDestList.Clear(); + aDestList.Add(aNewFiles); + Model.NotifyObservers(); + } + + protected void ValidateModel() + { + if (Model == null) + throw new ArgumentNullException("Model", "Model is not assigned to the controller"); + } + + protected IFilesSelector DprFilesSelector + { + get { return fDprFilesSelector; } + } + + protected IFilesSelector PasFilesSelector + { + get { return fPasFilesSelector; } + } + + #endregion + #region Public + + public FixProjectSettingsController(): base() + { + fDprFilesSelector = CreateDprFilesSelector(); + fPasFilesSelector = CreatePasFilesSelector(); + } + + #endregion + #region IFixProjectSettingsController Members + + public void ImportProjects() + { + ImportFiles("Select any folder containing your projects. Subfolders are automatically included.", "*.dpr", Model.Projects); + } + + public void ImportUnits() + { + ImportFiles("Select any folder containing your units. Subfolders are automatically included.", "*.pas", Model.UnitsToManipulate); + } + + public void SelectProjects() + { + SelectFiles(DprFilesSelector, Model.Projects); + } + + public void SelectUnits() + { + SelectFiles(PasFilesSelector, Model.UnitsToManipulate); + } + + public void SwitchAddUnitPathsToDPRs() + { + ValidateModel(); + Model.AddUnitPathsToDPRs = !Model.AddUnitPathsToDPRs; + Model.NotifyObservers(); + } + + public void SetProjects(ICollection aProjects) + { + SetFiles(aProjects, Model.Projects); + } + + public void SetUnitConstraints(ICollection aConstraints) + { + SetFiles(aConstraints, Model.UnitConstraints); + } + + public void SetUnitsToManipulate(ICollection aUnits) + { + SetFiles(aUnits, Model.UnitsToManipulate); + } + + public IFixProjectSettings Model + { + get + { + return fModel; + } + set + { + if (value == null) + throw new ArgumentNullException("Model"); + + fModel = value; + } + } + + #endregion + } +} diff --git a/DelphiProjectHandler/src/Controller/FixUnitActionsController.cs b/DelphiProjectHandler/src/Controller/FixUnitActionsController.cs new file mode 100644 index 0000000..d48d0d3 --- /dev/null +++ b/DelphiProjectHandler/src/Controller/FixUnitActionsController.cs @@ -0,0 +1,45 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; +using DelphiProjectHandler.Model; +using DelphiProjectHandler.Operations; +using DelphiProjectHandler.Operations.Units; + +namespace DelphiProjectHandler.Controller +{ + public class FixUnitActionsController: IFixUnitActionsController + { + #region Private + + private IFixUnitSettings fModel; + + #endregion + #region IFixUnitActionsController Members + + public void AddUnits() + { + IDelphiFileOperation vOperation = new DelphiUnitAddOperation(Model.InterfaceUnits, Model.ImplementationUnits, Model.UnitConstraints); + IDelphiFileAgent vAgent = new DelphiFileAgent(); + foreach (string vUnitFilename in Model.UnitsToModify) + vAgent.Execute(vUnitFilename, vOperation); + } + + public void RemoveUnits() + { + throw new NotImplementedException(); + } + + public Model.IFixUnitSettings Model + { + get { return fModel; } + set { + if (value == null) + throw new ArgumentNullException("Model"); + fModel = value; + } + } + + #endregion + } +} diff --git a/DelphiProjectHandler/src/Controller/FixUnitSettingsController.cs b/DelphiProjectHandler/src/Controller/FixUnitSettingsController.cs new file mode 100644 index 0000000..9906d56 --- /dev/null +++ b/DelphiProjectHandler/src/Controller/FixUnitSettingsController.cs @@ -0,0 +1,140 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; +using DelphiProjectHandler.Dialogs.FileSelectors; +using DelphiProjectHandler.Dialogs.FileSelectors.Specialized; +using DelphiProjectHandler.Model; +using DelphiProjectHandler.Utils; + +namespace DelphiProjectHandler.Controller +{ + public class FixUnitSettingsController: IFixUnitSettingsController + { + #region Private + + private IFixUnitSettings fModel; + private IFilesSelector fPasFilesSelector; + + #endregion + #region Protected + + protected IFilesSelector PasFilesSelector + { + get { return fPasFilesSelector; } + } + + private IFilesSelector CreatePasFilesSelector() + { + return new PasFilesSelector(new FilesSelector()); + } + + protected void ImportFiles(string aDescription, string aFileMask, ICollection aDestinationList) + { + ValidateModel(); + IFolderFilesImporter vImporter = new FolderFilesImporter(); + aDestinationList.Add(vImporter.SelectFiles(aDescription, aFileMask)); + Model.NotifyObservers(); + } + + protected void SelectFiles(IList aDestList) + { + ValidateModel(); + aDestList.Add(PasFilesSelector.SelectFiles()); + Model.NotifyObservers(); + } + + protected void SetFiles(ICollection aNewFiles, IList aDestList) + { + ValidateModel(); + aDestList.Clear(); + aDestList.Add(aNewFiles); + Model.NotifyObservers(); + } + + protected void ValidateModel() + { + if (Model == null) + throw new ArgumentNullException("Model", "Model is not assigned to the controller"); + } + + #endregion + #region Public + + public FixUnitSettingsController() + : base() + { + fPasFilesSelector = CreatePasFilesSelector(); + } + + #endregion + #region IFixUnitSettingsController Members + + public void ImportUnitsToModify() + { + ImportFiles("Select a folder to import Delphi units from. Subfolders are automatically included.", "*.pas", Model.UnitsToModify); + } + + public void SelectUnitsToModify() + { + SelectFiles(Model.UnitsToModify); + } + + public void ImportInterfaceUnits() + { + ImportFiles("Select a folder to import Delphi units from. Subfolders are automatically included.", "*.pas", Model.InterfaceUnits); + } + + public void SelectInterfaceUnits() + { + SelectFiles(Model.InterfaceUnits); + } + + public void ImportImplementationUnits() + { + ImportFiles("Select a folder to import Delphi units from. Subfolders are automatically included.", "*.pas", Model.ImplementationUnits); + } + + public void SelectImplementationUnits() + { + SelectFiles(Model.ImplementationUnits); + } + + public void SetUnitsToModify(ICollection aUnits) + { + SetFiles(aUnits, Model.UnitsToModify); + } + + public void SetInterfaceUnits(ICollection aUnits) + { + SetFiles(aUnits, Model.InterfaceUnits); + } + + public void SetImplementationUnits(ICollection aUnits) + { + SetFiles(aUnits, Model.ImplementationUnits); + } + + public void SetUnitConstraints(ICollection aConstraints) + { + SetFiles(aConstraints, Model.UnitConstraints); + } + + public Model.IFixUnitSettings Model + { + get + { + return fModel; + } + set + { + if (value == null) + throw new ArgumentNullException("Model"); + + fModel = value; + } + } + + #endregion + } +} diff --git a/DelphiProjectHandler/src/Controller/IFixProjectActionsController.cs b/DelphiProjectHandler/src/Controller/IFixProjectActionsController.cs new file mode 100644 index 0000000..963761f --- /dev/null +++ b/DelphiProjectHandler/src/Controller/IFixProjectActionsController.cs @@ -0,0 +1,19 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; + +using DelphiProjectHandler.Model; + +namespace DelphiProjectHandler.Controller +{ + public interface IFixProjectActionsController + { + void AddUnits(); + void RemoveUnits(); + void FixPaths(); + void FixForms(); + + IFixProjectSettings Model { get; set; } + } +} diff --git a/DelphiProjectHandler/src/Controller/IFixProjectSettingsController.cs b/DelphiProjectHandler/src/Controller/IFixProjectSettingsController.cs new file mode 100644 index 0000000..55a2b84 --- /dev/null +++ b/DelphiProjectHandler/src/Controller/IFixProjectSettingsController.cs @@ -0,0 +1,23 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; + +using DelphiProjectHandler.Model; + +namespace DelphiProjectHandler.Controller +{ + public interface IFixProjectSettingsController + { + void ImportProjects(); + void SelectProjects(); + void SelectUnits(); + void ImportUnits(); + void SwitchAddUnitPathsToDPRs(); + void SetProjects(ICollection aProjects); + void SetUnitsToManipulate(ICollection aUnits); + void SetUnitConstraints(ICollection aConstraints); + + IFixProjectSettings Model { get; set; } + } +} diff --git a/DelphiProjectHandler/src/Controller/IFixUnitActionsController.cs b/DelphiProjectHandler/src/Controller/IFixUnitActionsController.cs new file mode 100644 index 0000000..66872a7 --- /dev/null +++ b/DelphiProjectHandler/src/Controller/IFixUnitActionsController.cs @@ -0,0 +1,17 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; + +using DelphiProjectHandler.Model; + +namespace DelphiProjectHandler.Controller +{ + public interface IFixUnitActionsController + { + void AddUnits(); + void RemoveUnits(); + + IFixUnitSettings Model { get; set; } + } +} diff --git a/DelphiProjectHandler/src/Controller/IFixUnitSettingsController.cs b/DelphiProjectHandler/src/Controller/IFixUnitSettingsController.cs new file mode 100644 index 0000000..2a02f49 --- /dev/null +++ b/DelphiProjectHandler/src/Controller/IFixUnitSettingsController.cs @@ -0,0 +1,24 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; +using DelphiProjectHandler.Model; + +namespace DelphiProjectHandler.Controller +{ + public interface IFixUnitSettingsController + { + void ImportUnitsToModify(); + void SelectUnitsToModify(); + void ImportInterfaceUnits(); + void SelectInterfaceUnits(); + void ImportImplementationUnits(); + void SelectImplementationUnits(); + void SetUnitsToModify(ICollection aUnits); + void SetInterfaceUnits(ICollection aUnits); + void SetImplementationUnits(ICollection aUnits); + void SetUnitConstraints(ICollection aConstraints); + + IFixUnitSettings Model { get; set; } + } +} diff --git a/DelphiProjectHandler/src/Controller/ILibraryPathSettingsController.cs b/DelphiProjectHandler/src/Controller/ILibraryPathSettingsController.cs new file mode 100644 index 0000000..fbe5d68 --- /dev/null +++ b/DelphiProjectHandler/src/Controller/ILibraryPathSettingsController.cs @@ -0,0 +1,18 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; +using DelphiProjectHandler.LibraryPaths; +using DelphiProjectHandler.Model; + +namespace DelphiProjectHandler.Controller +{ + public interface ILibraryPathSettingsController + { + void LoadPreset(LibraryPathType aType); + void NormalizePaths(); + void SetLibraryPaths(ICollection aLibraryPaths); + + ILibraryPathSettings Model { get; set; } + } +} diff --git a/DelphiProjectHandler/src/Controller/IProjectBulkOperationController.cs b/DelphiProjectHandler/src/Controller/IProjectBulkOperationController.cs new file mode 100644 index 0000000..79e0e4d --- /dev/null +++ b/DelphiProjectHandler/src/Controller/IProjectBulkOperationController.cs @@ -0,0 +1,13 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; + +namespace DelphiProjectHandler.Controller +{ + public interface IProjectBulkOperationController + { + bool ProcessFile(); + bool SelectFile(); + } +} diff --git a/DelphiProjectHandler/src/Controller/IUnitCleanupActionsController.cs b/DelphiProjectHandler/src/Controller/IUnitCleanupActionsController.cs new file mode 100644 index 0000000..e60734a --- /dev/null +++ b/DelphiProjectHandler/src/Controller/IUnitCleanupActionsController.cs @@ -0,0 +1,16 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; + +using DelphiProjectHandler.Model; + +namespace DelphiProjectHandler.Controller +{ + public interface IUnitCleanupActionsController + { + void RemoveUnusedUnits(); + + IUnitCleanupSettings Model { get; set; } + } +} diff --git a/DelphiProjectHandler/src/Controller/IUnitCleanupSettingsController.cs b/DelphiProjectHandler/src/Controller/IUnitCleanupSettingsController.cs new file mode 100644 index 0000000..849ceab --- /dev/null +++ b/DelphiProjectHandler/src/Controller/IUnitCleanupSettingsController.cs @@ -0,0 +1,19 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; +using DelphiProjectHandler.Model; + +namespace DelphiProjectHandler.Controller +{ + public interface IUnitCleanupSettingsController + { + void LoadFromLibraryPaths(ICollection aLibraryPaths); + void PasteIcarusReport(); + void SetIcarusReport(string aReport); + void SetIgnoredUnits(ICollection aUnits); + void SetUnitsToClean(ICollection aUnits); + + IUnitCleanupSettings Model { get; set; } + } +} diff --git a/DelphiProjectHandler/src/Controller/LibraryPathSettingsController.cs b/DelphiProjectHandler/src/Controller/LibraryPathSettingsController.cs new file mode 100644 index 0000000..c00b83f --- /dev/null +++ b/DelphiProjectHandler/src/Controller/LibraryPathSettingsController.cs @@ -0,0 +1,69 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; +using DelphiProjectHandler.Model; +using DelphiProjectHandler.LibraryPaths; +using DelphiProjectHandler.Dialogs; + +namespace DelphiProjectHandler.Controller +{ + public class LibraryPathSettingsController: ILibraryPathSettingsController + { + #region (Private) + + private ILibraryPathSettings fModel; + + #endregion + + #region (Protected) + + protected void ValidateModel() + { + if (Model == null) + throw new ArgumentNullException("Model", "Model is not assigned to the controller"); + } + + #endregion + + #region (ILibraryPathSettingsController Implementation) + + public void LoadPreset(LibraryPathType aType) + { + ValidateModel(); + ILibraryPathsProvider vProvider = LibraryPathsProviderFactory.CreateProvider(aType); + Model.LibraryPaths = vProvider.List(); + Model.NotifyObservers(); + } + + public void NormalizePaths() + { + ValidateModel(); + Model.LibraryPaths = PathUtils.Normalize(Model.LibraryPaths); + Model.NotifyObservers(); + } + + public void SetLibraryPaths(ICollection aLibraryPaths) + { + ValidateModel(); + Model.LibraryPaths = new List(aLibraryPaths); + Model.NotifyObservers(); + } + + public ILibraryPathSettings Model + { + get + { + return fModel; + } + set + { + if (value == null) + throw new ArgumentNullException("Model"); + fModel = value; + } + } + + #endregion + } +} diff --git a/DelphiProjectHandler/src/Controller/ProjectBulkOperationController.cs b/DelphiProjectHandler/src/Controller/ProjectBulkOperationController.cs new file mode 100644 index 0000000..2e5af4f --- /dev/null +++ b/DelphiProjectHandler/src/Controller/ProjectBulkOperationController.cs @@ -0,0 +1,63 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; +using DelphiProjectHandler.Operations; +using DelphiProjectHandler.Model; +using System.IO; +using DelphiProjectHandler.Dialogs.FileSelectors.Specialized; +using DelphiProjectHandler.Dialogs.FileSelectors; + +namespace DelphiProjectHandler.Controller +{ + public class ProjectBulkOperationController: IProjectBulkOperationController + { + protected XmlFileSelector Selector { get; private set; } + protected string FileName { get; private set; } + + private static FixProjectActionsController CreateController(string aProjectName, IList aUnits) + { + FixProjectActionsController vController = new FixProjectActionsController(); + vController.Model = new FixProjectSettings(); + vController.Model.Projects.Add(aProjectName); + vController.Model.UnitsToManipulate = aUnits; + return vController; + } + + public bool ProcessFile() + { + ProjectBulkOperations vProjects = ProjectBulkOperationLoader.FromStream(new FileStream(FileName, FileMode.Open)); + foreach (ProjectBulkOperation vProject in vProjects) + { + if (vProject.Remove.Count > 0) + { + FixProjectActionsController vController = CreateController(vProject.ProjectName, vProject.Remove); + vController.RemoveUnits(); + } + + if (vProject.Add.Count > 0) + { + FixProjectActionsController vController = CreateController(vProject.ProjectName, vProject.Add); + vController.AddUnits(); + } + } + return true; + } + + public ProjectBulkOperationController() + { + Selector = new XmlFileSelector(new FilesSelector()); + FileName = ""; + } + + public bool SelectFile() + { + ICollection vFiles = Selector.SelectFiles(); + if (vFiles.Count == 0) + return false; + + FileName = vFiles.ElementAt(0); + return true; + } + } +} diff --git a/DelphiProjectHandler/src/Controller/UnitCleanupActionsController.cs b/DelphiProjectHandler/src/Controller/UnitCleanupActionsController.cs new file mode 100644 index 0000000..06cafb1 --- /dev/null +++ b/DelphiProjectHandler/src/Controller/UnitCleanupActionsController.cs @@ -0,0 +1,69 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; + +using DelphiProjectHandler.Model; +using System.IO; +using DelphiProjectHandler.Operations; + +namespace DelphiProjectHandler.Controller +{ + public class UnitCleanupActionsController: IUnitCleanupActionsController + { + #region (Private) + + private IUnitCleanupSettings fModel; + + #endregion + #region (IUnitCleanupActionsController Implementation) + + 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(); + } + + public IUnitCleanupSettings Model + { + get + { + return fModel; + } + set + { + if (value == null) + throw new ArgumentNullException("Model"); + fModel = value; + } + } + + #endregion + } +} diff --git a/DelphiProjectHandler/src/Controller/UnitCleanupSettingsController.cs b/DelphiProjectHandler/src/Controller/UnitCleanupSettingsController.cs new file mode 100644 index 0000000..a8dbf30 --- /dev/null +++ b/DelphiProjectHandler/src/Controller/UnitCleanupSettingsController.cs @@ -0,0 +1,82 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; +using DelphiProjectHandler.Model; +using System.IO; +using System.Windows.Forms; + +namespace DelphiProjectHandler.Controller +{ + public class UnitCleanupSettingsController: IUnitCleanupSettingsController + { + #region (Private) + + private IUnitCleanupSettings fModel; + + #endregion + #region (IUnitCleanupSettingsController Implementation) + + public void LoadFromLibraryPaths(ICollection aLibraryPaths) + { + List vCompleteUnitList = new List(); + foreach (string vPath in aLibraryPaths) + { + if (vPath.Equals("")) + continue; + + try + { + IList vUnits = Directory.GetFiles(vPath, "*.pas", SearchOption.TopDirectoryOnly); + vCompleteUnitList.AddRange(vUnits); + } + catch (Exception iError) + { + throw new IOException("Error occurred when processing path: " + vPath + ". " + iError.Message); + } + } + Model.UnitsToClean = vCompleteUnitList; + Model.NotifyObservers(); + } + + public void PasteIcarusReport() + { + Model.IcarusReport = Clipboard.GetText(); + Model.NotifyObservers(); + } + + public void SetIcarusReport(string aReport) + { + Model.IcarusReport = aReport; + Model.NotifyObservers(); + } + + public void SetIgnoredUnits(ICollection aUnits) + { + Model.IgnoredUnits = new List(aUnits); + Model.NotifyObservers(); + } + + public void SetUnitsToClean(ICollection aUnits) + { + Model.UnitsToClean = new List(aUnits); + Model.NotifyObservers(); + } + + public IUnitCleanupSettings Model + { + get + { + return fModel; + } + set + { + if (value == null) + throw new ArgumentNullException("Model"); + fModel = value; + } + } + + #endregion + } +} diff --git a/DelphiProjectHandler/src/Dialogs/FileSelectors/FilesSelector.cs b/DelphiProjectHandler/src/Dialogs/FileSelectors/FilesSelector.cs new file mode 100644 index 0000000..45be763 --- /dev/null +++ b/DelphiProjectHandler/src/Dialogs/FileSelectors/FilesSelector.cs @@ -0,0 +1,67 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; +using System.Windows.Forms; + +namespace DelphiProjectHandler.Dialogs.FileSelectors +{ + public class FilesSelector: IFilesSelector + { + #region Private + + private IFilesSelectorOptions fDefaultOptions; + + #endregion + #region Protected + + protected IFilesSelectorOptions CreateDefaultOptions() + { + IFilesSelectorOptions vOptions = new FilesSelectorOptions(); + vOptions.Filter = "Pas files|*.pas|All files|*.*"; + vOptions.DefaultExt = "pas"; + vOptions.MultiSelect = true; + vOptions.Title = "Select one or more units to add"; + return vOptions; + } + + #endregion + #region Public + + public FilesSelector() + : base() + { + fDefaultOptions = CreateDefaultOptions(); + } + + #endregion + #region IFilesSelctor Implementation + + public IFilesSelectorOptions DefaultOptions + { + get { return fDefaultOptions; } + } + + public ICollection SelectFiles(IFilesSelectorOptions aOptions) + { + OpenFileDialog vDialog = new OpenFileDialog(); + vDialog.Filter = aOptions.Filter; + vDialog.DefaultExt = aOptions.DefaultExt; + vDialog.Multiselect = aOptions.MultiSelect; + vDialog.SupportMultiDottedExtensions = true; + vDialog.Title = aOptions.Title; + + if (vDialog.ShowDialog() != DialogResult.OK) + return new List(); + + return vDialog.FileNames; + } + + public ICollection SelectFiles() + { + return SelectFiles(DefaultOptions); + } + + #endregion + } +} diff --git a/DelphiProjectHandler/src/Dialogs/FileSelectors/FilesSelectorOptions.cs b/DelphiProjectHandler/src/Dialogs/FileSelectors/FilesSelectorOptions.cs new file mode 100644 index 0000000..eb20d83 --- /dev/null +++ b/DelphiProjectHandler/src/Dialogs/FileSelectors/FilesSelectorOptions.cs @@ -0,0 +1,70 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; + +namespace DelphiProjectHandler.Dialogs.FileSelectors +{ + public class FilesSelectorOptions: IFilesSelectorOptions + { + #region (Private) + + private string fTitle; + private string fFilter; + private string fDefaultExt; + private bool fMultiSelect; + + #endregion + #region (IFilesSelectorOptions Implementation) + + public string Title + { + get + { + return fTitle; + } + set + { + fTitle = value; + } + } + + public string Filter + { + get + { + return fFilter; + } + set + { + fFilter = value; + } + } + + public string DefaultExt + { + get + { + return fDefaultExt; + } + set + { + fDefaultExt = value; + } + } + + public bool MultiSelect + { + get + { + return fMultiSelect; + } + set + { + fMultiSelect = value; + } + } + + #endregion + } +} diff --git a/DelphiProjectHandler/src/Dialogs/FileSelectors/FolderFilesImporter.cs b/DelphiProjectHandler/src/Dialogs/FileSelectors/FolderFilesImporter.cs new file mode 100644 index 0000000..f48127d --- /dev/null +++ b/DelphiProjectHandler/src/Dialogs/FileSelectors/FolderFilesImporter.cs @@ -0,0 +1,23 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; +using System.Windows.Forms; +using System.IO; + +namespace DelphiProjectHandler.Dialogs.FileSelectors +{ + public class FolderFilesImporter: IFolderFilesImporter + { + public ICollection SelectFiles(string aDescription, string aFileMask) + { + FolderBrowserDialog vDialog = new FolderBrowserDialog(); + vDialog.ShowNewFolderButton = false; + vDialog.Description = aDescription; + if (vDialog.ShowDialog() != DialogResult.OK) + return new List(); + + return Directory.GetFiles(vDialog.SelectedPath, aFileMask, SearchOption.AllDirectories); + } + } +} diff --git a/DelphiProjectHandler/src/Dialogs/FileSelectors/IFilesSelector.cs b/DelphiProjectHandler/src/Dialogs/FileSelectors/IFilesSelector.cs new file mode 100644 index 0000000..89d7789 --- /dev/null +++ b/DelphiProjectHandler/src/Dialogs/FileSelectors/IFilesSelector.cs @@ -0,0 +1,23 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; + +namespace DelphiProjectHandler.Dialogs.FileSelectors +{ + public interface IFilesSelectorOptions + { + string Title { get; set; } + string Filter { get; set; } + string DefaultExt { get; set; } + bool MultiSelect { get; set; } + } + + public interface IFilesSelector + { + IFilesSelectorOptions DefaultOptions { get; } + + ICollection SelectFiles(IFilesSelectorOptions aOptions); + ICollection SelectFiles(); + } +} diff --git a/DelphiProjectHandler/src/Dialogs/FileSelectors/IFolderFilesImporter.cs b/DelphiProjectHandler/src/Dialogs/FileSelectors/IFolderFilesImporter.cs new file mode 100644 index 0000000..1d8c280 --- /dev/null +++ b/DelphiProjectHandler/src/Dialogs/FileSelectors/IFolderFilesImporter.cs @@ -0,0 +1,12 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; + +namespace DelphiProjectHandler.Dialogs.FileSelectors +{ + public interface IFolderFilesImporter + { + ICollection SelectFiles(string aDescription, string aFileMask); + } +} diff --git a/DelphiProjectHandler/src/Dialogs/FileSelectors/Specialized/DprFilesSelector.cs b/DelphiProjectHandler/src/Dialogs/FileSelectors/Specialized/DprFilesSelector.cs new file mode 100644 index 0000000..b7faa0c --- /dev/null +++ b/DelphiProjectHandler/src/Dialogs/FileSelectors/Specialized/DprFilesSelector.cs @@ -0,0 +1,63 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; +using DelphiProjectHandler.Dialogs.FileSelectors; + +namespace DelphiProjectHandler.Dialogs.FileSelectors.Specialized +{ + public class DprFilesSelector: IFilesSelector + { + #region Private + + private IFilesSelector fBaseSelector; + private IFilesSelectorOptions fDefaultOptions; + + #endregion + #region Protected + + protected IFilesSelector BaseSelector + { + get { return fBaseSelector; } + } + + protected IFilesSelectorOptions CreateDefaultOptions() + { + IFilesSelectorOptions vOptions = new FilesSelectorOptions(); + vOptions.Filter = "DPR files|*.dpr|All files|*.*"; + vOptions.DefaultExt = "dpr"; + vOptions.MultiSelect = true; + vOptions.Title = "Select one or more projects"; + return vOptions; + } + + #endregion + #region Public + + public DprFilesSelector(IFilesSelector aBaseSelector): base() + { + fBaseSelector = aBaseSelector; + fDefaultOptions = CreateDefaultOptions(); + } + + #endregion + #region IFilesSelector Members + + public IFilesSelectorOptions DefaultOptions + { + get { return fDefaultOptions; } + } + + public ICollection SelectFiles(IFilesSelectorOptions aOptions) + { + return BaseSelector.SelectFiles(aOptions); + } + + public ICollection SelectFiles() + { + return SelectFiles(DefaultOptions); + } + + #endregion + } +} diff --git a/DelphiProjectHandler/src/Dialogs/FileSelectors/Specialized/PasFilesSelector.cs b/DelphiProjectHandler/src/Dialogs/FileSelectors/Specialized/PasFilesSelector.cs new file mode 100644 index 0000000..7e99c7c --- /dev/null +++ b/DelphiProjectHandler/src/Dialogs/FileSelectors/Specialized/PasFilesSelector.cs @@ -0,0 +1,63 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; + +namespace DelphiProjectHandler.Dialogs.FileSelectors.Specialized +{ + public class PasFilesSelector: IFilesSelector + { + #region Private + + private IFilesSelector fBaseSelector; + private IFilesSelectorOptions fDefaultOptions; + + #endregion + #region Protected + + protected IFilesSelector BaseSelector + { + get { return fBaseSelector; } + } + + protected IFilesSelectorOptions CreateDefaultOptions() + { + IFilesSelectorOptions vOptions = new FilesSelectorOptions(); + vOptions.Filter = "Pas files|*.pas|All files|*.*"; + vOptions.DefaultExt = "pas"; + vOptions.MultiSelect = true; + vOptions.Title = "Select one or more units to add"; + return vOptions; + } + + #endregion + #region Public + + public PasFilesSelector(IFilesSelector aBaseSelector) + : base() + { + fBaseSelector = aBaseSelector; + fDefaultOptions = CreateDefaultOptions(); + } + + #endregion + #region IFilesSelector Members + + public IFilesSelectorOptions DefaultOptions + { + get { return fDefaultOptions; } + } + + public ICollection SelectFiles(IFilesSelectorOptions aOptions) + { + return BaseSelector.SelectFiles(aOptions); + } + + public ICollection SelectFiles() + { + return SelectFiles(DefaultOptions); + } + + #endregion + } +} diff --git a/DelphiProjectHandler/src/Dialogs/FileSelectors/Specialized/XmlFileSelector.cs b/DelphiProjectHandler/src/Dialogs/FileSelectors/Specialized/XmlFileSelector.cs new file mode 100644 index 0000000..51b71fc --- /dev/null +++ b/DelphiProjectHandler/src/Dialogs/FileSelectors/Specialized/XmlFileSelector.cs @@ -0,0 +1,62 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; + +namespace DelphiProjectHandler.Dialogs.FileSelectors.Specialized +{ + public class XmlFileSelector: IFilesSelector + { + #region Private + + private IFilesSelector fBaseSelector; + private IFilesSelectorOptions fDefaultOptions; + + #endregion + #region Protected + + protected IFilesSelector BaseSelector + { + get { return fBaseSelector; } + } + + protected IFilesSelectorOptions CreateDefaultOptions() + { + IFilesSelectorOptions vOptions = new FilesSelectorOptions(); + vOptions.Filter = "XML files|*.xml|All files|*.*"; + vOptions.DefaultExt = "xml"; + vOptions.MultiSelect = false; + vOptions.Title = "Select existing XML file"; + return vOptions; + } + + #endregion + #region Public + + public XmlFileSelector(IFilesSelector aBaseSelector): base() + { + fBaseSelector = aBaseSelector; + fDefaultOptions = CreateDefaultOptions(); + } + + #endregion + #region IFilesSelector Members + + public IFilesSelectorOptions DefaultOptions + { + get { return fDefaultOptions; } + } + + public ICollection SelectFiles(IFilesSelectorOptions aOptions) + { + return BaseSelector.SelectFiles(aOptions); + } + + public ICollection SelectFiles() + { + return SelectFiles(DefaultOptions); + } + + #endregion + } +} diff --git a/DelphiProjectHandler/src/IcarusAnalyzerReportParser.cs b/DelphiProjectHandler/src/IcarusAnalyzerReportParser.cs new file mode 100644 index 0000000..39f0e38 --- /dev/null +++ b/DelphiProjectHandler/src/IcarusAnalyzerReportParser.cs @@ -0,0 +1,96 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text.RegularExpressions; + +namespace DelphiProjectHandler +{ + public class IcarusAnalyzerReportException: Exception + { + public IcarusAnalyzerReportException(string iMessage): base(iMessage) {} + } + + /// + /// This class is used for parsing Icarus Analyzer results. For the given report it creates a + /// list containing all units listed in the report and list of used units, splitted into + /// interface & implementation categories. + /// + public class IcarusAnalyzerReportParser + { + protected enum UsesListType: int + { + Interface = 0, + Implementation = 1 + } + + protected static string ExtractUnitName(string iMatch) + { + Regex vRegExpr = new Regex(@"Module (\w+) uses:", RegexOptions.IgnoreCase | RegexOptions.Singleline); + Match vMatch = vRegExpr.Match(iMatch); + if (!vMatch.Success) + throw new IcarusAnalyzerReportException("Not recognized module name. " + iMatch); + + return vMatch.Groups[1].Value; + } + + protected static UsesListType ExtractUsesListType(string iMatch) + { + if (Regex.IsMatch(iMatch, "Units used in interface", RegexOptions.IgnoreCase | RegexOptions.Singleline)) + return UsesListType.Interface; + else + if (Regex.IsMatch(iMatch, "Units used in implementation", RegexOptions.IgnoreCase | RegexOptions.Singleline)) + return UsesListType.Implementation; + else + throw new IcarusAnalyzerReportException("Not recognized uses section type. " + iMatch); + } + + protected static void ExtractUnitNames(string iMatch, UsesListType iUsesType, SuggestedUnitStructure iUnitUses) + { + Regex vRegExpr = new Regex(@"(-->|==>)?\s?(\w+)\s(in\simplementation|in\sinterface|unnecessary|source\snot\sfound)(?=\s\(|\r\n)", RegexOptions.IgnoreCase | RegexOptions.Singleline); + MatchCollection vMatches = vRegExpr.Matches(iMatch); + + ExtractUnitsGroup(vMatches, "", (iUsesType == UsesListType.Interface ? iUnitUses.Uses.Interface : iUnitUses.Uses.Implementation)); + ExtractUnitsGroup(vMatches, "==>", iUnitUses.ToDelete); + if (iUsesType == UsesListType.Interface) + ExtractUnitsGroup(vMatches, "-->", iUnitUses.MoveToInterface, iUnitUses.Uses.Implementation); + } + + protected static void ExtractUnitsGroup(MatchCollection aUnitLineMatches, string aGroupCondition, params UnitList[] aListsToAddTo) + { + var vMatchedUnits = from Match vMatch in aUnitLineMatches + where vMatch.Groups[1].Value.Equals(aGroupCondition) + select new UnitItem(vMatch.Groups[2].Value); + + foreach (var vUnit in vMatchedUnits) + foreach (var vListToAddTo in aListsToAddTo) + vListToAddTo.Add(vUnit); + } + + 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); + } + + 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 static SuggestedUnitStructureList Parse(string iReport) + { + SuggestedUnitStructureList vResult = new SuggestedUnitStructureList(); + DoParse(iReport, vResult); + return vResult; + } + } +} diff --git a/DelphiProjectHandler/src/LibraryPaths/ClipboardLibraryPathsProvider.cs b/DelphiProjectHandler/src/LibraryPaths/ClipboardLibraryPathsProvider.cs new file mode 100644 index 0000000..91679fd --- /dev/null +++ b/DelphiProjectHandler/src/LibraryPaths/ClipboardLibraryPathsProvider.cs @@ -0,0 +1,22 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; +using System.Windows.Forms; + +namespace DelphiProjectHandler.LibraryPaths +{ + public class ClipboardLibraryPathsProvider: ILibraryPathsProvider + { + #region ILibraryPathsProvider Members + + public IList List() + { + string vPathsStr = Clipboard.GetText(); + string[] vPaths = vPathsStr.Split(';'); + return new List(vPaths); + } + + #endregion + } +} diff --git a/DelphiProjectHandler/src/LibraryPaths/DelphiLibraryPathsBuilder.cs b/DelphiProjectHandler/src/LibraryPaths/DelphiLibraryPathsBuilder.cs new file mode 100644 index 0000000..a5ada9b --- /dev/null +++ b/DelphiProjectHandler/src/LibraryPaths/DelphiLibraryPathsBuilder.cs @@ -0,0 +1,56 @@ +using System; +using System.Collections.Generic; +using System.Text; + +namespace DelphiProjectHandler.LibraryPaths +{ + public class DelphiLibraryPathsBuilder: ILibraryPathsBuilder + { + #region (Protected Methods) + + protected IList CopyFromList(IList iPaths) + { + IList vResult = new List(); + foreach (string vPath in iPaths) + vResult.Add(vPath.ToLower()); + return vResult; + } + + protected bool SubstituteEnvironmentPaths(IList iPaths, int iPathIdx, IDictionary iEnvironmentPaths) + { + bool vReplaced = false; + string vNewPath = iPaths[iPathIdx]; + vNewPath = SubstituteEnvironmentPaths(vNewPath, iEnvironmentPaths); + vReplaced = !vNewPath.Equals(iPaths[iPathIdx]); + if (vReplaced) + iPaths[iPathIdx] = vNewPath; + return vReplaced; + } + + protected string SubstituteEnvironmentPaths(string iPath, IDictionary iEnvironmentPaths) + { + foreach (string vKey in iEnvironmentPaths.Keys) + iPath = iPath.Replace("$(" + vKey.ToLower() + ")", iEnvironmentPaths[vKey].ToLower()); + return iPath; + } + + #endregion + #region ILibraryPathsBuilder Members + + public IList Build(IList iPaths, IDictionary iEnvironmentPaths) + { + bool vReplaced = false; + IList vResult = CopyFromList(iPaths); + do + { + vReplaced = false; + for (int vPathIdx = 0; vPathIdx < vResult.Count; vPathIdx++) + vReplaced = SubstituteEnvironmentPaths(vResult, vPathIdx, iEnvironmentPaths) || vReplaced; + } while (vReplaced); + + return vResult; + } + + #endregion + } +} diff --git a/DelphiProjectHandler/src/LibraryPaths/DelphiLibraryPathsProvider.cs b/DelphiProjectHandler/src/LibraryPaths/DelphiLibraryPathsProvider.cs new file mode 100644 index 0000000..b2153d5 --- /dev/null +++ b/DelphiProjectHandler/src/LibraryPaths/DelphiLibraryPathsProvider.cs @@ -0,0 +1,76 @@ +using System; +using System.Collections.Generic; +using System.Text; +using Microsoft.Win32; + +namespace DelphiProjectHandler.LibraryPaths +{ + public class DelphiLibraryPathsProvider: ILibraryPathsProvider + { + #region (Public Methods) + + public DelphiLibraryPathsProvider(LibraryPathType iType) + { + fLibraryType = iType; + } + + #endregion + #region ILibraryPathsProvider Members + + IList ILibraryPathsProvider.List() + { + List vPaths = ListPaths(LibraryType); + IDictionary vEnvironmentPaths = ListEnvironmentPaths(LibraryType); + return BuildPaths(vPaths, vEnvironmentPaths); + } + + #endregion + #region (Protected Methods) + + protected string ReadString(RegistryKey iKey, string iValueName) + { + return iKey.GetValue(iValueName).ToString(); + } + + protected List ListPaths(LibraryPathType iType) + { + List vResult = new List(); + vResult.AddRange(ReadString(DelphiRegistryKeys.LibraryKey(iType), "Search Path").ToString().Split(';')); + return vResult; + } + + protected IDictionary ListEnvironmentPaths(LibraryPathType iType) + { + Dictionary vResult = new Dictionary(); + try + { + vResult.Add("delphi", ReadString(DelphiRegistryKeys.RootDirKey(iType), "RootDir")); + RegistryKey vKey = DelphiRegistryKeys.EnvironmentPathsKey(iType); + foreach (string vValueName in vKey.GetValueNames()) + vResult.Add(vValueName, vKey.GetValue(vValueName).ToString()); + } + catch (NotSupportedException) + { + // In this case return empty dictionary - no environment variables to return + } + return vResult; + } + + protected IList BuildPaths(List vPaths, IDictionary vEnvironmentPaths) + { + ILibraryPathsBuilder vBuilder = new DelphiLibraryPathsBuilder(); + return vBuilder.Build(vPaths, vEnvironmentPaths); + } + + #endregion + #region (Protected Properties) + + protected LibraryPathType LibraryType + { + get { return fLibraryType; } + } + public LibraryPathType fLibraryType; + + #endregion + } +} diff --git a/DelphiProjectHandler/src/LibraryPaths/DelphiRegistryKeys.cs b/DelphiProjectHandler/src/LibraryPaths/DelphiRegistryKeys.cs new file mode 100644 index 0000000..e7cacf5 --- /dev/null +++ b/DelphiProjectHandler/src/LibraryPaths/DelphiRegistryKeys.cs @@ -0,0 +1,56 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; +using Microsoft.Win32; + +namespace DelphiProjectHandler.LibraryPaths +{ + public sealed class DelphiRegistryKeys + { + public static RegistryKey LibraryKey(LibraryPathType iType) + { + string vKey = ""; + switch (iType) + { + case LibraryPathType.Delphi5: + vKey = @"Software\Borland\Delphi\5.0\Library"; + break; + case LibraryPathType.Delphi6: + vKey = @"Software\Borland\Delphi\6.0\Library"; + break; + default: + throw new NotSupportedException("The library type " + iType.ToString() + " is not supported"); + } + + return Registry.CurrentUser.OpenSubKey(vKey); + } + + public static RegistryKey EnvironmentPathsKey(LibraryPathType iType) + { + string vKey = ""; + switch (iType) + { + case LibraryPathType.Delphi6: + vKey = @"Software\Borland\Delphi\6.0\Environment Variables"; + break; + default: + throw new NotSupportedException("The library type " + iType.ToString() + " is not supported"); + } + return Registry.CurrentUser.OpenSubKey(vKey); + } + + public static RegistryKey RootDirKey(LibraryPathType iType) + { + switch (iType) + { + case LibraryPathType.Delphi5: + return Registry.LocalMachine.OpenSubKey(@"Software\Borland\Delphi\5.0"); + case LibraryPathType.Delphi6: + return Registry.CurrentUser.OpenSubKey(@"Software\Borland\Delphi\6.0"); + default: + throw new NotSupportedException("The library type " + iType.ToString() + " is not supported"); + } + } + } +} diff --git a/DelphiProjectHandler/src/LibraryPaths/LibraryPathsBuilderInterface.cs b/DelphiProjectHandler/src/LibraryPaths/LibraryPathsBuilderInterface.cs new file mode 100644 index 0000000..49aeec6 --- /dev/null +++ b/DelphiProjectHandler/src/LibraryPaths/LibraryPathsBuilderInterface.cs @@ -0,0 +1,11 @@ +using System; +using System.Collections.Generic; +using System.Text; + +namespace DelphiProjectHandler.LibraryPaths +{ + public interface ILibraryPathsBuilder + { + IList Build(IList iPaths, IDictionary iEnvironmentPaths); + } +} diff --git a/DelphiProjectHandler/src/LibraryPaths/LibraryPathsProviderFactory.cs b/DelphiProjectHandler/src/LibraryPaths/LibraryPathsProviderFactory.cs new file mode 100644 index 0000000..775ca3e --- /dev/null +++ b/DelphiProjectHandler/src/LibraryPaths/LibraryPathsProviderFactory.cs @@ -0,0 +1,59 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; + +namespace DelphiProjectHandler.LibraryPaths +{ + public sealed class LibraryPathsProviderFactory + { + public static bool IsProviderSupported(LibraryPathType iLibraryType) + { + try + { + ILibraryPathsProvider vProvider = LibraryPathsProviderFactory.CreateProvider(iLibraryType); + return (vProvider != null); + } + catch (NotSupportedException) + { + return false; + } + } + + public static LibraryPathType[] ListSupportedProviders() + { + Array vLibraryTypes = Enum.GetValues(typeof(LibraryPathType)); + List vSupported = new List(); + for (int vLibraryTypeIdx = 0; vLibraryTypeIdx < vLibraryTypes.Length; vLibraryTypeIdx++) + { + LibraryPathType vType = (LibraryPathType)vLibraryTypes.GetValue(vLibraryTypeIdx); + if (!IsProviderSupported(vType)) + continue; + + vSupported.Add(vType); + } + + LibraryPathType[] vResult = new LibraryPathType[vSupported.Count]; + for (int vSupportedIdx = 0; vSupportedIdx < vSupported.Count; vSupportedIdx++) + vResult[vSupportedIdx] = (LibraryPathType)vSupported[vSupportedIdx]; + + return vResult; + } + + public static ILibraryPathsProvider CreateProvider(LibraryPathType iType) + { + switch (iType) + { + case LibraryPathType.Delphi5: + case LibraryPathType.Delphi6: + return new DelphiLibraryPathsProvider(iType); + + case LibraryPathType.Clipboard: + return new ClipboardLibraryPathsProvider(); + + default: + throw new NotSupportedException("Provider " + iType.ToString() + " is not supported, yet."); + } + } + } +} diff --git a/DelphiProjectHandler/src/LibraryPaths/LibraryPathsProviderInterface.cs b/DelphiProjectHandler/src/LibraryPaths/LibraryPathsProviderInterface.cs new file mode 100644 index 0000000..fb52407 --- /dev/null +++ b/DelphiProjectHandler/src/LibraryPaths/LibraryPathsProviderInterface.cs @@ -0,0 +1,23 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; + +namespace DelphiProjectHandler.LibraryPaths +{ + public enum LibraryPathType : int + { + Delphi5 = 0, + Delphi6 = 1, + Delphi7 = 2, + Delphi2005 = 3, + Delphi2007 = 4, + Delphi2009 = 5, + Clipboard = 6 + } + + public interface ILibraryPathsProvider + { + IList List(); + } +} diff --git a/DelphiProjectHandler/src/Model/FixProjectSettings.cs b/DelphiProjectHandler/src/Model/FixProjectSettings.cs new file mode 100644 index 0000000..4360dce --- /dev/null +++ b/DelphiProjectHandler/src/Model/FixProjectSettings.cs @@ -0,0 +1,106 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; + +using DelphiProjectHandler.View; + +namespace DelphiProjectHandler.Model +{ + public class FixProjectSettings: IFixProjectSettings + { + #region (Private) + + private bool fAddUnitPathsToDPRs = true; + private IList fProjects = new List(); + private IList fUnitsToManipulate = new List(); + private IList fUnitConstraints = new List(); + private IList fObservers = new List(); + + #endregion + #region (Protected) + + protected IList Observers + { + get { return fObservers; } + } + + #endregion + + #region (IFixProjectSettingsModel implementation) + + public bool AddUnitPathsToDPRs + { + get + { + return fAddUnitPathsToDPRs; + } + + set + { + fAddUnitPathsToDPRs = value; + } + } + + public IList Projects + { + get + { + return fProjects; + } + set + { + if (value == null) + throw new ArgumentNullException("Projects"); + + fProjects = value; + } + } + + public IList UnitsToManipulate + { + get + { + return fUnitsToManipulate; + } + set + { + if (value == null) + throw new ArgumentNullException("UnitsToManipulate"); + + fUnitsToManipulate = value; + } + } + + public IList UnitConstraints + { + get + { + return fUnitConstraints; + } + set + { + if (value == null) + throw new ArgumentNullException("UnitConstraints"); + } + } + + public void AddObserver(View.IFixProjectSettingsView aView) + { + Observers.Add(aView); + } + + public void RemoveObserver(View.IFixProjectSettingsView aView) + { + Observers.Remove(aView); + } + + public void NotifyObservers() + { + foreach (IFixProjectSettingsView vObserver in Observers) + vObserver.UpdateView(this); + } + + #endregion + } +} diff --git a/DelphiProjectHandler/src/Model/FixUnitSettings.cs b/DelphiProjectHandler/src/Model/FixUnitSettings.cs new file mode 100644 index 0000000..f29c6e7 --- /dev/null +++ b/DelphiProjectHandler/src/Model/FixUnitSettings.cs @@ -0,0 +1,104 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; +using DelphiProjectHandler.View; + +namespace DelphiProjectHandler.Model +{ + public class FixUnitSettings: IFixUnitSettings + { + #region (Private) + + private IList fUnitsToModify = new List(); + private IList fInterfaceUnits = new List(); + private IList fImplementationUnits = new List(); + private IList fUnitConstraints = new List(); + private ICollection fObservers = new List(); + + #endregion + #region (Protected) + + protected ICollection Observers + { + get { return fObservers; } + } + + #endregion + #region (IFixUnitSettings Implementation) + + public IList UnitsToModify + { + get + { + return fUnitsToModify; + } + set + { + if (value == null) + throw new ArgumentNullException("UnitsToModify"); + fUnitsToModify = value; + } + } + + public IList InterfaceUnits + { + get + { + return fInterfaceUnits; + } + set + { + if (value == null) + throw new ArgumentNullException("InterfaceUnits"); + fInterfaceUnits = value; + } + } + + public IList ImplementationUnits + { + get + { + return fImplementationUnits; + } + set + { + if (value == null) + throw new ArgumentNullException("ImplementationUnits"); + fImplementationUnits = value; + } + } + + public IList UnitConstraints + { + get + { + return fUnitConstraints; + } + set + { + if (value == null) + throw new ArgumentNullException("UnitConstraints"); + fUnitConstraints = value; + } + } + + public void AddObserver(IFixUnitSettingsView aView) + { + Observers.Add(aView); + } + + public void RemoveObserver(IFixUnitSettingsView aView) + { + Observers.Remove(aView); + } + + public void NotifyObservers() + { + foreach (IFixUnitSettingsView vObserver in Observers) + vObserver.UpdateView(this); + } + } + + #endregion +} diff --git a/DelphiProjectHandler/src/Model/IFixProjectSettings.cs b/DelphiProjectHandler/src/Model/IFixProjectSettings.cs new file mode 100644 index 0000000..f8ee361 --- /dev/null +++ b/DelphiProjectHandler/src/Model/IFixProjectSettings.cs @@ -0,0 +1,21 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; + +using DelphiProjectHandler.View; + +namespace DelphiProjectHandler.Model +{ + public interface IFixProjectSettings + { + IList Projects { get; set; } + IList UnitsToManipulate { get; set; } + IList UnitConstraints { get; set; } + bool AddUnitPathsToDPRs { get; set; } + + void AddObserver(IFixProjectSettingsView aView); + void RemoveObserver(IFixProjectSettingsView aView); + void NotifyObservers(); + } +} diff --git a/DelphiProjectHandler/src/Model/IFixUnitSettings.cs b/DelphiProjectHandler/src/Model/IFixUnitSettings.cs new file mode 100644 index 0000000..9d290b3 --- /dev/null +++ b/DelphiProjectHandler/src/Model/IFixUnitSettings.cs @@ -0,0 +1,20 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; +using DelphiProjectHandler.View; + +namespace DelphiProjectHandler.Model +{ + public interface IFixUnitSettings + { + IList UnitsToModify { get; set; } + IList InterfaceUnits { get; set; } + IList ImplementationUnits { get; set; } + IList UnitConstraints { get; set; } + + void AddObserver(IFixUnitSettingsView aView); + void RemoveObserver(IFixUnitSettingsView aView); + void NotifyObservers(); + } +} diff --git a/DelphiProjectHandler/src/Model/ILibraryPathSettings.cs b/DelphiProjectHandler/src/Model/ILibraryPathSettings.cs new file mode 100644 index 0000000..d2a8ac4 --- /dev/null +++ b/DelphiProjectHandler/src/Model/ILibraryPathSettings.cs @@ -0,0 +1,19 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; +using DelphiProjectHandler.LibraryPaths; +using DelphiProjectHandler.View; + +namespace DelphiProjectHandler.Model +{ + public interface ILibraryPathSettings + { + IList SupportedProviders { get; } + IList LibraryPaths { get; set; } + + void AddObserver(ILibraryPathSettingsView aView); + void RemoveObserver(ILibraryPathSettingsView aView); + void NotifyObservers(); + } +} diff --git a/DelphiProjectHandler/src/Model/IUnitCleanupSettings.cs b/DelphiProjectHandler/src/Model/IUnitCleanupSettings.cs new file mode 100644 index 0000000..7c84630 --- /dev/null +++ b/DelphiProjectHandler/src/Model/IUnitCleanupSettings.cs @@ -0,0 +1,19 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; +using DelphiProjectHandler.View; + +namespace DelphiProjectHandler.Model +{ + public interface IUnitCleanupSettings + { + IList UnitsToClean { get; set; } + IList IgnoredUnits { get; set; } + String IcarusReport { get; set; } + + void AddObserver(IUnitCleanupSettingsView aView); + void RemoveObserver(IUnitCleanupSettingsView aView); + void NotifyObservers(); + } +} diff --git a/DelphiProjectHandler/src/Model/LibraryPathSettings.cs b/DelphiProjectHandler/src/Model/LibraryPathSettings.cs new file mode 100644 index 0000000..04257fa --- /dev/null +++ b/DelphiProjectHandler/src/Model/LibraryPathSettings.cs @@ -0,0 +1,66 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; +using DelphiProjectHandler.View; +using DelphiProjectHandler.LibraryPaths; + +namespace DelphiProjectHandler.Model +{ + public class LibraryPathSettings: ILibraryPathSettings + { + #region (Private) + + private IList fLibraryPaths = new List(); + private IList fObservers = new List(); + private IList fSupportedProviders = LibraryPathsProviderFactory.ListSupportedProviders(); + + #endregion + #region (Protected) + + protected IList Observers + { + get { return fObservers; } + } + + #endregion + #region (ILibraryPathSettings Implementation) + + public IList SupportedProviders + { + get { return fSupportedProviders; } + } + + public IList LibraryPaths + { + get + { + return fLibraryPaths; + } + set + { + if (value == null) + throw new ArgumentNullException("LibraryPaths"); + fLibraryPaths = value; + } + } + + public void AddObserver(ILibraryPathSettingsView aView) + { + Observers.Add(aView); + } + + public void RemoveObserver(ILibraryPathSettingsView aView) + { + Observers.Remove(aView); + } + + public void NotifyObservers() + { + foreach (ILibraryPathSettingsView vObserver in Observers) + vObserver.UpdateView(this); + } + + #endregion + } +} diff --git a/DelphiProjectHandler/src/Model/ProjectBulkOperations.cs b/DelphiProjectHandler/src/Model/ProjectBulkOperations.cs new file mode 100644 index 0000000..a105a04 --- /dev/null +++ b/DelphiProjectHandler/src/Model/ProjectBulkOperations.cs @@ -0,0 +1,34 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; +using System.Xml.Serialization; + +namespace DelphiProjectHandler.Model +{ + [Serializable] + [XmlType(TypeName="project")] + public class ProjectBulkOperation + { + [XmlAttribute("name")] + public string ProjectName { get; set; } + [XmlArray("add")] + [XmlArrayItem("file")] + public List Add { get; set; } + [XmlArray("remove")] + [XmlArrayItem("file")] + public List Remove { get; set; } + + public ProjectBulkOperation() + { + Add = new List(); + Remove = new List(); + } + } + + [Serializable] + [XmlType(TypeName="projects")] + public class ProjectBulkOperations: List + { + } +} diff --git a/DelphiProjectHandler/src/Model/UnitCleanupSettings.cs b/DelphiProjectHandler/src/Model/UnitCleanupSettings.cs new file mode 100644 index 0000000..1edcb9b --- /dev/null +++ b/DelphiProjectHandler/src/Model/UnitCleanupSettings.cs @@ -0,0 +1,89 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; +using DelphiProjectHandler.View; + +namespace DelphiProjectHandler.Model +{ + public class UnitCleanupSettings: IUnitCleanupSettings + { + #region (Private) + + private IList fObservers = new List(); + private IList fUnitsToClean = new List(); + private IList fIgnoredUnits = new List(); + private string fIcarusReport = ""; + + #endregion + #region (Protected) + + protected IList Observers + { + get { return fObservers; } + } + + #endregion + #region (IUnitCleanupSettings Implementation) + + public IList UnitsToClean + { + get + { + return fUnitsToClean; + } + set + { + if (value == null) + throw new ArgumentNullException("UnitsToClean"); + fUnitsToClean = value; + } + } + + public IList IgnoredUnits + { + get + { + return fIgnoredUnits; + } + set + { + if (value == null) + throw new ArgumentNullException("IgnoredUnits"); + fIgnoredUnits = value; + } + } + + public string IcarusReport + { + get + { + return fIcarusReport; + } + set + { + if (value == null) + throw new ArgumentNullException("IcarusReport"); + fIcarusReport = value; + } + } + + public void AddObserver(View.IUnitCleanupSettingsView aView) + { + Observers.Add(aView); + } + + public void RemoveObserver(View.IUnitCleanupSettingsView aView) + { + Observers.Remove(aView); + } + + public void NotifyObservers() + { + foreach (IUnitCleanupSettingsView vObserver in Observers) + vObserver.UpdateView(this); + } + + #endregion + } +} diff --git a/DelphiProjectHandler/src/Operations/DelphiFileAgent.cs b/DelphiProjectHandler/src/Operations/DelphiFileAgent.cs new file mode 100644 index 0000000..a8aa63e --- /dev/null +++ b/DelphiProjectHandler/src/Operations/DelphiFileAgent.cs @@ -0,0 +1,46 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; +using System.IO; + +namespace DelphiProjectHandler.Operations +{ + public class DelphiFileAgentError : Exception + { + public DelphiFileAgentError(string aMessage): base(aMessage) + { + } + } + + public class DelphiFileAgent: IDelphiFileAgent + { + public void Execute(String aUnitFileName, IDelphiFileOperation aOperation) + { + Execute(aUnitFileName, new IDelphiFileOperation[] { aOperation }); + } + + public void Execute(String aUnitFileName, params IDelphiFileOperation[] aOperations) + { + FileModifierAgent vFileAgent = new FileModifierAgent(aUnitFileName); + foreach (IDelphiFileOperation vOperation in aOperations) + { + try + { + vOperation.Initialize(aUnitFileName, vFileAgent.Content); + if (!vOperation.CanProcess()) + return; + + vFileAgent.Content = vOperation.Execute(); + } + catch (Exception e) + { + throw new DelphiFileAgentError(String.Format("Error processing file: {0}. {1}", aUnitFileName, e.Message)); + + } + } + if (vFileAgent.Modified) + vFileAgent.Save(aUnitFileName); + } + } +} diff --git a/DelphiProjectHandler/src/Operations/DelphiOperation.cs b/DelphiProjectHandler/src/Operations/DelphiOperation.cs new file mode 100644 index 0000000..325ab34 --- /dev/null +++ b/DelphiProjectHandler/src/Operations/DelphiOperation.cs @@ -0,0 +1,12 @@ +using System; + +namespace DelphiProjectHandler.Operations +{ + public abstract class DelphiOperation + { + protected virtual string ReplaceContent(string iContent, string iOldValue, string iNewValue) + { + return iContent.Replace(iOldValue, iNewValue); + } + } +} diff --git a/DelphiProjectHandler/src/Operations/DelphiProjectAgent.cs b/DelphiProjectHandler/src/Operations/DelphiProjectAgent.cs new file mode 100644 index 0000000..bf59aea --- /dev/null +++ b/DelphiProjectHandler/src/Operations/DelphiProjectAgent.cs @@ -0,0 +1,34 @@ +using System; + +using System.Collections.Generic; +using DelphiProjectHandler.Operations.Projects; + +namespace DelphiProjectHandler.Operations +{ + /// + /// Modifies Delphi projects, e.g. by adding units, changing unit paths etc. + /// + public class DelphiProjectAgent + { + protected FileModifierAgent FileAgent + { + get { return fFileAgent; } + } + private FileModifierAgent fFileAgent; + + public DelphiProjectAgent(string iProjectName) + { + fFileAgent = new FileModifierAgent(iProjectName); + } + + public bool Modified + { + get { return FileAgent.Modified; } + } + + public void Save(string iProjectName) + { + FileAgent.Save(iProjectName); + } + } +} diff --git a/DelphiProjectHandler/src/Operations/DelphiUnitAgent.cs b/DelphiProjectHandler/src/Operations/DelphiUnitAgent.cs new file mode 100644 index 0000000..d17fbc8 --- /dev/null +++ b/DelphiProjectHandler/src/Operations/DelphiUnitAgent.cs @@ -0,0 +1,52 @@ +/* + * Created by SharpDevelop. + * User: SG0894652 + * Date: 8/12/2009 + * Time: 10:58 PM + * + * To change this template use Tools | Options | Coding | Edit Standard Headers. + */ +using System; +using System.Collections.Generic; + +using DelphiProjectHandler.Operations.Units; + +namespace DelphiProjectHandler.Operations +{ + /// + /// Description of DelphiUnitAgent. + /// + public class DelphiUnitAgent + { + #region (Protected Properties) + + protected FileModifierAgent FileAgent + { + get { return fFileAgent; } + } + private FileModifierAgent fFileAgent; + + #endregion + + public DelphiUnitAgent(string aUnitFilename) + { + fFileAgent = new FileModifierAgent(aUnitFilename); + } + + public void CleanupUnits(SuggestedUnitStructure aSuggestedStructure, IList aIgnoredUnits) + { + DelphiUnitCleanerOperation vOperation = new DelphiUnitCleanerOperation(); + FileAgent.Content = vOperation.Execute(FileAgent.Content, aSuggestedStructure, aIgnoredUnits); + } + + public bool Modified + { + get { return FileAgent.Modified; } + } + + public void Save(string aUnitFilename) + { + FileAgent.Save(aUnitFilename); + } + } +} diff --git a/DelphiProjectHandler/src/Operations/FileModifierAgent.cs b/DelphiProjectHandler/src/Operations/FileModifierAgent.cs new file mode 100644 index 0000000..52ea461 --- /dev/null +++ b/DelphiProjectHandler/src/Operations/FileModifierAgent.cs @@ -0,0 +1,67 @@ +/* + * Created by SharpDevelop. + * User: SG0894652 + * Date: 8/12/2009 + * Time: 10:49 PM + * + * To change this template use Tools | Options | Coding | Edit Standard Headers. + */ +using System; +using System.IO; + +namespace DelphiProjectHandler.Operations +{ + /// + /// Description of FileModifierAgent. + /// + public class FileModifierAgent + { + public FileModifierAgent(string iFileName) + { + Load(iFileName); + } + + public virtual void Save(string iFileName) + { + string vTempFileName = iFileName + ".tmp"; + string vBackupFileName = iFileName + ".backup"; + + File.SetAttributes(iFileName, FileAttributes.Normal); + File.WriteAllText(vTempFileName, Content); + File.Replace(vTempFileName, iFileName, vBackupFileName, false); + fFileName = iFileName; + fOriginalContent = Content; + } + + public virtual void Load(string iFileName) + { + fFileName = iFileName; + fOriginalContent = File.ReadAllText(iFileName); + Content = OriginalContent; + } + + public string FileName + { + get { return fFileName; } + } + protected string fFileName; + + public string Content + { + get { return fContent; } + set { fContent = value; } + } + protected string fContent; + + public string OriginalContent + { + get { return fOriginalContent; } + } + protected string fOriginalContent; + + public bool Modified + { + get { return OriginalContent != Content; } + } + } +} diff --git a/DelphiProjectHandler/src/Operations/IDelphiFileAgent.cs b/DelphiProjectHandler/src/Operations/IDelphiFileAgent.cs new file mode 100644 index 0000000..bbed0b5 --- /dev/null +++ b/DelphiProjectHandler/src/Operations/IDelphiFileAgent.cs @@ -0,0 +1,13 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; + +namespace DelphiProjectHandler.Operations +{ + public interface IDelphiFileAgent + { + void Execute(String aUnitFileName, IDelphiFileOperation aOperation); + void Execute(String aUnitFileName, params IDelphiFileOperation[] aOperations); + } +} diff --git a/DelphiProjectHandler/src/Operations/IDelphiFileOperation.cs b/DelphiProjectHandler/src/Operations/IDelphiFileOperation.cs new file mode 100644 index 0000000..34334d9 --- /dev/null +++ b/DelphiProjectHandler/src/Operations/IDelphiFileOperation.cs @@ -0,0 +1,14 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; + +namespace DelphiProjectHandler.Operations +{ + public interface IDelphiFileOperation + { + void Initialize(string aFileName, string aFileContent); + bool CanProcess(); + string Execute(); + } +} diff --git a/DelphiProjectHandler/src/Operations/IOperationState.cs b/DelphiProjectHandler/src/Operations/IOperationState.cs new file mode 100644 index 0000000..a4d90d4 --- /dev/null +++ b/DelphiProjectHandler/src/Operations/IOperationState.cs @@ -0,0 +1,11 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; + +namespace DelphiProjectHandler.Operations +{ + public interface IOperationState + { + } +} diff --git a/DelphiProjectHandler/src/Operations/IUnitItemBuilder.cs b/DelphiProjectHandler/src/Operations/IUnitItemBuilder.cs new file mode 100644 index 0000000..7cc1f8a --- /dev/null +++ b/DelphiProjectHandler/src/Operations/IUnitItemBuilder.cs @@ -0,0 +1,12 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; + +namespace DelphiProjectHandler.Operations +{ + public interface IUnitItemBuilder + { + UnitItem Create(string aUnitFileName); + } +} diff --git a/DelphiProjectHandler/src/Operations/ProjectBulkOperationLoader.cs b/DelphiProjectHandler/src/Operations/ProjectBulkOperationLoader.cs new file mode 100644 index 0000000..b680ee2 --- /dev/null +++ b/DelphiProjectHandler/src/Operations/ProjectBulkOperationLoader.cs @@ -0,0 +1,23 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; +using DelphiProjectHandler.Model; +using System.IO; +using System.Xml.Serialization; +using System.Xml; + +namespace DelphiProjectHandler.Operations +{ + public class ProjectBulkOperationLoader + { + public static ProjectBulkOperations FromStream(Stream aStream) + { + XmlSerializer vSerializer = new XmlSerializer(typeof(ProjectBulkOperations)); + //if (!vSerializer.CanDeserialize(XmlReader.Create(aStream))) + // throw new InvalidDataException("Unsupported stream format"); + + return vSerializer.Deserialize(aStream) as ProjectBulkOperations; + } + } +} diff --git a/DelphiProjectHandler/src/Operations/Projects/AbstractDelphiProjectOperation.cs b/DelphiProjectHandler/src/Operations/Projects/AbstractDelphiProjectOperation.cs new file mode 100644 index 0000000..69bcf07 --- /dev/null +++ b/DelphiProjectHandler/src/Operations/Projects/AbstractDelphiProjectOperation.cs @@ -0,0 +1,83 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; +using DelphiProjectHandler.Operations.Uses; + +namespace DelphiProjectHandler.Operations.Projects +{ + public abstract class AbstractDelphiProjectOperation : IDelphiFileOperation + { + private IUsesListOperation fOperation; + private IProjectOperationSettings fSettings; + private IProjectOperationState fState; + + protected IUsesListOperation Operation + { + get { return fOperation; } + set { fOperation = value; } + } + + protected IProjectOperationSettings Settings + { + get { return fSettings; } + set { fSettings = value; } + } + + protected IProjectOperationState State + { + get { return fState; } + set { fState = value; } + } + + protected virtual string ReplaceContent(string iContent, string iOldValue, string iNewValue) + { + return iContent.Replace(iOldValue, iNewValue); + } + + protected IProjectOperationSettings CreateProjectSettings(ICollection aRequiredUnits, ICollection aUnitsToManipulate, bool aUsePaths) + { + IProjectOperationSettings vSettings = new ProjectOperationSettings(); + vSettings.RequiredUnits = aRequiredUnits; + vSettings.UnitsToManipulate = aUnitsToManipulate; + vSettings.UsePaths = aUsePaths; + return vSettings; + } + + protected IUnitItemBuilder CreateUnitItemBuilder(string aFileName, bool aUsePaths) + { + return new ProjectUnitItemBuilder(aFileName, aUsePaths); + } + + protected abstract IUsesListOperation CreateUsesOperation(string aFileName, IProjectOperationSettings aSettings, IUnitItemBuilder aBuilder); + + public AbstractDelphiProjectOperation(ICollection aRequiredUnits, ICollection aUnitsToManipulate, bool aUsePaths) + { + fState = new ProjectOperationState(); + fSettings = CreateProjectSettings(aRequiredUnits, aUnitsToManipulate, aUsePaths); + } + + public virtual void Initialize(string aFileName, string aFileContent) + { + State.FileContent = aFileContent; + State.OriginalUsesClause = UsesClauseReader.ExtractUses(aFileContent); + State.Units = UsesClauseReader.GetUnits(State.FileContent); + IUnitItemBuilder vBuilder = CreateUnitItemBuilder(aFileName, Settings.UsePaths); + fOperation = CreateUsesOperation(aFileName, Settings, vBuilder); + Operation.Initialize(State.Units); + } + + public bool CanProcess() + { + return Operation.CanProcess(); + } + + public string Execute() + { + if (!Operation.Execute()) + return State.FileContent; + + return ReplaceContent(State.FileContent, State.OriginalUsesClause, State.Units.ToString()); + } + } +} diff --git a/DelphiProjectHandler/src/Operations/Projects/DelphiProjectAddUnitOperation.cs b/DelphiProjectHandler/src/Operations/Projects/DelphiProjectAddUnitOperation.cs new file mode 100644 index 0000000..fc96202 --- /dev/null +++ b/DelphiProjectHandler/src/Operations/Projects/DelphiProjectAddUnitOperation.cs @@ -0,0 +1,24 @@ +using System; +using System.Collections.Generic; +using System.Text; +using DelphiProjectHandler.Operations.Uses; + +namespace DelphiProjectHandler.Operations.Projects +{ + public class DelphiProjectAddUnitOperation: AbstractDelphiProjectOperation + { + protected override IUsesListOperation CreateUsesOperation(string aFileName, IProjectOperationSettings aSettings, IUnitItemBuilder aBuilder) + { + IUsesListOperationSettings vUsesSettings = new UsesListOperationSettings(); + vUsesSettings.RequiredUnits = aSettings.RequiredUnits; + vUsesSettings.UnitItemBuilder = aBuilder; + vUsesSettings.UnitsToManipulate = aSettings.UnitsToManipulate; + return new UsesListAddOperation(vUsesSettings); + } + + public DelphiProjectAddUnitOperation(ICollection aRequiredUnits, ICollection aUnitsToManipulate, bool aUsePaths) + : base(aRequiredUnits, aUnitsToManipulate, aUsePaths) + { + } + } +} diff --git a/DelphiProjectHandler/src/Operations/Projects/DelphiProjectFixFormsOperation.cs b/DelphiProjectHandler/src/Operations/Projects/DelphiProjectFixFormsOperation.cs new file mode 100644 index 0000000..d57a158 --- /dev/null +++ b/DelphiProjectHandler/src/Operations/Projects/DelphiProjectFixFormsOperation.cs @@ -0,0 +1,23 @@ +using System; +using DelphiProjectHandler.Operations.Uses; +using System.Collections.Generic; + +namespace DelphiProjectHandler.Operations.Projects +{ + public class DelphiProjectFixFormsOperation: AbstractDelphiProjectOperation + { + protected override IUsesListOperation CreateUsesOperation(string aFileName, IProjectOperationSettings aSettings, IUnitItemBuilder aBuilder) + { + IUsesListOperationSettings vUsesSettings = new UsesListOperationSettings(); + vUsesSettings.RequiredUnits = aSettings.RequiredUnits; + vUsesSettings.UnitItemBuilder = aBuilder; + vUsesSettings.UnitsToManipulate = aSettings.UnitsToManipulate; + return new UsesListFixFormOperation(vUsesSettings); + } + + public DelphiProjectFixFormsOperation(ICollection aRequiredUnits, ICollection aUnitsToManipulate, bool aUsePaths): base(aRequiredUnits, aUnitsToManipulate, aUsePaths) + { + } + + } +} diff --git a/DelphiProjectHandler/src/Operations/Projects/DelphiProjectFixPathsOperation.cs b/DelphiProjectHandler/src/Operations/Projects/DelphiProjectFixPathsOperation.cs new file mode 100644 index 0000000..482ba45 --- /dev/null +++ b/DelphiProjectHandler/src/Operations/Projects/DelphiProjectFixPathsOperation.cs @@ -0,0 +1,23 @@ +using System; +using System.Collections.Generic; +using System.Text; +using DelphiProjectHandler.Operations.Uses; + +namespace DelphiProjectHandler.Operations.Projects +{ + public class DelphiProjectFixPathsOperation: AbstractDelphiProjectOperation + { + protected override IUsesListOperation CreateUsesOperation(string aFileName, IProjectOperationSettings aSettings, IUnitItemBuilder aBuilder) + { + IUsesListOperationSettings vUsesSettings = new UsesListOperationSettings(); + vUsesSettings.RequiredUnits = aSettings.RequiredUnits; + vUsesSettings.UnitItemBuilder = aBuilder; + vUsesSettings.UnitsToManipulate = aSettings.UnitsToManipulate; + return new UsesListFixPathOperation(vUsesSettings); + } + + public DelphiProjectFixPathsOperation(ICollection aRequiredUnits, ICollection aUnitsToManipulate, bool aUsePaths): base(aRequiredUnits, aUnitsToManipulate, aUsePaths) + { + } + } +} diff --git a/DelphiProjectHandler/src/Operations/Projects/DelphiProjectRemoveUnitsOperation.cs b/DelphiProjectHandler/src/Operations/Projects/DelphiProjectRemoveUnitsOperation.cs new file mode 100644 index 0000000..2e918b7 --- /dev/null +++ b/DelphiProjectHandler/src/Operations/Projects/DelphiProjectRemoveUnitsOperation.cs @@ -0,0 +1,24 @@ +using System; +using System.Collections.Generic; +using System.Text; +using DelphiProjectHandler.Operations.Uses; + +namespace DelphiProjectHandler.Operations.Projects +{ + public class DelphiProjectRemoveUnitOperation: AbstractDelphiProjectOperation + { + public DelphiProjectRemoveUnitOperation(ICollection aRequiredUnits, ICollection aUnitsToManipulate, bool aUsePaths) + : base(aRequiredUnits, aUnitsToManipulate, aUsePaths) + { + } + + protected override IUsesListOperation CreateUsesOperation(string aFileName, IProjectOperationSettings aSettings, IUnitItemBuilder aBuilder) + { + IUsesListOperationSettings vUsesSettings = new UsesListOperationSettings(); + vUsesSettings.RequiredUnits = aSettings.RequiredUnits; + vUsesSettings.UnitItemBuilder = aBuilder; + vUsesSettings.UnitsToManipulate = aSettings.UnitsToManipulate; + return new UsesListDeleteOperation(vUsesSettings); + } + } +} diff --git a/DelphiProjectHandler/src/Operations/Projects/IProjectOperationSettings.cs b/DelphiProjectHandler/src/Operations/Projects/IProjectOperationSettings.cs new file mode 100644 index 0000000..a7bf7f9 --- /dev/null +++ b/DelphiProjectHandler/src/Operations/Projects/IProjectOperationSettings.cs @@ -0,0 +1,14 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; + +namespace DelphiProjectHandler.Operations.Projects +{ + public interface IProjectOperationSettings + { + ICollection RequiredUnits { get; set; } + ICollection UnitsToManipulate { get; set; } + bool UsePaths { get; set; } + } +} diff --git a/DelphiProjectHandler/src/Operations/Projects/IProjectOperationState.cs b/DelphiProjectHandler/src/Operations/Projects/IProjectOperationState.cs new file mode 100644 index 0000000..17f8100 --- /dev/null +++ b/DelphiProjectHandler/src/Operations/Projects/IProjectOperationState.cs @@ -0,0 +1,14 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; + +namespace DelphiProjectHandler.Operations.Projects +{ + public interface IProjectOperationState : IOperationState + { + string FileContent { get; set; } + string OriginalUsesClause { get; set; } + UnitList Units { get; set; } + } +} diff --git a/DelphiProjectHandler/src/Operations/Projects/ProjectOperationSettings.cs b/DelphiProjectHandler/src/Operations/Projects/ProjectOperationSettings.cs new file mode 100644 index 0000000..f38db5f --- /dev/null +++ b/DelphiProjectHandler/src/Operations/Projects/ProjectOperationSettings.cs @@ -0,0 +1,31 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; + +namespace DelphiProjectHandler.Operations.Projects +{ + public class ProjectOperationSettings: IProjectOperationSettings + { + private ICollection fRequiredUnits; + public ICollection RequiredUnits + { + get { return fRequiredUnits; } + set { fRequiredUnits = value; } + } + + private ICollection fUnitsToManipulate; + public ICollection UnitsToManipulate + { + get { return fUnitsToManipulate; } + set { fUnitsToManipulate = value; } + } + + private bool fUsePaths; + public bool UsePaths + { + get { return fUsePaths; } + set { fUsePaths = value; } + } + } +} diff --git a/DelphiProjectHandler/src/Operations/Projects/ProjectOperationState.cs b/DelphiProjectHandler/src/Operations/Projects/ProjectOperationState.cs new file mode 100644 index 0000000..e50dcca --- /dev/null +++ b/DelphiProjectHandler/src/Operations/Projects/ProjectOperationState.cs @@ -0,0 +1,31 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; + +namespace DelphiProjectHandler.Operations.Projects +{ + public class ProjectOperationState : IProjectOperationState + { + private string fFileContent; + public string FileContent + { + get { return fFileContent; } + set { fFileContent = value; } + } + + private string fOriginalUsesState; + public string OriginalUsesClause + { + get { return fOriginalUsesState; } + set { fOriginalUsesState = value; } + } + + private UnitList fUnits; + public UnitList Units + { + get { return fUnits; } + set { fUnits = value; } + } + } +} diff --git a/DelphiProjectHandler/src/Operations/Projects/ProjectUnitItemBuilder.cs b/DelphiProjectHandler/src/Operations/Projects/ProjectUnitItemBuilder.cs new file mode 100644 index 0000000..4f8f688 --- /dev/null +++ b/DelphiProjectHandler/src/Operations/Projects/ProjectUnitItemBuilder.cs @@ -0,0 +1,63 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; +using System.IO; +using DelphiProjectHandler.Dialogs; + +namespace DelphiProjectHandler.Operations.Projects +{ + /// + /// UnitItem builder for creating complete project file unit item. New UnitItem will have all properties set that are normally used in a project Delphi file. It will also + /// search for corresponding dfm file. + /// + class ProjectUnitItemBuilder: IUnitItemBuilder + { + /// + /// Complete fileName or path of the project file. It is used to calculate new unit item path relative to project file location. + /// + public string BasePath + { + get { return fBasePath; } + } + private string fBasePath; + + /// + /// Indicates, if unit paths should be added in a project file style, when converting the unit list to uses clause. + /// + public bool UsePaths + { + get { return fUsePaths; } + } + private bool fUsePaths; + + /// + /// Creates new instance of the ProjectItemBuilder. + /// + /// Complete fileName or path of the project file. It is used to calculate new unit item path relative to project file location. + public ProjectUnitItemBuilder(string aBasePath, bool aUsePaths) + { + fBasePath = aBasePath; + fUsePaths = aUsePaths; + } + + /// + /// Creates new UnitItem object and fills it will all required information that can be used in a project file. Requires valid RelativePath builder and UnitFormFinder. + /// It finds corresponding form for the unit automatically. Path is always set relatively to the BasePath. + /// + /// + /// + public UnitItem Create(string aUnitFileName) + { + UnitItem vResult = new UnitItem(); + vResult.Name = Path.GetFileNameWithoutExtension(aUnitFileName); + vResult.UsePath = UsePaths; + if (!aUnitFileName.Equals("")) + vResult.Path = Path.GetDirectoryName(aUnitFileName); + vResult.Path = RelativePath.GetRelativeFileName(BasePath, vResult.Path); + vResult.Form = UnitFormReader.GetUnitForm(aUnitFileName); + + return vResult; + } + } +} diff --git a/DelphiProjectHandler/src/Operations/Units/AbstractDelphiUnitOperation.cs b/DelphiProjectHandler/src/Operations/Units/AbstractDelphiUnitOperation.cs new file mode 100644 index 0000000..7d64765 --- /dev/null +++ b/DelphiProjectHandler/src/Operations/Units/AbstractDelphiUnitOperation.cs @@ -0,0 +1,87 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; +using DelphiProjectHandler.Operations.Uses; + +namespace DelphiProjectHandler.Operations.Units +{ + public abstract class AbstractDelphiUnitOperation: IDelphiFileOperation + { + private IUsesListOperation fIntfOperation; + private IUsesListOperation fImplOperation; + + private IDelphiUnitOperationState fState; + protected IDelphiUnitOperationState State + { + get { return fState; } + set { fState = value; } + } + + private IDelphiUnitOperationSettings fSettings; + protected IDelphiUnitOperationSettings Settings + { + get { return fSettings; } + set { fSettings = value; } + } + + protected IUnitItemBuilder CreateUnitItemBuilder() + { + return new DelphiUnitItemBuilder(); + } + + protected IDelphiUnitOperationSettings CreateSettings(ICollection aRequiredUnits, ICollection aInterfaceUnits, ICollection aImplementationUnits) + { + IDelphiUnitOperationSettings vSettings = new DelphiUnitOperationSettings(); + vSettings.RequiredUnits = aRequiredUnits; + vSettings.IntfUnitsToManipulate = aInterfaceUnits; + vSettings.ImplUnitsToManipulate = aImplementationUnits; + return vSettings; + } + + protected abstract IUsesListOperation CreateUsesOperation(ICollection aUnitsToManipulate, ICollection aRequiredUnits, IUnitItemBuilder aBuilder); + + protected virtual string ReplaceContent(string iContent, string iOldValue, string iNewValue) + { + return iContent.Replace(iOldValue, iNewValue); + } + + public AbstractDelphiUnitOperation(ICollection aInterfaceUnits, ICollection aImplementationUnits, ICollection aRequiredUnits) + { + fState = new DelphiUnitOperationState(); + fSettings = CreateSettings(aRequiredUnits, aInterfaceUnits, aImplementationUnits); + } + + public void Initialize(string aFileName, string aFileContent) + { + State.FileContent = aFileContent; + string vIntfUsesClause = "", vImplUsesClause = ""; + UsesClauseReader.ExtractUses(aFileContent, out vIntfUsesClause, out vImplUsesClause); + State.OriginalIntfUsesClause = vIntfUsesClause; + State.OriginalImplUsesClause = vImplUsesClause; + State.IntfUnits = UsesClauseReader.GetUnits(vIntfUsesClause); + State.ImplUnits = UsesClauseReader.GetUnits(vImplUsesClause); + IUnitItemBuilder vBuilder = CreateUnitItemBuilder(); + fIntfOperation = CreateUsesOperation(Settings.IntfUnitsToManipulate, Settings.RequiredUnits, vBuilder); + fImplOperation = CreateUsesOperation(Settings.ImplUnitsToManipulate, Settings.RequiredUnits, vBuilder); + fIntfOperation.Initialize(State.IntfUnits); + fImplOperation.Initialize(State.ImplUnits); + } + + public bool CanProcess() + { + return (fIntfOperation.CanProcess() || fImplOperation.CanProcess()); + } + + public string Execute() + { + string vContent = State.FileContent; + if (fIntfOperation.Execute()) + vContent = ReplaceContent(vContent, State.OriginalIntfUsesClause, State.IntfUnits.ToString()); + if (fImplOperation.Execute()) + vContent = ReplaceContent(vContent, State.OriginalImplUsesClause, State.ImplUnits.ToString()); + + return vContent; + } + } +} diff --git a/DelphiProjectHandler/src/Operations/Units/DelphiUnitAddOperation.cs b/DelphiProjectHandler/src/Operations/Units/DelphiUnitAddOperation.cs new file mode 100644 index 0000000..5f7cde0 --- /dev/null +++ b/DelphiProjectHandler/src/Operations/Units/DelphiUnitAddOperation.cs @@ -0,0 +1,26 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; +using System.IO; +using DelphiProjectHandler.Operations.Uses; + +namespace DelphiProjectHandler.Operations.Units +{ + public class DelphiUnitAddOperation: AbstractDelphiUnitOperation + { + protected override IUsesListOperation CreateUsesOperation(ICollection aUnitsToManipulate, ICollection aRequiredUnits, IUnitItemBuilder aBuilder) + { + IUsesListOperationSettings vUsesSettings = new UsesListOperationSettings(); + vUsesSettings.RequiredUnits = aRequiredUnits; + vUsesSettings.UnitItemBuilder = aBuilder; + vUsesSettings.UnitsToManipulate = aUnitsToManipulate; + return new UsesListAddOperation(vUsesSettings); + } + + public DelphiUnitAddOperation(ICollection aInterfaceUnits, ICollection aImplementationUnits, ICollection aRequiredUnits) + : base(aInterfaceUnits, aImplementationUnits, aRequiredUnits) + { + } + } +} diff --git a/DelphiProjectHandler/src/Operations/Units/DelphiUnitCleanerOperation.cs b/DelphiProjectHandler/src/Operations/Units/DelphiUnitCleanerOperation.cs new file mode 100644 index 0000000..e8d631f --- /dev/null +++ b/DelphiProjectHandler/src/Operations/Units/DelphiUnitCleanerOperation.cs @@ -0,0 +1,101 @@ +/* + * Created by SharpDevelop. + * User: SG0894652 + * Date: 8/12/2009 + * Time: 11:06 PM + * + * To change this template use Tools | Options | Coding | Edit Standard Headers. + */ +using System; +using System.Collections.Generic; +using DelphiProjectHandler.Operations; + +namespace DelphiProjectHandler.Operations.Units +{ + /// + /// Description of DelphiUnitCleanerOperation. + /// + public class DelphiUnitCleanerOperation: DelphiOperation + { + public DelphiUnitCleanerOperation(): base() + { + } + + protected SuggestedUnitStructure RemoveIgnoredUnits(SuggestedUnitStructure iSuggestedUnitStructure, IList iIgnoredUnits) + { + List vList = new List(iIgnoredUnits); + for (int vUnitIdx = 0; vUnitIdx < vList.Count; vUnitIdx++) + vList[vUnitIdx] = vList[vUnitIdx].ToLower(); + + SuggestedUnitStructure vResult = iSuggestedUnitStructure.Clone(); + RemoveUnits(vResult.MoveToInterface, vList); + RemoveUnits(vResult.ToDelete, vList); + return vResult; + } + + protected void RemoveUnits(UnitList iList, IList iToRemove) + { + for (int vUnitIdx = iList.Count - 1; vUnitIdx >= 0; vUnitIdx--) + if (iToRemove.IndexOf(iList[vUnitIdx].Name.ToLower()) >= 0) + iList.RemoveAt(vUnitIdx); + } + + protected void AddUnits(UnitList iList, UnitList iToAdd) + { + for (int vUnitIdx = iToAdd.Count - 1; vUnitIdx >= 0; vUnitIdx--) + { + UnitItem vUnit = iToAdd[vUnitIdx]; + if (iList.IndexOf(vUnit.Name) < 0) + iList.Insert(0, vUnit); + } + } + + protected UnitList GetUsesList(string iUsesContent) + { + if (!iUsesContent.Trim().Equals("")) + return UsesClauseReader.GetUnits(iUsesContent); + else + return new UnitList(); + } + + protected string CleanUpInterface(string iUnitContent, string iUsesContent, SuggestedUnitStructure iSuggestedStructure) + { + if (iUsesContent.Trim().Equals("")) + return iUnitContent; + + UnitList vUnits = GetUsesList(iUsesContent); + RemoveUnits(vUnits, iSuggestedStructure.ToDelete); + RemoveUnits(vUnits, iSuggestedStructure.MoveToInterface); + return ReplaceContent(iUnitContent, iUsesContent, vUnits.ToString()); + } + + protected string CleanUpImplementation(string iUnitContent, string iUsesContent, SuggestedUnitStructure iSuggestedStructure) + { + UnitList vUnits = GetUsesList(iUsesContent); + RemoveUnits(vUnits, iSuggestedStructure.ToDelete); + AddUnits(vUnits, iSuggestedStructure.MoveToInterface); + if (vUnits.Count == 0 && iUsesContent.Trim().Equals("")) + return iUnitContent; + + string vNewValue = vUnits.ToString(); + if (iUsesContent.Trim().Equals("")) + { + iUsesContent = "implementation"; + vNewValue = "implementation\r\n\r\n" + vNewValue; + } + return ReplaceContent(iUnitContent, iUsesContent, vNewValue); + } + + public string Execute(string iUnitContent, SuggestedUnitStructure iSuggestedStructure, IList iIgnoredUnits) + { + string vInterface, vImplementation; + SuggestedUnitStructure vSuggestedStructure = RemoveIgnoredUnits(iSuggestedStructure.Clone(), iIgnoredUnits); + UsesClauseReader.ExtractUses(iUnitContent, out vInterface, out vImplementation); + string vResult = iUnitContent; + vResult = CleanUpInterface(vResult, vInterface, vSuggestedStructure); + vResult = CleanUpImplementation(vResult, vImplementation, vSuggestedStructure); + + return vResult; + } + } +} diff --git a/DelphiProjectHandler/src/Operations/Units/DelphiUnitItemBuilder.cs b/DelphiProjectHandler/src/Operations/Units/DelphiUnitItemBuilder.cs new file mode 100644 index 0000000..144fe9e --- /dev/null +++ b/DelphiProjectHandler/src/Operations/Units/DelphiUnitItemBuilder.cs @@ -0,0 +1,19 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; +using System.IO; + +namespace DelphiProjectHandler.Operations.Units +{ + public class DelphiUnitItemBuilder: IUnitItemBuilder + { + public UnitItem Create(string aUnitFileName) + { + UnitItem vResult = new UnitItem(); + vResult.Name = Path.GetFileNameWithoutExtension(aUnitFileName); + + return vResult; + } + } +} diff --git a/DelphiProjectHandler/src/Operations/Units/DelphiUnitOperationSettings.cs b/DelphiProjectHandler/src/Operations/Units/DelphiUnitOperationSettings.cs new file mode 100644 index 0000000..24221e4 --- /dev/null +++ b/DelphiProjectHandler/src/Operations/Units/DelphiUnitOperationSettings.cs @@ -0,0 +1,31 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; + +namespace DelphiProjectHandler.Operations.Units +{ + public class DelphiUnitOperationSettings: IDelphiUnitOperationSettings + { + private ICollection fRequiredUnits; + public ICollection RequiredUnits + { + get { return fRequiredUnits; } + set { fRequiredUnits = value; } + } + + private ICollection fIntfUnitsToManipulate; + public ICollection IntfUnitsToManipulate + { + get { return fIntfUnitsToManipulate; } + set { fIntfUnitsToManipulate = value; } + } + + private ICollection fImplUnitsToManipulate; + public ICollection ImplUnitsToManipulate + { + get { return fImplUnitsToManipulate; } + set { fImplUnitsToManipulate = value; } + } + } +} diff --git a/DelphiProjectHandler/src/Operations/Units/DelphiUnitOperationState.cs b/DelphiProjectHandler/src/Operations/Units/DelphiUnitOperationState.cs new file mode 100644 index 0000000..f0e9c94 --- /dev/null +++ b/DelphiProjectHandler/src/Operations/Units/DelphiUnitOperationState.cs @@ -0,0 +1,45 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; + +namespace DelphiProjectHandler.Operations.Units +{ + public class DelphiUnitOperationState: IDelphiUnitOperationState + { + private string fFileContent; + public string FileContent + { + get { return fFileContent; } + set { fFileContent = value; } + } + + private string fOriginalIntfUsesClause; + public string OriginalIntfUsesClause + { + get { return fOriginalIntfUsesClause; } + set { fOriginalIntfUsesClause = value; } + } + + private string fOriginalImplUsesClause; + public string OriginalImplUsesClause + { + get { return fOriginalImplUsesClause; } + set { fOriginalImplUsesClause = value; } + } + + private UnitList fIntfUnits; + public UnitList IntfUnits + { + get { return fIntfUnits; } + set { fIntfUnits = value; } + } + + private UnitList fImplUnits; + public UnitList ImplUnits + { + get { return fImplUnits; } + set { fImplUnits = value; } + } + } +} diff --git a/DelphiProjectHandler/src/Operations/Units/DelphiUnitUsesOperation.cs b/DelphiProjectHandler/src/Operations/Units/DelphiUnitUsesOperation.cs new file mode 100644 index 0000000..26dbace --- /dev/null +++ b/DelphiProjectHandler/src/Operations/Units/DelphiUnitUsesOperation.cs @@ -0,0 +1,55 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; +using DelphiProjectHandler.Operations; + +namespace DelphiProjectHandler.Operations.Units +{ + public abstract class DelphiUnitUsesOperation: DelphiOperation, IDelphiUnitOperation + { + protected virtual bool CanProcessUnit(UnitList aCurrentIntfUnits, UnitList aCurrentImplUnits, ICollection aRequiredUnits) + { + return aCurrentIntfUnits.Concat(aCurrentImplUnits).Intersect(aRequiredUnits).Count() == aRequiredUnits.Count; + } + + public string Execute(string aUnitContent, ICollection aInterfaceUnits, ICollection aImplementationUnits, ICollection aRequiredUnits) + { + string vCurrentIntfUses = ""; + string vCurrentImplUses = ""; + UsesClauseReader.ExtractUses(aUnitContent, out vCurrentIntfUses, out vCurrentImplUses); + UnitList vCurrentIntfUnits = UsesClauseReader.GetUnits(vCurrentIntfUses); + UnitList vCurrentImplUnits = UsesClauseReader.GetUnits(vCurrentImplUses); + + if (!CanProcessUnit(vCurrentIntfUnits, vCurrentImplUnits, aRequiredUnits)) + return aUnitContent; + + string vNewUnitContent = ProcessUsesSection(aUnitContent, vCurrentIntfUses, vCurrentIntfUnits, aInterfaceUnits, "interface"); + return ProcessUsesSection(vNewUnitContent, vCurrentImplUses, vCurrentImplUnits, aImplementationUnits, "implementation"); + } + + protected string ProcessUsesSection(string aUnitContent, string aCurrentUsesClause, UnitList aCurrentUnitList, ICollection aUnits, string aMissingUsesReplacement) + { + bool vListModified = ProcessUsesList(aCurrentUnitList, aUnits); + if (!vListModified) + return aUnitContent; + + return BuildNewUsesClause(aUnitContent, aCurrentUsesClause, aCurrentUnitList, aMissingUsesReplacement); + } + + protected string BuildNewUsesClause(string aUnitContent, string aCurrentUsesClause, UnitList aCurrentUnitList, string aMissingUsesReplacement) + { + string vLineStarting = ""; + string vLineEnding = ""; + if (aCurrentUsesClause == "") + { + aCurrentUsesClause = aMissingUsesReplacement + Environment.NewLine; + vLineStarting = aCurrentUsesClause + Environment.NewLine; + } + + return ReplaceContent(aUnitContent, aCurrentUsesClause, vLineStarting + aCurrentUnitList.ToString() + vLineEnding); + } + + protected abstract bool ProcessUsesList(UnitList aCurrentUnitList, ICollection aUnits); + } +} diff --git a/DelphiProjectHandler/src/Operations/Units/IDelphiUnitOperation.cs b/DelphiProjectHandler/src/Operations/Units/IDelphiUnitOperation.cs new file mode 100644 index 0000000..296b138 --- /dev/null +++ b/DelphiProjectHandler/src/Operations/Units/IDelphiUnitOperation.cs @@ -0,0 +1,12 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; + +namespace DelphiProjectHandler.Operations.Units +{ + public interface IDelphiUnitOperation + { + string Execute(string aUnitContent, ICollection aInterfaceUnits, ICollection aImplementationUnits, ICollection aRequiredUnits); + } +} diff --git a/DelphiProjectHandler/src/Operations/Units/IDelphiUnitOperationSettings.cs b/DelphiProjectHandler/src/Operations/Units/IDelphiUnitOperationSettings.cs new file mode 100644 index 0000000..bae719d --- /dev/null +++ b/DelphiProjectHandler/src/Operations/Units/IDelphiUnitOperationSettings.cs @@ -0,0 +1,14 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; + +namespace DelphiProjectHandler.Operations.Units +{ + public interface IDelphiUnitOperationSettings + { + ICollection RequiredUnits { get; set; } + ICollection IntfUnitsToManipulate { get; set; } + ICollection ImplUnitsToManipulate { get; set; } + } +} diff --git a/DelphiProjectHandler/src/Operations/Units/IDelphiUnitOperationState.cs b/DelphiProjectHandler/src/Operations/Units/IDelphiUnitOperationState.cs new file mode 100644 index 0000000..d5bea99 --- /dev/null +++ b/DelphiProjectHandler/src/Operations/Units/IDelphiUnitOperationState.cs @@ -0,0 +1,16 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; + +namespace DelphiProjectHandler.Operations.Units +{ + public interface IDelphiUnitOperationState: IOperationState + { + string FileContent { get; set; } + string OriginalIntfUsesClause { get; set; } + string OriginalImplUsesClause { get; set; } + UnitList IntfUnits { get; set; } + UnitList ImplUnits { get; set; } + } +} diff --git a/DelphiProjectHandler/src/Operations/Uses/AbstractUsesListOperation.cs b/DelphiProjectHandler/src/Operations/Uses/AbstractUsesListOperation.cs new file mode 100644 index 0000000..22ffeaf --- /dev/null +++ b/DelphiProjectHandler/src/Operations/Uses/AbstractUsesListOperation.cs @@ -0,0 +1,67 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; + +namespace DelphiProjectHandler.Operations.Uses +{ + public abstract class AbstractUsesListOperation: IUsesListOperation + { + private IUsesListOperationSettings fSettings; + protected IUsesListOperationSettings Settings + { + get { return fSettings; } + set { fSettings = value; } + } + + private IUsesListOperationState fState; + protected IUsesListOperationState State + { + get { return fState; } + } + + protected virtual bool CanProcessUnit(UnitItem aUnit) + { + return (aUnit.Name != "" && State.Units.Contains(aUnit.Name)); + } + + protected virtual IUsesListOperationState CreateState(UnitList aUnitList) + { + UsesListOperationState vState = new UsesListOperationState(); + vState.Units = aUnitList; + return vState; + } + + protected abstract bool ProcessUnit(UnitList aUnits, UnitItem aUnit); + + public AbstractUsesListOperation(IUsesListOperationSettings aSettings) + { + Settings = aSettings; + } + + public void Initialize(UnitList aUnitList) + { + fState = CreateState(aUnitList); + } + + public bool CanProcess() + { + return (State.Units.Intersect(Settings.RequiredUnits).Count() == Settings.RequiredUnits.Count); + } + + public bool Execute() + { + bool vListModified = false; + foreach (string vUnitFileName in Settings.UnitsToManipulate) + { + UnitItem vUnit = Settings.UnitItemBuilder.Create(vUnitFileName); + if (!CanProcessUnit(vUnit)) + continue; + + vListModified = ProcessUnit(State.Units, vUnit) || vListModified; + } + + return vListModified; + } + } +} diff --git a/DelphiProjectHandler/src/Operations/Uses/IUsesListOperation.cs b/DelphiProjectHandler/src/Operations/Uses/IUsesListOperation.cs new file mode 100644 index 0000000..ada6347 --- /dev/null +++ b/DelphiProjectHandler/src/Operations/Uses/IUsesListOperation.cs @@ -0,0 +1,14 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; + +namespace DelphiProjectHandler.Operations.Uses +{ + public interface IUsesListOperation + { + void Initialize(UnitList aUnitList); + bool CanProcess(); + bool Execute(); + } +} diff --git a/DelphiProjectHandler/src/Operations/Uses/IUsesListOperationSettings.cs b/DelphiProjectHandler/src/Operations/Uses/IUsesListOperationSettings.cs new file mode 100644 index 0000000..31a7bd3 --- /dev/null +++ b/DelphiProjectHandler/src/Operations/Uses/IUsesListOperationSettings.cs @@ -0,0 +1,14 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; + +namespace DelphiProjectHandler.Operations.Uses +{ + public interface IUsesListOperationSettings + { + ICollection RequiredUnits { get; set; } + ICollection UnitsToManipulate { get; set; } + IUnitItemBuilder UnitItemBuilder { get; set; } + } +} diff --git a/DelphiProjectHandler/src/Operations/Uses/IUsesListOperationState.cs b/DelphiProjectHandler/src/Operations/Uses/IUsesListOperationState.cs new file mode 100644 index 0000000..5fb1b6f --- /dev/null +++ b/DelphiProjectHandler/src/Operations/Uses/IUsesListOperationState.cs @@ -0,0 +1,12 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; + +namespace DelphiProjectHandler.Operations.Uses +{ + public interface IUsesListOperationState: IOperationState + { + UnitList Units { get; } + } +} diff --git a/DelphiProjectHandler/src/Operations/Uses/UsesListAddOperation.cs b/DelphiProjectHandler/src/Operations/Uses/UsesListAddOperation.cs new file mode 100644 index 0000000..13dd19e --- /dev/null +++ b/DelphiProjectHandler/src/Operations/Uses/UsesListAddOperation.cs @@ -0,0 +1,28 @@ +using System; +using System.Collections.Generic; +using System.IO; +using System.Linq; +using System.Text; +using DelphiProjectHandler.Dialogs; + +namespace DelphiProjectHandler.Operations.Uses +{ + public class UsesListAddOperation: AbstractUsesListOperation + { + protected override bool ProcessUnit(UnitList aUnits, UnitItem aUnit) + { + aUnits.Add(aUnit); + return true; + } + + protected override bool CanProcessUnit(UnitItem aUnit) + { + return (aUnit.Name != "") && !State.Units.Contains(aUnit.Name); + } + + public UsesListAddOperation(IUsesListOperationSettings aSettings) + : base(aSettings) + { + } + } +} diff --git a/DelphiProjectHandler/src/Operations/Uses/UsesListDeleteOperation.cs b/DelphiProjectHandler/src/Operations/Uses/UsesListDeleteOperation.cs new file mode 100644 index 0000000..94cda7b --- /dev/null +++ b/DelphiProjectHandler/src/Operations/Uses/UsesListDeleteOperation.cs @@ -0,0 +1,29 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; + +namespace DelphiProjectHandler.Operations.Uses +{ + public class UsesListDeleteOperation : AbstractUsesListOperation + { + protected override bool ProcessUnit(UnitList aUnits, UnitItem aUnit) + { + int vUnitIdx = aUnits.IndexOf(aUnit.Name); + UnitItem vToDelete = aUnits[vUnitIdx]; + if (vToDelete.HasStartingConditions && !vToDelete.HasEndingConditions && vUnitIdx < aUnits.Count - 1) + aUnits[vUnitIdx + 1].StartingConditions = vToDelete.StartingConditions; + else + if (vToDelete.HasEndingConditions && !vToDelete.HasStartingConditions && vUnitIdx > 0) + aUnits[vUnitIdx - 1].EndingConditions = vToDelete.EndingConditions; + + aUnits.RemoveAt(vUnitIdx); + return true; + } + + public UsesListDeleteOperation(IUsesListOperationSettings aSettings) + : base(aSettings) + { + } + } +} diff --git a/DelphiProjectHandler/src/Operations/Uses/UsesListFixFormOperation.cs b/DelphiProjectHandler/src/Operations/Uses/UsesListFixFormOperation.cs new file mode 100644 index 0000000..2d9f8d9 --- /dev/null +++ b/DelphiProjectHandler/src/Operations/Uses/UsesListFixFormOperation.cs @@ -0,0 +1,26 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; + +namespace DelphiProjectHandler.Operations.Uses +{ + public class UsesListFixFormOperation: AbstractUsesListOperation + { + protected override bool ProcessUnit(UnitList aUnits, UnitItem aUnit) + { + int vUnitIdx = aUnits.IndexOf(aUnit.Name); + if (aUnits[vUnitIdx].Form == aUnit.Form) + return false; + + UnitItem vToFix = aUnits[vUnitIdx]; + vToFix.Form = aUnit.Form; + + return true; + } + + public UsesListFixFormOperation(IUsesListOperationSettings aSettings): base(aSettings) + { + } + } +} diff --git a/DelphiProjectHandler/src/Operations/Uses/UsesListFixPathOperation.cs b/DelphiProjectHandler/src/Operations/Uses/UsesListFixPathOperation.cs new file mode 100644 index 0000000..dfce4b9 --- /dev/null +++ b/DelphiProjectHandler/src/Operations/Uses/UsesListFixPathOperation.cs @@ -0,0 +1,25 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; + +namespace DelphiProjectHandler.Operations.Uses +{ + public class UsesListFixPathOperation: AbstractUsesListOperation + { + protected override bool ProcessUnit(UnitList aUnits, UnitItem aUnit) + { + int vUnitIdx = aUnits.IndexOf(aUnit.Name); + UnitItem iToFix = aUnits[vUnitIdx]; + iToFix.UsePath = aUnit.UsePath; + iToFix.Path = aUnit.Path; + + return true; + } + + public UsesListFixPathOperation(IUsesListOperationSettings aSettings): base(aSettings) + { + } + + } +} diff --git a/DelphiProjectHandler/src/Operations/Uses/UsesListOperationSettings.cs b/DelphiProjectHandler/src/Operations/Uses/UsesListOperationSettings.cs new file mode 100644 index 0000000..6cf3228 --- /dev/null +++ b/DelphiProjectHandler/src/Operations/Uses/UsesListOperationSettings.cs @@ -0,0 +1,31 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; + +namespace DelphiProjectHandler.Operations.Uses +{ + public class UsesListOperationSettings: IUsesListOperationSettings + { + private ICollection fRequiredUnits; + public ICollection RequiredUnits + { + get { return fRequiredUnits; } + set { fRequiredUnits = value; } + } + + private ICollection fUnitsToManipulate; + public ICollection UnitsToManipulate + { + get { return fUnitsToManipulate; } + set { fUnitsToManipulate = value; } + } + + private IUnitItemBuilder fUnitItemBuilder; + public IUnitItemBuilder UnitItemBuilder + { + get { return fUnitItemBuilder; } + set { fUnitItemBuilder = value; } + } + } +} diff --git a/DelphiProjectHandler/src/Operations/Uses/UsesListOperationState.cs b/DelphiProjectHandler/src/Operations/Uses/UsesListOperationState.cs new file mode 100644 index 0000000..988869a --- /dev/null +++ b/DelphiProjectHandler/src/Operations/Uses/UsesListOperationState.cs @@ -0,0 +1,17 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; + +namespace DelphiProjectHandler.Operations.Uses +{ + public class UsesListOperationState: IUsesListOperationState + { + private UnitList fUnits; + public UnitList Units + { + get { return fUnits; } + set { fUnits = value; } + } + } +} diff --git a/DelphiProjectHandler/src/SourceControl/SourceOffsiteClass.cs b/DelphiProjectHandler/src/SourceControl/SourceOffsiteClass.cs new file mode 100644 index 0000000..171f8f0 --- /dev/null +++ b/DelphiProjectHandler/src/SourceControl/SourceOffsiteClass.cs @@ -0,0 +1,137 @@ +using System; +using System.Diagnostics; +using System.IO; + +using DelphiProjectHandler.Dialogs; + +namespace DelphiProjectHandler.SourceControl +{ + public class SourceOffsite + { + protected bool WasFileCheckedOut(string iResult) + { + return iResult.StartsWith("Checked out file:"); + } + + protected void Initialize( + string iServerName, + int iServerPort, + string iAlias, + string iUserName, + string iPassword, + string iBaseFolder) + { + ServerName = iServerName; + ServerPort = iServerPort; + Alias = iAlias; + UserName = iUserName; + Password = iPassword; + BaseFolder = iBaseFolder; + } + + protected virtual string GetApplicationFileName() + { + return @"c:\program files\SourceOffsite\soscmd.exe"; + } + + protected string GetCommandParameters(string iFileName) + { + string vFileName = Path.GetFileName(iFileName); + string vProjectPath = Path.GetDirectoryName(iFileName); + if (vProjectPath.StartsWith(BaseFolder)) + { + vProjectPath = vProjectPath.Substring(BaseFolder.Length); + vProjectPath = vProjectPath.TrimStart(Path.DirectorySeparatorChar); + vProjectPath = PathUtils.RemoveEndingDirectorySeparator(vProjectPath); + } + vProjectPath = vProjectPath.Replace(Path.DirectorySeparatorChar, '/'); + + return string.Format( + @"-command CheckoutFile -server {0}:{1} " + + @"-alias {2} -name {3} -password {4} " + + @"-project $/{5} -file {6}", + ServerName, ServerPort, Alias, UserName, Password, vProjectPath, vFileName); + } + + protected virtual string RunCommand(string iFileName) + { + iFileName = iFileName.Trim(); + if (iFileName == "") + throw new ArgumentException("File name to checkout can not be empty", "iFileName"); + + Process vProcess = new Process(); + vProcess.StartInfo.FileName = GetApplicationFileName(); + vProcess.StartInfo.Arguments = GetCommandParameters(iFileName); + vProcess.StartInfo.CreateNoWindow = true; + vProcess.StartInfo.ErrorDialog = false; + vProcess.StartInfo.RedirectStandardError = true; + vProcess.StartInfo.RedirectStandardInput = true; + vProcess.StartInfo.RedirectStandardOutput = true; + vProcess.StartInfo.WindowStyle = ProcessWindowStyle.Hidden; + vProcess.StartInfo.UseShellExecute = false; + vProcess.Start(); + + vProcess.WaitForExit(); + return vProcess.StandardOutput.ReadToEnd(); + } + + public SourceOffsite( + string iServerName, + int iServerPort, + string iAlias, + string iUserName, + string iPassword, + string iBaseFolder) + { + Initialize(iServerName, iServerPort, iAlias, iUserName, iPassword, iBaseFolder); + } + + public bool CheckoutFile(string iFileName) + { + string vResult = RunCommand(iFileName); + return WasFileCheckedOut(vResult); + } + + public string ServerName + { + get { return fServerName; } + set { fServerName = value; } + } + protected string fServerName; + + public int ServerPort + { + get { return fServerPort; } + set { fServerPort = value; } + } + private int fServerPort; + + public string UserName + { + get { return fUserName; } + set { fUserName = value; } + } + protected string fUserName; + + public string Password + { + get { return fPassword; } + set { fPassword = value; } + } + protected string fPassword; + + public string Alias + { + get { return fAlias; } + set { fAlias = value; } + } + protected string fAlias; + + public string BaseFolder + { + get { return fBaseFolder; } + set { fBaseFolder = value; } + } + private string fBaseFolder; + } +} diff --git a/DelphiProjectHandler/src/SuggestedUnitStructure.cs b/DelphiProjectHandler/src/SuggestedUnitStructure.cs new file mode 100644 index 0000000..e8ace05 --- /dev/null +++ b/DelphiProjectHandler/src/SuggestedUnitStructure.cs @@ -0,0 +1,60 @@ +/* + * Created by SharpDevelop. + * User: SG0894652 + * Date: 8/12/2009 + * Time: 10:17 PM + * + * To change this template use Tools | Options | Coding | Edit Standard Headers. + */ +using System; + +namespace DelphiProjectHandler +{ + /// + /// Description of IcarusSuggestedUnitUses. + /// + public class SuggestedUnitStructure: IDisposable + { + public SuggestedUnitStructure() + { + fUses = new UnitStructure(); + fToDelete = new UnitList(); + fMoveToInterface = new UnitList(); + } + + public void Dispose() + { + fUses = null; + fToDelete = null; + fMoveToInterface = null; + } + + public UnitStructure Uses + { + get { return fUses; } + } + protected UnitStructure fUses; + + public UnitList ToDelete + { + get { return fToDelete; } + } + protected UnitList fToDelete; + + public UnitList MoveToInterface + { + get { return fMoveToInterface; } + } + protected UnitList fMoveToInterface; + + public SuggestedUnitStructure Clone() + { + SuggestedUnitStructure vResult = new SuggestedUnitStructure(); + vResult.MoveToInterface.AddRange(MoveToInterface); + vResult.ToDelete.AddRange(ToDelete); + vResult.Uses.Interface.AddRange(Uses.Interface); + vResult.Uses.Implementation.AddRange(Uses.Implementation); + return vResult; + } + } +} diff --git a/DelphiProjectHandler/src/SuggestedUnitStructureList.cs b/DelphiProjectHandler/src/SuggestedUnitStructureList.cs new file mode 100644 index 0000000..3a74afd --- /dev/null +++ b/DelphiProjectHandler/src/SuggestedUnitStructureList.cs @@ -0,0 +1,23 @@ +/* + * Created by SharpDevelop. + * User: SG0894652 + * Date: 8/11/2009 + * Time: 6:50 AM + * + * To change this template use Tools | Options | Coding | Edit Standard Headers. + */ +using System; +using System.Collections.Generic; + +namespace DelphiProjectHandler +{ + /// + /// Description of UnitUsesLists. + /// + public class SuggestedUnitStructureList: Dictionary + { + public SuggestedUnitStructureList() + { + } + } +} diff --git a/DelphiProjectHandler/src/UnitFormReaderClass.cs b/DelphiProjectHandler/src/UnitFormReaderClass.cs new file mode 100644 index 0000000..88d9380 --- /dev/null +++ b/DelphiProjectHandler/src/UnitFormReaderClass.cs @@ -0,0 +1,92 @@ +using System; +using System.IO; +using System.Text.RegularExpressions; + +namespace DelphiProjectHandler +{ + public class UnitFormReader + { + protected static string cFormName = @"(inherited|object)\s+([^:]*):"; + + protected static string FindAndLoadFormFile(string iUnitFileName) + { + string vFormFileName = Path.ChangeExtension(iUnitFileName, ".dfm"); + if (!File.Exists(vFormFileName)) + throw new FileNotFoundException("File was not found.", vFormFileName); + + return File.ReadAllText(vFormFileName); + } + + public static string GetUnitForm(string iUnitFileName) + { + string vResult = ""; + + string vFileContent = ""; + try + { + vFileContent = FindAndLoadFormFile(iUnitFileName); + } + catch (FileNotFoundException) + { + return vResult; + } + + Regex vRegExpr = new Regex(cFormName); + if (vRegExpr.IsMatch(vFileContent)) + vResult = vRegExpr.Match(vFileContent).Groups[2].Value; + else + vResult = GetBinaryFormName(vFileContent); + + return vResult; + } + + public static string GetBinaryFormName(string iFileContent) + { + int vPos = iFileContent.IndexOf("TPF0"); + if (vPos < 0) + throw new Exception("Can't read form name from DFM file."); + + vPos += 5; + + // Find 1st character of the name + while (vPos < iFileContent.Length) + { + byte vByte = Convert.ToByte(iFileContent[vPos]); + if ( + (vByte >= 65 && vByte <= 90) || + (vByte >= 97 && vByte <= 122) + ) + break; + + vPos++; + } + if (vPos == iFileContent.Length) + throw new Exception("Can't read form name from binary DFM file."); + + int vStart = vPos; + // Start reading name + while (vPos < iFileContent.Length) + { + byte vByte = Convert.ToByte(iFileContent[vPos]); + if ( + (vByte < 48 || vByte > 57) && + (vByte < 65 || vByte > 90) && + (vByte < 97 || vByte > 122) && + (iFileContent[vPos] != '_') + ) + break; + + vPos++; + } + + if (vPos == iFileContent.Length) + throw new Exception("Can't read form name from binary DFM file."); + + string vFormTypeName = iFileContent.Substring(vStart, vPos - vStart); + if (vFormTypeName.StartsWith("T")) + vFormTypeName = vFormTypeName.Substring(1); + + return vFormTypeName; + } + } +} diff --git a/DelphiProjectHandler/src/UnitItemClass.cs b/DelphiProjectHandler/src/UnitItemClass.cs new file mode 100644 index 0000000..4648dc8 --- /dev/null +++ b/DelphiProjectHandler/src/UnitItemClass.cs @@ -0,0 +1,157 @@ +using System; +using System.IO; + +namespace DelphiProjectHandler +{ + public class UnitItem + { + /// + /// Name of the unit in uses clause. + /// + public string Name + { + get { return fName; } + set { fName = value; } + } + protected string fName; + + /// + /// Path, where the unit is placed - if it's given with the unit name. + /// + public string Path + { + get { return fPath; } + set { fPath = value; } + } + protected string fPath = ""; + + /// + /// Indicates, if the path is included together with the unit name + /// + public bool UsePath + { + get { return fUsePath; } + set { fUsePath = value; } + } + protected bool fUsePath; + + public bool HasForm + { + get { return Form != ""; } + } + + public string Form + { + get { return fForm; } + set { fForm = value; } + } + protected string fForm = ""; + + public string StartingConditions + { + get { return fStartingConditions; } + set { fStartingConditions = value.TrimEnd(' ', '\n').TrimStart('\n'); } + } + protected string fStartingConditions = ""; + + public string EndingConditions + { + get { return fEndingConditions; } + set + { + fEndingConditions = value.TrimEnd(' ', '\n'); + fEndingConditions = EndingConditions.TrimStart(' ', '\n'); + } + } + protected string fEndingConditions = ""; + + public bool HasStartingConditions + { + get { return (StartingConditions != ""); } + } + + public bool HasEndingConditions + { + get { return (EndingConditions != ""); } + } + + /// + /// Initializes the object with given unit name and path. + /// + /// Name of the unit in the uses clause. + /// Path to the unit in the uses clause. + protected void Initialize(string iName, string iPath, bool iUsePath, string iForm) + { + fName = iName; + UsePath = iUsePath; + if (UsePath) + Path = iPath; + Form = iForm; + } + + /// + /// Creates new instance of the unit information object. + /// + /// Name of the unit in the uses clause. + /// Path to the unit in the uses clause. + /// Indicates, if the path is included together + /// with the unit name. + public UnitItem(string iName, string iPath, bool iUsePath, string iForm) + { + Initialize(iName, iPath, iUsePath, iForm); + } + + /// + /// Creates new instance of the unit information object. + /// + /// Name of the unit in the uses clause. + public UnitItem(string iName) + { + Initialize(iName, "", false, ""); + } + + public UnitItem() + { + Initialize("", "", false, ""); + } + + /// + /// Returns the unit name and path (if given) as a string, which can be used + /// to construct "uses" clause in Delphi. + /// + /// Indention of the output value. + /// Unit separator that must be added after unit + /// name and/or path. Usually it is collon, but the last unit is separated + /// with semicolon + /// Specifies, if unit separator must be added + /// as the last character in the output value, after any conditionals. If not, + /// it will be added before EndingConditionals. + /// Unit name with unit path (if given) + public string ToString(string iIndent, string iUnitSeparator, bool iSeparatorLast) + { + string vResult = ""; + if (StartingConditions != "") + vResult += iIndent + StartingConditions + "\n"; + + if (StartingConditions != "" || EndingConditions != "") + vResult += iIndent; + + vResult += iIndent + Name; + if (UsePath) + vResult += " in '" + System.IO.Path.Combine(Path, Name) + ".pas'"; + if (HasForm) + vResult += " {" + Form + "}"; + if (!iSeparatorLast) + vResult += iUnitSeparator; + + if (EndingConditions != "") + vResult += "\n" + iIndent + EndingConditions; + if (iSeparatorLast) + vResult += iUnitSeparator; + + return vResult; + } + + + } +} diff --git a/DelphiProjectHandler/src/UnitListClass.cs b/DelphiProjectHandler/src/UnitListClass.cs new file mode 100644 index 0000000..77c6203 --- /dev/null +++ b/DelphiProjectHandler/src/UnitListClass.cs @@ -0,0 +1,261 @@ +using System; +using System.Collections; +using System.Collections.Generic; + +namespace DelphiProjectHandler +{ + public class UnitList: ArrayList, IList + { + protected int IndexOf(string iUnitName, int iStartIndex, int iCount, bool iDescending) + { + iUnitName = iUnitName.ToLower(); + + int vOffset; + if (!iDescending) + vOffset = 1; + else + vOffset = -1; + + for (int vUnitIdx = 0, vCurrIdx = iStartIndex; vUnitIdx < iCount; vUnitIdx++, vCurrIdx += vOffset) + { + if (vCurrIdx < 0 || vCurrIdx >= Count) + break; + + UnitItem vUnitItem = this[vCurrIdx]; + if (vUnitItem.Name.ToLower().Equals(iUnitName)) + return vCurrIdx; + } + + return -1; + } + + protected void ValidateArgument(object iUnitItem, string iArgumentName) + { + if (!(iUnitItem is UnitItem)) + throw new ArgumentOutOfRangeException(iArgumentName, "Argument must be UnitItem"); + + string vUnitName = ((UnitItem) iUnitItem).Name; + if (Contains(vUnitName)) + throw new ArgumentException("Unit \"" + vUnitName + "\" is already on the list", iArgumentName); + } + + public new UnitItem this[int iIndex] + { + get { return (UnitItem) base[iIndex]; } + set + { + ValidateArgument(value, "value"); + base[iIndex] = value; + } + } + + public override int Add(object iUnitItem) + { + ValidateArgument(iUnitItem, "iUnitItem"); + return base.Add(iUnitItem); + } + + public bool Contains(string iUnitName) + { + return IndexOf(iUnitName) >= 0; + } + + public int IndexOf(string iUnitName, int iStartIndex, int iCount) + { + return IndexOf(iUnitName, iStartIndex, iCount, false); + } + + public int IndexOf(string iUnitName, int iStartIndex) + { + return IndexOf(iUnitName, iStartIndex, Count - iStartIndex); + } + + public int IndexOf(string iUnitName) + { + return IndexOf(iUnitName, 0, Count); + } + + public override void Insert(int iIndex, object iUnitItem) + { + ValidateArgument(iUnitItem, "iValue"); + base.Insert(iIndex, iUnitItem); + } + + public int LastIndexOf(string iUnitName) + { + return LastIndexOf(iUnitName, Count - 1, Count); + } + + public int LastIndexOf(string iUnitName, int iStartIndex) + { + return LastIndexOf(iUnitName, iStartIndex, Count - iStartIndex); + } + + public int LastIndexOf(string iUnitName, int iStartIndex, int iCount) + { + return IndexOf(iUnitName, iStartIndex, iCount, true); + } + + public bool Remove(string iUnitName) + { + int vUnitIdx = IndexOf(iUnitName); + if (vUnitIdx < 0) + return false; + + RemoveAt(vUnitIdx); + return true; + } + + public override string ToString() + { + string vResult = ""; + if (Count == 0) + return vResult; + + string vSeparator = ","; + bool vSeparatorLast = false; + + vResult = "uses\n"; + for (int vUnitIdx = 0; vUnitIdx < Count; vUnitIdx++) + { + UnitItem vUnit = this[vUnitIdx]; + + if (vUnitIdx == Count - 1) + { + vSeparator = ";"; + vSeparatorLast = true; + } + + vResult += this[vUnitIdx].ToString(" ", vSeparator, vSeparatorLast) + "\n"; + } + + return vResult.TrimEnd('\n'); + } + + #region ICollection Members + + void ICollection.Add(string item) + { + Add(new UnitItem(item)); + } + + void ICollection.CopyTo(string[] array, int arrayIndex) + { + string[] vResult = new string[Count]; + for (int vItemIdx = 0; vItemIdx < Count; vItemIdx++) + vResult[vItemIdx] = this[vItemIdx].Name; + + vResult.CopyTo(array, arrayIndex); + } + + #endregion + + protected class UnitListEnumerator : IEnumerator + { + protected UnitList List; + protected int CurrentIdx = -1; + + public UnitListEnumerator(UnitList iList) + { + List = new UnitList(); + List.AddRange(iList); + } + + #region IEnumerator Members + + public string Current + { + get + { + if (CurrentIdx >= 0 && CurrentIdx < List.Count) + return List[CurrentIdx].Name; + else + return null; + } + } + + #endregion + + #region IDisposable Members + + public void Dispose() + { + List = null; + } + + #endregion + + #region IEnumerator Members + + object IEnumerator.Current + { + get + { + if (CurrentIdx >= 0 && CurrentIdx < List.Count) + return List[CurrentIdx].Name; + else + return null; + } + } + + public bool MoveNext() + { + if (CurrentIdx >= List.Count - 1) + return false; + + CurrentIdx++; + return true; + } + + public void Reset() + { + if (List.Count > 0) + CurrentIdx = 0; + else + CurrentIdx = -1; + } + + #endregion + } + + #region IList Members + + + void IList.Insert(int index, string item) + { + Insert(index, new UnitItem(item)); + } + + string IList.this[int index] + { + get + { + return this[index].Name; + } + set + { + this[index].Name = value; + } + } + + #endregion + + #region IEnumerable Members + + IEnumerator IEnumerable.GetEnumerator() + { + return new UnitListEnumerator(this); + } + + #endregion + + #region IEnumerable Members + + IEnumerator IEnumerable.GetEnumerator() + { + return new UnitListEnumerator(this); + } + + #endregion + } +} diff --git a/DelphiProjectHandler/src/UnitStructure.cs b/DelphiProjectHandler/src/UnitStructure.cs new file mode 100644 index 0000000..cbe45fb --- /dev/null +++ b/DelphiProjectHandler/src/UnitStructure.cs @@ -0,0 +1,42 @@ +/* + * Created by SharpDevelop. + * User: SG0894652 + * Date: 8/11/2009 + * Time: 6:02 AM + * + * To change this template use Tools | Options | Coding | Edit Standard Headers. + */ +using System; + +namespace DelphiProjectHandler +{ + /// + /// Container that stored uses list of a unit. Both, interface and implementation. + /// + public class UnitStructure: IDisposable + { + public UnitStructure() + { + fImplementation = new UnitList(); + fInterface = new UnitList(); + } + + public UnitList Implementation + { + get { return fImplementation; } + } + private UnitList fImplementation; + + public UnitList Interface + { + get { return fInterface; } + } + private UnitList fInterface; + + public void Dispose() + { + fImplementation = null; + fInterface = null; + } + } +} diff --git a/DelphiProjectHandler/src/UsesClauseReaderClass.cs b/DelphiProjectHandler/src/UsesClauseReaderClass.cs new file mode 100644 index 0000000..25a1ee6 --- /dev/null +++ b/DelphiProjectHandler/src/UsesClauseReaderClass.cs @@ -0,0 +1,179 @@ +using System; +using System.Text.RegularExpressions; + +namespace DelphiProjectHandler +{ + public class UsesClauseReader + { + protected static string cLineComments = @"//[^\r\n]*[\r\n]+"; + protected static string cDelphiComments = @"{(?!\$)(?:[/\w\s.]*?[,;]|[\s.]*\w+[\s.]+\w+\s*[/\w\s.]*?)}\r?\n?"; + protected static string cIfDefCondExpr = @"\{[\s\n]*\$IFDEF[\s\n]+[^}]+\}[\s\n]*"; + protected static string cElseCondExpr = @"\{[\s\n]*\$ELSE[\s\n]+[^}]+\}[\s\n]*"; + protected static string cEndifCondExpr = @"[\s\n]*\{[\s\n]*\$ENDIF[\s\n]*[^}]*\}"; + protected static string cUnitExpr = @"\w[\d\w_.]*"; + protected static string cUnitPathExpr = @"[\s\n]+in[\s\n]+'([^']+)'"; + protected static string cUnitCommentExpr = @"\{([^$]*)\}"; + protected static string cUnitWithPathExpr = "(" + cUnitExpr + ")(" + cUnitPathExpr + "){0,1}"; + protected static string cUnitsPathsAndCommentsExpr = cUnitWithPathExpr + @"[\s\n]*(" + cUnitCommentExpr + "){0,1}[,;]{0,1}"; + protected static string cUnitsAndConditions = "((" + cIfDefCondExpr + @")*)[\s\n]*(" + cUnitsPathsAndCommentsExpr + ")((" + cEndifCondExpr + @")*)[,;]{0,1}"; + + protected static string cUnitLine = @"(([^,;]+)[,;])"; + protected static string cUnitLines = "((" + cIfDefCondExpr + ")*(" + cUnitLine + ")(" + cEndifCondExpr + ")*)"; + + protected static string cAllConditionals = @"\{(\$\w+)([\s\n]+[^}]*)*\}"; + + protected static string cAllUnits = @"\buses[\s\n]+([^;]*;)"; +// 1 unit name + protected static string c1 = @"[\s\n\r]*/*[\s\n\r]*[\w_]+[\s\n\r]*[,;]"; +// 2 unit name with form name + protected static string c2 = @"[\s\n\r]*/*[\s\n\r]*[\w_]+[\s\n\r]*{[^}]+}[\s\n\r]*[,;]"; +// 3 unit name with in & form name + protected static string c3 = @"[\s\n\r]*/*[\s\n\r]*[\w_]+[\s\n\r]+in[\s\n\r]+'[^']+'[\s\n\r]*{[^}]+}[\s\n\r]*[,;]"; +// 4 unit name with in + protected static string c4 = @"[\s\n\r]*/*[\s\n\r]*[\w_]+[\s\n\r]+in[\s\n\r]+'[^']+'[\s\n\r]*[,;]"; +// 5 conditional define start + protected static string c5 = @"[\s\n\r]*/*[\s\n\r]*{[\s\n\r]*\$IFDEF[\s\n\r]+[^}]+}"; +// 6 conditional define end + protected static string c6 = @"[\s\n\r]*/*[\s\n\r]*{[\s\n\r]*\$ENDIF[\s\n\r]*}"; +// 7 C++ like comment + protected static string c7 = @"[\s\n\r]*/*[\s\n\r]*" + cLineComments; +// 8 Delphi like comment + protected static string c8 = @"[\s\n\r]*/*[\s\n\r]*" + cDelphiComments; +// 9 unit name with following C++ comment + protected static string c9 = @"[\s\n\r]*/*[\s\n\r]*[\w_]+\s*(?:" + cLineComments + @")[\s\n\r]*[,;]"; +// 10 unit name with following Delphi comment + protected static string c10 = @"[\s\n\r]*/*[\s\n\r]*[\w_]+\s*(?:([\s\n\r]*" + cDelphiComments + @")+)[\s\n\r]*[,;]"; + + protected static string cUsesClausesExpr = @"(\buses\b(" + c1 + "|" + c2 + "|" + c3 + "|" + c4 + "|" + c5 + "|" + c6 + "|" + c7 + "|" + c8 + "|" + c9 + "|" + c10 + ")+)"; + + protected static string cInterfaceSectionExpr = @"interface\b((.|\n)*)"; + protected static string cImplementationSectionExpr = @"\nimplementation((.|\n)*)"; + protected static string cBothSectionsExpr = cInterfaceSectionExpr + cImplementationSectionExpr; + + // @"uses[\s\n\r]+[\w\s,\{\}\\'.$:]+?(?=;);" + + protected static string GetMatchResult(int iMatchID, Match iMatch) + { + if (iMatch.Groups.Count <= iMatchID) + return ""; + else + return iMatch.Groups[iMatchID].Value; + } + + protected static string GetMatchResult(int iMatchIdx, string iText, string iExpression) + { + MatchCollection vMatches = ExecuteExpression(iText, iExpression); + if (vMatches.Count <= iMatchIdx) + return ""; + else + return GetMatchResult(1, vMatches[iMatchIdx]); + } + + protected static MatchCollection ExecuteExpression(string iText, string iExpression) + { + return Regex.Matches(iText, iExpression, RegexOptions.IgnoreCase); + } + + protected static string GetAllUnits(string iText) + { + return GetMatchResult(0, iText, cAllUnits); + } + + protected static UnitItem SplitUnitInfo(string iText) + { + MatchCollection vMatches = ExecuteExpression(iText, cUnitsAndConditions); + foreach (Match vMatch in vMatches) + { + string vUnitName = GetMatchResult(4, vMatch).Trim(); + if (vUnitName == "") + continue; + + string vUnitPath = GetMatchResult(6, vMatch).Trim(); + bool vHasPath = (vUnitPath != ""); + if (vHasPath) + vUnitPath = System.IO.Path.GetDirectoryName(vUnitPath); + + string vForm = GetMatchResult(8, vMatch).Trim(); + + UnitItem vUnit = new UnitItem(vUnitName, vUnitPath, vHasPath, vForm); + + vUnit.StartingConditions = GetMatchResult(1, vMatch); + vUnit.EndingConditions = GetMatchResult(9, vMatch); + return vUnit; + } + + return null; + } + + protected static string RemoveCommentLines(string iText) + { + string vResult = Regex.Replace(iText, cLineComments, ""); + return Regex.Replace(vResult, cDelphiComments, ""); + } + + protected static UnitList SplitUnits(string iText) + { + UnitList vList = new UnitList(); + MatchCollection vMatches = ExecuteExpression(iText, cUnitLines); + foreach (Match vMatch in vMatches) + { + string vUnitLine = GetMatchResult(1, vMatch); + if (vUnitLine == "") + continue; + + UnitItem vUnit = SplitUnitInfo(vUnitLine); + if (vUnit != null) + vList.Add(vUnit); + } + + return vList; + } + + public static UnitList GetUnits(string iText) + { + string vAllUnits = GetAllUnits(RemoveCommentLines(iText)); + return SplitUnits(vAllUnits); + } + + public static void ExtractUses(string iText, out string ivInterface, out string ivImplementation) + { + ivInterface = ""; + ivImplementation = ""; + + string vInterfaceSection = ""; + string vImplementationSection = ""; + + MatchCollection vMatches = ExecuteExpression(iText, cBothSectionsExpr); + if (vMatches.Count == 0) + { + vMatches = ExecuteExpression(iText, cInterfaceSectionExpr); + if (vMatches.Count == 0) + { + vMatches = ExecuteExpression(iText, cImplementationSectionExpr); + if (vMatches.Count > 0) + vImplementationSection = GetMatchResult(1, vMatches[0]); + else + vImplementationSection = ""; + } + else + if (vMatches.Count > 0) + vInterfaceSection = GetMatchResult(1, vMatches[0]); + else + vInterfaceSection = ""; + } + else + { + vInterfaceSection = GetMatchResult(1, vMatches[0]); + vImplementationSection = GetMatchResult(3, vMatches[0]); + } + + ivInterface = ExtractUses(vInterfaceSection); + ivImplementation = ExtractUses(vImplementationSection); + } + + public static string ExtractUses(string iContent) + { + return GetMatchResult(0, iContent, cUsesClausesExpr); + } + } +} diff --git a/DelphiProjectHandler/src/Utils/ICollectionUtils.cs b/DelphiProjectHandler/src/Utils/ICollectionUtils.cs new file mode 100644 index 0000000..ed2e408 --- /dev/null +++ b/DelphiProjectHandler/src/Utils/ICollectionUtils.cs @@ -0,0 +1,16 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; + +namespace DelphiProjectHandler.Utils +{ + public static class CollectionUtils + { + public static void Add(this ICollection aList, ICollection aListToAppend) + { + foreach (T vObject in aListToAppend) + aList.Add(vObject); + } + } +} diff --git a/DelphiProjectHandler/src/Utils/ListUtils.cs b/DelphiProjectHandler/src/Utils/ListUtils.cs new file mode 100644 index 0000000..10fd315 --- /dev/null +++ b/DelphiProjectHandler/src/Utils/ListUtils.cs @@ -0,0 +1,43 @@ +/* + * Created by SharpDevelop. + * User: SG0894652 + * Date: 8/10/2009 + * Time: 8:34 PM + * + * To change this template use Tools | Options | Coding | Edit Standard Headers. + */ +using System; +using System.Collections.Generic; + +namespace DelphiProjectHandler.Dialogs +{ + /// + /// Contains basic methods for manipulating list. E.g. removing duplicates, removing empty strings etc. + /// + public class ListUtils + { + public static IList Normalize(IList iList) + { + return RemoveDuplicates(iList); + } + + public static IList RemoveDuplicates(IList iList) + { + List vResult = new List(iList.Count); + vResult.AddRange(iList); + for (int vItemIdx = vResult.Count - 1; vItemIdx >= 0; vItemIdx--) + { + T vItem = vResult[vItemIdx]; + for (int vCompareIdx = vItemIdx - 1; vCompareIdx >= 0; vCompareIdx--) + { + if ((vItem == null && vResult[vCompareIdx] == null) || (vItem != null && vItem.Equals(vResult[vCompareIdx]))) + { + vResult.RemoveAt(vItemIdx); + break; + } + } + } + return vResult; + } + } +} diff --git a/DelphiProjectHandler/src/Utils/PathUtilsClass.cs b/DelphiProjectHandler/src/Utils/PathUtilsClass.cs new file mode 100644 index 0000000..27c630e --- /dev/null +++ b/DelphiProjectHandler/src/Utils/PathUtilsClass.cs @@ -0,0 +1,263 @@ +using System; +using System.Collections.Generic; +using System.IO; +using System.Text; + +namespace DelphiProjectHandler.Dialogs +{ + public class PathUtils + { + /// + /// Contatets folders from the list, starting on specific index. + /// The returned path always contains ending directory separator character. + /// + /// Index of the folder in the array. Concatanation + /// will start on the given folder. Empty path will be returned, if index is + /// greater than the number of folders in the array. + /// Array of folders which should be concatanated. + /// + /// Empty path if iStartingIdx is outside the bounds of the folders + /// array. Concatanated folders path ended with directory separator + /// character. + public static string ConcatFolders(int iStartingIdx, string[] iDirectories) + { + string vPath = ""; + if (iStartingIdx < 0) + return vPath; + + for (; iStartingIdx < iDirectories.Length; iStartingIdx++) + vPath = Path.Combine(vPath, iDirectories[iStartingIdx]); + + return AddEndingDirectorySeparator(vPath); + } + + /// + /// Builds a list of "go-up" folders (..) which can be used in relative + /// paths. The path is always ended with directory separator character. + /// + /// Number of "go-up" folders to return. + /// Path containing "go-up" folders. + public static string BuildGoUpPath(int iCount) + { + StringBuilder vPath = new StringBuilder(); + for (int vPathIdx = 0; vPathIdx < iCount; vPathIdx++) + vPath.Append(@"..\"); + + return AddEndingDirectorySeparator(vPath.ToString()); + } + + /// + /// Splits list of folders into array of folder names. + /// + /// This function doesn't recognize if the path ends with file name, or not. + /// If it does, the file name will be included on the list. It also doesn't + /// verify, if the path is valid. + /// + /// If the path starts and/or ends with directory separator character, the + /// first and/or last array's element will be empty string. + /// + /// Path to split. + /// Array of folder names. + public static string[] SplitPath(string iPath) + { + if (iPath == "") + return new string[] { }; + + return iPath.Split(Path.DirectorySeparatorChar); + } + + /// + /// Adds a root path to the given path. + /// + /// Before adding the root path, the function verifies if iCorrectPath + /// contains a root path itself. + /// + /// It also verifies, if iPathToFix parameter starts with directory separator. + /// If not, iPathToFix is treated as relative path and no root path is added. + /// + /// Correct path, containing root path. + /// Path, which doesn't contain complete root path + /// and should be fixed. + /// Fixed path containing root path. + /// + /// If iPathToFix is relative path or iCorrectPath doesn't contain root path, not modified iPathToFix string + /// is returned. + public static string FixRootPath(string iCorrectPath, string iPathToFix) + { + if ( + Path.IsPathRooted(iCorrectPath) && + !iCorrectPath.StartsWith(Path.DirectorySeparatorChar.ToString()) && + iPathToFix.StartsWith(Path.DirectorySeparatorChar.ToString()) + ) + return Combine(Path.GetPathRoot(iCorrectPath), iPathToFix); + else + return iPathToFix; + } + + /// + /// Add one path to another. The paths are combined, even if the right path + /// starts with directory separator. + /// + /// If the appended path starts with drive and path to which you append is not + /// empty - exception will be raised. If it's empty, the appended path will + /// be returned. + /// + /// If the path to which you append is empty, the appended path will be + /// returned, too. + /// + /// Left path to add to. + /// Right path which will be added + /// Appended path, if the path to which you append is empty. + /// + /// Appended path if it's contains root path and the path to which you + /// append is empty. + /// + /// If appended path doesn't contain root path, concatated path will be + /// returned. + /// + public static string Combine(string iLeftPath, string iRightPath) + { + iRightPath = iRightPath.TrimStart(Path.DirectorySeparatorChar); + if (Path.IsPathRooted(iRightPath) && iLeftPath != "") + throw new ArgumentException("Path containing root path can not be appended to another path"); + else + if (Path.IsPathRooted(iRightPath)) + return iRightPath; + + iLeftPath = AddEndingDirectorySeparator(iLeftPath); + return iLeftPath + iRightPath; + } + + /// + /// Removes ending directory separator character from the given path. It + /// doesn't remove the ending path, if the is root path - "c:\" or "\" + /// + /// Path from which ending directory separator + /// character should be removed. + /// Path without ending directory separator character. + public static string RemoveEndingDirectorySeparator(string iPath) + { + if ((iPath.Length != 3 && iPath != @"\") || (iPath.Length == 3 && iPath[1] != ':')) + iPath = iPath.TrimEnd(Path.DirectorySeparatorChar); + return iPath; + } + + /// + /// Adds ending directory separator character, if iPath doesn't contain it + /// already. Empty strings are ignored and returned without modification. + /// + /// Path to which ending separator character must be + /// added. + /// Path containing ending directory separator character. + public static string AddEndingDirectorySeparator(string iPath) + { + if (iPath != "" && !iPath.EndsWith(Path.DirectorySeparatorChar.ToString())) + iPath += Path.DirectorySeparatorChar; + + return iPath; + } + + /// + /// Adds ending directory separator character to all paths on the given list, if the + /// given path doesn't contain it already. Empty strings are ignored and returned without + /// modification. + /// + /// List of path to which directory separator must be added. + /// New list containing paths with directory separator. + public static IList AddEndingDirectorySeparator(IList iPaths) + { + IList vResult = new List(iPaths.Count); + foreach (string vPath in iPaths) + vResult.Add(AddEndingDirectorySeparator(vPath)); + return vResult; + } + + /// + /// Checks, if two path have same root paths. + /// + /// If one of the path doesn't contain root path, they are considered the + /// same, because one of them is considered to be relative path. + /// + /// If both don't contain root paths, they are considered the same, because + /// both are relative and are assumed to be in the same root folder. + /// + /// First path to compare. + /// Second path to compare. + /// True if root paths and they are the same. False otherwise. + public static bool HaveSameRoots(string iLeftPath, string iRightPath) + { + return !((Path.IsPathRooted(iLeftPath)) && + (Path.IsPathRooted(iRightPath)) && + (Path.GetPathRoot(iLeftPath).ToLower() != Path.GetPathRoot(iRightPath).ToLower())); + } + + /// + /// Compares two arrays of folder names and returns the index of the first + /// folder, which is different. iLeftCompare is treated as primary. + /// + /// If arrays contain different number of elements, the last index in + /// iLeftCompare or iRightCompare will be returned, depending which one is + /// lower. + /// + /// This function is case insensitive. + /// + /// Main array for the comparision. + /// Compared array of folders. + /// Index of first different folder in given arrays. + public static int GetFirstDifferentFolderIdx(string[] iLeftCompare, string[] iRightCompare) + { + int vFolderIdx = 0; + while ( + vFolderIdx < iLeftCompare.Length && + vFolderIdx < iRightCompare.Length && + iLeftCompare[vFolderIdx].ToLower() == iRightCompare[vFolderIdx].ToLower() + ) + vFolderIdx++; + + return vFolderIdx; + } + + /// + /// Validates, if the given path is a valid path. + /// + /// Path to validate. + /// true, if path is valid. false, if path is invalid. + public static bool IsValidPath(string iPath) + { + return Directory.Exists(iPath); + } + + /// + /// Removes all invalid paths from the given list of paths. + /// + /// List of paths to validate. + /// New list, containing only valid paths. + public static IList RemoveInvalidPaths(IList iPaths) + { + List vResult = new List(); + foreach (string vPath in iPaths) + if (IsValidPath(vPath)) + vResult.Add(vPath); + + return vResult; + } + + /// + /// Normalizes given path list, by: + /// - making all paths lower case + /// - removing invalid and empty paths + /// - removing duplicates + /// - adding directory separator to each path + /// + /// + /// + public static IList Normalize(IList iPaths) + { + IList vResult = RemoveInvalidPaths(iPaths); + vResult = AddEndingDirectorySeparator(vResult); + vResult = StringListUtils.Normalize(vResult); + return vResult; + } + } +} diff --git a/DelphiProjectHandler/src/Utils/RelativePathClass.cs b/DelphiProjectHandler/src/Utils/RelativePathClass.cs new file mode 100644 index 0000000..84c5659 --- /dev/null +++ b/DelphiProjectHandler/src/Utils/RelativePathClass.cs @@ -0,0 +1,146 @@ +using System; +using System.IO; + +using DelphiProjectHandler.Dialogs; + +namespace DelphiProjectHandler.Dialogs +{ + public class RelativePath + { + /// + /// Changes the given path to relative path according to given base folder. + /// It doesn't validates, if the calculation may be made. + /// + /// Base folder for the path. + /// Folder which must be changed to relative. + /// Relative path according to base folder. + private static string BuildRelativePath(string iBasePath, string iPath) + { + string[] vBaseDirs = PathUtils.SplitPath(iBasePath); + string[] vRelativeDirs = PathUtils.SplitPath(iPath); + + int vFolderIdx = PathUtils.GetFirstDifferentFolderIdx(vBaseDirs, vRelativeDirs); + + string vBasePath = PathUtils.BuildGoUpPath(vBaseDirs.Length - vFolderIdx); + string vRelativePathSuffix = PathUtils.ConcatFolders(vFolderIdx, vRelativeDirs); + + return Path.Combine(vBasePath, vRelativePathSuffix); + } + + /// + /// Checks, if the given path is can be made relative. Path may not be changed + /// to relative if: + /// + /// - Base path is rooted path and validated path is not. Validated path + /// may not be changed, because it doesn't contain root information and + /// the starting point for relative path calculation can not be taken. + /// Validated path is considered to be relative path already. + /// + /// - Base path is not rooted path and validated path is rooted path. + /// It's similar to previous case. The starting point for relative path + /// calculations may not be taken. + /// + /// Based path used for validation. + /// Validated path. + /// True, if validated path can be made relative to the base + /// folder. False otherwise. + private static bool CanBeRelative(string iBasePath, string iPath) + { + return + !( + (Path.IsPathRooted(iBasePath) && !Path.IsPathRooted(iPath)) || + (!Path.IsPathRooted(iBasePath) && Path.IsPathRooted(iPath)) + ); + } + + /// + /// Calculates path relative to the base folder. As addition it + /// normalizes given paths, so the relative path can be calculated. It also + /// checks, if relative path can be calculated. If not, it returns iPath. + /// + /// The relative path may not be calculated, if: + /// - root path of base and converted paths are different + /// - base path is rooted while converted path is not + /// - converted path is rooted while base path is not. + /// + /// Base path for the calculation. + /// Path that should be changed to relative. + /// Relative path, if possible. If not, iPath is returned. + protected static string DoGetRelativePath(string iBasePath, string iPath) + { + if (iPath == "") + return iBasePath; + + iBasePath = PathUtils.RemoveEndingDirectorySeparator(iBasePath); + iPath = PathUtils.RemoveEndingDirectorySeparator(iPath); + + iBasePath = PathUtils.FixRootPath(iPath, iBasePath); + iPath = PathUtils.FixRootPath(iBasePath, iPath); + + if (!PathUtils.HaveSameRoots(iBasePath, iPath) || !CanBeRelative(iBasePath, iPath)) + return iPath; + + return BuildRelativePath(iBasePath, iPath); + } + + /// + /// Changes path to be relative to the base folder. It checks, if relative + /// path can be calculated. If not, it returns iPath. + /// + /// The relative path may not be calculated, if: + /// - root path of base and converted paths are different + /// - base path is rooted while converted path is not + /// - converted path is rooted while base path is not. + /// + /// Base path for the calculation. + /// Path that should be changed to relative. + /// Relative path, if possible. If not, iPath is returned. + /// + /// The path is always ended with directory separator character. + public static string GetRelativePath(string iBasePath, string iPath) + { + return PathUtils.AddEndingDirectorySeparator(DoGetRelativePath(iBasePath, iPath)); + } + + /// + /// Changes filename to be relative to the base filename. It checks, if + /// relative path can be calculated. If not, it returns iFilename. + /// + /// The relative filename may not be calculated, if: + /// - root path of base and converted filenames are different + /// - base filename is rooted while converted filename is not + /// - converted filename is rooted while base filename is not. + /// + /// Base filename for the calculation. + /// Filename that should be changed to relative. + /// Relative filename, if possible. If not, iFileName is returned. + public static string GetRelativeFileName(string iBaseFileName, string iFileName) + { + if (iFileName.Equals("")) + return ""; + + string vBasePath = Path.GetDirectoryName(iBaseFileName); + return GetRelativeFilenameByFolder(vBasePath, iFileName); + } + + /// + /// Changes filename to be relative to the base path. It checks, if + /// relative path can be calculated. If not, it returns iPath. + /// + /// The relative filename may not be calculated, if: + /// - root path of base and converted paths are different + /// - base path is rooted while converted filename is not + /// - converted filename is rooted while base path is not. + /// + /// Base filename for the calculation. + /// Filename that should be changed to relative. + /// Relative filename, if possible. If not, iFileName is returned. + public static string GetRelativeFilenameByFolder(string iBasePath, string iFileName) + { + string vPath = Path.GetDirectoryName(iFileName); + string vFileName = Path.GetFileName(iFileName); + + return Path.Combine(DoGetRelativePath(iBasePath, vPath), vFileName); + } + } +} diff --git a/DelphiProjectHandler/src/Utils/StringListUtils.cs b/DelphiProjectHandler/src/Utils/StringListUtils.cs new file mode 100644 index 0000000..34cb290 --- /dev/null +++ b/DelphiProjectHandler/src/Utils/StringListUtils.cs @@ -0,0 +1,109 @@ +/* + * Created by SharpDevelop. + * User: SG0894652 + * Date: 8/10/2009 + * Time: 8:45 PM + * + * To change this template use Tools | Options | Coding | Edit Standard Headers. + */ +using System; +using System.Collections.Generic; +using System.Globalization; + +namespace DelphiProjectHandler.Dialogs +{ + public class DescendingComparer: IComparer + { + protected StringComparer Comparer + { + get { return fComparer; } + } + private StringComparer fComparer; + + public DescendingComparer(CultureInfo iCulture, bool iIgnoreCase) + { + + fComparer = StringComparer.Create(iCulture, iIgnoreCase); + } + + public int Compare(string x, string y) + { + return -Comparer.Compare(x, y); + } + } + /// + /// Description of StringListUtils. + /// + public class StringListUtils + { + public static IList RemoveEmpty(IList iStrings) + { + List vResult = new List(iStrings.Count); + foreach (string vString in iStrings) + { + if (vString != null && !vString.Trim().Equals("")) + vResult.Add(vString); + } + + return vResult; + } + + public static IList ToLower(IList iStrings) + { + List vResult = new List(iStrings.Count); + foreach (string vString in iStrings) + { + string vNewValue = vString; + if (vNewValue != null) + vNewValue = vNewValue.ToLower(); + vResult.Add(vNewValue); + } + + return vResult; + } + + public static IList ToUpper(IList iStrings) + { + List vResult = new List(iStrings.Count); + foreach (string vString in iStrings) + { + string vNewValue = vString; + if (vNewValue != null) + vNewValue = vNewValue.ToUpper(); + vResult.Add(vNewValue); + } + + return vResult; + } + + public static IList RemoveDuplicates(IList iStrings) + { + return ListUtils.RemoveDuplicates(iStrings); + } + + public static IList Normalize(IList iList) + { + IList vResult = RemoveEmpty(iList); + vResult = ToLower(vResult); + vResult = ListUtils.Normalize(vResult); + + return Sort(vResult, true, false); + } + + public static IList Sort(IList iStrings, bool iAscending, bool iIgnoreCase) + { + List vResult = new List(iStrings.Count); + vResult.AddRange(iStrings); + switch (iAscending) + { + case true: + vResult.Sort(StringComparer.Create(CultureInfo.CurrentCulture, iIgnoreCase)); + break; + case false: + vResult.Sort(new DescendingComparer(CultureInfo.CurrentCulture, iIgnoreCase)); + break; + } + return vResult; + } + } +} diff --git a/DelphiProjectHandler/src/Utils/TextBoxUtils.cs b/DelphiProjectHandler/src/Utils/TextBoxUtils.cs new file mode 100644 index 0000000..7a01d53 --- /dev/null +++ b/DelphiProjectHandler/src/Utils/TextBoxUtils.cs @@ -0,0 +1,48 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; +using System.Windows.Forms; + +namespace DelphiProjectHandler.Utils +{ + public static class TextBoxUtils + { + private static string BuildNewText(string aOldText, bool aAddEmptyLineBefore, ICollection aLines) + { + StringBuilder vNewText = new StringBuilder(aOldText); + if (aAddEmptyLineBefore) + vNewText.AppendLine(); + foreach (string iLine in aLines) + vNewText.AppendLine(iLine); + if (vNewText.Length >= Environment.NewLine.Length) + vNewText.Remove(vNewText.Length - Environment.NewLine.Length, Environment.NewLine.Length); + return vNewText.ToString(); + } + + public static void AssignLines(this TextBox aTextBox, ICollection aLines) + { + if (aTextBox.Lines.SequenceEqual(aLines)) + return; + + aTextBox.Text = BuildNewText("", false, aLines); + } + + public static void AddLines(this TextBox aTextBox, ICollection aLines) + { + aTextBox.SuspendLayout(); + try + { + String vOldText = aTextBox.Text; + var vAddEmptyLineBefore = false; + if (!vOldText.Equals(String.Empty) && !vOldText.EndsWith(Environment.NewLine)) + vAddEmptyLineBefore = true; + aTextBox.Text = BuildNewText(vOldText, vAddEmptyLineBefore, aLines); + } + finally + { + aTextBox.ResumeLayout(); + } + } + } +} diff --git a/DelphiProjectHandler/src/View/FormDelphiProjectManager.Designer.cs b/DelphiProjectHandler/src/View/FormDelphiProjectManager.Designer.cs new file mode 100644 index 0000000..da02daa --- /dev/null +++ b/DelphiProjectHandler/src/View/FormDelphiProjectManager.Designer.cs @@ -0,0 +1,1364 @@ +namespace DelphiProjectHandler.View +{ + partial class FormDelphiProjectManager + { + /// + /// Required designer variable. + /// + private System.ComponentModel.IContainer components = null; + + /// + /// Clean up any resources being used. + /// + /// true if managed resources should be disposed; otherwise, false. + protected override void Dispose(bool disposing) + { + if (disposing && (components != null)) + { + components.Dispose(); + } + base.Dispose(disposing); + } + + #region Windows Form Designer generated code + + /// + /// Required method for Designer support - do not modify + /// the contents of this method with the code editor. + /// + private void InitializeComponent() + { + System.ComponentModel.ComponentResourceManager resources = new System.ComponentModel.ComponentResourceManager(typeof(FormDelphiProjectManager)); + this.tabControlMain = new System.Windows.Forms.TabControl(); + this.tabPageFixProjects = new System.Windows.Forms.TabPage(); + this.splitContainerFixProjects = new System.Windows.Forms.SplitContainer(); + this.textBoxFixProjectsFiles = new System.Windows.Forms.TextBox(); + this.toolStripFixProjectsFiles = new System.Windows.Forms.ToolStrip(); + this.toolStripButtonFixProjectsSelectFiles = new System.Windows.Forms.ToolStripButton(); + this.toolStripButtonFixProjectsImportFiles = new System.Windows.Forms.ToolStripButton(); + this.splitContainerFixProjectsUnits = new System.Windows.Forms.SplitContainer(); + this.panelFixProjectsUnits = new System.Windows.Forms.Panel(); + this.textBoxFixProjectsInterfaceUnits = new System.Windows.Forms.TextBox(); + this.toolStripFixProjectsUnits = new System.Windows.Forms.ToolStrip(); + this.toolStripLabelFixProjectsUnits = new System.Windows.Forms.ToolStripLabel(); + this.toolStripButtonFixProjectsSelectUnits = new System.Windows.Forms.ToolStripButton(); + this.toolStripButtonFixProjectsImportUnits = new System.Windows.Forms.ToolStripButton(); + this.textBoxFixProjectsUnitConstraints = new System.Windows.Forms.TextBox(); + this.labelFixProjectsUnitConstraints = new System.Windows.Forms.Label(); + this.toolStripFixProjectsActions = new System.Windows.Forms.ToolStrip(); + this.toolStripButtonFixProjectsActionAddUnits = new System.Windows.Forms.ToolStripButton(); + this.toolStripButtonFixProjectsActionRemoveUnits = new System.Windows.Forms.ToolStripButton(); + this.toolStripButtonFixProjectsActionFixPaths = new System.Windows.Forms.ToolStripButton(); + this.toolStripButtonFixProjectsActionFixForms = new System.Windows.Forms.ToolStripButton(); + this.toolStripSeparator1 = new System.Windows.Forms.ToolStripSeparator(); + this.toolStripButtonFixProjectsActionBulkOperation = new System.Windows.Forms.ToolStripButton(); + this.toolStripSeparatorFixProjectsActionSeparator = new System.Windows.Forms.ToolStripSeparator(); + this.toolStripDropDownButton1 = new System.Windows.Forms.ToolStripDropDownButton(); + this.ToolStripMenuItemFixProjectsActionAddUnitPathsToDPRs = new System.Windows.Forms.ToolStripMenuItem(); + this.tabPageFixUnits = new System.Windows.Forms.TabPage(); + this.splitContainerFixUnits = new System.Windows.Forms.SplitContainer(); + this.textBoxFixUnitsFiles = new System.Windows.Forms.TextBox(); + this.toolStripFixUnitsFiles = new System.Windows.Forms.ToolStrip(); + this.toolStripButtonFixUnitsSelectFiles = new System.Windows.Forms.ToolStripButton(); + this.toolStripButtonFixUnitsImportFiles = new System.Windows.Forms.ToolStripButton(); + this.splitContainerFixUnitsUnits = new System.Windows.Forms.SplitContainer(); + this.splitContainerFixUnitsInterfaceUnits = new System.Windows.Forms.SplitContainer(); + this.panelFixUnitsInterfaceUnits = new System.Windows.Forms.Panel(); + this.textBoxFixUnitsInterfaceUnits = new System.Windows.Forms.TextBox(); + this.toolStripFixUnitsInterfaceUnits = new System.Windows.Forms.ToolStrip(); + this.toolStripLabelFixUnitsInterfaceUnits = new System.Windows.Forms.ToolStripLabel(); + this.toolStripButtonFixUnitsSelectInterfaceUnits = new System.Windows.Forms.ToolStripButton(); + this.toolStripButtonFixUnitsImportInterfaceUnits = new System.Windows.Forms.ToolStripButton(); + this.panelFixUnitsImplementationUnits = new System.Windows.Forms.Panel(); + this.textBoxFixUnitsImplementationUnits = new System.Windows.Forms.TextBox(); + this.toolStripFixUnitsImplementationUnits = new System.Windows.Forms.ToolStrip(); + this.toolStripLabelFixUnitsImplementationUnits = new System.Windows.Forms.ToolStripLabel(); + this.toolStripButtonFixUnitsSelectImplementationUnits = new System.Windows.Forms.ToolStripButton(); + this.toolStripButtonFixUnitsImportImplementationUnits = new System.Windows.Forms.ToolStripButton(); + this.textBoxFixUnitsUnitConstraints = new System.Windows.Forms.TextBox(); + this.labelFixUnitsUnitConstraints = new System.Windows.Forms.Label(); + this.toolStripFixUnitsActions = new System.Windows.Forms.ToolStrip(); + this.toolStripButtonFixUnitsActionAddUnits = new System.Windows.Forms.ToolStripButton(); + this.toolStripButtonFixUnitsActionRemoveUnits = new System.Windows.Forms.ToolStripButton(); + this.tabPageUnitCleanup = new System.Windows.Forms.TabPage(); + this.toolStripContainerIcarusReport = new System.Windows.Forms.ToolStripContainer(); + this.textBoxIcarusReport = new System.Windows.Forms.TextBox(); + this.toolStripIcarusReport = new System.Windows.Forms.ToolStrip(); + this.toolStripLabelIcarusReport = new System.Windows.Forms.ToolStripLabel(); + this.toolStripSeparatorIcarusReport = new System.Windows.Forms.ToolStripSeparator(); + this.toolStripButtonIcarusReportPasteFromClipboard = new System.Windows.Forms.ToolStripButton(); + this.toolStripContainerIcarusUnitSettings = new System.Windows.Forms.ToolStripContainer(); + this.splitContainerIcarusUnitSettings2 = new System.Windows.Forms.SplitContainer(); + this.toolStripContainerIcarusUnits = new System.Windows.Forms.ToolStripContainer(); + this.textBoxIcarusUnits = new System.Windows.Forms.TextBox(); + this.toolStripIcarusUnits = new System.Windows.Forms.ToolStrip(); + this.toolStripLabelIcarusUnits = new System.Windows.Forms.ToolStripLabel(); + this.toolStripSeparatorIcarusUnits = new System.Windows.Forms.ToolStripSeparator(); + this.toolStripButtonIcarusLoadUntis = new System.Windows.Forms.ToolStripButton(); + this.toolStripContainerIcarusIgnoredUnits = new System.Windows.Forms.ToolStripContainer(); + this.textBoxIcarusIgnoredUnits = new System.Windows.Forms.TextBox(); + this.toolStripIcarusIgnoredUnits = new System.Windows.Forms.ToolStrip(); + this.toolStripLabelIcarusIgnoreUnits = new System.Windows.Forms.ToolStripLabel(); + this.panelIcarusOperations = new System.Windows.Forms.Panel(); + this.buttonIcarusRemoveUnusedUnits = new System.Windows.Forms.Button(); + this.tabPageLog = new System.Windows.Forms.TabPage(); + this.progressBarMain = new System.Windows.Forms.ProgressBar(); + this.textBoxLog = new System.Windows.Forms.TextBox(); + this.tabPageSettings = new System.Windows.Forms.TabPage(); + this.toolStripContainerSettingsLibraryPaths = new System.Windows.Forms.ToolStripContainer(); + this.textBoxSettingsLibraryPaths = new System.Windows.Forms.TextBox(); + this.toolStripSettingsLibraryPaths = new System.Windows.Forms.ToolStrip(); + this.toolStripDropDownButtonLoadPreset = new System.Windows.Forms.ToolStripDropDownButton(); + this.toolStripButtonSettingsNormalizePaths = new System.Windows.Forms.ToolStripButton(); + this.BottomToolStripPanel = new System.Windows.Forms.ToolStripPanel(); + this.TopToolStripPanel = new System.Windows.Forms.ToolStripPanel(); + this.RightToolStripPanel = new System.Windows.Forms.ToolStripPanel(); + this.LeftToolStripPanel = new System.Windows.Forms.ToolStripPanel(); + this.ContentPanel = new System.Windows.Forms.ToolStripContentPanel(); + this.tabControlMain.SuspendLayout(); + this.tabPageFixProjects.SuspendLayout(); + ((System.ComponentModel.ISupportInitialize)(this.splitContainerFixProjects)).BeginInit(); + this.splitContainerFixProjects.Panel1.SuspendLayout(); + this.splitContainerFixProjects.Panel2.SuspendLayout(); + this.splitContainerFixProjects.SuspendLayout(); + this.toolStripFixProjectsFiles.SuspendLayout(); + ((System.ComponentModel.ISupportInitialize)(this.splitContainerFixProjectsUnits)).BeginInit(); + this.splitContainerFixProjectsUnits.Panel1.SuspendLayout(); + this.splitContainerFixProjectsUnits.Panel2.SuspendLayout(); + this.splitContainerFixProjectsUnits.SuspendLayout(); + this.panelFixProjectsUnits.SuspendLayout(); + this.toolStripFixProjectsUnits.SuspendLayout(); + this.toolStripFixProjectsActions.SuspendLayout(); + this.tabPageFixUnits.SuspendLayout(); + ((System.ComponentModel.ISupportInitialize)(this.splitContainerFixUnits)).BeginInit(); + this.splitContainerFixUnits.Panel1.SuspendLayout(); + this.splitContainerFixUnits.Panel2.SuspendLayout(); + this.splitContainerFixUnits.SuspendLayout(); + this.toolStripFixUnitsFiles.SuspendLayout(); + ((System.ComponentModel.ISupportInitialize)(this.splitContainerFixUnitsUnits)).BeginInit(); + this.splitContainerFixUnitsUnits.Panel1.SuspendLayout(); + this.splitContainerFixUnitsUnits.Panel2.SuspendLayout(); + this.splitContainerFixUnitsUnits.SuspendLayout(); + ((System.ComponentModel.ISupportInitialize)(this.splitContainerFixUnitsInterfaceUnits)).BeginInit(); + this.splitContainerFixUnitsInterfaceUnits.Panel1.SuspendLayout(); + this.splitContainerFixUnitsInterfaceUnits.Panel2.SuspendLayout(); + this.splitContainerFixUnitsInterfaceUnits.SuspendLayout(); + this.panelFixUnitsInterfaceUnits.SuspendLayout(); + this.toolStripFixUnitsInterfaceUnits.SuspendLayout(); + this.panelFixUnitsImplementationUnits.SuspendLayout(); + this.toolStripFixUnitsImplementationUnits.SuspendLayout(); + this.toolStripFixUnitsActions.SuspendLayout(); + this.tabPageUnitCleanup.SuspendLayout(); + this.toolStripContainerIcarusReport.ContentPanel.SuspendLayout(); + this.toolStripContainerIcarusReport.TopToolStripPanel.SuspendLayout(); + this.toolStripContainerIcarusReport.SuspendLayout(); + this.toolStripIcarusReport.SuspendLayout(); + this.toolStripContainerIcarusUnitSettings.ContentPanel.SuspendLayout(); + this.toolStripContainerIcarusUnitSettings.SuspendLayout(); + ((System.ComponentModel.ISupportInitialize)(this.splitContainerIcarusUnitSettings2)).BeginInit(); + this.splitContainerIcarusUnitSettings2.Panel1.SuspendLayout(); + this.splitContainerIcarusUnitSettings2.Panel2.SuspendLayout(); + this.splitContainerIcarusUnitSettings2.SuspendLayout(); + this.toolStripContainerIcarusUnits.ContentPanel.SuspendLayout(); + this.toolStripContainerIcarusUnits.TopToolStripPanel.SuspendLayout(); + this.toolStripContainerIcarusUnits.SuspendLayout(); + this.toolStripIcarusUnits.SuspendLayout(); + this.toolStripContainerIcarusIgnoredUnits.ContentPanel.SuspendLayout(); + this.toolStripContainerIcarusIgnoredUnits.TopToolStripPanel.SuspendLayout(); + this.toolStripContainerIcarusIgnoredUnits.SuspendLayout(); + this.toolStripIcarusIgnoredUnits.SuspendLayout(); + this.panelIcarusOperations.SuspendLayout(); + this.tabPageLog.SuspendLayout(); + this.tabPageSettings.SuspendLayout(); + this.toolStripContainerSettingsLibraryPaths.ContentPanel.SuspendLayout(); + this.toolStripContainerSettingsLibraryPaths.TopToolStripPanel.SuspendLayout(); + this.toolStripContainerSettingsLibraryPaths.SuspendLayout(); + this.toolStripSettingsLibraryPaths.SuspendLayout(); + this.SuspendLayout(); + // + // tabControlMain + // + this.tabControlMain.Controls.Add(this.tabPageFixProjects); + this.tabControlMain.Controls.Add(this.tabPageFixUnits); + this.tabControlMain.Controls.Add(this.tabPageUnitCleanup); + this.tabControlMain.Controls.Add(this.tabPageLog); + this.tabControlMain.Controls.Add(this.tabPageSettings); + this.tabControlMain.Dock = System.Windows.Forms.DockStyle.Fill; + this.tabControlMain.Location = new System.Drawing.Point(0, 0); + this.tabControlMain.Name = "tabControlMain"; + this.tabControlMain.SelectedIndex = 0; + this.tabControlMain.Size = new System.Drawing.Size(792, 466); + this.tabControlMain.TabIndex = 0; + // + // tabPageFixProjects + // + this.tabPageFixProjects.Controls.Add(this.splitContainerFixProjects); + this.tabPageFixProjects.Controls.Add(this.toolStripFixProjectsActions); + this.tabPageFixProjects.Location = new System.Drawing.Point(4, 22); + this.tabPageFixProjects.Name = "tabPageFixProjects"; + this.tabPageFixProjects.Padding = new System.Windows.Forms.Padding(3); + this.tabPageFixProjects.Size = new System.Drawing.Size(784, 440); + this.tabPageFixProjects.TabIndex = 1; + this.tabPageFixProjects.Text = "Project fixing"; + this.tabPageFixProjects.UseVisualStyleBackColor = true; + // + // splitContainerFixProjects + // + this.splitContainerFixProjects.Dock = System.Windows.Forms.DockStyle.Fill; + this.splitContainerFixProjects.Location = new System.Drawing.Point(3, 3); + this.splitContainerFixProjects.Name = "splitContainerFixProjects"; + // + // splitContainerFixProjects.Panel1 + // + this.splitContainerFixProjects.Panel1.Controls.Add(this.textBoxFixProjectsFiles); + this.splitContainerFixProjects.Panel1.Controls.Add(this.toolStripFixProjectsFiles); + // + // splitContainerFixProjects.Panel2 + // + this.splitContainerFixProjects.Panel2.Controls.Add(this.splitContainerFixProjectsUnits); + this.splitContainerFixProjects.Size = new System.Drawing.Size(778, 409); + this.splitContainerFixProjects.SplitterDistance = 258; + this.splitContainerFixProjects.TabIndex = 21; + // + // textBoxFixProjectsFiles + // + this.textBoxFixProjectsFiles.Dock = System.Windows.Forms.DockStyle.Fill; + this.textBoxFixProjectsFiles.Location = new System.Drawing.Point(0, 25); + this.textBoxFixProjectsFiles.MaxLength = 0; + this.textBoxFixProjectsFiles.Multiline = true; + this.textBoxFixProjectsFiles.Name = "textBoxFixProjectsFiles"; + this.textBoxFixProjectsFiles.ScrollBars = System.Windows.Forms.ScrollBars.Both; + this.textBoxFixProjectsFiles.Size = new System.Drawing.Size(258, 384); + this.textBoxFixProjectsFiles.TabIndex = 4; + this.textBoxFixProjectsFiles.WordWrap = false; + this.textBoxFixProjectsFiles.TextChanged += new System.EventHandler(this.textBoxFixProjectsFiles_TextChanged); + // + // toolStripFixProjectsFiles + // + this.toolStripFixProjectsFiles.Items.AddRange(new System.Windows.Forms.ToolStripItem[] { + this.toolStripButtonFixProjectsSelectFiles, + this.toolStripButtonFixProjectsImportFiles}); + this.toolStripFixProjectsFiles.Location = new System.Drawing.Point(0, 0); + this.toolStripFixProjectsFiles.Name = "toolStripFixProjectsFiles"; + this.toolStripFixProjectsFiles.Size = new System.Drawing.Size(258, 25); + this.toolStripFixProjectsFiles.TabIndex = 8; + // + // toolStripButtonFixProjectsSelectFiles + // + this.toolStripButtonFixProjectsSelectFiles.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text; + this.toolStripButtonFixProjectsSelectFiles.Image = ((System.Drawing.Image)(resources.GetObject("toolStripButtonFixProjectsSelectFiles.Image"))); + this.toolStripButtonFixProjectsSelectFiles.ImageTransparentColor = System.Drawing.Color.Magenta; + this.toolStripButtonFixProjectsSelectFiles.Name = "toolStripButtonFixProjectsSelectFiles"; + this.toolStripButtonFixProjectsSelectFiles.Size = new System.Drawing.Size(42, 22); + this.toolStripButtonFixProjectsSelectFiles.Text = "Select"; + this.toolStripButtonFixProjectsSelectFiles.Click += new System.EventHandler(this.buttonFixProjectsSelectProjects_Click); + // + // toolStripButtonFixProjectsImportFiles + // + this.toolStripButtonFixProjectsImportFiles.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text; + this.toolStripButtonFixProjectsImportFiles.Image = ((System.Drawing.Image)(resources.GetObject("toolStripButtonFixProjectsImportFiles.Image"))); + this.toolStripButtonFixProjectsImportFiles.ImageTransparentColor = System.Drawing.Color.Magenta; + this.toolStripButtonFixProjectsImportFiles.Name = "toolStripButtonFixProjectsImportFiles"; + this.toolStripButtonFixProjectsImportFiles.Size = new System.Drawing.Size(126, 22); + this.toolStripButtonFixProjectsImportFiles.Text = "Import from directory"; + this.toolStripButtonFixProjectsImportFiles.Click += new System.EventHandler(this.buttonFixProjectsImportProjects_Click); + // + // splitContainerFixProjectsUnits + // + this.splitContainerFixProjectsUnits.Dock = System.Windows.Forms.DockStyle.Fill; + this.splitContainerFixProjectsUnits.Location = new System.Drawing.Point(0, 0); + this.splitContainerFixProjectsUnits.Name = "splitContainerFixProjectsUnits"; + this.splitContainerFixProjectsUnits.Orientation = System.Windows.Forms.Orientation.Horizontal; + // + // splitContainerFixProjectsUnits.Panel1 + // + this.splitContainerFixProjectsUnits.Panel1.Controls.Add(this.panelFixProjectsUnits); + this.splitContainerFixProjectsUnits.Panel1.Controls.Add(this.toolStripFixProjectsUnits); + // + // splitContainerFixProjectsUnits.Panel2 + // + this.splitContainerFixProjectsUnits.Panel2.Controls.Add(this.textBoxFixProjectsUnitConstraints); + this.splitContainerFixProjectsUnits.Panel2.Controls.Add(this.labelFixProjectsUnitConstraints); + this.splitContainerFixProjectsUnits.Size = new System.Drawing.Size(516, 409); + this.splitContainerFixProjectsUnits.SplitterDistance = 302; + this.splitContainerFixProjectsUnits.TabIndex = 1; + // + // panelFixProjectsUnits + // + this.panelFixProjectsUnits.Controls.Add(this.textBoxFixProjectsInterfaceUnits); + this.panelFixProjectsUnits.Dock = System.Windows.Forms.DockStyle.Fill; + this.panelFixProjectsUnits.Location = new System.Drawing.Point(0, 25); + this.panelFixProjectsUnits.Name = "panelFixProjectsUnits"; + this.panelFixProjectsUnits.Size = new System.Drawing.Size(516, 277); + this.panelFixProjectsUnits.TabIndex = 16; + // + // textBoxFixProjectsInterfaceUnits + // + this.textBoxFixProjectsInterfaceUnits.Dock = System.Windows.Forms.DockStyle.Fill; + this.textBoxFixProjectsInterfaceUnits.Location = new System.Drawing.Point(0, 0); + this.textBoxFixProjectsInterfaceUnits.MaxLength = 0; + this.textBoxFixProjectsInterfaceUnits.Multiline = true; + this.textBoxFixProjectsInterfaceUnits.Name = "textBoxFixProjectsInterfaceUnits"; + this.textBoxFixProjectsInterfaceUnits.ScrollBars = System.Windows.Forms.ScrollBars.Both; + this.textBoxFixProjectsInterfaceUnits.Size = new System.Drawing.Size(516, 277); + this.textBoxFixProjectsInterfaceUnits.TabIndex = 14; + this.textBoxFixProjectsInterfaceUnits.WordWrap = false; + this.textBoxFixProjectsInterfaceUnits.TextChanged += new System.EventHandler(this.textBoxFixProjectsInterfaceUnits_TextChanged); + // + // toolStripFixProjectsUnits + // + this.toolStripFixProjectsUnits.Items.AddRange(new System.Windows.Forms.ToolStripItem[] { + this.toolStripLabelFixProjectsUnits, + this.toolStripButtonFixProjectsSelectUnits, + this.toolStripButtonFixProjectsImportUnits}); + this.toolStripFixProjectsUnits.Location = new System.Drawing.Point(0, 0); + this.toolStripFixProjectsUnits.Name = "toolStripFixProjectsUnits"; + this.toolStripFixProjectsUnits.Size = new System.Drawing.Size(516, 25); + this.toolStripFixProjectsUnits.TabIndex = 8; + this.toolStripFixProjectsUnits.Text = "Interface section"; + // + // toolStripLabelFixProjectsUnits + // + this.toolStripLabelFixProjectsUnits.Font = new System.Drawing.Font("Tahoma", 8.25F, System.Drawing.FontStyle.Bold); + this.toolStripLabelFixProjectsUnits.ForeColor = System.Drawing.Color.MidnightBlue; + this.toolStripLabelFixProjectsUnits.Name = "toolStripLabelFixProjectsUnits"; + this.toolStripLabelFixProjectsUnits.Size = new System.Drawing.Size(36, 22); + this.toolStripLabelFixProjectsUnits.Text = "Units"; + // + // toolStripButtonFixProjectsSelectUnits + // + this.toolStripButtonFixProjectsSelectUnits.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text; + this.toolStripButtonFixProjectsSelectUnits.Image = ((System.Drawing.Image)(resources.GetObject("toolStripButtonFixProjectsSelectUnits.Image"))); + this.toolStripButtonFixProjectsSelectUnits.ImageTransparentColor = System.Drawing.Color.Magenta; + this.toolStripButtonFixProjectsSelectUnits.Name = "toolStripButtonFixProjectsSelectUnits"; + this.toolStripButtonFixProjectsSelectUnits.Size = new System.Drawing.Size(42, 22); + this.toolStripButtonFixProjectsSelectUnits.Text = "Select"; + this.toolStripButtonFixProjectsSelectUnits.Click += new System.EventHandler(this.buttonFixProjectsSelectInterfaceUnits_Click); + // + // toolStripButtonFixProjectsImportUnits + // + this.toolStripButtonFixProjectsImportUnits.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text; + this.toolStripButtonFixProjectsImportUnits.Image = ((System.Drawing.Image)(resources.GetObject("toolStripButtonFixProjectsImportUnits.Image"))); + this.toolStripButtonFixProjectsImportUnits.ImageTransparentColor = System.Drawing.Color.Magenta; + this.toolStripButtonFixProjectsImportUnits.Name = "toolStripButtonFixProjectsImportUnits"; + this.toolStripButtonFixProjectsImportUnits.Size = new System.Drawing.Size(47, 22); + this.toolStripButtonFixProjectsImportUnits.Text = "Import"; + this.toolStripButtonFixProjectsImportUnits.Click += new System.EventHandler(this.buttonFixProjectsImportInterfaceUnits_Click); + // + // textBoxFixProjectsUnitConstraints + // + this.textBoxFixProjectsUnitConstraints.Dock = System.Windows.Forms.DockStyle.Fill; + this.textBoxFixProjectsUnitConstraints.Location = new System.Drawing.Point(0, 18); + this.textBoxFixProjectsUnitConstraints.MaxLength = 0; + this.textBoxFixProjectsUnitConstraints.Multiline = true; + this.textBoxFixProjectsUnitConstraints.Name = "textBoxFixProjectsUnitConstraints"; + this.textBoxFixProjectsUnitConstraints.ScrollBars = System.Windows.Forms.ScrollBars.Both; + this.textBoxFixProjectsUnitConstraints.Size = new System.Drawing.Size(516, 85); + this.textBoxFixProjectsUnitConstraints.TabIndex = 9; + this.textBoxFixProjectsUnitConstraints.WordWrap = false; + this.textBoxFixProjectsUnitConstraints.TextChanged += new System.EventHandler(this.textBoxFixProjectsUnitConstraints_TextChanged); + // + // labelFixProjectsUnitConstraints + // + this.labelFixProjectsUnitConstraints.AutoSize = true; + this.labelFixProjectsUnitConstraints.Dock = System.Windows.Forms.DockStyle.Top; + this.labelFixProjectsUnitConstraints.Location = new System.Drawing.Point(0, 0); + this.labelFixProjectsUnitConstraints.Name = "labelFixProjectsUnitConstraints"; + this.labelFixProjectsUnitConstraints.Padding = new System.Windows.Forms.Padding(0, 0, 0, 5); + this.labelFixProjectsUnitConstraints.Size = new System.Drawing.Size(262, 18); + this.labelFixProjectsUnitConstraints.TabIndex = 8; + this.labelFixProjectsUnitConstraints.Text = "Modify the project, only if it contains the following units"; + // + // toolStripFixProjectsActions + // + this.toolStripFixProjectsActions.Dock = System.Windows.Forms.DockStyle.Bottom; + this.toolStripFixProjectsActions.Items.AddRange(new System.Windows.Forms.ToolStripItem[] { + this.toolStripButtonFixProjectsActionAddUnits, + this.toolStripButtonFixProjectsActionRemoveUnits, + this.toolStripButtonFixProjectsActionFixPaths, + this.toolStripButtonFixProjectsActionFixForms, + this.toolStripSeparator1, + this.toolStripButtonFixProjectsActionBulkOperation, + this.toolStripSeparatorFixProjectsActionSeparator, + this.toolStripDropDownButton1}); + this.toolStripFixProjectsActions.Location = new System.Drawing.Point(3, 412); + this.toolStripFixProjectsActions.Name = "toolStripFixProjectsActions"; + this.toolStripFixProjectsActions.Size = new System.Drawing.Size(778, 25); + this.toolStripFixProjectsActions.TabIndex = 20; + this.toolStripFixProjectsActions.Text = "toolStrip2"; + // + // toolStripButtonFixProjectsActionAddUnits + // + this.toolStripButtonFixProjectsActionAddUnits.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text; + this.toolStripButtonFixProjectsActionAddUnits.Image = ((System.Drawing.Image)(resources.GetObject("toolStripButtonFixProjectsActionAddUnits.Image"))); + this.toolStripButtonFixProjectsActionAddUnits.ImageTransparentColor = System.Drawing.Color.Magenta; + this.toolStripButtonFixProjectsActionAddUnits.Name = "toolStripButtonFixProjectsActionAddUnits"; + this.toolStripButtonFixProjectsActionAddUnits.Size = new System.Drawing.Size(62, 22); + this.toolStripButtonFixProjectsActionAddUnits.Text = "Add units"; + this.toolStripButtonFixProjectsActionAddUnits.Click += new System.EventHandler(this.buttonFixProjectsAddUnitsStart_Click); + // + // toolStripButtonFixProjectsActionRemoveUnits + // + this.toolStripButtonFixProjectsActionRemoveUnits.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text; + this.toolStripButtonFixProjectsActionRemoveUnits.Image = ((System.Drawing.Image)(resources.GetObject("toolStripButtonFixProjectsActionRemoveUnits.Image"))); + this.toolStripButtonFixProjectsActionRemoveUnits.ImageTransparentColor = System.Drawing.Color.Magenta; + this.toolStripButtonFixProjectsActionRemoveUnits.Name = "toolStripButtonFixProjectsActionRemoveUnits"; + this.toolStripButtonFixProjectsActionRemoveUnits.Size = new System.Drawing.Size(83, 22); + this.toolStripButtonFixProjectsActionRemoveUnits.Text = "Remove units"; + this.toolStripButtonFixProjectsActionRemoveUnits.Click += new System.EventHandler(this.buttonFixProjectsRemoveUnits_Click); + // + // toolStripButtonFixProjectsActionFixPaths + // + this.toolStripButtonFixProjectsActionFixPaths.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text; + this.toolStripButtonFixProjectsActionFixPaths.Image = ((System.Drawing.Image)(resources.GetObject("toolStripButtonFixProjectsActionFixPaths.Image"))); + this.toolStripButtonFixProjectsActionFixPaths.ImageTransparentColor = System.Drawing.Color.Magenta; + this.toolStripButtonFixProjectsActionFixPaths.Name = "toolStripButtonFixProjectsActionFixPaths"; + this.toolStripButtonFixProjectsActionFixPaths.Size = new System.Drawing.Size(57, 22); + this.toolStripButtonFixProjectsActionFixPaths.Text = "Fix paths"; + this.toolStripButtonFixProjectsActionFixPaths.Click += new System.EventHandler(this.buttonFixProjectsFixPaths_Click); + // + // toolStripButtonFixProjectsActionFixForms + // + this.toolStripButtonFixProjectsActionFixForms.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text; + this.toolStripButtonFixProjectsActionFixForms.Image = ((System.Drawing.Image)(resources.GetObject("toolStripButtonFixProjectsActionFixForms.Image"))); + this.toolStripButtonFixProjectsActionFixForms.ImageTransparentColor = System.Drawing.Color.Magenta; + this.toolStripButtonFixProjectsActionFixForms.Name = "toolStripButtonFixProjectsActionFixForms"; + this.toolStripButtonFixProjectsActionFixForms.Size = new System.Drawing.Size(59, 22); + this.toolStripButtonFixProjectsActionFixForms.Text = "Fix forms"; + this.toolStripButtonFixProjectsActionFixForms.Click += new System.EventHandler(this.buttonFixProjectsFixForms_Click); + // + // toolStripSeparator1 + // + this.toolStripSeparator1.Name = "toolStripSeparator1"; + this.toolStripSeparator1.Size = new System.Drawing.Size(6, 25); + // + // toolStripButtonFixProjectsActionBulkOperation + // + this.toolStripButtonFixProjectsActionBulkOperation.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text; + this.toolStripButtonFixProjectsActionBulkOperation.Image = ((System.Drawing.Image)(resources.GetObject("toolStripButtonFixProjectsActionBulkOperation.Image"))); + this.toolStripButtonFixProjectsActionBulkOperation.ImageTransparentColor = System.Drawing.Color.Magenta; + this.toolStripButtonFixProjectsActionBulkOperation.Name = "toolStripButtonFixProjectsActionBulkOperation"; + this.toolStripButtonFixProjectsActionBulkOperation.Size = new System.Drawing.Size(34, 22); + this.toolStripButtonFixProjectsActionBulkOperation.Text = "Bulk"; + this.toolStripButtonFixProjectsActionBulkOperation.ToolTipText = "Run bulk operations from file"; + this.toolStripButtonFixProjectsActionBulkOperation.Click += new System.EventHandler(this.toolStripButtonFixProjectsActionBulkOperation_Click); + // + // toolStripSeparatorFixProjectsActionSeparator + // + this.toolStripSeparatorFixProjectsActionSeparator.Name = "toolStripSeparatorFixProjectsActionSeparator"; + this.toolStripSeparatorFixProjectsActionSeparator.Size = new System.Drawing.Size(6, 25); + // + // toolStripDropDownButton1 + // + this.toolStripDropDownButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text; + this.toolStripDropDownButton1.DropDownItems.AddRange(new System.Windows.Forms.ToolStripItem[] { + this.ToolStripMenuItemFixProjectsActionAddUnitPathsToDPRs}); + this.toolStripDropDownButton1.Image = ((System.Drawing.Image)(resources.GetObject("toolStripDropDownButton1.Image"))); + this.toolStripDropDownButton1.ImageTransparentColor = System.Drawing.Color.Magenta; + this.toolStripDropDownButton1.Name = "toolStripDropDownButton1"; + this.toolStripDropDownButton1.Size = new System.Drawing.Size(62, 22); + this.toolStripDropDownButton1.Text = "Options"; + // + // ToolStripMenuItemFixProjectsActionAddUnitPathsToDPRs + // + this.ToolStripMenuItemFixProjectsActionAddUnitPathsToDPRs.Name = "ToolStripMenuItemFixProjectsActionAddUnitPathsToDPRs"; + this.ToolStripMenuItemFixProjectsActionAddUnitPathsToDPRs.Size = new System.Drawing.Size(196, 22); + this.ToolStripMenuItemFixProjectsActionAddUnitPathsToDPRs.Text = "Add unit paths to DPRs"; + this.ToolStripMenuItemFixProjectsActionAddUnitPathsToDPRs.Click += new System.EventHandler(this.ToolStripMenuItemFixProjectsActionAddUnitPathsToDPRs_Click); + // + // tabPageFixUnits + // + this.tabPageFixUnits.Controls.Add(this.splitContainerFixUnits); + this.tabPageFixUnits.Controls.Add(this.toolStripFixUnitsActions); + this.tabPageFixUnits.Location = new System.Drawing.Point(4, 22); + this.tabPageFixUnits.Name = "tabPageFixUnits"; + this.tabPageFixUnits.Padding = new System.Windows.Forms.Padding(3); + this.tabPageFixUnits.Size = new System.Drawing.Size(784, 440); + this.tabPageFixUnits.TabIndex = 4; + this.tabPageFixUnits.Text = "Units fixing"; + this.tabPageFixUnits.UseVisualStyleBackColor = true; + // + // splitContainerFixUnits + // + this.splitContainerFixUnits.Dock = System.Windows.Forms.DockStyle.Fill; + this.splitContainerFixUnits.Location = new System.Drawing.Point(3, 3); + this.splitContainerFixUnits.Name = "splitContainerFixUnits"; + // + // splitContainerFixUnits.Panel1 + // + this.splitContainerFixUnits.Panel1.Controls.Add(this.textBoxFixUnitsFiles); + this.splitContainerFixUnits.Panel1.Controls.Add(this.toolStripFixUnitsFiles); + // + // splitContainerFixUnits.Panel2 + // + this.splitContainerFixUnits.Panel2.Controls.Add(this.splitContainerFixUnitsUnits); + this.splitContainerFixUnits.Size = new System.Drawing.Size(778, 409); + this.splitContainerFixUnits.SplitterDistance = 258; + this.splitContainerFixUnits.TabIndex = 22; + // + // textBoxFixUnitsFiles + // + this.textBoxFixUnitsFiles.Dock = System.Windows.Forms.DockStyle.Fill; + this.textBoxFixUnitsFiles.Location = new System.Drawing.Point(0, 25); + this.textBoxFixUnitsFiles.MaxLength = 0; + this.textBoxFixUnitsFiles.Multiline = true; + this.textBoxFixUnitsFiles.Name = "textBoxFixUnitsFiles"; + this.textBoxFixUnitsFiles.ScrollBars = System.Windows.Forms.ScrollBars.Both; + this.textBoxFixUnitsFiles.Size = new System.Drawing.Size(258, 384); + this.textBoxFixUnitsFiles.TabIndex = 10; + this.textBoxFixUnitsFiles.WordWrap = false; + this.textBoxFixUnitsFiles.TextChanged += new System.EventHandler(this.textBoxFixUnitsFiles_TextChanged); + // + // toolStripFixUnitsFiles + // + this.toolStripFixUnitsFiles.Items.AddRange(new System.Windows.Forms.ToolStripItem[] { + this.toolStripButtonFixUnitsSelectFiles, + this.toolStripButtonFixUnitsImportFiles}); + this.toolStripFixUnitsFiles.Location = new System.Drawing.Point(0, 0); + this.toolStripFixUnitsFiles.Name = "toolStripFixUnitsFiles"; + this.toolStripFixUnitsFiles.Size = new System.Drawing.Size(258, 25); + this.toolStripFixUnitsFiles.TabIndex = 9; + // + // toolStripButtonFixUnitsSelectFiles + // + this.toolStripButtonFixUnitsSelectFiles.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text; + this.toolStripButtonFixUnitsSelectFiles.Image = ((System.Drawing.Image)(resources.GetObject("toolStripButtonFixUnitsSelectFiles.Image"))); + this.toolStripButtonFixUnitsSelectFiles.ImageTransparentColor = System.Drawing.Color.Magenta; + this.toolStripButtonFixUnitsSelectFiles.Name = "toolStripButtonFixUnitsSelectFiles"; + this.toolStripButtonFixUnitsSelectFiles.Size = new System.Drawing.Size(42, 22); + this.toolStripButtonFixUnitsSelectFiles.Text = "Select"; + this.toolStripButtonFixUnitsSelectFiles.Click += new System.EventHandler(this.toolStripButtonFixUnitsSelectFiles_Click); + // + // toolStripButtonFixUnitsImportFiles + // + this.toolStripButtonFixUnitsImportFiles.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text; + this.toolStripButtonFixUnitsImportFiles.Image = ((System.Drawing.Image)(resources.GetObject("toolStripButtonFixUnitsImportFiles.Image"))); + this.toolStripButtonFixUnitsImportFiles.ImageTransparentColor = System.Drawing.Color.Magenta; + this.toolStripButtonFixUnitsImportFiles.Name = "toolStripButtonFixUnitsImportFiles"; + this.toolStripButtonFixUnitsImportFiles.Size = new System.Drawing.Size(126, 22); + this.toolStripButtonFixUnitsImportFiles.Text = "Import from directory"; + this.toolStripButtonFixUnitsImportFiles.Click += new System.EventHandler(this.toolStripButtonFixUnitsImportFiles_Click); + // + // splitContainerFixUnitsUnits + // + this.splitContainerFixUnitsUnits.Dock = System.Windows.Forms.DockStyle.Fill; + this.splitContainerFixUnitsUnits.Location = new System.Drawing.Point(0, 0); + this.splitContainerFixUnitsUnits.Name = "splitContainerFixUnitsUnits"; + this.splitContainerFixUnitsUnits.Orientation = System.Windows.Forms.Orientation.Horizontal; + // + // splitContainerFixUnitsUnits.Panel1 + // + this.splitContainerFixUnitsUnits.Panel1.Controls.Add(this.splitContainerFixUnitsInterfaceUnits); + // + // splitContainerFixUnitsUnits.Panel2 + // + this.splitContainerFixUnitsUnits.Panel2.Controls.Add(this.textBoxFixUnitsUnitConstraints); + this.splitContainerFixUnitsUnits.Panel2.Controls.Add(this.labelFixUnitsUnitConstraints); + this.splitContainerFixUnitsUnits.Size = new System.Drawing.Size(516, 409); + this.splitContainerFixUnitsUnits.SplitterDistance = 303; + this.splitContainerFixUnitsUnits.TabIndex = 1; + // + // splitContainerFixUnitsInterfaceUnits + // + this.splitContainerFixUnitsInterfaceUnits.Dock = System.Windows.Forms.DockStyle.Fill; + this.splitContainerFixUnitsInterfaceUnits.Location = new System.Drawing.Point(0, 0); + this.splitContainerFixUnitsInterfaceUnits.Name = "splitContainerFixUnitsInterfaceUnits"; + // + // splitContainerFixUnitsInterfaceUnits.Panel1 + // + this.splitContainerFixUnitsInterfaceUnits.Panel1.Controls.Add(this.panelFixUnitsInterfaceUnits); + this.splitContainerFixUnitsInterfaceUnits.Panel1.Controls.Add(this.toolStripFixUnitsInterfaceUnits); + // + // splitContainerFixUnitsInterfaceUnits.Panel2 + // + this.splitContainerFixUnitsInterfaceUnits.Panel2.Controls.Add(this.panelFixUnitsImplementationUnits); + this.splitContainerFixUnitsInterfaceUnits.Panel2.Controls.Add(this.toolStripFixUnitsImplementationUnits); + this.splitContainerFixUnitsInterfaceUnits.Size = new System.Drawing.Size(516, 303); + this.splitContainerFixUnitsInterfaceUnits.SplitterDistance = 256; + this.splitContainerFixUnitsInterfaceUnits.TabIndex = 0; + // + // panelFixUnitsInterfaceUnits + // + this.panelFixUnitsInterfaceUnits.Controls.Add(this.textBoxFixUnitsInterfaceUnits); + this.panelFixUnitsInterfaceUnits.Dock = System.Windows.Forms.DockStyle.Fill; + this.panelFixUnitsInterfaceUnits.Location = new System.Drawing.Point(0, 25); + this.panelFixUnitsInterfaceUnits.Name = "panelFixUnitsInterfaceUnits"; + this.panelFixUnitsInterfaceUnits.Size = new System.Drawing.Size(256, 278); + this.panelFixUnitsInterfaceUnits.TabIndex = 16; + // + // textBoxFixUnitsInterfaceUnits + // + this.textBoxFixUnitsInterfaceUnits.Dock = System.Windows.Forms.DockStyle.Fill; + this.textBoxFixUnitsInterfaceUnits.Location = new System.Drawing.Point(0, 0); + this.textBoxFixUnitsInterfaceUnits.MaxLength = 0; + this.textBoxFixUnitsInterfaceUnits.Multiline = true; + this.textBoxFixUnitsInterfaceUnits.Name = "textBoxFixUnitsInterfaceUnits"; + this.textBoxFixUnitsInterfaceUnits.ScrollBars = System.Windows.Forms.ScrollBars.Both; + this.textBoxFixUnitsInterfaceUnits.Size = new System.Drawing.Size(256, 278); + this.textBoxFixUnitsInterfaceUnits.TabIndex = 14; + this.textBoxFixUnitsInterfaceUnits.WordWrap = false; + this.textBoxFixUnitsInterfaceUnits.TextChanged += new System.EventHandler(this.textBoxFixUnitsInterfaceUnits_TextChanged); + // + // toolStripFixUnitsInterfaceUnits + // + this.toolStripFixUnitsInterfaceUnits.Items.AddRange(new System.Windows.Forms.ToolStripItem[] { + this.toolStripLabelFixUnitsInterfaceUnits, + this.toolStripButtonFixUnitsSelectInterfaceUnits, + this.toolStripButtonFixUnitsImportInterfaceUnits}); + this.toolStripFixUnitsInterfaceUnits.Location = new System.Drawing.Point(0, 0); + this.toolStripFixUnitsInterfaceUnits.Name = "toolStripFixUnitsInterfaceUnits"; + this.toolStripFixUnitsInterfaceUnits.Size = new System.Drawing.Size(256, 25); + this.toolStripFixUnitsInterfaceUnits.TabIndex = 9; + this.toolStripFixUnitsInterfaceUnits.Text = "Interface section"; + // + // toolStripLabelFixUnitsInterfaceUnits + // + this.toolStripLabelFixUnitsInterfaceUnits.Font = new System.Drawing.Font("Tahoma", 8.25F, System.Drawing.FontStyle.Bold); + this.toolStripLabelFixUnitsInterfaceUnits.ForeColor = System.Drawing.Color.MidnightBlue; + this.toolStripLabelFixUnitsInterfaceUnits.Name = "toolStripLabelFixUnitsInterfaceUnits"; + this.toolStripLabelFixUnitsInterfaceUnits.Size = new System.Drawing.Size(104, 22); + this.toolStripLabelFixUnitsInterfaceUnits.Text = "Interface section"; + // + // toolStripButtonFixUnitsSelectInterfaceUnits + // + this.toolStripButtonFixUnitsSelectInterfaceUnits.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text; + this.toolStripButtonFixUnitsSelectInterfaceUnits.Image = ((System.Drawing.Image)(resources.GetObject("toolStripButtonFixUnitsSelectInterfaceUnits.Image"))); + this.toolStripButtonFixUnitsSelectInterfaceUnits.ImageTransparentColor = System.Drawing.Color.Magenta; + this.toolStripButtonFixUnitsSelectInterfaceUnits.Name = "toolStripButtonFixUnitsSelectInterfaceUnits"; + this.toolStripButtonFixUnitsSelectInterfaceUnits.Size = new System.Drawing.Size(42, 22); + this.toolStripButtonFixUnitsSelectInterfaceUnits.Text = "Select"; + this.toolStripButtonFixUnitsSelectInterfaceUnits.Click += new System.EventHandler(this.toolStripButtonFixUnitsSelectInterfaceUnits_Click); + // + // toolStripButtonFixUnitsImportInterfaceUnits + // + this.toolStripButtonFixUnitsImportInterfaceUnits.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text; + this.toolStripButtonFixUnitsImportInterfaceUnits.Image = ((System.Drawing.Image)(resources.GetObject("toolStripButtonFixUnitsImportInterfaceUnits.Image"))); + this.toolStripButtonFixUnitsImportInterfaceUnits.ImageTransparentColor = System.Drawing.Color.Magenta; + this.toolStripButtonFixUnitsImportInterfaceUnits.Name = "toolStripButtonFixUnitsImportInterfaceUnits"; + this.toolStripButtonFixUnitsImportInterfaceUnits.Size = new System.Drawing.Size(47, 22); + this.toolStripButtonFixUnitsImportInterfaceUnits.Text = "Import"; + this.toolStripButtonFixUnitsImportInterfaceUnits.Click += new System.EventHandler(this.toolStripButtonFixUnitsImportInterfaceUnits_Click); + // + // panelFixUnitsImplementationUnits + // + this.panelFixUnitsImplementationUnits.Controls.Add(this.textBoxFixUnitsImplementationUnits); + this.panelFixUnitsImplementationUnits.Dock = System.Windows.Forms.DockStyle.Fill; + this.panelFixUnitsImplementationUnits.Location = new System.Drawing.Point(0, 25); + this.panelFixUnitsImplementationUnits.Name = "panelFixUnitsImplementationUnits"; + this.panelFixUnitsImplementationUnits.Size = new System.Drawing.Size(256, 278); + this.panelFixUnitsImplementationUnits.TabIndex = 20; + // + // textBoxFixUnitsImplementationUnits + // + this.textBoxFixUnitsImplementationUnits.Dock = System.Windows.Forms.DockStyle.Fill; + this.textBoxFixUnitsImplementationUnits.Location = new System.Drawing.Point(0, 0); + this.textBoxFixUnitsImplementationUnits.MaxLength = 0; + this.textBoxFixUnitsImplementationUnits.Multiline = true; + this.textBoxFixUnitsImplementationUnits.Name = "textBoxFixUnitsImplementationUnits"; + this.textBoxFixUnitsImplementationUnits.ScrollBars = System.Windows.Forms.ScrollBars.Both; + this.textBoxFixUnitsImplementationUnits.Size = new System.Drawing.Size(256, 278); + this.textBoxFixUnitsImplementationUnits.TabIndex = 13; + this.textBoxFixUnitsImplementationUnits.WordWrap = false; + this.textBoxFixUnitsImplementationUnits.TextChanged += new System.EventHandler(this.textBoxFixUnitsImplementationUnits_TextChanged); + // + // toolStripFixUnitsImplementationUnits + // + this.toolStripFixUnitsImplementationUnits.Items.AddRange(new System.Windows.Forms.ToolStripItem[] { + this.toolStripLabelFixUnitsImplementationUnits, + this.toolStripButtonFixUnitsSelectImplementationUnits, + this.toolStripButtonFixUnitsImportImplementationUnits}); + this.toolStripFixUnitsImplementationUnits.Location = new System.Drawing.Point(0, 0); + this.toolStripFixUnitsImplementationUnits.Name = "toolStripFixUnitsImplementationUnits"; + this.toolStripFixUnitsImplementationUnits.Size = new System.Drawing.Size(256, 25); + this.toolStripFixUnitsImplementationUnits.TabIndex = 19; + this.toolStripFixUnitsImplementationUnits.Text = "Interface section"; + // + // toolStripLabelFixUnitsImplementationUnits + // + this.toolStripLabelFixUnitsImplementationUnits.Font = new System.Drawing.Font("Tahoma", 8.25F, System.Drawing.FontStyle.Bold); + this.toolStripLabelFixUnitsImplementationUnits.ForeColor = System.Drawing.Color.MidnightBlue; + this.toolStripLabelFixUnitsImplementationUnits.Name = "toolStripLabelFixUnitsImplementationUnits"; + this.toolStripLabelFixUnitsImplementationUnits.Size = new System.Drawing.Size(143, 22); + this.toolStripLabelFixUnitsImplementationUnits.Text = "Implementation section"; + // + // toolStripButtonFixUnitsSelectImplementationUnits + // + this.toolStripButtonFixUnitsSelectImplementationUnits.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text; + this.toolStripButtonFixUnitsSelectImplementationUnits.Image = ((System.Drawing.Image)(resources.GetObject("toolStripButtonFixUnitsSelectImplementationUnits.Image"))); + this.toolStripButtonFixUnitsSelectImplementationUnits.ImageTransparentColor = System.Drawing.Color.Magenta; + this.toolStripButtonFixUnitsSelectImplementationUnits.Name = "toolStripButtonFixUnitsSelectImplementationUnits"; + this.toolStripButtonFixUnitsSelectImplementationUnits.Size = new System.Drawing.Size(42, 22); + this.toolStripButtonFixUnitsSelectImplementationUnits.Text = "Select"; + this.toolStripButtonFixUnitsSelectImplementationUnits.Click += new System.EventHandler(this.toolStripButtonFixUnitsSelectImplementationUnits_Click); + // + // toolStripButtonFixUnitsImportImplementationUnits + // + this.toolStripButtonFixUnitsImportImplementationUnits.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text; + this.toolStripButtonFixUnitsImportImplementationUnits.Image = ((System.Drawing.Image)(resources.GetObject("toolStripButtonFixUnitsImportImplementationUnits.Image"))); + this.toolStripButtonFixUnitsImportImplementationUnits.ImageTransparentColor = System.Drawing.Color.Magenta; + this.toolStripButtonFixUnitsImportImplementationUnits.Name = "toolStripButtonFixUnitsImportImplementationUnits"; + this.toolStripButtonFixUnitsImportImplementationUnits.Size = new System.Drawing.Size(47, 22); + this.toolStripButtonFixUnitsImportImplementationUnits.Text = "Import"; + this.toolStripButtonFixUnitsImportImplementationUnits.Click += new System.EventHandler(this.toolStripButtonFixUnitsImportImplementationUnits_Click); + // + // textBoxFixUnitsUnitConstraints + // + this.textBoxFixUnitsUnitConstraints.Dock = System.Windows.Forms.DockStyle.Fill; + this.textBoxFixUnitsUnitConstraints.Location = new System.Drawing.Point(0, 18); + this.textBoxFixUnitsUnitConstraints.MaxLength = 0; + this.textBoxFixUnitsUnitConstraints.Multiline = true; + this.textBoxFixUnitsUnitConstraints.Name = "textBoxFixUnitsUnitConstraints"; + this.textBoxFixUnitsUnitConstraints.ScrollBars = System.Windows.Forms.ScrollBars.Both; + this.textBoxFixUnitsUnitConstraints.Size = new System.Drawing.Size(516, 84); + this.textBoxFixUnitsUnitConstraints.TabIndex = 9; + this.textBoxFixUnitsUnitConstraints.WordWrap = false; + this.textBoxFixUnitsUnitConstraints.TextChanged += new System.EventHandler(this.textBoxFixUnitsUnitConstraints_TextChanged); + // + // labelFixUnitsUnitConstraints + // + this.labelFixUnitsUnitConstraints.AutoSize = true; + this.labelFixUnitsUnitConstraints.Dock = System.Windows.Forms.DockStyle.Top; + this.labelFixUnitsUnitConstraints.Location = new System.Drawing.Point(0, 0); + this.labelFixUnitsUnitConstraints.Name = "labelFixUnitsUnitConstraints"; + this.labelFixUnitsUnitConstraints.Padding = new System.Windows.Forms.Padding(0, 0, 0, 5); + this.labelFixUnitsUnitConstraints.Size = new System.Drawing.Size(262, 18); + this.labelFixUnitsUnitConstraints.TabIndex = 8; + this.labelFixUnitsUnitConstraints.Text = "Modify the project, only if it contains the following units"; + // + // toolStripFixUnitsActions + // + this.toolStripFixUnitsActions.Dock = System.Windows.Forms.DockStyle.Bottom; + this.toolStripFixUnitsActions.Items.AddRange(new System.Windows.Forms.ToolStripItem[] { + this.toolStripButtonFixUnitsActionAddUnits, + this.toolStripButtonFixUnitsActionRemoveUnits}); + this.toolStripFixUnitsActions.Location = new System.Drawing.Point(3, 412); + this.toolStripFixUnitsActions.Name = "toolStripFixUnitsActions"; + this.toolStripFixUnitsActions.Size = new System.Drawing.Size(778, 25); + this.toolStripFixUnitsActions.TabIndex = 21; + this.toolStripFixUnitsActions.Text = "toolStrip4"; + // + // toolStripButtonFixUnitsActionAddUnits + // + this.toolStripButtonFixUnitsActionAddUnits.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text; + this.toolStripButtonFixUnitsActionAddUnits.Image = ((System.Drawing.Image)(resources.GetObject("toolStripButtonFixUnitsActionAddUnits.Image"))); + this.toolStripButtonFixUnitsActionAddUnits.ImageTransparentColor = System.Drawing.Color.Magenta; + this.toolStripButtonFixUnitsActionAddUnits.Name = "toolStripButtonFixUnitsActionAddUnits"; + this.toolStripButtonFixUnitsActionAddUnits.Size = new System.Drawing.Size(62, 22); + this.toolStripButtonFixUnitsActionAddUnits.Text = "Add units"; + this.toolStripButtonFixUnitsActionAddUnits.Click += new System.EventHandler(this.toolStripButtonFixUnitsActionAddUnits_Click); + // + // toolStripButtonFixUnitsActionRemoveUnits + // + this.toolStripButtonFixUnitsActionRemoveUnits.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text; + this.toolStripButtonFixUnitsActionRemoveUnits.Image = ((System.Drawing.Image)(resources.GetObject("toolStripButtonFixUnitsActionRemoveUnits.Image"))); + this.toolStripButtonFixUnitsActionRemoveUnits.ImageTransparentColor = System.Drawing.Color.Magenta; + this.toolStripButtonFixUnitsActionRemoveUnits.Name = "toolStripButtonFixUnitsActionRemoveUnits"; + this.toolStripButtonFixUnitsActionRemoveUnits.Size = new System.Drawing.Size(83, 22); + this.toolStripButtonFixUnitsActionRemoveUnits.Text = "Remove units"; + this.toolStripButtonFixUnitsActionRemoveUnits.Click += new System.EventHandler(this.toolStripButtonFixUnitsActionRemoveUnits_Click); + // + // tabPageUnitCleanup + // + this.tabPageUnitCleanup.Controls.Add(this.toolStripContainerIcarusReport); + this.tabPageUnitCleanup.Controls.Add(this.toolStripContainerIcarusUnitSettings); + this.tabPageUnitCleanup.Controls.Add(this.panelIcarusOperations); + this.tabPageUnitCleanup.Location = new System.Drawing.Point(4, 22); + this.tabPageUnitCleanup.Name = "tabPageUnitCleanup"; + this.tabPageUnitCleanup.Padding = new System.Windows.Forms.Padding(3); + this.tabPageUnitCleanup.Size = new System.Drawing.Size(784, 440); + this.tabPageUnitCleanup.TabIndex = 3; + this.tabPageUnitCleanup.Text = "Unit Cleanup"; + this.tabPageUnitCleanup.UseVisualStyleBackColor = true; + // + // toolStripContainerIcarusReport + // + this.toolStripContainerIcarusReport.BottomToolStripPanelVisible = false; + // + // toolStripContainerIcarusReport.ContentPanel + // + this.toolStripContainerIcarusReport.ContentPanel.Controls.Add(this.textBoxIcarusReport); + this.toolStripContainerIcarusReport.ContentPanel.Size = new System.Drawing.Size(778, 171); + this.toolStripContainerIcarusReport.Dock = System.Windows.Forms.DockStyle.Fill; + this.toolStripContainerIcarusReport.LeftToolStripPanelVisible = false; + this.toolStripContainerIcarusReport.Location = new System.Drawing.Point(3, 210); + this.toolStripContainerIcarusReport.Name = "toolStripContainerIcarusReport"; + this.toolStripContainerIcarusReport.RightToolStripPanelVisible = false; + this.toolStripContainerIcarusReport.Size = new System.Drawing.Size(778, 196); + this.toolStripContainerIcarusReport.TabIndex = 1; + this.toolStripContainerIcarusReport.Text = "toolStripContainer4"; + // + // toolStripContainerIcarusReport.TopToolStripPanel + // + this.toolStripContainerIcarusReport.TopToolStripPanel.Controls.Add(this.toolStripIcarusReport); + // + // textBoxIcarusReport + // + this.textBoxIcarusReport.Dock = System.Windows.Forms.DockStyle.Fill; + this.textBoxIcarusReport.Location = new System.Drawing.Point(0, 0); + this.textBoxIcarusReport.MaxLength = 0; + this.textBoxIcarusReport.Multiline = true; + this.textBoxIcarusReport.Name = "textBoxIcarusReport"; + this.textBoxIcarusReport.ScrollBars = System.Windows.Forms.ScrollBars.Both; + this.textBoxIcarusReport.Size = new System.Drawing.Size(778, 171); + this.textBoxIcarusReport.TabIndex = 23; + this.textBoxIcarusReport.TextChanged += new System.EventHandler(this.textBoxIcarusReport_TextChanged); + // + // toolStripIcarusReport + // + this.toolStripIcarusReport.Dock = System.Windows.Forms.DockStyle.None; + this.toolStripIcarusReport.Items.AddRange(new System.Windows.Forms.ToolStripItem[] { + this.toolStripLabelIcarusReport, + this.toolStripSeparatorIcarusReport, + this.toolStripButtonIcarusReportPasteFromClipboard}); + this.toolStripIcarusReport.Location = new System.Drawing.Point(3, 0); + this.toolStripIcarusReport.Name = "toolStripIcarusReport"; + this.toolStripIcarusReport.Size = new System.Drawing.Size(344, 25); + this.toolStripIcarusReport.TabIndex = 0; + // + // toolStripLabelIcarusReport + // + this.toolStripLabelIcarusReport.Font = new System.Drawing.Font("Tahoma", 8.25F, System.Drawing.FontStyle.Bold); + this.toolStripLabelIcarusReport.ForeColor = System.Drawing.Color.MidnightBlue; + this.toolStripLabelIcarusReport.Name = "toolStripLabelIcarusReport"; + this.toolStripLabelIcarusReport.Size = new System.Drawing.Size(205, 22); + this.toolStripLabelIcarusReport.Text = "Paste ICARUS analysis results here"; + // + // toolStripSeparatorIcarusReport + // + this.toolStripSeparatorIcarusReport.Name = "toolStripSeparatorIcarusReport"; + this.toolStripSeparatorIcarusReport.Size = new System.Drawing.Size(6, 25); + // + // toolStripButtonIcarusReportPasteFromClipboard + // + this.toolStripButtonIcarusReportPasteFromClipboard.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text; + this.toolStripButtonIcarusReportPasteFromClipboard.Image = ((System.Drawing.Image)(resources.GetObject("toolStripButtonIcarusReportPasteFromClipboard.Image"))); + this.toolStripButtonIcarusReportPasteFromClipboard.ImageTransparentColor = System.Drawing.Color.Magenta; + this.toolStripButtonIcarusReportPasteFromClipboard.Name = "toolStripButtonIcarusReportPasteFromClipboard"; + this.toolStripButtonIcarusReportPasteFromClipboard.Size = new System.Drawing.Size(121, 22); + this.toolStripButtonIcarusReportPasteFromClipboard.Text = "Paste from clipboard"; + this.toolStripButtonIcarusReportPasteFromClipboard.Click += new System.EventHandler(this.ToolStripButtonIcarusReportPasteFromClipboardClick); + // + // toolStripContainerIcarusUnitSettings + // + this.toolStripContainerIcarusUnitSettings.BottomToolStripPanelVisible = false; + // + // toolStripContainerIcarusUnitSettings.ContentPanel + // + this.toolStripContainerIcarusUnitSettings.ContentPanel.Controls.Add(this.splitContainerIcarusUnitSettings2); + this.toolStripContainerIcarusUnitSettings.ContentPanel.Size = new System.Drawing.Size(778, 207); + this.toolStripContainerIcarusUnitSettings.Dock = System.Windows.Forms.DockStyle.Top; + this.toolStripContainerIcarusUnitSettings.LeftToolStripPanelVisible = false; + this.toolStripContainerIcarusUnitSettings.Location = new System.Drawing.Point(3, 3); + this.toolStripContainerIcarusUnitSettings.Name = "toolStripContainerIcarusUnitSettings"; + this.toolStripContainerIcarusUnitSettings.RightToolStripPanelVisible = false; + this.toolStripContainerIcarusUnitSettings.Size = new System.Drawing.Size(778, 207); + this.toolStripContainerIcarusUnitSettings.TabIndex = 25; + this.toolStripContainerIcarusUnitSettings.Text = "toolStripContainer3"; + this.toolStripContainerIcarusUnitSettings.TopToolStripPanelVisible = false; + // + // splitContainerIcarusUnitSettings2 + // + this.splitContainerIcarusUnitSettings2.Dock = System.Windows.Forms.DockStyle.Fill; + this.splitContainerIcarusUnitSettings2.Location = new System.Drawing.Point(0, 0); + this.splitContainerIcarusUnitSettings2.Name = "splitContainerIcarusUnitSettings2"; + // + // splitContainerIcarusUnitSettings2.Panel1 + // + this.splitContainerIcarusUnitSettings2.Panel1.Controls.Add(this.toolStripContainerIcarusUnits); + // + // splitContainerIcarusUnitSettings2.Panel2 + // + this.splitContainerIcarusUnitSettings2.Panel2.Controls.Add(this.toolStripContainerIcarusIgnoredUnits); + this.splitContainerIcarusUnitSettings2.Size = new System.Drawing.Size(778, 207); + this.splitContainerIcarusUnitSettings2.SplitterDistance = 576; + this.splitContainerIcarusUnitSettings2.TabIndex = 30; + // + // toolStripContainerIcarusUnits + // + this.toolStripContainerIcarusUnits.BottomToolStripPanelVisible = false; + // + // toolStripContainerIcarusUnits.ContentPanel + // + this.toolStripContainerIcarusUnits.ContentPanel.Controls.Add(this.textBoxIcarusUnits); + this.toolStripContainerIcarusUnits.ContentPanel.Size = new System.Drawing.Size(576, 182); + this.toolStripContainerIcarusUnits.Dock = System.Windows.Forms.DockStyle.Fill; + this.toolStripContainerIcarusUnits.LeftToolStripPanelVisible = false; + this.toolStripContainerIcarusUnits.Location = new System.Drawing.Point(0, 0); + this.toolStripContainerIcarusUnits.Name = "toolStripContainerIcarusUnits"; + this.toolStripContainerIcarusUnits.RightToolStripPanelVisible = false; + this.toolStripContainerIcarusUnits.Size = new System.Drawing.Size(576, 207); + this.toolStripContainerIcarusUnits.TabIndex = 27; + this.toolStripContainerIcarusUnits.Text = "toolStripContainer3"; + // + // toolStripContainerIcarusUnits.TopToolStripPanel + // + this.toolStripContainerIcarusUnits.TopToolStripPanel.Controls.Add(this.toolStripIcarusUnits); + // + // textBoxIcarusUnits + // + this.textBoxIcarusUnits.Dock = System.Windows.Forms.DockStyle.Fill; + this.textBoxIcarusUnits.Location = new System.Drawing.Point(0, 0); + this.textBoxIcarusUnits.MaxLength = 0; + this.textBoxIcarusUnits.Multiline = true; + this.textBoxIcarusUnits.Name = "textBoxIcarusUnits"; + this.textBoxIcarusUnits.ScrollBars = System.Windows.Forms.ScrollBars.Both; + this.textBoxIcarusUnits.Size = new System.Drawing.Size(576, 182); + this.textBoxIcarusUnits.TabIndex = 27; + this.textBoxIcarusUnits.TextChanged += new System.EventHandler(this.textBoxIcarusUnits_TextChanged); + // + // toolStripIcarusUnits + // + this.toolStripIcarusUnits.Dock = System.Windows.Forms.DockStyle.None; + this.toolStripIcarusUnits.Items.AddRange(new System.Windows.Forms.ToolStripItem[] { + this.toolStripLabelIcarusUnits, + this.toolStripSeparatorIcarusUnits, + this.toolStripButtonIcarusLoadUntis}); + this.toolStripIcarusUnits.Location = new System.Drawing.Point(3, 0); + this.toolStripIcarusUnits.Name = "toolStripIcarusUnits"; + this.toolStripIcarusUnits.Size = new System.Drawing.Size(248, 25); + this.toolStripIcarusUnits.TabIndex = 1; + // + // toolStripLabelIcarusUnits + // + this.toolStripLabelIcarusUnits.Font = new System.Drawing.Font("Tahoma", 8.25F, System.Drawing.FontStyle.Bold); + this.toolStripLabelIcarusUnits.ForeColor = System.Drawing.Color.MidnightBlue; + this.toolStripLabelIcarusUnits.Name = "toolStripLabelIcarusUnits"; + this.toolStripLabelIcarusUnits.Size = new System.Drawing.Size(93, 22); + this.toolStripLabelIcarusUnits.Text = "Units to modify"; + // + // toolStripSeparatorIcarusUnits + // + this.toolStripSeparatorIcarusUnits.Name = "toolStripSeparatorIcarusUnits"; + this.toolStripSeparatorIcarusUnits.Size = new System.Drawing.Size(6, 25); + // + // toolStripButtonIcarusLoadUntis + // + this.toolStripButtonIcarusLoadUntis.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text; + this.toolStripButtonIcarusLoadUntis.Image = ((System.Drawing.Image)(resources.GetObject("toolStripButtonIcarusLoadUntis.Image"))); + this.toolStripButtonIcarusLoadUntis.ImageTransparentColor = System.Drawing.Color.Magenta; + this.toolStripButtonIcarusLoadUntis.Name = "toolStripButtonIcarusLoadUntis"; + this.toolStripButtonIcarusLoadUntis.Size = new System.Drawing.Size(137, 22); + this.toolStripButtonIcarusLoadUntis.Text = "Load from Library Paths"; + this.toolStripButtonIcarusLoadUntis.Click += new System.EventHandler(this.ToolStripButtonIcarusLoadUnitsClick); + // + // toolStripContainerIcarusIgnoredUnits + // + this.toolStripContainerIcarusIgnoredUnits.BottomToolStripPanelVisible = false; + // + // toolStripContainerIcarusIgnoredUnits.ContentPanel + // + this.toolStripContainerIcarusIgnoredUnits.ContentPanel.Controls.Add(this.textBoxIcarusIgnoredUnits); + this.toolStripContainerIcarusIgnoredUnits.ContentPanel.Size = new System.Drawing.Size(198, 182); + this.toolStripContainerIcarusIgnoredUnits.Dock = System.Windows.Forms.DockStyle.Fill; + this.toolStripContainerIcarusIgnoredUnits.LeftToolStripPanelVisible = false; + this.toolStripContainerIcarusIgnoredUnits.Location = new System.Drawing.Point(0, 0); + this.toolStripContainerIcarusIgnoredUnits.Name = "toolStripContainerIcarusIgnoredUnits"; + this.toolStripContainerIcarusIgnoredUnits.RightToolStripPanelVisible = false; + this.toolStripContainerIcarusIgnoredUnits.Size = new System.Drawing.Size(198, 207); + this.toolStripContainerIcarusIgnoredUnits.TabIndex = 29; + this.toolStripContainerIcarusIgnoredUnits.Text = "toolStripContainer4"; + // + // toolStripContainerIcarusIgnoredUnits.TopToolStripPanel + // + this.toolStripContainerIcarusIgnoredUnits.TopToolStripPanel.Controls.Add(this.toolStripIcarusIgnoredUnits); + // + // textBoxIcarusIgnoredUnits + // + this.textBoxIcarusIgnoredUnits.Dock = System.Windows.Forms.DockStyle.Fill; + this.textBoxIcarusIgnoredUnits.Location = new System.Drawing.Point(0, 0); + this.textBoxIcarusIgnoredUnits.MaxLength = 0; + this.textBoxIcarusIgnoredUnits.Multiline = true; + this.textBoxIcarusIgnoredUnits.Name = "textBoxIcarusIgnoredUnits"; + this.textBoxIcarusIgnoredUnits.ScrollBars = System.Windows.Forms.ScrollBars.Both; + this.textBoxIcarusIgnoredUnits.Size = new System.Drawing.Size(198, 182); + this.textBoxIcarusIgnoredUnits.TabIndex = 26; + this.textBoxIcarusIgnoredUnits.TextChanged += new System.EventHandler(this.textBoxIcarusIgnoredUnits_TextChanged); + // + // toolStripIcarusIgnoredUnits + // + this.toolStripIcarusIgnoredUnits.Dock = System.Windows.Forms.DockStyle.None; + this.toolStripIcarusIgnoredUnits.Items.AddRange(new System.Windows.Forms.ToolStripItem[] { + this.toolStripLabelIcarusIgnoreUnits}); + this.toolStripIcarusIgnoredUnits.Location = new System.Drawing.Point(3, 0); + this.toolStripIcarusIgnoredUnits.Name = "toolStripIcarusIgnoredUnits"; + this.toolStripIcarusIgnoredUnits.Size = new System.Drawing.Size(95, 25); + this.toolStripIcarusIgnoredUnits.TabIndex = 0; + // + // toolStripLabelIcarusIgnoreUnits + // + this.toolStripLabelIcarusIgnoreUnits.Font = new System.Drawing.Font("Tahoma", 8.25F, System.Drawing.FontStyle.Bold); + this.toolStripLabelIcarusIgnoreUnits.ForeColor = System.Drawing.Color.MidnightBlue; + this.toolStripLabelIcarusIgnoreUnits.Name = "toolStripLabelIcarusIgnoreUnits"; + this.toolStripLabelIcarusIgnoreUnits.Size = new System.Drawing.Size(83, 22); + this.toolStripLabelIcarusIgnoreUnits.Text = "Ignored units"; + // + // panelIcarusOperations + // + this.panelIcarusOperations.AutoSize = true; + this.panelIcarusOperations.BackColor = System.Drawing.Color.Gainsboro; + this.panelIcarusOperations.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle; + this.panelIcarusOperations.Controls.Add(this.buttonIcarusRemoveUnusedUnits); + this.panelIcarusOperations.Dock = System.Windows.Forms.DockStyle.Bottom; + this.panelIcarusOperations.Location = new System.Drawing.Point(3, 406); + this.panelIcarusOperations.Name = "panelIcarusOperations"; + this.panelIcarusOperations.Size = new System.Drawing.Size(778, 31); + this.panelIcarusOperations.TabIndex = 20; + // + // buttonIcarusRemoveUnusedUnits + // + this.buttonIcarusRemoveUnusedUnits.Location = new System.Drawing.Point(3, 3); + this.buttonIcarusRemoveUnusedUnits.Name = "buttonIcarusRemoveUnusedUnits"; + this.buttonIcarusRemoveUnusedUnits.Size = new System.Drawing.Size(129, 23); + this.buttonIcarusRemoveUnusedUnits.TabIndex = 10; + this.buttonIcarusRemoveUnusedUnits.Text = "Remove unused units"; + this.buttonIcarusRemoveUnusedUnits.UseVisualStyleBackColor = true; + this.buttonIcarusRemoveUnusedUnits.Click += new System.EventHandler(this.ButtonRemoveUnusedUnitsClick); + // + // tabPageLog + // + this.tabPageLog.Controls.Add(this.progressBarMain); + this.tabPageLog.Controls.Add(this.textBoxLog); + this.tabPageLog.Location = new System.Drawing.Point(4, 22); + this.tabPageLog.Name = "tabPageLog"; + this.tabPageLog.Padding = new System.Windows.Forms.Padding(3); + this.tabPageLog.Size = new System.Drawing.Size(784, 440); + this.tabPageLog.TabIndex = 2; + this.tabPageLog.Text = "Log"; + this.tabPageLog.UseVisualStyleBackColor = true; + // + // progressBarMain + // + this.progressBarMain.Anchor = ((System.Windows.Forms.AnchorStyles)(((System.Windows.Forms.AnchorStyles.Bottom | System.Windows.Forms.AnchorStyles.Left) + | System.Windows.Forms.AnchorStyles.Right))); + this.progressBarMain.Location = new System.Drawing.Point(8, 409); + this.progressBarMain.Name = "progressBarMain"; + this.progressBarMain.Size = new System.Drawing.Size(768, 23); + this.progressBarMain.TabIndex = 1; + // + // textBoxLog + // + this.textBoxLog.Anchor = ((System.Windows.Forms.AnchorStyles)((((System.Windows.Forms.AnchorStyles.Top | System.Windows.Forms.AnchorStyles.Bottom) + | System.Windows.Forms.AnchorStyles.Left) + | System.Windows.Forms.AnchorStyles.Right))); + this.textBoxLog.Location = new System.Drawing.Point(8, 6); + this.textBoxLog.MaxLength = 0; + this.textBoxLog.Multiline = true; + this.textBoxLog.Name = "textBoxLog"; + this.textBoxLog.ReadOnly = true; + this.textBoxLog.ScrollBars = System.Windows.Forms.ScrollBars.Both; + this.textBoxLog.Size = new System.Drawing.Size(768, 397); + this.textBoxLog.TabIndex = 0; + this.textBoxLog.WordWrap = false; + // + // tabPageSettings + // + this.tabPageSettings.Controls.Add(this.toolStripContainerSettingsLibraryPaths); + this.tabPageSettings.Location = new System.Drawing.Point(4, 22); + this.tabPageSettings.Name = "tabPageSettings"; + this.tabPageSettings.Padding = new System.Windows.Forms.Padding(3); + this.tabPageSettings.Size = new System.Drawing.Size(784, 440); + this.tabPageSettings.TabIndex = 0; + this.tabPageSettings.Text = "Settings"; + this.tabPageSettings.UseVisualStyleBackColor = true; + // + // toolStripContainerSettingsLibraryPaths + // + this.toolStripContainerSettingsLibraryPaths.BottomToolStripPanelVisible = false; + // + // toolStripContainerSettingsLibraryPaths.ContentPanel + // + this.toolStripContainerSettingsLibraryPaths.ContentPanel.Controls.Add(this.textBoxSettingsLibraryPaths); + this.toolStripContainerSettingsLibraryPaths.ContentPanel.Size = new System.Drawing.Size(778, 409); + this.toolStripContainerSettingsLibraryPaths.Dock = System.Windows.Forms.DockStyle.Fill; + this.toolStripContainerSettingsLibraryPaths.LeftToolStripPanelVisible = false; + this.toolStripContainerSettingsLibraryPaths.Location = new System.Drawing.Point(3, 3); + this.toolStripContainerSettingsLibraryPaths.Name = "toolStripContainerSettingsLibraryPaths"; + this.toolStripContainerSettingsLibraryPaths.RightToolStripPanelVisible = false; + this.toolStripContainerSettingsLibraryPaths.Size = new System.Drawing.Size(778, 434); + this.toolStripContainerSettingsLibraryPaths.TabIndex = 7; + this.toolStripContainerSettingsLibraryPaths.Text = "toolStripContainer1"; + // + // toolStripContainerSettingsLibraryPaths.TopToolStripPanel + // + this.toolStripContainerSettingsLibraryPaths.TopToolStripPanel.Controls.Add(this.toolStripSettingsLibraryPaths); + // + // textBoxSettingsLibraryPaths + // + this.textBoxSettingsLibraryPaths.Dock = System.Windows.Forms.DockStyle.Fill; + this.textBoxSettingsLibraryPaths.Location = new System.Drawing.Point(0, 0); + this.textBoxSettingsLibraryPaths.MaxLength = 0; + this.textBoxSettingsLibraryPaths.Multiline = true; + this.textBoxSettingsLibraryPaths.Name = "textBoxSettingsLibraryPaths"; + this.textBoxSettingsLibraryPaths.ScrollBars = System.Windows.Forms.ScrollBars.Both; + this.textBoxSettingsLibraryPaths.Size = new System.Drawing.Size(778, 409); + this.textBoxSettingsLibraryPaths.TabIndex = 13; + this.textBoxSettingsLibraryPaths.WordWrap = false; + this.textBoxSettingsLibraryPaths.TextChanged += new System.EventHandler(this.textBoxSettingsLibraryPaths_TextChanged); + // + // toolStripSettingsLibraryPaths + // + this.toolStripSettingsLibraryPaths.Dock = System.Windows.Forms.DockStyle.None; + this.toolStripSettingsLibraryPaths.Items.AddRange(new System.Windows.Forms.ToolStripItem[] { + this.toolStripDropDownButtonLoadPreset, + this.toolStripButtonSettingsNormalizePaths}); + this.toolStripSettingsLibraryPaths.Location = new System.Drawing.Point(3, 0); + this.toolStripSettingsLibraryPaths.Name = "toolStripSettingsLibraryPaths"; + this.toolStripSettingsLibraryPaths.Size = new System.Drawing.Size(219, 25); + this.toolStripSettingsLibraryPaths.TabIndex = 0; + // + // toolStripDropDownButtonLoadPreset + // + this.toolStripDropDownButtonLoadPreset.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text; + this.toolStripDropDownButtonLoadPreset.Image = ((System.Drawing.Image)(resources.GetObject("toolStripDropDownButtonLoadPreset.Image"))); + this.toolStripDropDownButtonLoadPreset.ImageTransparentColor = System.Drawing.Color.Magenta; + this.toolStripDropDownButtonLoadPreset.Name = "toolStripDropDownButtonLoadPreset"; + this.toolStripDropDownButtonLoadPreset.Size = new System.Drawing.Size(110, 22); + this.toolStripDropDownButtonLoadPreset.Text = "Load preset from"; + this.toolStripDropDownButtonLoadPreset.DropDownItemClicked += new System.Windows.Forms.ToolStripItemClickedEventHandler(this.toolStripDropDownButtonLoadPreset_DropDownItemClicked); + // + // toolStripButtonSettingsNormalizePaths + // + this.toolStripButtonSettingsNormalizePaths.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text; + this.toolStripButtonSettingsNormalizePaths.Image = ((System.Drawing.Image)(resources.GetObject("toolStripButtonSettingsNormalizePaths.Image"))); + this.toolStripButtonSettingsNormalizePaths.ImageTransparentColor = System.Drawing.Color.Magenta; + this.toolStripButtonSettingsNormalizePaths.Name = "toolStripButtonSettingsNormalizePaths"; + this.toolStripButtonSettingsNormalizePaths.Size = new System.Drawing.Size(97, 22); + this.toolStripButtonSettingsNormalizePaths.Text = "Normalize paths"; + this.toolStripButtonSettingsNormalizePaths.Click += new System.EventHandler(this.ToolStripButtonNormalizePathsClick); + // + // BottomToolStripPanel + // + this.BottomToolStripPanel.Location = new System.Drawing.Point(0, 0); + this.BottomToolStripPanel.Name = "BottomToolStripPanel"; + this.BottomToolStripPanel.Orientation = System.Windows.Forms.Orientation.Horizontal; + this.BottomToolStripPanel.RowMargin = new System.Windows.Forms.Padding(3, 0, 0, 0); + this.BottomToolStripPanel.Size = new System.Drawing.Size(0, 0); + // + // TopToolStripPanel + // + this.TopToolStripPanel.Location = new System.Drawing.Point(0, 0); + this.TopToolStripPanel.Name = "TopToolStripPanel"; + this.TopToolStripPanel.Orientation = System.Windows.Forms.Orientation.Horizontal; + this.TopToolStripPanel.RowMargin = new System.Windows.Forms.Padding(3, 0, 0, 0); + this.TopToolStripPanel.Size = new System.Drawing.Size(0, 0); + // + // RightToolStripPanel + // + this.RightToolStripPanel.Location = new System.Drawing.Point(0, 0); + this.RightToolStripPanel.Name = "RightToolStripPanel"; + this.RightToolStripPanel.Orientation = System.Windows.Forms.Orientation.Horizontal; + this.RightToolStripPanel.RowMargin = new System.Windows.Forms.Padding(3, 0, 0, 0); + this.RightToolStripPanel.Size = new System.Drawing.Size(0, 0); + // + // LeftToolStripPanel + // + this.LeftToolStripPanel.Location = new System.Drawing.Point(0, 0); + this.LeftToolStripPanel.Name = "LeftToolStripPanel"; + this.LeftToolStripPanel.Orientation = System.Windows.Forms.Orientation.Horizontal; + this.LeftToolStripPanel.RowMargin = new System.Windows.Forms.Padding(3, 0, 0, 0); + this.LeftToolStripPanel.Size = new System.Drawing.Size(0, 0); + // + // ContentPanel + // + this.ContentPanel.Size = new System.Drawing.Size(326, 157); + // + // FormDelphiProjectManager + // + this.AutoScaleDimensions = new System.Drawing.SizeF(6F, 13F); + this.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font; + this.ClientSize = new System.Drawing.Size(792, 466); + this.Controls.Add(this.tabControlMain); + this.Name = "FormDelphiProjectManager"; + this.Text = "Delphi Project Manager"; + this.tabControlMain.ResumeLayout(false); + this.tabPageFixProjects.ResumeLayout(false); + this.tabPageFixProjects.PerformLayout(); + this.splitContainerFixProjects.Panel1.ResumeLayout(false); + this.splitContainerFixProjects.Panel1.PerformLayout(); + this.splitContainerFixProjects.Panel2.ResumeLayout(false); + ((System.ComponentModel.ISupportInitialize)(this.splitContainerFixProjects)).EndInit(); + this.splitContainerFixProjects.ResumeLayout(false); + this.toolStripFixProjectsFiles.ResumeLayout(false); + this.toolStripFixProjectsFiles.PerformLayout(); + this.splitContainerFixProjectsUnits.Panel1.ResumeLayout(false); + this.splitContainerFixProjectsUnits.Panel1.PerformLayout(); + this.splitContainerFixProjectsUnits.Panel2.ResumeLayout(false); + this.splitContainerFixProjectsUnits.Panel2.PerformLayout(); + ((System.ComponentModel.ISupportInitialize)(this.splitContainerFixProjectsUnits)).EndInit(); + this.splitContainerFixProjectsUnits.ResumeLayout(false); + this.panelFixProjectsUnits.ResumeLayout(false); + this.panelFixProjectsUnits.PerformLayout(); + this.toolStripFixProjectsUnits.ResumeLayout(false); + this.toolStripFixProjectsUnits.PerformLayout(); + this.toolStripFixProjectsActions.ResumeLayout(false); + this.toolStripFixProjectsActions.PerformLayout(); + this.tabPageFixUnits.ResumeLayout(false); + this.tabPageFixUnits.PerformLayout(); + this.splitContainerFixUnits.Panel1.ResumeLayout(false); + this.splitContainerFixUnits.Panel1.PerformLayout(); + this.splitContainerFixUnits.Panel2.ResumeLayout(false); + ((System.ComponentModel.ISupportInitialize)(this.splitContainerFixUnits)).EndInit(); + this.splitContainerFixUnits.ResumeLayout(false); + this.toolStripFixUnitsFiles.ResumeLayout(false); + this.toolStripFixUnitsFiles.PerformLayout(); + this.splitContainerFixUnitsUnits.Panel1.ResumeLayout(false); + this.splitContainerFixUnitsUnits.Panel2.ResumeLayout(false); + this.splitContainerFixUnitsUnits.Panel2.PerformLayout(); + ((System.ComponentModel.ISupportInitialize)(this.splitContainerFixUnitsUnits)).EndInit(); + this.splitContainerFixUnitsUnits.ResumeLayout(false); + this.splitContainerFixUnitsInterfaceUnits.Panel1.ResumeLayout(false); + this.splitContainerFixUnitsInterfaceUnits.Panel1.PerformLayout(); + this.splitContainerFixUnitsInterfaceUnits.Panel2.ResumeLayout(false); + this.splitContainerFixUnitsInterfaceUnits.Panel2.PerformLayout(); + ((System.ComponentModel.ISupportInitialize)(this.splitContainerFixUnitsInterfaceUnits)).EndInit(); + this.splitContainerFixUnitsInterfaceUnits.ResumeLayout(false); + this.panelFixUnitsInterfaceUnits.ResumeLayout(false); + this.panelFixUnitsInterfaceUnits.PerformLayout(); + this.toolStripFixUnitsInterfaceUnits.ResumeLayout(false); + this.toolStripFixUnitsInterfaceUnits.PerformLayout(); + this.panelFixUnitsImplementationUnits.ResumeLayout(false); + this.panelFixUnitsImplementationUnits.PerformLayout(); + this.toolStripFixUnitsImplementationUnits.ResumeLayout(false); + this.toolStripFixUnitsImplementationUnits.PerformLayout(); + this.toolStripFixUnitsActions.ResumeLayout(false); + this.toolStripFixUnitsActions.PerformLayout(); + this.tabPageUnitCleanup.ResumeLayout(false); + this.tabPageUnitCleanup.PerformLayout(); + this.toolStripContainerIcarusReport.ContentPanel.ResumeLayout(false); + this.toolStripContainerIcarusReport.ContentPanel.PerformLayout(); + this.toolStripContainerIcarusReport.TopToolStripPanel.ResumeLayout(false); + this.toolStripContainerIcarusReport.TopToolStripPanel.PerformLayout(); + this.toolStripContainerIcarusReport.ResumeLayout(false); + this.toolStripContainerIcarusReport.PerformLayout(); + this.toolStripIcarusReport.ResumeLayout(false); + this.toolStripIcarusReport.PerformLayout(); + this.toolStripContainerIcarusUnitSettings.ContentPanel.ResumeLayout(false); + this.toolStripContainerIcarusUnitSettings.ResumeLayout(false); + this.toolStripContainerIcarusUnitSettings.PerformLayout(); + this.splitContainerIcarusUnitSettings2.Panel1.ResumeLayout(false); + this.splitContainerIcarusUnitSettings2.Panel2.ResumeLayout(false); + ((System.ComponentModel.ISupportInitialize)(this.splitContainerIcarusUnitSettings2)).EndInit(); + this.splitContainerIcarusUnitSettings2.ResumeLayout(false); + this.toolStripContainerIcarusUnits.ContentPanel.ResumeLayout(false); + this.toolStripContainerIcarusUnits.ContentPanel.PerformLayout(); + this.toolStripContainerIcarusUnits.TopToolStripPanel.ResumeLayout(false); + this.toolStripContainerIcarusUnits.TopToolStripPanel.PerformLayout(); + this.toolStripContainerIcarusUnits.ResumeLayout(false); + this.toolStripContainerIcarusUnits.PerformLayout(); + this.toolStripIcarusUnits.ResumeLayout(false); + this.toolStripIcarusUnits.PerformLayout(); + this.toolStripContainerIcarusIgnoredUnits.ContentPanel.ResumeLayout(false); + this.toolStripContainerIcarusIgnoredUnits.ContentPanel.PerformLayout(); + this.toolStripContainerIcarusIgnoredUnits.TopToolStripPanel.ResumeLayout(false); + this.toolStripContainerIcarusIgnoredUnits.TopToolStripPanel.PerformLayout(); + this.toolStripContainerIcarusIgnoredUnits.ResumeLayout(false); + this.toolStripContainerIcarusIgnoredUnits.PerformLayout(); + this.toolStripIcarusIgnoredUnits.ResumeLayout(false); + this.toolStripIcarusIgnoredUnits.PerformLayout(); + this.panelIcarusOperations.ResumeLayout(false); + this.tabPageLog.ResumeLayout(false); + this.tabPageLog.PerformLayout(); + this.tabPageSettings.ResumeLayout(false); + this.toolStripContainerSettingsLibraryPaths.ContentPanel.ResumeLayout(false); + this.toolStripContainerSettingsLibraryPaths.ContentPanel.PerformLayout(); + this.toolStripContainerSettingsLibraryPaths.TopToolStripPanel.ResumeLayout(false); + this.toolStripContainerSettingsLibraryPaths.TopToolStripPanel.PerformLayout(); + this.toolStripContainerSettingsLibraryPaths.ResumeLayout(false); + this.toolStripContainerSettingsLibraryPaths.PerformLayout(); + this.toolStripSettingsLibraryPaths.ResumeLayout(false); + this.toolStripSettingsLibraryPaths.PerformLayout(); + this.ResumeLayout(false); + + } + private System.Windows.Forms.TextBox textBoxIcarusReport; + private System.Windows.Forms.ToolStripContainer toolStripContainerIcarusReport; + private System.Windows.Forms.ToolStripContainer toolStripContainerIcarusUnitSettings; + private System.Windows.Forms.ToolStripButton toolStripButtonSettingsNormalizePaths; + + #endregion + + private System.Windows.Forms.TabControl tabControlMain; + private System.Windows.Forms.TabPage tabPageSettings; + private System.Windows.Forms.TabPage tabPageFixProjects; + private System.Windows.Forms.TabPage tabPageLog; + private System.Windows.Forms.TextBox textBoxLog; + private System.Windows.Forms.ProgressBar progressBarMain; + private System.Windows.Forms.TabPage tabPageUnitCleanup; + private System.Windows.Forms.Panel panelIcarusOperations; + private System.Windows.Forms.Button buttonIcarusRemoveUnusedUnits; + private System.Windows.Forms.ToolStripContainer toolStripContainerSettingsLibraryPaths; + private System.Windows.Forms.TextBox textBoxSettingsLibraryPaths; + private System.Windows.Forms.ToolStrip toolStripSettingsLibraryPaths; + private System.Windows.Forms.ToolStripDropDownButton toolStripDropDownButtonLoadPreset; + private System.Windows.Forms.SplitContainer splitContainerIcarusUnitSettings2; + private System.Windows.Forms.ToolStripContainer toolStripContainerIcarusUnits; + private System.Windows.Forms.TextBox textBoxIcarusUnits; + private System.Windows.Forms.ToolStrip toolStripIcarusUnits; + private System.Windows.Forms.ToolStripLabel toolStripLabelIcarusUnits; + private System.Windows.Forms.ToolStripSeparator toolStripSeparatorIcarusUnits; + private System.Windows.Forms.ToolStripButton toolStripButtonIcarusLoadUntis; + private System.Windows.Forms.ToolStripContainer toolStripContainerIcarusIgnoredUnits; + private System.Windows.Forms.TextBox textBoxIcarusIgnoredUnits; + private System.Windows.Forms.ToolStrip toolStripIcarusIgnoredUnits; + private System.Windows.Forms.ToolStripLabel toolStripLabelIcarusIgnoreUnits; + private System.Windows.Forms.ToolStrip toolStripIcarusReport; + private System.Windows.Forms.ToolStripLabel toolStripLabelIcarusReport; + private System.Windows.Forms.ToolStripSeparator toolStripSeparatorIcarusReport; + private System.Windows.Forms.ToolStripButton toolStripButtonIcarusReportPasteFromClipboard; + private System.Windows.Forms.TabPage tabPageFixUnits; + private System.Windows.Forms.ToolStrip toolStripFixProjectsActions; + private System.Windows.Forms.ToolStripButton toolStripButtonFixProjectsActionAddUnits; + private System.Windows.Forms.ToolStripButton toolStripButtonFixProjectsActionRemoveUnits; + private System.Windows.Forms.ToolStripButton toolStripButtonFixProjectsActionFixPaths; + private System.Windows.Forms.ToolStripButton toolStripButtonFixProjectsActionFixForms; + private System.Windows.Forms.ToolStripSeparator toolStripSeparatorFixProjectsActionSeparator; + private System.Windows.Forms.ToolStrip toolStripFixUnitsActions; + private System.Windows.Forms.ToolStripButton toolStripButtonFixUnitsActionAddUnits; + private System.Windows.Forms.ToolStripButton toolStripButtonFixUnitsActionRemoveUnits; + private System.Windows.Forms.ToolStripPanel BottomToolStripPanel; + private System.Windows.Forms.ToolStripPanel TopToolStripPanel; + private System.Windows.Forms.ToolStripPanel RightToolStripPanel; + private System.Windows.Forms.ToolStripPanel LeftToolStripPanel; + private System.Windows.Forms.ToolStripContentPanel ContentPanel; + private System.Windows.Forms.SplitContainer splitContainerFixProjects; + private System.Windows.Forms.TextBox textBoxFixProjectsFiles; + private System.Windows.Forms.ToolStrip toolStripFixProjectsFiles; + private System.Windows.Forms.ToolStripButton toolStripButtonFixProjectsSelectFiles; + private System.Windows.Forms.ToolStripButton toolStripButtonFixProjectsImportFiles; + private System.Windows.Forms.SplitContainer splitContainerFixProjectsUnits; + private System.Windows.Forms.Panel panelFixProjectsUnits; + private System.Windows.Forms.TextBox textBoxFixProjectsInterfaceUnits; + private System.Windows.Forms.ToolStrip toolStripFixProjectsUnits; + private System.Windows.Forms.ToolStripLabel toolStripLabelFixProjectsUnits; + private System.Windows.Forms.ToolStripButton toolStripButtonFixProjectsSelectUnits; + private System.Windows.Forms.ToolStripButton toolStripButtonFixProjectsImportUnits; + private System.Windows.Forms.TextBox textBoxFixProjectsUnitConstraints; + private System.Windows.Forms.Label labelFixProjectsUnitConstraints; + private System.Windows.Forms.SplitContainer splitContainerFixUnits; + private System.Windows.Forms.TextBox textBoxFixUnitsFiles; + private System.Windows.Forms.ToolStrip toolStripFixUnitsFiles; + private System.Windows.Forms.ToolStripButton toolStripButtonFixUnitsSelectFiles; + private System.Windows.Forms.ToolStripButton toolStripButtonFixUnitsImportFiles; + private System.Windows.Forms.SplitContainer splitContainerFixUnitsUnits; + private System.Windows.Forms.SplitContainer splitContainerFixUnitsInterfaceUnits; + private System.Windows.Forms.Panel panelFixUnitsInterfaceUnits; + private System.Windows.Forms.TextBox textBoxFixUnitsInterfaceUnits; + private System.Windows.Forms.ToolStrip toolStripFixUnitsInterfaceUnits; + private System.Windows.Forms.ToolStripLabel toolStripLabelFixUnitsInterfaceUnits; + private System.Windows.Forms.ToolStripButton toolStripButtonFixUnitsSelectInterfaceUnits; + private System.Windows.Forms.ToolStripButton toolStripButtonFixUnitsImportInterfaceUnits; + private System.Windows.Forms.Panel panelFixUnitsImplementationUnits; + private System.Windows.Forms.TextBox textBoxFixUnitsImplementationUnits; + private System.Windows.Forms.ToolStrip toolStripFixUnitsImplementationUnits; + private System.Windows.Forms.ToolStripLabel toolStripLabelFixUnitsImplementationUnits; + private System.Windows.Forms.ToolStripButton toolStripButtonFixUnitsSelectImplementationUnits; + private System.Windows.Forms.ToolStripButton toolStripButtonFixUnitsImportImplementationUnits; + private System.Windows.Forms.TextBox textBoxFixUnitsUnitConstraints; + private System.Windows.Forms.Label labelFixUnitsUnitConstraints; + private System.Windows.Forms.ToolStripDropDownButton toolStripDropDownButton1; + private System.Windows.Forms.ToolStripMenuItem ToolStripMenuItemFixProjectsActionAddUnitPathsToDPRs; + private System.Windows.Forms.ToolStripSeparator toolStripSeparator1; + private System.Windows.Forms.ToolStripButton toolStripButtonFixProjectsActionBulkOperation; + } +} + diff --git a/DelphiProjectHandler/src/View/FormDelphiProjectManager.cs b/DelphiProjectHandler/src/View/FormDelphiProjectManager.cs new file mode 100644 index 0000000..1b49b43 --- /dev/null +++ b/DelphiProjectHandler/src/View/FormDelphiProjectManager.cs @@ -0,0 +1,301 @@ +using System; +using System.Collections.Generic; +using System.IO; +using System.Linq; +using System.Windows.Forms; + +using DelphiProjectHandler.Controller; +using DelphiProjectHandler.LibraryPaths; +using DelphiProjectHandler.Model; +using DelphiProjectHandler.Operations; +using DelphiProjectHandler.Utils; + +namespace DelphiProjectHandler.View +{ + public partial class FormDelphiProjectManager : Form, IFixProjectSettingsView, IFixUnitSettingsView, ILibraryPathSettingsView, IUnitCleanupSettingsView + { + private IFixProjectSettings FixProjectSettings = new FixProjectSettings(); + private IFixProjectSettingsController FixProjectSettingsController = new FixProjectSettingsController(); + private IFixProjectActionsController ProjectManipulatorController = new FixProjectActionsController(); + private IFixUnitSettings FixUnitSettings = new FixUnitSettings(); + private IFixUnitSettingsController FixUnitSettingsController = new FixUnitSettingsController(); + private IFixUnitActionsController UnitManipulatorController = new FixUnitActionsController(); + private ILibraryPathSettings LibraryPathSettings = new LibraryPathSettings(); + private ILibraryPathSettingsController LibraryPathSettingsController = new LibraryPathSettingsController(); + private IUnitCleanupSettings UnitCleanupSettings = new UnitCleanupSettings(); + private IUnitCleanupSettingsController UnitCleanupSettingsController = new UnitCleanupSettingsController(); + private IUnitCleanupActionsController UnitCleanupActionsController = new UnitCleanupActionsController(); + private IProjectBulkOperationController ProjectBulkOperationController = new ProjectBulkOperationController(); + + #region (IFixProjectSettingsView Implementation) + + void IFixProjectSettingsView.UpdateView(IFixProjectSettings aModel) + { + textBoxFixProjectsFiles.AssignLines(aModel.Projects); + textBoxFixProjectsInterfaceUnits.AssignLines(aModel.UnitsToManipulate); + ToolStripMenuItemFixProjectsActionAddUnitPathsToDPRs.Checked = aModel.AddUnitPathsToDPRs; + } + + #endregion + #region IFixUnitSettingsView Members + + public void UpdateView(IFixUnitSettings aModel) + { + textBoxFixUnitsFiles.AssignLines(aModel.UnitsToModify); + textBoxFixUnitsInterfaceUnits.AssignLines(aModel.InterfaceUnits); + textBoxFixUnitsImplementationUnits.AssignLines(aModel.ImplementationUnits); + textBoxFixUnitsUnitConstraints.AssignLines(aModel.UnitConstraints); + } + + #endregion + #region (ILibraryPathSettingsView Implementation) + + void ILibraryPathSettingsView.UpdateView(ILibraryPathSettings aModel) + { + FillStripDownWithSupportedProviders(aModel.SupportedProviders); + textBoxSettingsLibraryPaths.AssignLines(aModel.LibraryPaths); + } + + #endregion + #region (IUnitCleanupSettingsView Implementation) + + void IUnitCleanupSettingsView.UpdateView(IUnitCleanupSettings aModel) + { + textBoxIcarusUnits.AssignLines(aModel.UnitsToClean); + textBoxIcarusIgnoredUnits.AssignLines(aModel.IgnoredUnits); + if (!textBoxIcarusReport.Text.Equals(aModel.IcarusReport)) + textBoxIcarusReport.Text = aModel.IcarusReport; + } + + #endregion + + public FormDelphiProjectManager() + { + InitializeComponent(); + + WireUp(); + } + + protected void WireUp() + { + FixProjectSettings.AddObserver(this); + FixProjectSettingsController.Model = FixProjectSettings; + ProjectManipulatorController.Model = FixProjectSettings; + FixUnitSettings.AddObserver(this); + FixUnitSettingsController.Model = FixUnitSettings; + UnitManipulatorController.Model = FixUnitSettings; + LibraryPathSettingsController.Model = LibraryPathSettings; + UnitCleanupSettingsController.Model = UnitCleanupSettings; + UnitCleanupActionsController.Model = UnitCleanupSettings; + LibraryPathSettings.AddObserver(this); + UnitCleanupSettings.AddObserver(this); + (this as IFixProjectSettingsView).UpdateView(FixProjectSettings); + (this as ILibraryPathSettingsView).UpdateView(LibraryPathSettings); + (this as IUnitCleanupSettingsView).UpdateView(UnitCleanupSettings); + } + + private void FillStripDownWithSupportedProviders(IList aSupportedProviders) + { + ToolStripItem[] vItems = new ToolStripMenuItem[aSupportedProviders.Count]; + for (int vEnumIdx = 0; vEnumIdx < aSupportedProviders.Count; vEnumIdx++) + vItems[vEnumIdx] = CreateToolStripItem(aSupportedProviders[vEnumIdx]); + toolStripDropDownButtonLoadPreset.DropDownItems.Clear(); + toolStripDropDownButtonLoadPreset.DropDownItems.AddRange(vItems); + } + + private static ToolStripItem CreateToolStripItem(LibraryPathType iEnumValue) + { + ToolStripMenuItem vItem = new ToolStripMenuItem(iEnumValue.ToString()); + vItem.Tag = iEnumValue; + return vItem; + } + + private void buttonFixProjectsSelectProjects_Click(object sender, EventArgs e) + { + FixProjectSettingsController.SelectProjects(); + } + + private void buttonFixProjectsSelectInterfaceUnits_Click(object sender, EventArgs e) + { + FixProjectSettingsController.SelectUnits(); + } + + private void buttonFixProjectsAddUnitsStart_Click(object sender, EventArgs e) + { + ProjectManipulatorController.AddUnits(); + } + + private void buttonFixProjectsImportInterfaceUnits_Click(object sender, EventArgs e) + { + FixProjectSettingsController.ImportUnits(); + } + + private void buttonFixProjectsImportProjects_Click(object sender, EventArgs e) + { + FixProjectSettingsController.ImportProjects(); + } + + private void buttonFixProjectsRemoveUnits_Click(object sender, EventArgs e) + { + ProjectManipulatorController.RemoveUnits(); + } + + private void buttonFixProjectsFixPaths_Click(object sender, EventArgs e) + { + ProjectManipulatorController.FixPaths(); + } + + private void buttonFixProjectsFixForms_Click(object sender, EventArgs e) + { + ProjectManipulatorController.FixForms(); + } + + private void toolStripDropDownButtonLoadPreset_DropDownItemClicked(object sender, ToolStripItemClickedEventArgs e) + { + try + { + LibraryPathSettingsController.LoadPreset((LibraryPathType)e.ClickedItem.Tag); + } + catch (NotSupportedException) + { + MessageBox.Show("Selected preset is not supported, yet.", "Load Library Path Preset", MessageBoxButtons.OK, MessageBoxIcon.Error); + } + } + + void ToolStripButtonNormalizePathsClick(object sender, EventArgs e) + { + LibraryPathSettingsController.NormalizePaths(); + } + + void ButtonRemoveUnusedUnitsClick(object sender, EventArgs e) + { + UnitCleanupActionsController.RemoveUnusedUnits(); + } + + void ToolStripButtonIcarusReportPasteFromClipboardClick(object sender, EventArgs e) + { + UnitCleanupSettingsController.PasteIcarusReport(); + } + + void ToolStripButtonIcarusLoadUnitsClick(object sender, EventArgs e) + { + try + { + UnitCleanupSettingsController.LoadFromLibraryPaths(LibraryPathSettings.LibraryPaths); + } + catch (Exception iError) + { + MessageBox.Show(iError.Message, "Load units from library paths", MessageBoxButtons.OK, MessageBoxIcon.Error); + } + } + + private void ToolStripMenuItemFixProjectsActionAddUnitPathsToDPRs_Click(object sender, EventArgs e) + { + FixProjectSettingsController.SwitchAddUnitPathsToDPRs(); + } + + private void textBoxFixProjectsFiles_TextChanged(object sender, EventArgs e) + { + FixProjectSettingsController.SetProjects(textBoxFixProjectsFiles.Lines); + } + + private void textBoxFixProjectsInterfaceUnits_TextChanged(object sender, EventArgs e) + { + FixProjectSettingsController.SetUnitsToManipulate(textBoxFixProjectsInterfaceUnits.Lines); + } + + private void textBoxFixProjectsUnitConstraints_TextChanged(object sender, EventArgs e) + { + FixProjectSettingsController.SetUnitConstraints(textBoxFixProjectsUnitConstraints.Lines); + } + + private void textBoxSettingsLibraryPaths_TextChanged(object sender, EventArgs e) + { + LibraryPathSettingsController.SetLibraryPaths(textBoxSettingsLibraryPaths.Lines); + } + + private void textBoxIcarusUnits_TextChanged(object sender, EventArgs e) + { + UnitCleanupSettingsController.SetUnitsToClean(textBoxIcarusUnits.Lines); + } + + private void textBoxIcarusIgnoredUnits_TextChanged(object sender, EventArgs e) + { + UnitCleanupSettingsController.SetIgnoredUnits(textBoxIcarusIgnoredUnits.Lines); + } + + private void textBoxIcarusReport_TextChanged(object sender, EventArgs e) + { + UnitCleanupSettingsController.SetIcarusReport(textBoxIcarusReport.Text); + } + + private void toolStripButtonFixUnitsSelectFiles_Click(object sender, EventArgs e) + { + FixUnitSettingsController.SelectUnitsToModify(); + } + + private void toolStripButtonFixUnitsImportFiles_Click(object sender, EventArgs e) + { + FixUnitSettingsController.ImportUnitsToModify(); + } + + private void textBoxFixUnitsFiles_TextChanged(object sender, EventArgs e) + { + FixUnitSettingsController.SetUnitsToModify(textBoxFixUnitsFiles.Lines); + } + + private void toolStripButtonFixUnitsSelectInterfaceUnits_Click(object sender, EventArgs e) + { + FixUnitSettingsController.SelectInterfaceUnits(); + } + + private void toolStripButtonFixUnitsImportInterfaceUnits_Click(object sender, EventArgs e) + { + FixUnitSettingsController.ImportInterfaceUnits(); + } + + private void textBoxFixUnitsInterfaceUnits_TextChanged(object sender, EventArgs e) + { + FixUnitSettingsController.SetInterfaceUnits(textBoxFixUnitsInterfaceUnits.Lines); + } + + private void toolStripButtonFixUnitsSelectImplementationUnits_Click(object sender, EventArgs e) + { + FixUnitSettingsController.SelectImplementationUnits(); + } + + private void toolStripButtonFixUnitsImportImplementationUnits_Click(object sender, EventArgs e) + { + FixUnitSettingsController.ImportImplementationUnits(); + } + + private void textBoxFixUnitsImplementationUnits_TextChanged(object sender, EventArgs e) + { + FixUnitSettingsController.SetImplementationUnits(textBoxFixUnitsImplementationUnits.Lines); + } + + private void textBoxFixUnitsUnitConstraints_TextChanged(object sender, EventArgs e) + { + FixUnitSettingsController.SetUnitConstraints(textBoxFixUnitsUnitConstraints.Lines); + } + + private void toolStripButtonFixUnitsActionAddUnits_Click(object sender, EventArgs e) + { + UnitManipulatorController.AddUnits(); + } + + private void toolStripButtonFixUnitsActionRemoveUnits_Click(object sender, EventArgs e) + { + UnitManipulatorController.RemoveUnits(); + } + + private void toolStripButtonFixProjectsActionBulkOperation_Click(object sender, EventArgs e) + { + if (!ProjectBulkOperationController.SelectFile()) + return; + + ProjectBulkOperationController.ProcessFile(); + } + + } +} \ No newline at end of file diff --git a/DelphiProjectHandler/src/View/FormDelphiProjectManager.resx b/DelphiProjectHandler/src/View/FormDelphiProjectManager.resx new file mode 100644 index 0000000..727cca6 --- /dev/null +++ b/DelphiProjectHandler/src/View/FormDelphiProjectManager.resx @@ -0,0 +1,490 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 1150, 17 + + + 516, 54 + + + 455, 17 + + + 638, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIISURBVDhPpZP7S1NxGMbPPxKaXVUkMEq8IpKUCoY/hGgI + ymqkDYYXcCjDZOANURSjCNGFQUTsl4GXVMxKk62YU4fXQpaIlygHQxBRH8/zwvyaIAYe+HLgnPN8nue9 + HA3nvDTq63oW/jm13XOwvPTB3DYFY5MH+bXfcN8ygfTSMSSXfESicQDxBqdYHwH29g9w2tnZ3UcguIvN + rR3417exuBJE5N1n/wfwLgXEOc38Bc6xNRHb+/y4nm49G0Bnit2zf9H6bkliE/jKuYxrd6oVgDWfjB+K + TWeKMyrGEVfowITvD9re/9ABVQrAhh0HHK+ZselMMaN/mvwtDb+aVqkA7HYIwIj3ysfluPTorJnP6Ezx + oHsD1s5ZXEktUwCOioB5f1CEPR9+wTG6iuiserTo8dkwng7HT/R+XUPF8xlcTjErAOdMcW6NW8STiwG8 + 7vej8oUPN/PsEv3t8Ao0TZP3T1u8uJRkUgAuSYHtO97oLxmXd5t9Ho8aPTK+GzntqNfrLm2fFoihwYOI + xGIF4KjoGBLzY1OrF9k6OOFxnwDC4wxIMX1G0pMhgVyMNyoA13PAtS7OrJk1PrC69LUdQWxuF6IybHrX + LRI7JrtZdoDAo1XmbjMyD+tjSXxGcXRmnYg5ttD9QuxDhN0uUgDOmbvNTpPOJaGAo2K36cyaGZvOFIfd + KlSA8/zRh9ABIDUG+1JpAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIISURBVDhPpZP7S1NxGMbPPxKaXVUkMEq8IpKUCoY/hGgI + ymqkDYYXcCjDZOANURSjCNGFQUTsl4GXVMxKk62YU4fXQpaIlygHQxBRH8/zwvyaIAYe+HLgnPN8nue9 + HA3nvDTq63oW/jm13XOwvPTB3DYFY5MH+bXfcN8ygfTSMSSXfESicQDxBqdYHwH29g9w2tnZ3UcguIvN + rR3417exuBJE5N1n/wfwLgXEOc38Bc6xNRHb+/y4nm49G0Bnit2zf9H6bkliE/jKuYxrd6oVgDWfjB+K + TWeKMyrGEVfowITvD9re/9ABVQrAhh0HHK+ZselMMaN/mvwtDb+aVqkA7HYIwIj3ysfluPTorJnP6Ezx + oHsD1s5ZXEktUwCOioB5f1CEPR9+wTG6iuiserTo8dkwng7HT/R+XUPF8xlcTjErAOdMcW6NW8STiwG8 + 7vej8oUPN/PsEv3t8Ao0TZP3T1u8uJRkUgAuSYHtO97oLxmXd5t9Ho8aPTK+GzntqNfrLm2fFoihwYOI + xGIF4KjoGBLzY1OrF9k6OOFxnwDC4wxIMX1G0pMhgVyMNyoA13PAtS7OrJk1PrC69LUdQWxuF6IybHrX + LRI7JrtZdoDAo1XmbjMyD+tjSXxGcXRmnYg5ttD9QuxDhN0uUgDOmbvNTpPOJaGAo2K36cyaGZvOFIfd + KlSA8/zRh9ABIDUG+1JpAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIISURBVDhPpZP7S1NxGMbPPxKaXVUkMEq8IpKUCoY/hGgI + ymqkDYYXcCjDZOANURSjCNGFQUTsl4GXVMxKk62YU4fXQpaIlygHQxBRH8/zwvyaIAYe+HLgnPN8nue9 + HA3nvDTq63oW/jm13XOwvPTB3DYFY5MH+bXfcN8ygfTSMSSXfESicQDxBqdYHwH29g9w2tnZ3UcguIvN + rR3417exuBJE5N1n/wfwLgXEOc38Bc6xNRHb+/y4nm49G0Bnit2zf9H6bkliE/jKuYxrd6oVgDWfjB+K + TWeKMyrGEVfowITvD9re/9ABVQrAhh0HHK+ZselMMaN/mvwtDb+aVqkA7HYIwIj3ysfluPTorJnP6Ezx + oHsD1s5ZXEktUwCOioB5f1CEPR9+wTG6iuiserTo8dkwng7HT/R+XUPF8xlcTjErAOdMcW6NW8STiwG8 + 7vej8oUPN/PsEv3t8Ao0TZP3T1u8uJRkUgAuSYHtO97oLxmXd5t9Ho8aPTK+GzntqNfrLm2fFoihwYOI + xGIF4KjoGBLzY1OrF9k6OOFxnwDC4wxIMX1G0pMhgVyMNyoA13PAtS7OrJk1PrC69LUdQWxuF6IybHrX + LRI7JrtZdoDAo1XmbjMyD+tjSXxGcXRmnYg5ttD9QuxDhN0uUgDOmbvNTpPOJaGAo2K36cyaGZvOFIfd + KlSA8/zRh9ABIDUG+1JpAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIISURBVDhPpZP7S1NxGMbPPxKaXVUkMEq8IpKUCoY/hGgI + ymqkDYYXcCjDZOANURSjCNGFQUTsl4GXVMxKk62YU4fXQpaIlygHQxBRH8/zwvyaIAYe+HLgnPN8nue9 + HA3nvDTq63oW/jm13XOwvPTB3DYFY5MH+bXfcN8ygfTSMSSXfESicQDxBqdYHwH29g9w2tnZ3UcguIvN + rR3417exuBJE5N1n/wfwLgXEOc38Bc6xNRHb+/y4nm49G0Bnit2zf9H6bkliE/jKuYxrd6oVgDWfjB+K + TWeKMyrGEVfowITvD9re/9ABVQrAhh0HHK+ZselMMaN/mvwtDb+aVqkA7HYIwIj3ysfluPTorJnP6Ezx + oHsD1s5ZXEktUwCOioB5f1CEPR9+wTG6iuiserTo8dkwng7HT/R+XUPF8xlcTjErAOdMcW6NW8STiwG8 + 7vej8oUPN/PsEv3t8Ao0TZP3T1u8uJRkUgAuSYHtO97oLxmXd5t9Ho8aPTK+GzntqNfrLm2fFoihwYOI + xGIF4KjoGBLzY1OrF9k6OOFxnwDC4wxIMX1G0pMhgVyMNyoA13PAtS7OrJk1PrC69LUdQWxuF6IybHrX + LRI7JrtZdoDAo1XmbjMyD+tjSXxGcXRmnYg5ttD9QuxDhN0uUgDOmbvNTpPOJaGAo2K36cyaGZvOFIfd + KlSA8/zRh9ABIDUG+1JpAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIISURBVDhPpZP7S1NxGMbPPxKaXVUkMEq8IpKUCoY/hGgI + ymqkDYYXcCjDZOANURSjCNGFQUTsl4GXVMxKk62YU4fXQpaIlygHQxBRH8/zwvyaIAYe+HLgnPN8nue9 + HA3nvDTq63oW/jm13XOwvPTB3DYFY5MH+bXfcN8ygfTSMSSXfESicQDxBqdYHwH29g9w2tnZ3UcguIvN + rR3417exuBJE5N1n/wfwLgXEOc38Bc6xNRHb+/y4nm49G0Bnit2zf9H6bkliE/jKuYxrd6oVgDWfjB+K + TWeKMyrGEVfowITvD9re/9ABVQrAhh0HHK+ZselMMaN/mvwtDb+aVqkA7HYIwIj3ysfluPTorJnP6Ezx + oHsD1s5ZXEktUwCOioB5f1CEPR9+wTG6iuiserTo8dkwng7HT/R+XUPF8xlcTjErAOdMcW6NW8STiwG8 + 7vej8oUPN/PsEv3t8Ao0TZP3T1u8uJRkUgAuSYHtO97oLxmXd5t9Ho8aPTK+GzntqNfrLm2fFoihwYOI + xGIF4KjoGBLzY1OrF9k6OOFxnwDC4wxIMX1G0pMhgVyMNyoA13PAtS7OrJk1PrC69LUdQWxuF6IybHrX + LRI7JrtZdoDAo1XmbjMyD+tjSXxGcXRmnYg5ttD9QuxDhN0uUgDOmbvNTpPOJaGAo2K36cyaGZvOFIfd + KlSA8/zRh9ABIDUG+1JpAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIISURBVDhPpZP7S1NxGMbPPxKaXVUkMEq8IpKUCoY/hGgI + ymqkDYYXcCjDZOANURSjCNGFQUTsl4GXVMxKk62YU4fXQpaIlygHQxBRH8/zwvyaIAYe+HLgnPN8nue9 + HA3nvDTq63oW/jm13XOwvPTB3DYFY5MH+bXfcN8ygfTSMSSXfESicQDxBqdYHwH29g9w2tnZ3UcguIvN + rR3417exuBJE5N1n/wfwLgXEOc38Bc6xNRHb+/y4nm49G0Bnit2zf9H6bkliE/jKuYxrd6oVgDWfjB+K + TWeKMyrGEVfowITvD9re/9ABVQrAhh0HHK+ZselMMaN/mvwtDb+aVqkA7HYIwIj3ysfluPTorJnP6Ezx + oHsD1s5ZXEktUwCOioB5f1CEPR9+wTG6iuiserTo8dkwng7HT/R+XUPF8xlcTjErAOdMcW6NW8STiwG8 + 7vej8oUPN/PsEv3t8Ao0TZP3T1u8uJRkUgAuSYHtO97oLxmXd5t9Ho8aPTK+GzntqNfrLm2fFoihwYOI + xGIF4KjoGBLzY1OrF9k6OOFxnwDC4wxIMX1G0pMhgVyMNyoA13PAtS7OrJk1PrC69LUdQWxuF6IybHrX + LRI7JrtZdoDAo1XmbjMyD+tjSXxGcXRmnYg5ttD9QuxDhN0uUgDOmbvNTpPOJaGAo2K36cyaGZvOFIfd + KlSA8/zRh9ABIDUG+1JpAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIISURBVDhPpZP7S1NxGMbPPxKaXVUkMEq8IpKUCoY/hGgI + ymqkDYYXcCjDZOANURSjCNGFQUTsl4GXVMxKk62YU4fXQpaIlygHQxBRH8/zwvyaIAYe+HLgnPN8nue9 + HA3nvDTq63oW/jm13XOwvPTB3DYFY5MH+bXfcN8ygfTSMSSXfESicQDxBqdYHwH29g9w2tnZ3UcguIvN + rR3417exuBJE5N1n/wfwLgXEOc38Bc6xNRHb+/y4nm49G0Bnit2zf9H6bkliE/jKuYxrd6oVgDWfjB+K + TWeKMyrGEVfowITvD9re/9ABVQrAhh0HHK+ZselMMaN/mvwtDb+aVqkA7HYIwIj3ysfluPTorJnP6Ezx + oHsD1s5ZXEktUwCOioB5f1CEPR9+wTG6iuiserTo8dkwng7HT/R+XUPF8xlcTjErAOdMcW6NW8STiwG8 + 7vej8oUPN/PsEv3t8Ao0TZP3T1u8uJRkUgAuSYHtO97oLxmXd5t9Ho8aPTK+GzntqNfrLm2fFoihwYOI + xGIF4KjoGBLzY1OrF9k6OOFxnwDC4wxIMX1G0pMhgVyMNyoA13PAtS7OrJk1PrC69LUdQWxuF6IybHrX + LRI7JrtZdoDAo1XmbjMyD+tjSXxGcXRmnYg5ttD9QuxDhN0uUgDOmbvNTpPOJaGAo2K36cyaGZvOFIfd + KlSA8/zRh9ABIDUG+1JpAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIISURBVDhPpZP7S1NxGMbPPxKaXVUkMEq8IpKUCoY/hGgI + ymqkDYYXcCjDZOANURSjCNGFQUTsl4GXVMxKk62YU4fXQpaIlygHQxBRH8/zwvyaIAYe+HLgnPN8nue9 + HA3nvDTq63oW/jm13XOwvPTB3DYFY5MH+bXfcN8ygfTSMSSXfESicQDxBqdYHwH29g9w2tnZ3UcguIvN + rR3417exuBJE5N1n/wfwLgXEOc38Bc6xNRHb+/y4nm49G0Bnit2zf9H6bkliE/jKuYxrd6oVgDWfjB+K + TWeKMyrGEVfowITvD9re/9ABVQrAhh0HHK+ZselMMaN/mvwtDb+aVqkA7HYIwIj3ysfluPTorJnP6Ezx + oHsD1s5ZXEktUwCOioB5f1CEPR9+wTG6iuiserTo8dkwng7HT/R+XUPF8xlcTjErAOdMcW6NW8STiwG8 + 7vej8oUPN/PsEv3t8Ao0TZP3T1u8uJRkUgAuSYHtO97oLxmXd5t9Ho8aPTK+GzntqNfrLm2fFoihwYOI + xGIF4KjoGBLzY1OrF9k6OOFxnwDC4wxIMX1G0pMhgVyMNyoA13PAtS7OrJk1PrC69LUdQWxuF6IybHrX + LRI7JrtZdoDAo1XmbjMyD+tjSXxGcXRmnYg5ttD9QuxDhN0uUgDOmbvNTpPOJaGAo2K36cyaGZvOFIfd + KlSA8/zRh9ABIDUG+1JpAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIISURBVDhPpZP7S1NxGMbPPxKaXVUkMEq8IpKUCoY/hGgI + ymqkDYYXcCjDZOANURSjCNGFQUTsl4GXVMxKk62YU4fXQpaIlygHQxBRH8/zwvyaIAYe+HLgnPN8nue9 + HA3nvDTq63oW/jm13XOwvPTB3DYFY5MH+bXfcN8ygfTSMSSXfESicQDxBqdYHwH29g9w2tnZ3UcguIvN + rR3417exuBJE5N1n/wfwLgXEOc38Bc6xNRHb+/y4nm49G0Bnit2zf9H6bkliE/jKuYxrd6oVgDWfjB+K + TWeKMyrGEVfowITvD9re/9ABVQrAhh0HHK+ZselMMaN/mvwtDb+aVqkA7HYIwIj3ysfluPTorJnP6Ezx + oHsD1s5ZXEktUwCOioB5f1CEPR9+wTG6iuiserTo8dkwng7HT/R+XUPF8xlcTjErAOdMcW6NW8STiwG8 + 7vej8oUPN/PsEv3t8Ao0TZP3T1u8uJRkUgAuSYHtO97oLxmXd5t9Ho8aPTK+GzntqNfrLm2fFoihwYOI + xGIF4KjoGBLzY1OrF9k6OOFxnwDC4wxIMX1G0pMhgVyMNyoA13PAtS7OrJk1PrC69LUdQWxuF6IybHrX + LRI7JrtZdoDAo1XmbjMyD+tjSXxGcXRmnYg5ttD9QuxDhN0uUgDOmbvNTpPOJaGAo2K36cyaGZvOFIfd + KlSA8/zRh9ABIDUG+1JpAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIISURBVDhPpZP7S1NxGMbPPxKaXVUkMEq8IpKUCoY/hGgI + ymqkDYYXcCjDZOANURSjCNGFQUTsl4GXVMxKk62YU4fXQpaIlygHQxBRH8/zwvyaIAYe+HLgnPN8nue9 + HA3nvDTq63oW/jm13XOwvPTB3DYFY5MH+bXfcN8ygfTSMSSXfESicQDxBqdYHwH29g9w2tnZ3UcguIvN + rR3417exuBJE5N1n/wfwLgXEOc38Bc6xNRHb+/y4nm49G0Bnit2zf9H6bkliE/jKuYxrd6oVgDWfjB+K + TWeKMyrGEVfowITvD9re/9ABVQrAhh0HHK+ZselMMaN/mvwtDb+aVqkA7HYIwIj3ysfluPTorJnP6Ezx + oHsD1s5ZXEktUwCOioB5f1CEPR9+wTG6iuiserTo8dkwng7HT/R+XUPF8xlcTjErAOdMcW6NW8STiwG8 + 7vej8oUPN/PsEv3t8Ao0TZP3T1u8uJRkUgAuSYHtO97oLxmXd5t9Ho8aPTK+GzntqNfrLm2fFoihwYOI + xGIF4KjoGBLzY1OrF9k6OOFxnwDC4wxIMX1G0pMhgVyMNyoA13PAtS7OrJk1PrC69LUdQWxuF6IybHrX + LRI7JrtZdoDAo1XmbjMyD+tjSXxGcXRmnYg5ttD9QuxDhN0uUgDOmbvNTpPOJaGAo2K36cyaGZvOFIfd + KlSA8/zRh9ABIDUG+1JpAAAAAElFTkSuQmCC + + + + 362, 54 + + + 17, 17 + + + 219, 17 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIISURBVDhPpZP7S1NxGMbPPxKaXVUkMEq8IpKUCoY/hGgI + ymqkDYYXcCjDZOANURSjCNGFQUTsl4GXVMxKk62YU4fXQpaIlygHQxBRH8/zwvyaIAYe+HLgnPN8nue9 + HA3nvDTq63oW/jm13XOwvPTB3DYFY5MH+bXfcN8ygfTSMSSXfESicQDxBqdYHwH29g9w2tnZ3UcguIvN + rR3417exuBJE5N1n/wfwLgXEOc38Bc6xNRHb+/y4nm49G0Bnit2zf9H6bkliE/jKuYxrd6oVgDWfjB+K + TWeKMyrGEVfowITvD9re/9ABVQrAhh0HHK+ZselMMaN/mvwtDb+aVqkA7HYIwIj3ysfluPTorJnP6Ezx + oHsD1s5ZXEktUwCOioB5f1CEPR9+wTG6iuiserTo8dkwng7HT/R+XUPF8xlcTjErAOdMcW6NW8STiwG8 + 7vej8oUPN/PsEv3t8Ao0TZP3T1u8uJRkUgAuSYHtO97oLxmXd5t9Ho8aPTK+GzntqNfrLm2fFoihwYOI + xGIF4KjoGBLzY1OrF9k6OOFxnwDC4wxIMX1G0pMhgVyMNyoA13PAtS7OrJk1PrC69LUdQWxuF6IybHrX + LRI7JrtZdoDAo1XmbjMyD+tjSXxGcXRmnYg5ttD9QuxDhN0uUgDOmbvNTpPOJaGAo2K36cyaGZvOFIfd + KlSA8/zRh9ABIDUG+1JpAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIISURBVDhPpZP7S1NxGMbPPxKaXVUkMEq8IpKUCoY/hGgI + ymqkDYYXcCjDZOANURSjCNGFQUTsl4GXVMxKk62YU4fXQpaIlygHQxBRH8/zwvyaIAYe+HLgnPN8nue9 + HA3nvDTq63oW/jm13XOwvPTB3DYFY5MH+bXfcN8ygfTSMSSXfESicQDxBqdYHwH29g9w2tnZ3UcguIvN + rR3417exuBJE5N1n/wfwLgXEOc38Bc6xNRHb+/y4nm49G0Bnit2zf9H6bkliE/jKuYxrd6oVgDWfjB+K + TWeKMyrGEVfowITvD9re/9ABVQrAhh0HHK+ZselMMaN/mvwtDb+aVqkA7HYIwIj3ysfluPTorJnP6Ezx + oHsD1s5ZXEktUwCOioB5f1CEPR9+wTG6iuiserTo8dkwng7HT/R+XUPF8xlcTjErAOdMcW6NW8STiwG8 + 7vej8oUPN/PsEv3t8Ao0TZP3T1u8uJRkUgAuSYHtO97oLxmXd5t9Ho8aPTK+GzntqNfrLm2fFoihwYOI + xGIF4KjoGBLzY1OrF9k6OOFxnwDC4wxIMX1G0pMhgVyMNyoA13PAtS7OrJk1PrC69LUdQWxuF6IybHrX + LRI7JrtZdoDAo1XmbjMyD+tjSXxGcXRmnYg5ttD9QuxDhN0uUgDOmbvNTpPOJaGAo2K36cyaGZvOFIfd + KlSA8/zRh9ABIDUG+1JpAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIISURBVDhPpZP7S1NxGMbPPxKaXVUkMEq8IpKUCoY/hGgI + ymqkDYYXcCjDZOANURSjCNGFQUTsl4GXVMxKk62YU4fXQpaIlygHQxBRH8/zwvyaIAYe+HLgnPN8nue9 + HA3nvDTq63oW/jm13XOwvPTB3DYFY5MH+bXfcN8ygfTSMSSXfESicQDxBqdYHwH29g9w2tnZ3UcguIvN + rR3417exuBJE5N1n/wfwLgXEOc38Bc6xNRHb+/y4nm49G0Bnit2zf9H6bkliE/jKuYxrd6oVgDWfjB+K + TWeKMyrGEVfowITvD9re/9ABVQrAhh0HHK+ZselMMaN/mvwtDb+aVqkA7HYIwIj3ysfluPTorJnP6Ezx + oHsD1s5ZXEktUwCOioB5f1CEPR9+wTG6iuiserTo8dkwng7HT/R+XUPF8xlcTjErAOdMcW6NW8STiwG8 + 7vej8oUPN/PsEv3t8Ao0TZP3T1u8uJRkUgAuSYHtO97oLxmXd5t9Ho8aPTK+GzntqNfrLm2fFoihwYOI + xGIF4KjoGBLzY1OrF9k6OOFxnwDC4wxIMX1G0pMhgVyMNyoA13PAtS7OrJk1PrC69LUdQWxuF6IybHrX + LRI7JrtZdoDAo1XmbjMyD+tjSXxGcXRmnYg5ttD9QuxDhN0uUgDOmbvNTpPOJaGAo2K36cyaGZvOFIfd + KlSA8/zRh9ABIDUG+1JpAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIISURBVDhPpZP7S1NxGMbPPxKaXVUkMEq8IpKUCoY/hGgI + ymqkDYYXcCjDZOANURSjCNGFQUTsl4GXVMxKk62YU4fXQpaIlygHQxBRH8/zwvyaIAYe+HLgnPN8nue9 + HA3nvDTq63oW/jm13XOwvPTB3DYFY5MH+bXfcN8ygfTSMSSXfESicQDxBqdYHwH29g9w2tnZ3UcguIvN + rR3417exuBJE5N1n/wfwLgXEOc38Bc6xNRHb+/y4nm49G0Bnit2zf9H6bkliE/jKuYxrd6oVgDWfjB+K + TWeKMyrGEVfowITvD9re/9ABVQrAhh0HHK+ZselMMaN/mvwtDb+aVqkA7HYIwIj3ysfluPTorJnP6Ezx + oHsD1s5ZXEktUwCOioB5f1CEPR9+wTG6iuiserTo8dkwng7HT/R+XUPF8xlcTjErAOdMcW6NW8STiwG8 + 7vej8oUPN/PsEv3t8Ao0TZP3T1u8uJRkUgAuSYHtO97oLxmXd5t9Ho8aPTK+GzntqNfrLm2fFoihwYOI + xGIF4KjoGBLzY1OrF9k6OOFxnwDC4wxIMX1G0pMhgVyMNyoA13PAtS7OrJk1PrC69LUdQWxuF6IybHrX + LRI7JrtZdoDAo1XmbjMyD+tjSXxGcXRmnYg5ttD9QuxDhN0uUgDOmbvNTpPOJaGAo2K36cyaGZvOFIfd + KlSA8/zRh9ABIDUG+1JpAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIISURBVDhPpZP7S1NxGMbPPxKaXVUkMEq8IpKUCoY/hGgI + ymqkDYYXcCjDZOANURSjCNGFQUTsl4GXVMxKk62YU4fXQpaIlygHQxBRH8/zwvyaIAYe+HLgnPN8nue9 + HA3nvDTq63oW/jm13XOwvPTB3DYFY5MH+bXfcN8ygfTSMSSXfESicQDxBqdYHwH29g9w2tnZ3UcguIvN + rR3417exuBJE5N1n/wfwLgXEOc38Bc6xNRHb+/y4nm49G0Bnit2zf9H6bkliE/jKuYxrd6oVgDWfjB+K + TWeKMyrGEVfowITvD9re/9ABVQrAhh0HHK+ZselMMaN/mvwtDb+aVqkA7HYIwIj3ysfluPTorJnP6Ezx + oHsD1s5ZXEktUwCOioB5f1CEPR9+wTG6iuiserTo8dkwng7HT/R+XUPF8xlcTjErAOdMcW6NW8STiwG8 + 7vej8oUPN/PsEv3t8Ao0TZP3T1u8uJRkUgAuSYHtO97oLxmXd5t9Ho8aPTK+GzntqNfrLm2fFoihwYOI + xGIF4KjoGBLzY1OrF9k6OOFxnwDC4wxIMX1G0pMhgVyMNyoA13PAtS7OrJk1PrC69LUdQWxuF6IybHrX + LRI7JrtZdoDAo1XmbjMyD+tjSXxGcXRmnYg5ttD9QuxDhN0uUgDOmbvNTpPOJaGAo2K36cyaGZvOFIfd + KlSA8/zRh9ABIDUG+1JpAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIISURBVDhPpZP7S1NxGMbPPxKaXVUkMEq8IpKUCoY/hGgI + ymqkDYYXcCjDZOANURSjCNGFQUTsl4GXVMxKk62YU4fXQpaIlygHQxBRH8/zwvyaIAYe+HLgnPN8nue9 + HA3nvDTq63oW/jm13XOwvPTB3DYFY5MH+bXfcN8ygfTSMSSXfESicQDxBqdYHwH29g9w2tnZ3UcguIvN + rR3417exuBJE5N1n/wfwLgXEOc38Bc6xNRHb+/y4nm49G0Bnit2zf9H6bkliE/jKuYxrd6oVgDWfjB+K + TWeKMyrGEVfowITvD9re/9ABVQrAhh0HHK+ZselMMaN/mvwtDb+aVqkA7HYIwIj3ysfluPTorJnP6Ezx + oHsD1s5ZXEktUwCOioB5f1CEPR9+wTG6iuiserTo8dkwng7HT/R+XUPF8xlcTjErAOdMcW6NW8STiwG8 + 7vej8oUPN/PsEv3t8Ao0TZP3T1u8uJRkUgAuSYHtO97oLxmXd5t9Ho8aPTK+GzntqNfrLm2fFoihwYOI + xGIF4KjoGBLzY1OrF9k6OOFxnwDC4wxIMX1G0pMhgVyMNyoA13PAtS7OrJk1PrC69LUdQWxuF6IybHrX + LRI7JrtZdoDAo1XmbjMyD+tjSXxGcXRmnYg5ttD9QuxDhN0uUgDOmbvNTpPOJaGAo2K36cyaGZvOFIfd + KlSA8/zRh9ABIDUG+1JpAAAAAElFTkSuQmCC + + + + 638, 17 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIISURBVDhPpZP7S1NxGMbPPxKaXVUkMEq8IpKUCoY/hGgI + ymqkDYYXcCjDZOANURSjCNGFQUTsl4GXVMxKk62YU4fXQpaIlygHQxBRH8/zwvyaIAYe+HLgnPN8nue9 + HA3nvDTq63oW/jm13XOwvPTB3DYFY5MH+bXfcN8ygfTSMSSXfESicQDxBqdYHwH29g9w2tnZ3UcguIvN + rR3417exuBJE5N1n/wfwLgXEOc38Bc6xNRHb+/y4nm49G0Bnit2zf9H6bkliE/jKuYxrd6oVgDWfjB+K + TWeKMyrGEVfowITvD9re/9ABVQrAhh0HHK+ZselMMaN/mvwtDb+aVqkA7HYIwIj3ysfluPTorJnP6Ezx + oHsD1s5ZXEktUwCOioB5f1CEPR9+wTG6iuiserTo8dkwng7HT/R+XUPF8xlcTjErAOdMcW6NW8STiwG8 + 7vej8oUPN/PsEv3t8Ao0TZP3T1u8uJRkUgAuSYHtO97oLxmXd5t9Ho8aPTK+GzntqNfrLm2fFoihwYOI + xGIF4KjoGBLzY1OrF9k6OOFxnwDC4wxIMX1G0pMhgVyMNyoA13PAtS7OrJk1PrC69LUdQWxuF6IybHrX + LRI7JrtZdoDAo1XmbjMyD+tjSXxGcXRmnYg5ttD9QuxDhN0uUgDOmbvNTpPOJaGAo2K36cyaGZvOFIfd + KlSA8/zRh9ABIDUG+1JpAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIISURBVDhPpZP7S1NxGMbPPxKaXVUkMEq8IpKUCoY/hGgI + ymqkDYYXcCjDZOANURSjCNGFQUTsl4GXVMxKk62YU4fXQpaIlygHQxBRH8/zwvyaIAYe+HLgnPN8nue9 + HA3nvDTq63oW/jm13XOwvPTB3DYFY5MH+bXfcN8ygfTSMSSXfESicQDxBqdYHwH29g9w2tnZ3UcguIvN + rR3417exuBJE5N1n/wfwLgXEOc38Bc6xNRHb+/y4nm49G0Bnit2zf9H6bkliE/jKuYxrd6oVgDWfjB+K + TWeKMyrGEVfowITvD9re/9ABVQrAhh0HHK+ZselMMaN/mvwtDb+aVqkA7HYIwIj3ysfluPTorJnP6Ezx + oHsD1s5ZXEktUwCOioB5f1CEPR9+wTG6iuiserTo8dkwng7HT/R+XUPF8xlcTjErAOdMcW6NW8STiwG8 + 7vej8oUPN/PsEv3t8Ao0TZP3T1u8uJRkUgAuSYHtO97oLxmXd5t9Ho8aPTK+GzntqNfrLm2fFoihwYOI + xGIF4KjoGBLzY1OrF9k6OOFxnwDC4wxIMX1G0pMhgVyMNyoA13PAtS7OrJk1PrC69LUdQWxuF6IybHrX + LRI7JrtZdoDAo1XmbjMyD+tjSXxGcXRmnYg5ttD9QuxDhN0uUgDOmbvNTpPOJaGAo2K36cyaGZvOFIfd + KlSA8/zRh9ABIDUG+1JpAAAAAElFTkSuQmCC + + + + 205, 54 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIISURBVDhPpZP7S1NxGMbPPxKaXVUkMEq8IpKUCoY/hGgI + ymqkDYYXcCjDZOANURSjCNGFQUTsl4GXVMxKk62YU4fXQpaIlygHQxBRH8/zwvyaIAYe+HLgnPN8nue9 + HA3nvDTq63oW/jm13XOwvPTB3DYFY5MH+bXfcN8ygfTSMSSXfESicQDxBqdYHwH29g9w2tnZ3UcguIvN + rR3417exuBJE5N1n/wfwLgXEOc38Bc6xNRHb+/y4nm49G0Bnit2zf9H6bkliE/jKuYxrd6oVgDWfjB+K + TWeKMyrGEVfowITvD9re/9ABVQrAhh0HHK+ZselMMaN/mvwtDb+aVqkA7HYIwIj3ysfluPTorJnP6Ezx + oHsD1s5ZXEktUwCOioB5f1CEPR9+wTG6iuiserTo8dkwng7HT/R+XUPF8xlcTjErAOdMcW6NW8STiwG8 + 7vej8oUPN/PsEv3t8Ao0TZP3T1u8uJRkUgAuSYHtO97oLxmXd5t9Ho8aPTK+GzntqNfrLm2fFoihwYOI + xGIF4KjoGBLzY1OrF9k6OOFxnwDC4wxIMX1G0pMhgVyMNyoA13PAtS7OrJk1PrC69LUdQWxuF6IybHrX + LRI7JrtZdoDAo1XmbjMyD+tjSXxGcXRmnYg5ttD9QuxDhN0uUgDOmbvNTpPOJaGAo2K36cyaGZvOFIfd + KlSA8/zRh9ABIDUG+1JpAAAAAElFTkSuQmCC + + + + 1001, 17 + + + 17, 54 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIISURBVDhPpZP7S1NxGMbPPxKaXVUkMEq8IpKUCoY/hGgI + ymqkDYYXcCjDZOANURSjCNGFQUTsl4GXVMxKk62YU4fXQpaIlygHQxBRH8/zwvyaIAYe+HLgnPN8nue9 + HA3nvDTq63oW/jm13XOwvPTB3DYFY5MH+bXfcN8ygfTSMSSXfESicQDxBqdYHwH29g9w2tnZ3UcguIvN + rR3417exuBJE5N1n/wfwLgXEOc38Bc6xNRHb+/y4nm49G0Bnit2zf9H6bkliE/jKuYxrd6oVgDWfjB+K + TWeKMyrGEVfowITvD9re/9ABVQrAhh0HHK+ZselMMaN/mvwtDb+aVqkA7HYIwIj3ysfluPTorJnP6Ezx + oHsD1s5ZXEktUwCOioB5f1CEPR9+wTG6iuiserTo8dkwng7HT/R+XUPF8xlcTjErAOdMcW6NW8STiwG8 + 7vej8oUPN/PsEv3t8Ao0TZP3T1u8uJRkUgAuSYHtO97oLxmXd5t9Ho8aPTK+GzntqNfrLm2fFoihwYOI + xGIF4KjoGBLzY1OrF9k6OOFxnwDC4wxIMX1G0pMhgVyMNyoA13PAtS7OrJk1PrC69LUdQWxuF6IybHrX + LRI7JrtZdoDAo1XmbjMyD+tjSXxGcXRmnYg5ttD9QuxDhN0uUgDOmbvNTpPOJaGAo2K36cyaGZvOFIfd + KlSA8/zRh9ABIDUG+1JpAAAAAElFTkSuQmCC + + + + 806, 17 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIISURBVDhPpZP7S1NxGMbPPxKaXVUkMEq8IpKUCoY/hGgI + ymqkDYYXcCjDZOANURSjCNGFQUTsl4GXVMxKk62YU4fXQpaIlygHQxBRH8/zwvyaIAYe+HLgnPN8nue9 + HA3nvDTq63oW/jm13XOwvPTB3DYFY5MH+bXfcN8ygfTSMSSXfESicQDxBqdYHwH29g9w2tnZ3UcguIvN + rR3417exuBJE5N1n/wfwLgXEOc38Bc6xNRHb+/y4nm49G0Bnit2zf9H6bkliE/jKuYxrd6oVgDWfjB+K + TWeKMyrGEVfowITvD9re/9ABVQrAhh0HHK+ZselMMaN/mvwtDb+aVqkA7HYIwIj3ysfluPTorJnP6Ezx + oHsD1s5ZXEktUwCOioB5f1CEPR9+wTG6iuiserTo8dkwng7HT/R+XUPF8xlcTjErAOdMcW6NW8STiwG8 + 7vej8oUPN/PsEv3t8Ao0TZP3T1u8uJRkUgAuSYHtO97oLxmXd5t9Ho8aPTK+GzntqNfrLm2fFoihwYOI + xGIF4KjoGBLzY1OrF9k6OOFxnwDC4wxIMX1G0pMhgVyMNyoA13PAtS7OrJk1PrC69LUdQWxuF6IybHrX + LRI7JrtZdoDAo1XmbjMyD+tjSXxGcXRmnYg5ttD9QuxDhN0uUgDOmbvNTpPOJaGAo2K36cyaGZvOFIfd + KlSA8/zRh9ABIDUG+1JpAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIISURBVDhPpZP7S1NxGMbPPxKaXVUkMEq8IpKUCoY/hGgI + ymqkDYYXcCjDZOANURSjCNGFQUTsl4GXVMxKk62YU4fXQpaIlygHQxBRH8/zwvyaIAYe+HLgnPN8nue9 + HA3nvDTq63oW/jm13XOwvPTB3DYFY5MH+bXfcN8ygfTSMSSXfESicQDxBqdYHwH29g9w2tnZ3UcguIvN + rR3417exuBJE5N1n/wfwLgXEOc38Bc6xNRHb+/y4nm49G0Bnit2zf9H6bkliE/jKuYxrd6oVgDWfjB+K + TWeKMyrGEVfowITvD9re/9ABVQrAhh0HHK+ZselMMaN/mvwtDb+aVqkA7HYIwIj3ysfluPTorJnP6Ezx + oHsD1s5ZXEktUwCOioB5f1CEPR9+wTG6iuiserTo8dkwng7HT/R+XUPF8xlcTjErAOdMcW6NW8STiwG8 + 7vej8oUPN/PsEv3t8Ao0TZP3T1u8uJRkUgAuSYHtO97oLxmXd5t9Ho8aPTK+GzntqNfrLm2fFoihwYOI + xGIF4KjoGBLzY1OrF9k6OOFxnwDC4wxIMX1G0pMhgVyMNyoA13PAtS7OrJk1PrC69LUdQWxuF6IybHrX + LRI7JrtZdoDAo1XmbjMyD+tjSXxGcXRmnYg5ttD9QuxDhN0uUgDOmbvNTpPOJaGAo2K36cyaGZvOFIfd + KlSA8/zRh9ABIDUG+1JpAAAAAElFTkSuQmCC + + + + 87 + + \ No newline at end of file diff --git a/DelphiProjectHandler/src/View/IFixProjectSettingsView.cs b/DelphiProjectHandler/src/View/IFixProjectSettingsView.cs new file mode 100644 index 0000000..22cc217 --- /dev/null +++ b/DelphiProjectHandler/src/View/IFixProjectSettingsView.cs @@ -0,0 +1,14 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; + +using DelphiProjectHandler.Model; + +namespace DelphiProjectHandler.View +{ + public interface IFixProjectSettingsView + { + void UpdateView(IFixProjectSettings aModel); + } +} diff --git a/DelphiProjectHandler/src/View/IFixUnitSettingsView.cs b/DelphiProjectHandler/src/View/IFixUnitSettingsView.cs new file mode 100644 index 0000000..012d1fc --- /dev/null +++ b/DelphiProjectHandler/src/View/IFixUnitSettingsView.cs @@ -0,0 +1,13 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; +using DelphiProjectHandler.Model; + +namespace DelphiProjectHandler.View +{ + public interface IFixUnitSettingsView + { + void UpdateView(IFixUnitSettings aModel); + } +} diff --git a/DelphiProjectHandler/src/View/ILibraryPathSettingsView.cs b/DelphiProjectHandler/src/View/ILibraryPathSettingsView.cs new file mode 100644 index 0000000..21dd33e --- /dev/null +++ b/DelphiProjectHandler/src/View/ILibraryPathSettingsView.cs @@ -0,0 +1,13 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; +using DelphiProjectHandler.Model; + +namespace DelphiProjectHandler.View +{ + public interface ILibraryPathSettingsView + { + void UpdateView(ILibraryPathSettings aModel); + } +} diff --git a/DelphiProjectHandler/src/View/IUnitCleanupSettingsView.cs b/DelphiProjectHandler/src/View/IUnitCleanupSettingsView.cs new file mode 100644 index 0000000..2d8f63f --- /dev/null +++ b/DelphiProjectHandler/src/View/IUnitCleanupSettingsView.cs @@ -0,0 +1,13 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; +using DelphiProjectHandler.Model; + +namespace DelphiProjectHandler.View +{ + public interface IUnitCleanupSettingsView + { + void UpdateView(IUnitCleanupSettings aModel); + } +} diff --git a/README.md b/README.md deleted file mode 100644 index 9cd1770..0000000 --- a/README.md +++ /dev/null @@ -1,4 +0,0 @@ -Delphi-Project-Manager -====================== - -Delphi Project Manager \ No newline at end of file