PATCH: [ 1552248 ] Install as a ClearCase diff tool

diff --git a/Installer/InnoSetup/Changes.txt b/Installer/InnoSetup/Changes.txt
index 8ce4778..76ab1c7 100755 (executable)
--- a/Installer/InnoSetup/Changes.txt
+++ b/Installer/InnoSetup/Changes.txt
@@ -1,3 +1,8 @@
+2006-09-20 Gal
+  PATCH: [ 1552248 ] Install as a ClearCase diff tool
+   InnoSetup: WinMerge.iss
+   InnoSetup/Languages: *.isl
+
 2006-09-20 Kimmo
  PATCH: [ 1560904 ] Install 64-bit ShellExtension
   InnoSetup: WinMerge.iss
@@ -95,4 +100,4 @@
    InnoSetup: WinMerge.iss
   
 2005-10-20 Kimmo
- Previous change history is in file readme.txt
\ No newline at end of file
+ Previous change history is in file readme.txt

diff --git a/Installer/InnoSetup/Languages/Brazilian_Portuguese.isl b/Installer/InnoSetup/Languages/Brazilian_Portuguese.isl
index 47f0631..d1db654 100755 (executable)
--- a/Installer/InnoSetup/Languages/Brazilian_Portuguese.isl
+++ b/Installer/InnoSetup/Languages/Brazilian_Portuguese.isl
@@ -369,6 +369,7 @@ TurkishLanguage=Turkish menus and dialogs
 ExplorerContextMenu=&Enable Explorer context menu integration
 IntegrateTortoiseCVS=Integrate with &TortoiseCVS
 IntegrateTortoiseSVN=Integrate with T&ortoiseSVN
+IntegrateClearCase=Integrate with Rational &ClearCase
 IntegrateDelphi4=Borland® Delphi &4 Binary File Support
 UpdatingCommonControls=Updating the System's Common Controls
 

diff --git a/Installer/InnoSetup/Languages/Bulgarian.isl b/Installer/InnoSetup/Languages/Bulgarian.isl
index f899fda..af5f214 100755 (executable)
--- a/Installer/InnoSetup/Languages/Bulgarian.isl
+++ b/Installer/InnoSetup/Languages/Bulgarian.isl
@@ -364,6 +364,7 @@ TurkishLanguage=Turkish menus and dialogs
 ExplorerContextMenu=&Enable Explorer context menu integration
 IntegrateTortoiseCVS=Integrate with &TortoiseCVS
 IntegrateTortoiseSVN=Integrate with T&ortoiseSVN
+IntegrateClearCase=Integrate with Rational &ClearCase
 IntegrateDelphi4=Borland® Delphi &4 Binary File Support
 UpdatingCommonControls=Updating the System's Common Controls
 

diff --git a/Installer/InnoSetup/Languages/Catalan.isl b/Installer/InnoSetup/Languages/Catalan.isl
index 9e1600d..6ed9887 100755 (executable)
--- a/Installer/InnoSetup/Languages/Catalan.isl
+++ b/Installer/InnoSetup/Languages/Catalan.isl
@@ -347,6 +347,7 @@ TurkishLanguage=Men
 ExplorerContextMenu=&Habilita la integració del menú de contexte a l'Explorador
 IntegrateTortoiseCVS=Integra amb el &TortoiseCVS
 IntegrateTortoiseSVN=Integrate with T&ortoiseSVN
+IntegrateClearCase=Integrate with Rational &ClearCase
 IntegrateDelphi4=Suport per a fitxers binaris del Borland® Delphi &4
 UpdatingCommonControls=Actualitzant els Controls Comuns del Sistema
 

diff --git a/Installer/InnoSetup/Languages/Chinese_Simplified.isl b/Installer/InnoSetup/Languages/Chinese_Simplified.isl
index d2f0dc8..b4ae52e 100755 (executable)
--- a/Installer/InnoSetup/Languages/Chinese_Simplified.isl
+++ b/Installer/InnoSetup/Languages/Chinese_Simplified.isl
@@ -354,6 +354,7 @@ TurkishLanguage=Turkish menus and dialogs
 ExplorerContextMenu=&Enable Explorer context menu integration
 IntegrateTortoiseCVS=Integrate with &TortoiseCVS
 IntegrateTortoiseSVN=Integrate with T&ortoiseSVN
+IntegrateClearCase=Integrate with Rational &ClearCase
 IntegrateDelphi4=Borland Delphi &4 Binary File Support
 UpdatingCommonControls=Updating the System's Common Controls
 

diff --git a/Installer/InnoSetup/Languages/Chinese_Traditional.isl b/Installer/InnoSetup/Languages/Chinese_Traditional.isl
index 8a5205b..ee41f46 100755 (executable)
--- a/Installer/InnoSetup/Languages/Chinese_Traditional.isl
+++ b/Installer/InnoSetup/Languages/Chinese_Traditional.isl
@@ -361,6 +361,7 @@ TurkishLanguage=Turkish menus and dialogs
 ExplorerContextMenu=&Enable Explorer context menu integration
 IntegrateTortoiseCVS=Integrate with &TortoiseCVS
 IntegrateTortoiseSVN=Integrate with T&ortoiseSVN
+IntegrateClearCase=Integrate with Rational &ClearCase
 IntegrateDelphi4=Borland Delphi &4 Binary File Support
 UpdatingCommonControls=Updating the System's Common Controls
 

diff --git a/Installer/InnoSetup/Languages/Czech.isl b/Installer/InnoSetup/Languages/Czech.isl
index d2272bd..37d3468 100755 (executable)
--- a/Installer/InnoSetup/Languages/Czech.isl
+++ b/Installer/InnoSetup/Languages/Czech.isl
@@ -362,6 +362,7 @@ TurkishLanguage=Turkish menus and dialogs
 ExplorerContextMenu=&Enable Explorer context menu integration
 IntegrateTortoiseCVS=Integrate with &TortoiseCVS
 IntegrateTortoiseSVN=Integrate with T&ortoiseSVN
+IntegrateClearCase=Integrate with Rational &ClearCase
 IntegrateDelphi4=Borland® Delphi &4 Binary File Support
 UpdatingCommonControls=Updating the System's Common Controls
 

diff --git a/Installer/InnoSetup/Languages/Danish.isl b/Installer/InnoSetup/Languages/Danish.isl
index 0bf425b..5881753 100755 (executable)
--- a/Installer/InnoSetup/Languages/Danish.isl
+++ b/Installer/InnoSetup/Languages/Danish.isl
@@ -363,6 +363,7 @@ TurkishLanguage=Turkish menus and dialogs
 ExplorerContextMenu=&Enable Explorer context menu integration
 IntegrateTortoiseCVS=Integrate with &TortoiseCVS
 IntegrateTortoiseSVN=Integrate with T&ortoiseSVN
+IntegrateClearCase=Integrate with Rational &ClearCase
 IntegrateDelphi4=Borland® Delphi &4 Binary File Support
 UpdatingCommonControls=Updating the System's Common Controls
 

diff --git a/Installer/InnoSetup/Languages/Dutch.isl b/Installer/InnoSetup/Languages/Dutch.isl
index 5063897..3b47d77 100755 (executable)
--- a/Installer/InnoSetup/Languages/Dutch.isl
+++ b/Installer/InnoSetup/Languages/Dutch.isl
@@ -341,6 +341,7 @@ TurkishLanguage=Turkish menus and dialogs
 ExplorerContextMenu=&Enable Explorer context menu integration
 IntegrateTortoiseCVS=Integrate with &TortoiseCVS
 IntegrateTortoiseSVN=Integrate with T&ortoiseSVN
+IntegrateClearCase=Integrate with Rational &ClearCase
 IntegrateDelphi4=Borland® Delphi &4 Binary File Support
 UpdatingCommonControls=Updating the System's Common Controls
 

diff --git a/Installer/InnoSetup/Languages/English.isl b/Installer/InnoSetup/Languages/English.isl
index 352e4d2..47bf3ea 100755 (executable)
--- a/Installer/InnoSetup/Languages/English.isl
+++ b/Installer/InnoSetup/Languages/English.isl
@@ -361,6 +361,7 @@ TurkishLanguage=Turkish menus and dialogs
 ExplorerContextMenu=&Enable Explorer context menu integration
 IntegrateTortoiseCVS=Integrate with &TortoiseCVS
 IntegrateTortoiseSVN=Integrate with T&ortoiseSVN
+IntegrateClearCase=Integrate with Rational &ClearCase
 IntegrateDelphi4=Borland® Delphi &4 Binary File Support
 UpdatingCommonControls=Updating the System's Common Controls
 

diff --git a/Installer/InnoSetup/Languages/French.isl b/Installer/InnoSetup/Languages/French.isl
index 5e2f1c4..86b4bc4 100755 (executable)
--- a/Installer/InnoSetup/Languages/French.isl
+++ b/Installer/InnoSetup/Languages/French.isl
@@ -356,6 +356,7 @@ TurkishLanguage=Turkish menus and dialogs
 ExplorerContextMenu=&Enable Explorer context menu integration
 IntegrateTortoiseCVS=Integrate with &TortoiseCVS
 IntegrateTortoiseSVN=Integrate with T&ortoiseSVN
+IntegrateClearCase=Integrate with Rational &ClearCase
 IntegrateDelphi4=Borland® Delphi &4 Binary File Support
 UpdatingCommonControls=Updating the System's Common Controls
 

diff --git a/Installer/InnoSetup/Languages/German.isl b/Installer/InnoSetup/Languages/German.isl
index 00f0eb3..84d85e6 100755 (executable)
--- a/Installer/InnoSetup/Languages/German.isl
+++ b/Installer/InnoSetup/Languages/German.isl
@@ -354,6 +354,7 @@ TurkishLanguage=T
 ExplorerContextMenu=&Explorer Kontextmenü-Integration aktivieren
 IntegrateTortoiseCVS=Integrieren in &TortoiseCVS
 IntegrateTortoiseSVN=Integrate with T&ortoiseSVN
+IntegrateClearCase=Integrate with Rational &ClearCase
 IntegrateDelphi4=Borland® Delphi &4 Binärdatei-Unterstützung
 UpdatingCommonControls=Aktualisieren der System-Komponenten
 

diff --git a/Installer/InnoSetup/Languages/Hungarian.isl b/Installer/InnoSetup/Languages/Hungarian.isl
index e56d84f..c9f7e8c 100755 (executable)
--- a/Installer/InnoSetup/Languages/Hungarian.isl
+++ b/Installer/InnoSetup/Languages/Hungarian.isl
@@ -374,7 +374,8 @@ TurkishLanguage=t
 ;Tasks
 ExplorerContextMenu=Integrálás az Intézõ &context-menüjéhez
 IntegrateTortoiseCVS=Integrálás a &TortoiseCVS programmal
-IntegrateTortoiseSVN=Integrate with T&ortoiseSVN
+IntegrateTortoiseSVN=Integrálás a T&ortoiseSVN programmal
+IntegrateClearCase=Integrálás a Rational &ClearCase programmal
 IntegrateDelphi4=Borland® Delphi &4 bináris fájl támogatás
 UpdatingCommonControls=Updating the System's Common Controls
 

diff --git a/Installer/InnoSetup/Languages/Italian.isl b/Installer/InnoSetup/Languages/Italian.isl
index 63f4a36..e510731 100755 (executable)
--- a/Installer/InnoSetup/Languages/Italian.isl
+++ b/Installer/InnoSetup/Languages/Italian.isl
@@ -365,7 +365,8 @@ TurkishLanguage=Menu e finestre di dialogo in turco
 ;Tasks
 ExplorerContextMenu=&Attiva l'integrazione con il menu contestuale di Explorer
 IntegrateTortoiseCVS=Integrazione con &TortoiseCVS
-IntegrateTortoiseSVN=Integrate with T&ortoiseSVN
+IntegrateTortoiseSVN=Integrazione con T&ortoiseSVN
+IntegrateClearCase=Integrazione con Rational &ClearCase
 IntegrateDelphi4=Supporto per i file binari di Borland® Delphi &4
 UpdatingCommonControls=Aggiornamento dei controlli comuni del sistema in corso...
 

diff --git a/Installer/InnoSetup/Languages/Japanese.isl b/Installer/InnoSetup/Languages/Japanese.isl
index 44fbf06..ddc08fc 100755 (executable)
--- a/Installer/InnoSetup/Languages/Japanese.isl
+++ b/Installer/InnoSetup/Languages/Japanese.isl
@@ -356,6 +356,7 @@ TurkishLanguage=Turkish menus and dialogs
 ExplorerContextMenu=\83G\83N\83X\83v\83\8d\81[\83\89\82Ì\83R\83\93\83e\83L\83X\83g\83\81\83j\83\85\81[\82É\92Ç\89Á(&E)
 IntegrateTortoiseCVS=TortoiseCVS\82Æ\82Ì\98A\8cg(&T)
 IntegrateTortoiseSVN=TortoiseSVN\82Æ\82Ì\98A\8cg(&O)
+IntegrateClearCase=Rational ClearCase\82Æ\82Ì\98A\8cg(&C)
 IntegrateDelphi4=Borland Delphi 4 \83o\83C\83i\83\8a\83t\83@\83C\83\8b\83T\83|\81[\83g(&4)
 UpdatingCommonControls=\83V\83X\83e\83\80\82Ì\83R\83\82\83\93\83R\83\93\83g\83\8d\81[\83\8b\82ð\83A\83b\83v\83f\81[\83g\82µ\82Ü\82·
 

diff --git a/Installer/InnoSetup/Languages/Korean.isl b/Installer/InnoSetup/Languages/Korean.isl
index 6738b01..937275d 100755 (executable)
--- a/Installer/InnoSetup/Languages/Korean.isl
+++ b/Installer/InnoSetup/Languages/Korean.isl
@@ -369,6 +369,7 @@ TurkishLanguage=Turkish menus and dialogs
 ExplorerContextMenu=&Enable Explorer context menu integration
 IntegrateTortoiseCVS=Integrate with &TortoiseCVS
 IntegrateTortoiseSVN=Integrate with T&ortoiseSVN
+IntegrateClearCase=Integrate with Rational &ClearCase
 IntegrateDelphi4=Borland Delphi &4 Binary File Support
 UpdatingCommonControls=Updating the System's Common Controls
 

diff --git a/Installer/InnoSetup/Languages/Norwegian.isl b/Installer/InnoSetup/Languages/Norwegian.isl
index 72f344c..d11de48 100755 (executable)
--- a/Installer/InnoSetup/Languages/Norwegian.isl
+++ b/Installer/InnoSetup/Languages/Norwegian.isl
@@ -358,7 +358,8 @@ TurkishLanguage=T
 ;Tasks
 ExplorerContextMenu=&Aktiver integrasjon i Windows utforsker sin kontekstmeny
 IntegrateTortoiseCVS=Integrer med &TortoiseCVS
-IntegrateTortoiseSVN=Integrate with T&ortoiseSVN
+IntegrateTortoiseSVN=Integrer med T&ortoiseSVN
+IntegrateClearCase=Integrer med Rational &ClearCase
 IntegrateDelphi4=Støtte for Borland® Delphi &4 binære file
 UpdatingCommonControls=Oppdater systemets felles kontrollelement
 

diff --git a/Installer/InnoSetup/Languages/Polish.isl b/Installer/InnoSetup/Languages/Polish.isl
index 3ce6d58..cd4eec5 100755 (executable)
--- a/Installer/InnoSetup/Languages/Polish.isl
+++ b/Installer/InnoSetup/Languages/Polish.isl
@@ -352,7 +352,8 @@ TurkishLanguage=turecki interfejs
 ;Tasks
 ExplorerContextMenu=&Wlacz integracje z menu Eksploratora
 IntegrateTortoiseCVS=Integracja z &TortoiseCVS
-IntegrateTortoiseSVN=Integrate with T&ortoiseSVN
+IntegrateTortoiseSVN=Integracja z T&ortoiseSVN
+IntegrateClearCase=Integracja z Rational &ClearCase
 IntegrateDelphi4=Obsluga plików binarnych Borland® Delphi &4
 UpdatingCommonControls=Aktualizacja wspólnych kontrolek systemowych SCC
 

diff --git a/Installer/InnoSetup/Languages/Russian.isl b/Installer/InnoSetup/Languages/Russian.isl
index 42620d4..91a97a9 100755 (executable)
--- a/Installer/InnoSetup/Languages/Russian.isl
+++ b/Installer/InnoSetup/Languages/Russian.isl
@@ -351,6 +351,7 @@ TurkishLanguage=Turkish menus and dialogs
 ExplorerContextMenu=&Enable Explorer context menu integration
 IntegrateTortoiseCVS=Integrate with &TortoiseCVS
 IntegrateTortoiseSVN=Integrate with T&ortoiseSVN
+IntegrateClearCase=Integrate with Rational &ClearCase
 IntegrateDelphi4=Borland® Delphi &4 Binary File Support
 UpdatingCommonControls=Updating the System's Common Controls
 

diff --git a/Installer/InnoSetup/Languages/Slovak.isl b/Installer/InnoSetup/Languages/Slovak.isl
index 5e61dea..893ff70 100755 (executable)
--- a/Installer/InnoSetup/Languages/Slovak.isl
+++ b/Installer/InnoSetup/Languages/Slovak.isl
@@ -291,6 +291,7 @@ TurkishLanguage=Turkish menus and dialogs
 ExplorerContextMenu=&Enable Explorer context menu integration
 IntegrateTortoiseCVS=Integrate with &TortoiseCVS
 IntegrateTortoiseSVN=Integrate with T&ortoiseSVN
+IntegrateClearCase=Integrate with Rational &ClearCase
 IntegrateDelphi4=Borland® Delphi &4 Binary File Support
 UpdatingCommonControls=Updating the System's Common Controls
 

diff --git a/Installer/InnoSetup/Languages/Spanish.isl b/Installer/InnoSetup/Languages/Spanish.isl
index 5f95c69..5d85e10 100755 (executable)
--- a/Installer/InnoSetup/Languages/Spanish.isl
+++ b/Installer/InnoSetup/Languages/Spanish.isl
@@ -360,6 +360,7 @@ TurkishLanguage=Turkish menus and dialogs
 ExplorerContextMenu=&Enable Explorer context menu integration
 IntegrateTortoiseCVS=Integrate with &TortoiseCVS
 IntegrateTortoiseSVN=Integrate with T&ortoiseSVN
+IntegrateClearCase=Integrate with Rational &ClearCase
 IntegrateDelphi4=Borland® Delphi &4 Binary File Support
 UpdatingCommonControls=Updating the System's Common Controls
 

diff --git a/Installer/InnoSetup/Languages/Swedish.isl b/Installer/InnoSetup/Languages/Swedish.isl
index b48842d..98b8d00 100755 (executable)
--- a/Installer/InnoSetup/Languages/Swedish.isl
+++ b/Installer/InnoSetup/Languages/Swedish.isl
@@ -354,6 +354,7 @@ TurkishLanguage=Turkiska menyer och dialoger
 ExplorerContextMenu=&Möjliggör integration med Explorers menyer
 IntegrateTortoiseCVS=Integrera med &TortoiseCVS
 IntegrateTortoiseSVN=Integrera med T&ortoiseSVN
+IntegrateClearCase=Integrera med Rational &ClearCase
 IntegrateDelphi4=Stöd Borland® Delphi4 Binära filer
 UpdatingCommonControls=Uppdatera Systemets Vanliga Kontroller
 

diff --git a/Installer/InnoSetup/Languages/Turkish.isl b/Installer/InnoSetup/Languages/Turkish.isl
index 79a84bd..7837b7b 100755 (executable)
--- a/Installer/InnoSetup/Languages/Turkish.isl
+++ b/Installer/InnoSetup/Languages/Turkish.isl
@@ -362,6 +362,7 @@ TurkishLanguage=Turkish menus and dialogs
 ExplorerContextMenu=&Enable Explorer context menu integration
 IntegrateTortoiseCVS=Integrate with &TortoiseCVS
 IntegrateTortoiseSVN=Integrate with T&ortoiseSVN
+IntegrateClearCase=Integrate with Rational &ClearCase
 IntegrateDelphi4=Borland® Delphi &4 Binary File Support
 UpdatingCommonControls=Updating the System's Common Controls
 

diff --git a/Installer/InnoSetup/WinMerge.iss b/Installer/InnoSetup/WinMerge.iss
index 0aa276a..94f0554 100755 (executable)
--- a/Installer/InnoSetup/WinMerge.iss
+++ b/Installer/InnoSetup/WinMerge.iss
@@ -233,6 +233,7 @@ Name: Languages\Turkish; Description: {cm:TurkishLanguage}; Flags: disablenounin
 Name: ShellExtension; Description: {cm:ExplorerContextMenu}; GroupDescription: {cm:OptionalFeatures}
 Name: TortoiseCVS; Description: {cm:IntegrateTortoiseCVS}; GroupDescription: {cm:OptionalFeatures}; Check: TortoiseCVSInstalled
 Name: TortoiseSVN; Description: {cm:IntegrateTortoiseSVN}; GroupDescription: {cm:OptionalFeatures}; Check: TortoiseSVNInstalled; MinVersion: 0,5.0.2195sp3
+Name: ClearCase; Description: {cm:IntegrateClearCase}; GroupDescription: {cm:OptionalFeatures}; Check: ClearCaseInstalled
 Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked
 Name: quicklaunchicon; Description: {cm:CreateQuickLaunchIcon}; GroupDescription: {cm:AdditionalIcons}
 
@@ -927,3 +928,61 @@ Begin
   Else
     result := False;
 End;
+
+{Returns ClearCase external tools configuration file name}
+Function ClearCaseMapFile(): string;
+Begin
+    if not RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\Rational Software\', 'RSINSTALLDIR', Result) then
+    begin
+        Result := 'C:\Program Files\Rational\';
+    end;
+    Result := Result + 'ClearCase\lib\mgrs\map';
+End;
+
+{Determines whether or not Rational ClearCase is installed}
+Function ClearCaseInstalled(): boolean;
+Begin
+    Result := FileExists(ClearCaseMapFile());
+End;
+
+{Intergrate WinMerge as ClearCase external diff tool}
+Procedure IntegrateClearCase();
+Var
+    MapFile: TStringList;
+    Unused: String;
+    I: Integer;
+
+Begin
+    MapFile := TStringList.Create();
+    {Read the entire map file to a string list}
+    MapFile.LoadFromFile(ClearCaseMapFile());
+    if MapFile.Count > 0 then
+    begin
+        for I := 0 to MapFile.Count do
+        begin
+            {Search for the 'text_file_delta xcompare ...' line}
+                       if (MapFile.Strings[I][1] <> ';') and (Pos('text_file_delta', MapFile.Strings[I]) > 0) and (Pos('xcompare', MapFile.Strings[I]) > 0) then
+                       begin
+                           {Comment-out the current line}
+                           MapFile.Strings[I] := ';' + MapFile.Strings[I];
+                           {Insert a line below with WinMerge as the diff tool}
+                           MapFile.Insert(I + 1, 'text_file_delta xcompare '+ ExpandConstant('{app}\') + ExeName(Unused));
+                           break;
+                       end;
+               end;
+               { Save the modified file. }
+               MapFile.SaveToFile('C:\Program Files\Rational\ClearCase\lib\mgrs\map');
+       end;
+End;
+
+procedure CurStepChanged(CurStep: TSetupStep);
+Begin
+    if CurStep = ssPostInstall then
+    begin
+        if IsTaskSelected('ClearCase') then
+        begin
+            IntegrateClearCase();
+        end;        
+    end;
+End;
+