jcl-checkins-diff Mailing List for JEDI Code Library (Page 21)

Brought to you by: mthoma, obones, outchy, rrossmair

jcl-checkins-diff — SVN file check-in notifications with file differences included

You can subscribe to this list here.

2006	Jan	Feb	Mar	Apr (20)	May (48)	Jun (8)	Jul (23)	Aug (41)	Sep (42)	Oct (22)	Nov (17)	Dec (36)
2007	Jan (43)	Feb (42)	Mar (17)	Apr (39)	May (16)	Jun (35)	Jul (37)	Aug (47)	Sep (49)	Oct (9)	Nov (52)	Dec (37)
2008	Jan (48)	Feb (21)	Mar (7)	Apr (2)	May (5)	Jun (17)	Jul (17)	Aug (40)	Sep (58)	Oct (38)	Nov (19)	Dec (32)
2009	Jan (67)	Feb (46)	Mar (54)	Apr (34)	May (37)	Jun (52)	Jul (67)	Aug (72)	Sep (48)	Oct (35)	Nov (27)	Dec (12)
2010	Jan (56)	Feb (46)	Mar (19)	Apr (14)	May (21)	Jun (3)	Jul (13)	Aug (48)	Sep (34)	Oct (51)	Nov (16)	Dec (32)
2011	Jan (36)	Feb (14)	Mar (12)	Apr (3)	May (5)	Jun (24)	Jul (15)	Aug (30)	Sep (21)	Oct (4)	Nov (25)	Dec (23)
2012	Jan (45)	Feb (42)	Mar (19)	Apr (14)	May (13)	Jun (7)	Jul (3)	Aug (46)	Sep (21)	Oct (10)	Nov (2)	Dec
2013	Jan (5)	Feb	Mar	Apr	May	Jun	Jul	Aug	Sep	Oct	Nov	Dec

Flat | Threaded

<< < 1 .. 19 20 21 22 23 .. 92 > >> (Page 21 of 92)

[Jcl-checkins-diff] SF.net SVN: jcl:[3392] trunk/jcl/examples/windows/debug/framestrack/ FramesTrackDemoMain.pas

From: <ou...@us...> - 2010-10-25 09:40:21

Revision: 3392
          http://jcl.svn.sourceforge.net/jcl/?rev=3392&view=rev
Author:   outchy
Date:     2010-10-25 09:40:15 +0000 (Mon, 25 Oct 2010)

Log Message:
-----------
more simple example results.

Modified Paths:
--------------
    trunk/jcl/examples/windows/debug/framestrack/FramesTrackDemoMain.pas

Modified: trunk/jcl/examples/windows/debug/framestrack/FramesTrackDemoMain.pas
===================================================================
--- trunk/jcl/examples/windows/debug/framestrack/FramesTrackDemoMain.pas	2010-10-25 09:37:19 UTC (rev 3391)
+++ trunk/jcl/examples/windows/debug/framestrack/FramesTrackDemoMain.pas	2010-10-25 09:40:15 UTC (rev 3392)
@@ -136,6 +136,8 @@
   try
     PChar(nil)^ := 'a';
   except
+    on E: Exception do
+      ShowMessage('Error = ' + E.Message);
   end;
 end;
 
@@ -145,12 +147,8 @@
   try
     ShowMessage(IntToStr(StrToInt('a')));
   except
-    on E: EConvertError do
-      ShowMessage('EConvertError or descendant');
-    on E: ERangeError do
-      ShowMessage('ERangeError or descendant');
-    else
-      ShowMessage('Not EConvertError and not ERangeError')
+    on E: Exception do
+      ShowMessage('Exception + ' + E.Message);
   end;
 end;
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Jcl-checkins-diff] SF.net SVN: jcl:[3391] trunk/jcl

From: <ou...@us...> - 2010-10-25 09:37:27

Revision: 3391
          http://jcl.svn.sourceforge.net/jcl/?rev=3391&view=rev
Author:   outchy
Date:     2010-10-25 09:37:19 +0000 (Mon, 25 Oct 2010)

Log Message:
-----------
Use {$I windowsonly.inc} or {$I crossplatform.inc} rather than {$WARN SYMBOL_PLATFORM OFF} or {$WARN UNIT_PLATFORM OFF}.
Add {$I windowsonly.inc} to all units in jcl/source/windows.

Modified Paths:
--------------
    trunk/jcl/examples/common/graphics/StretchGraphicDemoMain.pas
    trunk/jcl/examples/windows/console/ConsoleExamples.dpr
    trunk/jcl/examples/windows/delphitools/peviewer/PeSearch.pas
    trunk/jcl/examples/windows/delphitools/resfix/ResFixMain.pas
    trunk/jcl/examples/windows/delphitools/toolhelpview/Main.pas
    trunk/jcl/examples/windows/fileversion/VerInfoDemoMain.pas
    trunk/jcl/examples/windows/locales/LocalesDemoMain.pas
    trunk/jcl/source/common/JclCompression.pas
    trunk/jcl/source/prototypes/JclWin32.pas
    trunk/jcl/source/windows/Hardlinks.pas
    trunk/jcl/source/windows/JclAppInst.pas
    trunk/jcl/source/windows/JclCIL.pas
    trunk/jcl/source/windows/JclCLR.pas
    trunk/jcl/source/windows/JclCOM.pas
    trunk/jcl/source/windows/JclDebug.pas
    trunk/jcl/source/windows/JclDebugSerialization.pas
    trunk/jcl/source/windows/JclDebugXMLDeserializer.pas
    trunk/jcl/source/windows/JclDebugXMLSerializer.pas
    trunk/jcl/source/windows/JclDotNet.pas
    trunk/jcl/source/windows/JclHookExcept.pas
    trunk/jcl/source/windows/JclLANMan.pas
    trunk/jcl/source/windows/JclMapi.pas
    trunk/jcl/source/windows/JclMetadata.pas
    trunk/jcl/source/windows/JclMiscel.pas
    trunk/jcl/source/windows/JclMultimedia.pas
    trunk/jcl/source/windows/JclRegistry.pas
    trunk/jcl/source/windows/JclShell.pas
    trunk/jcl/source/windows/JclStructStorage.pas
    trunk/jcl/source/windows/JclTD32.pas
    trunk/jcl/source/windows/JclWin32.pas
    trunk/jcl/source/windows/JclWin32Ex.pas
    trunk/jcl/source/windows/MSHelpServices_TLB.pas
    trunk/jcl/source/windows/MSTask.pas
    trunk/jcl/source/windows/Snmp.pas
    trunk/jcl/source/windows/mscoree_TLB.pas
    trunk/jcl/source/windows/mscorlib_TLB.pas
    trunk/jcl/source/windows/sevenzip.pas

Modified: trunk/jcl/examples/common/graphics/StretchGraphicDemoMain.pas
===================================================================
--- trunk/jcl/examples/common/graphics/StretchGraphicDemoMain.pas	2010-10-25 09:08:45 UTC (rev 3390)
+++ trunk/jcl/examples/common/graphics/StretchGraphicDemoMain.pas	2010-10-25 09:37:19 UTC (rev 3391)
@@ -3,14 +3,15 @@
 //          revised 2005-06-26
 //
 
+unit StretchGraphicDemoMain;
+
 {$I jcl.inc}
+{$I crossplatform.inc}
 
 {$IFDEF VCL}
   {$DEFINE HasShellCtrls} // $(Delphi)\Demos\ShellControls\ShellCtrls.pas
 {$ENDIF VCL}
 
-unit StretchGraphicDemoMain;
-
 interface
 
 uses
@@ -22,7 +23,6 @@
   Dialogs, ComCtrls, StdCtrls, Menus, ExtCtrls, ExtDlgs,
   JclGraphics,
   {$IFDEF HasShellCtrls}
-    {$WARN UNIT_PLATFORM OFF} 
   ShellCtrls,
   {$ENDIF HasShellCtrls}
   JclFileUtils;

Modified: trunk/jcl/examples/windows/console/ConsoleExamples.dpr
===================================================================
--- trunk/jcl/examples/windows/console/ConsoleExamples.dpr	2010-10-25 09:08:45 UTC (rev 3390)
+++ trunk/jcl/examples/windows/console/ConsoleExamples.dpr	2010-10-25 09:37:19 UTC (rev 3391)
@@ -3,9 +3,7 @@
 {$APPTYPE CONSOLE}
 
 {$I jcl.inc}
-{$IFDEF SUPPORTS_PLATFORM_WARNINGS}
-  {$WARN SYMBOL_PLATFORM OFF}
-{$ENDIF SUPPORTS_PLATFORM_WARNINGS}
+{$I windowsonly.inc}
 
 uses
   SysUtils,

Modified: trunk/jcl/examples/windows/delphitools/peviewer/PeSearch.pas
===================================================================
--- trunk/jcl/examples/windows/delphitools/peviewer/PeSearch.pas	2010-10-25 09:08:45 UTC (rev 3390)
+++ trunk/jcl/examples/windows/delphitools/peviewer/PeSearch.pas	2010-10-25 09:37:19 UTC (rev 3391)
@@ -25,12 +25,9 @@
 
 unit PeSearch;
 
-{$I JCL.INC}
+{$I jcl.inc}
+{$I windowsonly.inc}
 
-{$IFDEF COMPILER6_UP}
-  {$WARN UNIT_PLATFORM OFF}
-{$ENDIF COMPILER6_UP}
-
 interface
 
 uses

Modified: trunk/jcl/examples/windows/delphitools/resfix/ResFixMain.pas
===================================================================
--- trunk/jcl/examples/windows/delphitools/resfix/ResFixMain.pas	2010-10-25 09:08:45 UTC (rev 3390)
+++ trunk/jcl/examples/windows/delphitools/resfix/ResFixMain.pas	2010-10-25 09:37:19 UTC (rev 3391)
@@ -26,9 +26,7 @@
 unit ResFixMain;
 
 {$I jcl.inc}
-{$IFDEF SUPPORTS_PLATFORM_WARNINGS}
-  {$WARN SYMBOL_PLATFORM OFF}
-{$ENDIF SUPPORTS_PLATFORM_WARNINGS}
+{$I windowsonly.inc}
 
 interface
 

Modified: trunk/jcl/examples/windows/delphitools/toolhelpview/Main.pas
===================================================================
--- trunk/jcl/examples/windows/delphitools/toolhelpview/Main.pas	2010-10-25 09:08:45 UTC (rev 3390)
+++ trunk/jcl/examples/windows/delphitools/toolhelpview/Main.pas	2010-10-25 09:37:19 UTC (rev 3391)
@@ -26,9 +26,7 @@
 unit Main;
 
 {$I jcl.inc}
-{$IFDEF SUPPORTS_PLATFORM_WARNINGS}
-  {$WARN SYMBOL_PLATFORM OFF}
-{$ENDIF SUPPORTS_PLATFORM_WARNINGS}
+{$I windowsonly.inc}
 
 interface
 

Modified: trunk/jcl/examples/windows/fileversion/VerInfoDemoMain.pas
===================================================================
--- trunk/jcl/examples/windows/fileversion/VerInfoDemoMain.pas	2010-10-25 09:08:45 UTC (rev 3390)
+++ trunk/jcl/examples/windows/fileversion/VerInfoDemoMain.pas	2010-10-25 09:37:19 UTC (rev 3391)
@@ -3,11 +3,8 @@
 interface
 
 {$I jcl.inc}
+{$I windowsonly.inc}
 
-{$IFDEF COMPILER6_UP}
-  {$WARN UNIT_PLATFORM OFF}
-{$ENDIF COMPILER6_UP}
-
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
   StdCtrls, FileCtrl;

Modified: trunk/jcl/examples/windows/locales/LocalesDemoMain.pas
===================================================================
--- trunk/jcl/examples/windows/locales/LocalesDemoMain.pas	2010-10-25 09:08:45 UTC (rev 3390)
+++ trunk/jcl/examples/windows/locales/LocalesDemoMain.pas	2010-10-25 09:37:19 UTC (rev 3391)
@@ -3,9 +3,7 @@
 interface
 
 {$I jcl.inc}
-{$IFDEF SUPPORTS_PLATFORM_WARNINGS}
-  {$WARN SYMBOL_PLATFORM OFF}
-{$ENDIF SUPPORTS_PLATFORM_WARNINGS}
+{$I windowsonly.inc}
 
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

Modified: trunk/jcl/source/common/JclCompression.pas
===================================================================
--- trunk/jcl/source/common/JclCompression.pas	2010-10-25 09:08:45 UTC (rev 3390)
+++ trunk/jcl/source/common/JclCompression.pas	2010-10-25 09:37:19 UTC (rev 3391)
@@ -45,11 +45,8 @@
 unit JclCompression;
 
 {$I jcl.inc}
+{$I crossplatform.inc}
 
-{$IFDEF SUPPORTS_PLATFORM_WARNINGS}
-  {$WARN SYMBOL_PLATFORM OFF}
-{$ENDIF SUPPORTS_PLATFORM_WARNINGS}
-
 interface
 
 uses

Modified: trunk/jcl/source/prototypes/JclWin32.pas
===================================================================
--- trunk/jcl/source/prototypes/JclWin32.pas	2010-10-25 09:08:45 UTC (rev 3390)
+++ trunk/jcl/source/prototypes/JclWin32.pas	2010-10-25 09:37:19 UTC (rev 3391)
@@ -48,10 +48,10 @@
 unit JclWin32;
 
 {$I jcl.inc}
+{$I windowsonly.inc}
 
 {$MINENUMSIZE 4}
 {$ALIGN ON}
-{$WARNINGS OFF}
 
 interface
 
@@ -299,8 +299,6 @@
   UnregisterUnitVersion(HInstance);
 {$ENDIF UNITVERSIONING}
 
-{$WARNINGS ON}
-
 end.
 
 

Modified: trunk/jcl/source/windows/Hardlinks.pas
===================================================================
--- trunk/jcl/source/windows/Hardlinks.pas	2010-10-25 09:08:45 UTC (rev 3390)
+++ trunk/jcl/source/windows/Hardlinks.pas	2010-10-25 09:37:19 UTC (rev 3391)
@@ -47,14 +47,14 @@
 
 unit Hardlinks;
 
+{$I jcl.inc}
+{$I windowsonly.inc}
+
 {$ALIGN ON}
 {$MINENUMSIZE 4}
 
 interface
 
-{$I jcl.inc}
-
-
 //DOM-IGNORE-BEGIN
 
 

Modified: trunk/jcl/source/windows/JclAppInst.pas
===================================================================
--- trunk/jcl/source/windows/JclAppInst.pas	2010-10-25 09:08:45 UTC (rev 3390)
+++ trunk/jcl/source/windows/JclAppInst.pas	2010-10-25 09:37:19 UTC (rev 3391)
@@ -39,6 +39,7 @@
 unit JclAppInst;
 
 {$I jcl.inc}
+{$I windowsonly.inc}
 
 interface
 

Modified: trunk/jcl/source/windows/JclCIL.pas
===================================================================
--- trunk/jcl/source/windows/JclCIL.pas	2010-10-25 09:08:45 UTC (rev 3390)
+++ trunk/jcl/source/windows/JclCIL.pas	2010-10-25 09:37:19 UTC (rev 3391)
@@ -39,6 +39,7 @@
 interface
 
 {$I jcl.inc}
+{$I windowsonly.inc}
 
 uses
   {$IFDEF UNITVERSIONING}

Modified: trunk/jcl/source/windows/JclCLR.pas
===================================================================
--- trunk/jcl/source/windows/JclCLR.pas	2010-10-25 09:08:45 UTC (rev 3390)
+++ trunk/jcl/source/windows/JclCLR.pas	2010-10-25 09:37:19 UTC (rev 3391)
@@ -38,6 +38,7 @@
 interface
 
 {$I jcl.inc}
+{$I windowsonly.inc}
 
 uses
   {$IFDEF UNITVERSIONING}

Modified: trunk/jcl/source/windows/JclCOM.pas
===================================================================
--- trunk/jcl/source/windows/JclCOM.pas	2010-10-25 09:08:45 UTC (rev 3390)
+++ trunk/jcl/source/windows/JclCOM.pas	2010-10-25 09:37:19 UTC (rev 3391)
@@ -38,6 +38,7 @@
 unit JclCOM;
 
 {$I jcl.inc}
+{$I windowsonly.inc}
 
 interface
 

Modified: trunk/jcl/source/windows/JclDebug.pas
===================================================================
--- trunk/jcl/source/windows/JclDebug.pas	2010-10-25 09:08:45 UTC (rev 3390)
+++ trunk/jcl/source/windows/JclDebug.pas	2010-10-25 09:37:19 UTC (rev 3391)
@@ -45,6 +45,7 @@
 interface
 
 {$I jcl.inc}
+{$I windowsonly.inc}
 
 uses
   {$IFDEF UNITVERSIONING}

Modified: trunk/jcl/source/windows/JclDebugSerialization.pas
===================================================================
--- trunk/jcl/source/windows/JclDebugSerialization.pas	2010-10-25 09:08:45 UTC (rev 3390)
+++ trunk/jcl/source/windows/JclDebugSerialization.pas	2010-10-25 09:37:19 UTC (rev 3391)
@@ -29,6 +29,7 @@
 unit JclDebugSerialization;
 
 {$I jcl.inc}
+{$I windowsonly.inc}
 
 interface
 

Modified: trunk/jcl/source/windows/JclDebugXMLDeserializer.pas
===================================================================
--- trunk/jcl/source/windows/JclDebugXMLDeserializer.pas	2010-10-25 09:08:45 UTC (rev 3390)
+++ trunk/jcl/source/windows/JclDebugXMLDeserializer.pas	2010-10-25 09:37:19 UTC (rev 3391)
@@ -29,6 +29,7 @@
 unit JclDebugXMLDeserializer;
 
 {$I jcl.inc}
+{$I windowsonly.inc}
 
 interface
 

Modified: trunk/jcl/source/windows/JclDebugXMLSerializer.pas
===================================================================
--- trunk/jcl/source/windows/JclDebugXMLSerializer.pas	2010-10-25 09:08:45 UTC (rev 3390)
+++ trunk/jcl/source/windows/JclDebugXMLSerializer.pas	2010-10-25 09:37:19 UTC (rev 3391)
@@ -29,6 +29,7 @@
 unit JclDebugXMLSerializer;
 
 {$I jcl.inc}
+{$I windowsonly.inc}
 
 interface
 

Modified: trunk/jcl/source/windows/JclDotNet.pas
===================================================================
--- trunk/jcl/source/windows/JclDotNet.pas	2010-10-25 09:08:45 UTC (rev 3390)
+++ trunk/jcl/source/windows/JclDotNet.pas	2010-10-25 09:37:19 UTC (rev 3391)
@@ -49,6 +49,7 @@
 interface
 
 {$I jcl.inc}
+{$I windowsonly.inc}
 
 uses
   {$IFDEF UNITVERSIONING}
@@ -448,8 +449,6 @@
   end;
 end;
 
-{$WARNINGS OFF}
-
 type
   TGetCORSystemDirectory = function (pbuffer: PWideChar; const cchBuffer: DWORD;
     var dwLength: DWORD): HRESULT; stdcall;
@@ -729,8 +728,6 @@
   Result := _GetRequestedRuntimeVersionForCLSID(rclsid, pVersion, cchBuffer, dwLength, dwResolutionFlags);
 end;
 
-{$WARNINGS ON}
-
 //=== { TJclClrHost } ========================================================
 
 constructor TJclClrHost.Create(const ClrVer: WideString; const Flavor: TJclClrHostFlavor;

Modified: trunk/jcl/source/windows/JclHookExcept.pas
===================================================================
--- trunk/jcl/source/windows/JclHookExcept.pas	2010-10-25 09:08:45 UTC (rev 3390)
+++ trunk/jcl/source/windows/JclHookExcept.pas	2010-10-25 09:37:19 UTC (rev 3391)
@@ -26,7 +26,7 @@
 {                                                                                                  }
 {**************************************************************************************************}
 {                                                                                                  }
-{ Last modified: $Date::                                                                          $ }
+{ Last modified: $Date::                                                                         $ }
 { Revision:      $Rev::                                                                          $ }
 { Author:        $Author::                                                                       $ }
 {                                                                                                  }
@@ -37,6 +37,7 @@
 interface
 
 {$I jcl.inc}
+{$I windowsonly.inc}
 
 uses
   {$IFDEF UNITVERSIONING}

Modified: trunk/jcl/source/windows/JclLANMan.pas
===================================================================
--- trunk/jcl/source/windows/JclLANMan.pas	2010-10-25 09:08:45 UTC (rev 3390)
+++ trunk/jcl/source/windows/JclLANMan.pas	2010-10-25 09:37:19 UTC (rev 3391)
@@ -44,6 +44,7 @@
 unit JclLANMan;
 
 {$I jcl.inc}
+{$I windowsonly.inc}
 
 interface
 

Modified: trunk/jcl/source/windows/JclMapi.pas
===================================================================
--- trunk/jcl/source/windows/JclMapi.pas	2010-10-25 09:08:45 UTC (rev 3390)
+++ trunk/jcl/source/windows/JclMapi.pas	2010-10-25 09:37:19 UTC (rev 3391)
@@ -37,6 +37,7 @@
 unit JclMapi;
 
 {$I jcl.inc}
+{$I windowsonly.inc}
 
 interface
 

Modified: trunk/jcl/source/windows/JclMetadata.pas
===================================================================
--- trunk/jcl/source/windows/JclMetadata.pas	2010-10-25 09:08:45 UTC (rev 3390)
+++ trunk/jcl/source/windows/JclMetadata.pas	2010-10-25 09:37:19 UTC (rev 3391)
@@ -35,6 +35,7 @@
 unit JclMetadata;
 
 {$I jcl.inc}
+{$I windowsonly.inc}
 
 interface
 

Modified: trunk/jcl/source/windows/JclMiscel.pas
===================================================================
--- trunk/jcl/source/windows/JclMiscel.pas	2010-10-25 09:08:45 UTC (rev 3390)
+++ trunk/jcl/source/windows/JclMiscel.pas	2010-10-25 09:37:19 UTC (rev 3391)
@@ -39,6 +39,7 @@
 unit JclMiscel;
 
 {$I jcl.inc}
+{$I windowsonly.inc}
 
 interface
 

Modified: trunk/jcl/source/windows/JclMultimedia.pas
===================================================================
--- trunk/jcl/source/windows/JclMultimedia.pas	2010-10-25 09:08:45 UTC (rev 3390)
+++ trunk/jcl/source/windows/JclMultimedia.pas	2010-10-25 09:37:19 UTC (rev 3391)
@@ -39,6 +39,7 @@
 unit JclMultimedia;
 
 {$I jcl.inc}
+{$I windowsonly.inc}
 
 interface
 

Modified: trunk/jcl/source/windows/JclRegistry.pas
===================================================================
--- trunk/jcl/source/windows/JclRegistry.pas	2010-10-25 09:08:45 UTC (rev 3390)
+++ trunk/jcl/source/windows/JclRegistry.pas	2010-10-25 09:37:19 UTC (rev 3391)
@@ -46,6 +46,7 @@
 unit JclRegistry;
 
 {$I jcl.inc}
+{$I windowsonly.inc}
 
 interface
 

Modified: trunk/jcl/source/windows/JclShell.pas
===================================================================
--- trunk/jcl/source/windows/JclShell.pas	2010-10-25 09:08:45 UTC (rev 3390)
+++ trunk/jcl/source/windows/JclShell.pas	2010-10-25 09:37:19 UTC (rev 3391)
@@ -46,6 +46,7 @@
 unit JclShell;
 
 {$I jcl.inc}
+{$I windowsonly.inc}
 
 interface
 

Modified: trunk/jcl/source/windows/JclStructStorage.pas
===================================================================
--- trunk/jcl/source/windows/JclStructStorage.pas	2010-10-25 09:08:45 UTC (rev 3390)
+++ trunk/jcl/source/windows/JclStructStorage.pas	2010-10-25 09:37:19 UTC (rev 3391)
@@ -63,6 +63,7 @@
 unit JclStructStorage;
 
 {$I jcl.inc}
+{$I windowsonly.inc}
 
 interface
 

Modified: trunk/jcl/source/windows/JclTD32.pas
===================================================================
--- trunk/jcl/source/windows/JclTD32.pas	2010-10-25 09:08:45 UTC (rev 3390)
+++ trunk/jcl/source/windows/JclTD32.pas	2010-10-25 09:37:19 UTC (rev 3391)
@@ -39,6 +39,7 @@
 interface
 
 {$I jcl.inc}
+{$I windowsonly.inc}
 
 uses
   {$IFDEF UNITVERSIONING}

Modified: trunk/jcl/source/windows/JclWin32.pas
===================================================================
--- trunk/jcl/source/windows/JclWin32.pas	2010-10-25 09:08:45 UTC (rev 3390)
+++ trunk/jcl/source/windows/JclWin32.pas	2010-10-25 09:37:19 UTC (rev 3391)
@@ -52,10 +52,10 @@
 unit JclWin32;
 
 {$I jcl.inc}
+{$I windowsonly.inc}
 
 {$MINENUMSIZE 4}
 {$ALIGN ON}
-{$WARNINGS OFF}
 
 interface
 
@@ -8940,8 +8940,6 @@
   UnregisterUnitVersion(HInstance);
 {$ENDIF UNITVERSIONING}
 
-{$WARNINGS ON}
-
 end.
 
 

Modified: trunk/jcl/source/windows/JclWin32Ex.pas
===================================================================
--- trunk/jcl/source/windows/JclWin32Ex.pas	2010-10-25 09:08:45 UTC (rev 3390)
+++ trunk/jcl/source/windows/JclWin32Ex.pas	2010-10-25 09:37:19 UTC (rev 3391)
@@ -28,6 +28,7 @@
 unit JclWin32Ex;
 
 {$I jcl.inc}
+{$I windowsonly.inc}
 
 interface
 

Modified: trunk/jcl/source/windows/MSHelpServices_TLB.pas
===================================================================
--- trunk/jcl/source/windows/MSHelpServices_TLB.pas	2010-10-25 09:08:45 UTC (rev 3390)
+++ trunk/jcl/source/windows/MSHelpServices_TLB.pas	2010-10-25 09:37:19 UTC (rev 3391)
@@ -50,12 +50,10 @@
 // removing them from the $IFDEF blocks. However, such items must still be    
 // programmatically created via a method of the appropriate CoClass before    
 // they can be used.                                                          
-{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. 
-{ $WARN SYMBOL_PLATFORM OFF}
-{ $WRITEABLECONST ON}
-{ $VARPROPSETTER ON}
+{ $TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. 
 
 {$I jcl.inc}
+{$I windowsonly.inc}
 
 {$IFDEF SUPPORTS_WEAKPACKAGEUNIT}
   {$IFDEF UNITVERSIONING}

Modified: trunk/jcl/source/windows/MSTask.pas
===================================================================
--- trunk/jcl/source/windows/MSTask.pas	2010-10-25 09:08:45 UTC (rev 3390)
+++ trunk/jcl/source/windows/MSTask.pas	2010-10-25 09:37:19 UTC (rev 3391)
@@ -33,12 +33,8 @@
 
 unit MSTask;
 
-{$ALIGN ON}
-{$MINENUMSIZE 4}
-
-interface
-
 {$I jcl.inc}
+{$I windowsonly.inc}
 
 {$IFDEF SUPPORTS_WEAKPACKAGEUNIT}
   {$IFDEF UNITVERSIONING}
@@ -48,6 +44,11 @@
   {$ENDIF ~UNITVERSIONING}
 {$ENDIF SUPPORTS_WEAKPACKAGEUNIT}
 
+{$ALIGN ON}
+{$MINENUMSIZE 4}
+
+interface
+
 uses
   {$IFDEF UNITVERSIONING}
   JclUnitVersioning,

Modified: trunk/jcl/source/windows/Snmp.pas
===================================================================
--- trunk/jcl/source/windows/Snmp.pas	2010-10-25 09:08:45 UTC (rev 3390)
+++ trunk/jcl/source/windows/Snmp.pas	2010-10-25 09:37:19 UTC (rev 3391)
@@ -41,6 +41,7 @@
 interface
 
 {$I jcl.inc}
+{$I windowsonly.inc}
 
 {$DEFINE SNMP_DYNAMIC_LINK}
 {$DEFINE SNMP_DYNAMIC_LINK_EXPLICIT}
@@ -48,6 +49,7 @@
 
 {$ALIGN ON}
 {$MINENUMSIZE 4}
+
 {$IFNDEF SNMP_DYNAMIC_LINK}
 {$IFDEF SUPPORTS_WEAKPACKAGEUNIT}
   {$WEAKPACKAGEUNIT ON}

Modified: trunk/jcl/source/windows/mscoree_TLB.pas
===================================================================
--- trunk/jcl/source/windows/mscoree_TLB.pas	2010-10-25 09:08:45 UTC (rev 3390)
+++ trunk/jcl/source/windows/mscoree_TLB.pas	2010-10-25 09:37:19 UTC (rev 3391)
@@ -34,11 +34,9 @@
 //   Hint: Member 'type' of 'tagSTATSTG' changed to 'type_'
 // ************************************************************************ //
 {$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. 
-{ $WARN SYMBOL_PLATFORM OFF}
-{ $WRITEABLECONST ON}
-{ $VARPROPSETTER ON}
 
 {$I jcl.inc}
+{$I windowsonly.inc}
 
 {$IFDEF SUPPORTS_WEAKPACKAGEUNIT}
   {$IFDEF UNITVERSIONING}

Modified: trunk/jcl/source/windows/mscorlib_TLB.pas
===================================================================
--- trunk/jcl/source/windows/mscorlib_TLB.pas	2010-10-25 09:08:45 UTC (rev 3390)
+++ trunk/jcl/source/windows/mscorlib_TLB.pas	2010-10-25 09:37:19 UTC (rev 3391)
@@ -52,11 +52,9 @@
 //   Hint: Parameter 'Type' of _Assembly.GetManifestResourceStream changed to 'Type_'
 // ************************************************************************ //
 {$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. 
-{ $WARN SYMBOL_PLATFORM OFF}
-{ $WRITEABLECONST ON}
-{ $VARPROPSETTER ON}
 
 {$I jcl.inc}
+{$I windowsonly.inc}
 
 {$IFDEF SUPPORTS_WEAKPACKAGEUNIT}
   {$IFDEF UNITVERSIONING}

Modified: trunk/jcl/source/windows/sevenzip.pas
===================================================================
--- trunk/jcl/source/windows/sevenzip.pas	2010-10-25 09:08:45 UTC (rev 3390)
+++ trunk/jcl/source/windows/sevenzip.pas	2010-10-25 09:37:19 UTC (rev 3391)
@@ -56,6 +56,7 @@
 interface
 
 {$I jcl.inc}
+{$I windowsonly.inc}
 
 uses
   Windows,


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Jcl-checkins-diff] SF.net SVN: jcl:[3390] trunk/jcl/source/windows/JclStructStorage.pas

From: <ou...@us...> - 2010-10-25 09:08:52

Revision: 3390
          http://jcl.svn.sourceforge.net/jcl/?rev=3390&view=rev
Author:   outchy
Date:     2010-10-25 09:08:45 +0000 (Mon, 25 Oct 2010)

Log Message:
-----------
Mantis 5373: TJclStructStorageFolder.IsStructured leads to invalid pointer operation in FreeWChar().

Modified Paths:
--------------
    trunk/jcl/source/windows/JclStructStorage.pas

Modified: trunk/jcl/source/windows/JclStructStorage.pas
===================================================================
--- trunk/jcl/source/windows/JclStructStorage.pas	2010-10-25 08:28:53 UTC (rev 3389)
+++ trunk/jcl/source/windows/JclStructStorage.pas	2010-10-25 09:08:45 UTC (rev 3390)
@@ -345,7 +345,7 @@
   else
   begin
     {$IFDEF SUPPORTS_UNICODE}
-    Result := PChar(S);
+    Result := PWideChar(S);
     {$ELSE ~SUPPORTS_UNICODE}
     Result := AllocMem((Length(S)+1) * SizeOf(WideChar));
     MultiByteToWideChar(CP_ACP, 0, PChar(S), Length(S), Result, Length(S));
@@ -358,8 +358,10 @@
 
 procedure FreeWChar(W: PWideChar);
 begin
+  {$IFNDEF SUPPORTS_UNICODE}
   if Assigned(W) then
     FreeMem(W);
+  {$ENDIF ~SUPPORTS_UNICODE}
 end;
 
 //=== { TJclStructStorageFolder } ============================================


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Jcl-checkins-diff] SF.net SVN: jcl:[3389] trunk/jcl/experts/repository/ExceptionDialog

From: <ou...@us...> - 2010-10-25 08:29:00

Revision: 3389
          http://jcl.svn.sourceforge.net/jcl/?rev=3389&view=rev
Author:   outchy
Date:     2010-10-25 08:28:53 +0000 (Mon, 25 Oct 2010)

Log Message:
-----------
make the standard exception dialog happy with JCL rev 3385.

Revision Links:
--------------
    http://jcl.svn.sourceforge.net/jcl/?rev=3385&view=rev

Modified Paths:
--------------
    trunk/jcl/experts/repository/ExceptionDialog/StandardDialogs/ExceptDlg.pas
    trunk/jcl/experts/repository/ExceptionDialog/StandardDialogs/ExceptDlgMail.dfm
    trunk/jcl/experts/repository/ExceptionDialog/StandardDialogs/ExceptDlgMail.pas
    trunk/jcl/experts/repository/ExceptionDialog/Templates/ExceptDlg.Delphi32.pas

Modified: trunk/jcl/experts/repository/ExceptionDialog/StandardDialogs/ExceptDlg.pas
===================================================================
--- trunk/jcl/experts/repository/ExceptionDialog/StandardDialogs/ExceptDlg.pas	2010-10-25 07:39:47 UTC (rev 3388)
+++ trunk/jcl/experts/repository/ExceptionDialog/StandardDialogs/ExceptDlg.pas	2010-10-25 08:28:53 UTC (rev 3389)
@@ -384,12 +384,14 @@
       ProcessorDetails := ProcessorDetails + ' SSE3';
     if ssse3 in CpuInfo.SSE then
       ProcessorDetails := ProcessorDetails + ' SSSE3';
+    if sse41 in CpuInfo.SSE then
+      ProcessorDetails := ProcessorDetails + ' SSE41';
+    if sse42 in CpuInfo.SSE then
+      ProcessorDetails := ProcessorDetails + ' SSE42';
     if sse4A in CpuInfo.SSE then
       ProcessorDetails := ProcessorDetails + ' SSE4A';
-    if sse4B in CpuInfo.SSE then
-      ProcessorDetails := ProcessorDetails + ' SSE4B';
     if sse5 in CpuInfo.SSE then
-      ProcessorDetails := ProcessorDetails + ' SSE';
+      ProcessorDetails := ProcessorDetails + ' SSE5';
     if CpuInfo.Ex3DNow then
       ProcessorDetails := ProcessorDetails + ' 3DNow!ex';
     if CpuInfo._3DNow then

Modified: trunk/jcl/experts/repository/ExceptionDialog/StandardDialogs/ExceptDlgMail.dfm
===================================================================
--- trunk/jcl/experts/repository/ExceptionDialog/StandardDialogs/ExceptDlgMail.dfm	2010-10-25 07:39:47 UTC (rev 3388)
+++ trunk/jcl/experts/repository/ExceptionDialog/StandardDialogs/ExceptDlgMail.dfm	2010-10-25 08:28:53 UTC (rev 3389)
@@ -3,6 +3,7 @@
   Top = 255
   AutoScroll = False
   BorderIcons = [biSystemMenu]
+
   Caption = 'ExceptionDialogMail'
   ClientHeight = 283
   ClientWidth = 483
@@ -33,6 +34,7 @@
     Anchors = [akLeft, akTop, akRight]
     Shape = bsTopLine
   end
+
   object SendBtn: TButton
     Left = 403
     Top = 32
@@ -44,6 +46,7 @@
     TabOrder = 0
     OnClick = SendBtnClick
   end
+
   object SaveBtn: TButton
     Left = 403
     Top = 60

Modified: trunk/jcl/experts/repository/ExceptionDialog/StandardDialogs/ExceptDlgMail.pas
===================================================================
--- trunk/jcl/experts/repository/ExceptionDialog/StandardDialogs/ExceptDlgMail.pas	2010-10-25 07:39:47 UTC (rev 3388)
+++ trunk/jcl/experts/repository/ExceptionDialog/StandardDialogs/ExceptDlgMail.pas	2010-10-25 08:28:53 UTC (rev 3389)
@@ -408,12 +408,14 @@
       ProcessorDetails := ProcessorDetails + ' SSE3';
     if ssse3 in CpuInfo.SSE then
       ProcessorDetails := ProcessorDetails + ' SSSE3';
+    if sse41 in CpuInfo.SSE then
+      ProcessorDetails := ProcessorDetails + ' SSE41';
+    if sse42 in CpuInfo.SSE then
+      ProcessorDetails := ProcessorDetails + ' SSE42';
     if sse4A in CpuInfo.SSE then
       ProcessorDetails := ProcessorDetails + ' SSE4A';
-    if sse4B in CpuInfo.SSE then
-      ProcessorDetails := ProcessorDetails + ' SSE4B';
     if sse5 in CpuInfo.SSE then
-      ProcessorDetails := ProcessorDetails + ' SSE';
+      ProcessorDetails := ProcessorDetails + ' SSE5';
     if CpuInfo.Ex3DNow then
       ProcessorDetails := ProcessorDetails + ' 3DNow!ex';
     if CpuInfo._3DNow then

Modified: trunk/jcl/experts/repository/ExceptionDialog/Templates/ExceptDlg.Delphi32.pas
===================================================================
--- trunk/jcl/experts/repository/ExceptionDialog/Templates/ExceptDlg.Delphi32.pas	2010-10-25 07:39:47 UTC (rev 3388)
+++ trunk/jcl/experts/repository/ExceptionDialog/Templates/ExceptDlg.Delphi32.pas	2010-10-25 08:28:53 UTC (rev 3389)
@@ -429,12 +429,14 @@
       ProcessorDetails := ProcessorDetails + ' SSE3';
     if ssse3 in CpuInfo.SSE then
       ProcessorDetails := ProcessorDetails + ' SSSE3';
+    if sse41 in CpuInfo.SSE then
+      ProcessorDetails := ProcessorDetails + ' SSE41';
+    if sse42 in CpuInfo.SSE then
+      ProcessorDetails := ProcessorDetails + ' SSE42';
     if sse4A in CpuInfo.SSE then
       ProcessorDetails := ProcessorDetails + ' SSE4A';
-    if sse4B in CpuInfo.SSE then
-      ProcessorDetails := ProcessorDetails + ' SSE4B';
     if sse5 in CpuInfo.SSE then
-      ProcessorDetails := ProcessorDetails + ' SSE';
+      ProcessorDetails := ProcessorDetails + ' SSE5';
     if CpuInfo.Ex3DNow then
       ProcessorDetails := ProcessorDetails + ' 3DNow!ex';
     if CpuInfo._3DNow then


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Jcl-checkins-diff] SF.net SVN: jcl:[3388] trunk/jcl/install

From: <ou...@us...> - 2010-10-25 07:39:54

Revision: 3388
          http://jcl.svn.sourceforge.net/jcl/?rev=3388&view=rev
Author:   outchy
Date:     2010-10-25 07:39:47 +0000 (Mon, 25 Oct 2010)

Log Message:
-----------
Force the HPP directory to exist before installing on C++Builder.

Modified Paths:
--------------
    trunk/jcl/install/JclInstall.pas
    trunk/jcl/install/JclInstallResources.pas

Modified: trunk/jcl/install/JclInstall.pas
===================================================================
--- trunk/jcl/install/JclInstall.pas	2010-10-24 12:21:45 UTC (rev 3387)
+++ trunk/jcl/install/JclInstall.pas	2010-10-25 07:39:47 UTC (rev 3388)
@@ -1120,6 +1120,22 @@
   end;
 
   function CheckDirectories: Boolean;
+    function CheckDirectory(const Directory: string; ErrorMessage: PResStringRec): Boolean;
+    begin
+      Result := DirectoryExists(Directory);
+      if not Result then
+      begin
+        if not Assigned(GUI) then
+          WriteLog(Format(LoadResString(ErrorMessage), [Directory]))
+        else
+        if GUI.Dialog(Format(LoadResString(@RsWarningCreatePath), ['BPL']), dtWarning, [drYes, drNo]) = drYes then
+        begin
+          Result := ForceDirectories(Directory);
+          if not Result then
+            GUI.Dialog(Format(LoadResString(@RsErrorCantCreatePath), [Directory]), dtError, [drCancel]);
+        end;
+      end;
+    end;
   begin
     Result := True;
 
@@ -1130,31 +1146,10 @@
 
     if Result and OptionChecked[joJCLPackages] then
     begin
-      Result := True;
-      if not DirectoryExists(GetBplPath) then
-      begin
-        Result := False;
-        if not Assigned(GUI) then
-          WriteLog(Format(LoadResString(@RsLogInvalidBplPath), [GetBplPath]))
-        else if GUI.Dialog(Format(LoadResString(@RsWarningCreatePath), ['BPL']), dtWarning, [drYes, drNo]) = drYes then
-        begin
-          Result := ForceDirectories(GetBplPath);
-          if not Result then
-            GUI.Dialog(Format(LoadResString(@RsErrorCantCreatePath), [GetBplPath]), dtError, [drCancel]);
-        end;
-      end;
-      if not DirectoryExists(GetDcpPath) then
-      begin
-        Result := False;
-        if not Assigned(GUI) then
-          WriteLog(Format(LoadResString(@RsLogInvalidDcpPath), [GetDcpPath]))
-        else if GUI.Dialog(Format(LoadResString(@RsWarningCreatePath), ['DCP']), dtWarning, [drYes, drNo]) = drYes then
-        begin
-          Result := ForceDirectories(GetDcpPath);
-          if not Result then
-            GUI.Dialog(Format(LoadResString(@RsErrorCantCreatePath), [GetDcpPath]), dtError, [drCancel]);
-        end;
-      end;
+      Result := CheckDirectory(GetBplPath, @RsLogInvalidBplPath)
+        and CheckDirectory(GetDcpPath, @RsLogInvalidDcpPath);
+      if OptionChecked[joJCLCopyHppFiles] or OptionChecked[joJCLCopyPackagesHppFiles] then
+        Result := Result and CheckDirectory(Target.VclIncludeDir, @RsLogInvalidHppPath);
     end;
   end;
 

Modified: trunk/jcl/install/JclInstallResources.pas
===================================================================
--- trunk/jcl/install/JclInstallResources.pas	2010-10-24 12:21:45 UTC (rev 3387)
+++ trunk/jcl/install/JclInstallResources.pas	2010-10-25 07:39:47 UTC (rev 3388)
@@ -344,6 +344,7 @@
   RsLogNoPersonalityExtension = 'No personality supports the extension %s';
   RsLogInvalidBplPath = 'Invalid BPL path "%s"';
   RsLogInvalidDcpPath = 'Invalid DCP path "%s"';
+  RsLogInvalidHppPath = 'Invalid HPP path "%s"';
   RsLogLibDescriptor = '%s library %sunits for %s';
 
 implementation


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Jcl-checkins-diff] SF.net SVN: jcl:[3387] trunk/jcl/experts

From: <ou...@us...> - 2010-10-24 12:21:51

Revision: 3387
          http://jcl.svn.sourceforge.net/jcl/?rev=3387&view=rev
Author:   outchy
Date:     2010-10-24 12:21:45 +0000 (Sun, 24 Oct 2010)

Log Message:
-----------
Make the SIMD view expert compliant with JCL rev 3385.

Revision Links:
--------------
    http://jcl.svn.sourceforge.net/jcl/?rev=3385&view=rev

Modified Paths:
--------------
    trunk/jcl/experts/common/JclOtaResources.pas
    trunk/jcl/experts/debug/simdview/JclSIMDCpuInfo.dfm
    trunk/jcl/experts/debug/simdview/JclSIMDCpuInfo.pas

Modified: trunk/jcl/experts/common/JclOtaResources.pas
===================================================================
--- trunk/jcl/experts/common/JclOtaResources.pas	2010-10-24 12:11:23 UTC (rev 3386)
+++ trunk/jcl/experts/common/JclOtaResources.pas	2010-10-24 12:21:45 UTC (rev 3387)
@@ -309,8 +309,9 @@
   RsSSE2 = 'SSE Version 2';
   RsSSE3 = 'SSE Version 3';
   RsSSE3Ext = 'SSE Version 3 Ext.';
-  RsSSE4A = 'SSE Version 4 A';
-  RsSSE4B = 'SSE Version 4 B';
+  RsSSE41 = 'SSE Version 4.1';
+  RsSSE42 = 'SSE Version 4.2';
+  RsSSE4A = 'SSE Version 4 AMD Ext.';
   RsSSE5 = 'SSE Version 5';
   RsAVX = 'AVX';
   RsClose = 'Close';

Modified: trunk/jcl/experts/debug/simdview/JclSIMDCpuInfo.dfm
===================================================================
--- trunk/jcl/experts/debug/simdview/JclSIMDCpuInfo.dfm	2010-10-24 12:11:23 UTC (rev 3386)
+++ trunk/jcl/experts/debug/simdview/JclSIMDCpuInfo.dfm	2010-10-24 12:21:45 UTC (rev 3387)
@@ -3,7 +3,7 @@
   Top = 438
   BorderStyle = bsDialog
   Caption = 'RsCpuInfoTitle'
-  ClientHeight = 296
+  ClientHeight = 312
   ClientWidth = 322
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
@@ -144,8 +144,8 @@
     TabOrder = 10
   end
   object ButtonClose: TButton
-    Left = 128
-    Top = 263
+    Left = 120
+    Top = 279
     Width = 83
     Height = 25
     Caption = 'RsClose'
@@ -162,19 +162,19 @@
     Enabled = False
     TabOrder = 11
   end
-  object CheckBoxSSE4A: TCheckBox
+  object CheckBoxSSE41: TCheckBox
     Left = 161
     Top = 164
     Width = 153
     Height = 17
     Alignment = taLeftJustify
-    Caption = 'RsSSE4A'
+    Caption = 'RsSSE41'
     Enabled = False
     TabOrder = 12
   end
   object CheckBoxSSE5: TCheckBox
     Left = 161
-    Top = 210
+    Top = 233
     Width = 153
     Height = 17
     Alignment = taLeftJustify
@@ -182,19 +182,19 @@
     Enabled = False
     TabOrder = 14
   end
-  object CheckBoxSSE4B: TCheckBox
+  object CheckBoxSSE42: TCheckBox
     Left = 161
     Top = 187
     Width = 153
     Height = 17
     Alignment = taLeftJustify
-    Caption = 'RsSSE4B'
+    Caption = 'RsSSE42'
     Enabled = False
     TabOrder = 13
   end
   object CheckBoxAVX: TCheckBox
     Left = 161
-    Top = 233
+    Top = 256
     Width = 153
     Height = 17
     Alignment = taLeftJustify
@@ -232,4 +232,14 @@
     Enabled = False
     TabOrder = 19
   end
+  object CheckBoxSSE4A: TCheckBox
+    Left = 161
+    Top = 210
+    Width = 153
+    Height = 17
+    Alignment = taLeftJustify
+    Caption = 'RsSSE4A'
+    Enabled = False
+    TabOrder = 20
+  end
 end

Modified: trunk/jcl/experts/debug/simdview/JclSIMDCpuInfo.pas
===================================================================
--- trunk/jcl/experts/debug/simdview/JclSIMDCpuInfo.pas	2010-10-24 12:11:23 UTC (rev 3386)
+++ trunk/jcl/experts/debug/simdview/JclSIMDCpuInfo.pas	2010-10-24 12:21:45 UTC (rev 3387)
@@ -60,13 +60,14 @@
     CheckBoxSSE3: TCheckBox;
     ButtonClose: TButton;
     CheckBoxSSSE3: TCheckBox;
-    CheckBoxSSE4A: TCheckBox;
+    CheckBoxSSE41: TCheckBox;
     CheckBoxSSE5: TCheckBox;
-    CheckBoxSSE4B: TCheckBox;
+    CheckBoxSSE42: TCheckBox;
     CheckBoxAVX: TCheckBox;
     CheckBoxEnabledFPU: TCheckBox;
     CheckBoxEnabledSSE: TCheckBox;
     CheckBoxEnabledAVX: TCheckBox;
+    CheckBoxSSE4A: TCheckBox;
   protected
     procedure CreateParams(var Params: TCreateParams); override;
   public
@@ -126,8 +127,9 @@
   CheckBoxSSE2.Caption := LoadResString(@RsSSE2);
   CheckBoxSSE3.Caption := LoadResString(@RsSSE3);
   CheckBoxSSSE3.Caption := LoadResString(@RsSSE3Ext);
+  CheckBoxSSE41.Caption := LoadResString(@RsSSE41);
+  CheckBoxSSE42.Caption := LoadResString(@RsSSE42);
   CheckBoxSSE4A.Caption := LoadResString(@RsSSE4A);
-  CheckBoxSSE4B.Caption := LoadResString(@RsSSE4B);
   CheckBoxSSE5.Caption := LoadResString(@RsSSE5);
   CheckBoxAVX.Caption := LoadResString(@RsAVX);
   ButtonClose.Caption := LoadResString(@RsClose);
@@ -144,8 +146,9 @@
   CheckBoxSSE2.Checked := sse2 in CpuInfo.SSE;
   CheckBoxSSE3.Checked := sse3 in CpuInfo.SSE;
   CheckBoxSSSE3.Checked := ssse3 in CpuInfo.SSE;
+  CheckBoxSSE41.Checked := sse41 in CpuInfo.SSE;
+  CheckBoxSSE42.Checked := sse42 in CpuInfo.SSE;
   CheckBoxSSE4A.Checked := sse4A in CpuInfo.SSE;
-  CheckBoxSSE4B.Checked := sse4B in CpuInfo.SSE;
   CheckBoxSSE5.Checked := sse5 in CpuInfo.SSE;
   CheckBoxAVX.Checked := avx in CpuInfo.SSE;
   CheckBoxEnabledFPU.Checked := oefFPU in EnabledFeatures;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Jcl-checkins-diff] SF.net SVN: jcl:[3386] trunk/jcl/source/common/JclCompression.pas

From: <ou...@us...> - 2010-10-24 12:11:29

Revision: 3386
          http://jcl.svn.sourceforge.net/jcl/?rev=3386&view=rev
Author:   outchy
Date:     2010-10-24 12:11:23 +0000 (Sun, 24 Oct 2010)

Log Message:
-----------
Fix for a bug in Xar archive extraction reported by Matteo Riso by mail, the Attributes field does not contain FILE_ATTRIBUTE_DIRECTORY, TJclCompressionItem now uses the kpidIsDir item property to flag directories.

Modified Paths:
--------------
    trunk/jcl/source/common/JclCompression.pas

Modified: trunk/jcl/source/common/JclCompression.pas
===================================================================
--- trunk/jcl/source/common/JclCompression.pas	2010-10-24 10:26:55 UTC (rev 3385)
+++ trunk/jcl/source/common/JclCompression.pas	2010-10-24 12:11:23 UTC (rev 3386)
@@ -612,6 +612,7 @@
     function GetComment: WideString;
     function GetCRC: Cardinal;
     function GetCreationTime: TFileTime;
+    function GetDirectory: Boolean;
     function GetEncrypted: Boolean;
     function GetFileName: TFileName;
     function GetFileSize: Int64;
@@ -632,7 +633,8 @@
     procedure SetComment(const Value: WideString);
     procedure SetCRC(Value: Cardinal);
     procedure SetCreationTime(const Value: TFileTime);
-    procedure SetEncrypted(const Value: Boolean);
+    procedure SetDirectory(Value: Boolean);
+    procedure SetEncrypted(Value: Boolean);
     procedure SetFileName(const Value: TFileName);
     procedure SetFileSize(const Value: Int64);
     procedure SetGroup(const Value: WideString);
@@ -656,6 +658,7 @@
     property Comment: WideString read GetComment write SetComment;
     property CRC: Cardinal read GetCRC write SetCRC;
     property CreationTime: TFileTime read GetCreationTime write SetCreationTime;
+    property Directory: Boolean read GetDirectory write SetDirectory;
     property Encrypted: Boolean read GetEncrypted write SetEncrypted;
     property FileSize: Int64 read GetFileSize write SetFileSize;
     property Group: WideString read GetGroup write SetGroup;
@@ -2049,7 +2052,7 @@
   TCardinalSetter = procedure (Value: Cardinal) of object;
   TInt64Setter = procedure (const Value: Int64) of object;
   TFileTimeSetter = procedure (const Value: TFileTime) of object;
-  TBoolSetter = procedure (const Value: Boolean) of object;
+  TBoolSetter = procedure (Value: Boolean) of object;
 
 procedure SevenzipCheck(Value: HRESULT);
 function Get7zWideStringProp(const AArchive: IInArchive; ItemIndex: Integer;
@@ -3666,6 +3669,11 @@
   Result := FCreationTime;
 end;
 
+function TJclCompressionItem.GetDirectory: Boolean;
+begin
+  Result := (Attributes and FILE_ATTRIBUTE_DIRECTORY) <> 0;
+end;
+
 function TJclCompressionItem.GetEncrypted: Boolean;
 begin
   CheckGetProperty(ipEncrypted);
@@ -3821,8 +3829,19 @@
   Include(FValidProperties, ipCreationTime);
 end;
 
-procedure TJclCompressionItem.SetEncrypted(const Value: Boolean);
+procedure TJclCompressionItem.SetDirectory(Value: Boolean);
 begin
+  CheckSetProperty(ipAttributes);
+  if Value then
+    FAttributes := FAttributes or FILE_ATTRIBUTE_DIRECTORY
+  else
+    FAttributes := FAttributes and (not FILE_ATTRIBUTE_DIRECTORY);
+  Include(FModifiedProperties, ipAttributes);
+  Include(FValidProperties, ipAttributes);
+end;
+
+procedure TJclCompressionItem.SetEncrypted(Value: Boolean);
+begin
   CheckSetProperty(ipEncrypted);
   FEncrypted := Value;
   Include(FModifiedProperties, ipEncrypted);
@@ -5610,6 +5629,8 @@
   Get7zWideStringProp(AInArchive, ItemIndex, kpidPath, AItem.SetPackedName);
   Get7zWideStringProp(AInArchive, ItemIndex, kpidExtension, AItem.SetPackedExtension);
   Get7zCardinalProp(AInArchive, ItemIndex, kpidAttrib, AItem.SetAttributes);
+  // SetDirectory must be after SetAttributes
+  Get7zBoolProp(AInArchive, ItemIndex, kpidIsDir, AItem.SetDirectory);
   Get7zInt64Prop(AInArchive, ItemIndex, kpidSize, AItem.SetFileSize);
   Get7zInt64Prop(AInArchive, ItemIndex, kpidPackSize, AItem.SetPackedSize);
   Get7zFileTimeProp(AInArchive, ItemIndex, kpidCTime, AItem.SetCreationTime);


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Jcl-checkins-diff] SF.net SVN: jcl:[3385] trunk/jcl/source/common/JclSysInfo.pas

From: <ou...@us...> - 2010-10-24 10:27:01

Revision: 3385
          http://jcl.svn.sourceforge.net/jcl/?rev=3385&view=rev
Author:   outchy
Date:     2010-10-24 10:26:55 +0000 (Sun, 24 Oct 2010)

Log Message:
-----------
AMD and Intel processor identification and specification update.

Modified Paths:
--------------
    trunk/jcl/source/common/JclSysInfo.pas

Modified: trunk/jcl/source/common/JclSysInfo.pas
===================================================================
--- trunk/jcl/source/common/JclSysInfo.pas	2010-10-21 07:34:46 UTC (rev 3384)
+++ trunk/jcl/source/common/JclSysInfo.pas	2010-10-24 10:26:55 UTC (rev 3385)
@@ -329,6 +329,7 @@
     ExFeatures: Cardinal;
     Ex64Features: Cardinal;
     Ex64Features2: Cardinal;
+    PowerManagementFeatures: Cardinal;
     PhysicalAddressBits: Byte;
     VirtualAddressBits: Byte;
   end;
@@ -426,11 +427,12 @@
   CPU_TYPE_VIA       = 5;
 
 type
-  TSSESupport = (sse, sse2, sse3, ssse3, sse4A, sse4B, sse5, avx);
+  TSSESupport = (sse, sse2, sse3, ssse3, sse41, sse42, sse4A, sse5, avx);
   TSSESupports = set of TSSESupport;
 
   TCpuInfo = record
     HasInstruction: Boolean;
+    AES: Boolean;
     MMX: Boolean;
     ExMMX: Boolean;
     _3DNow: Boolean;
@@ -612,14 +614,14 @@
   EINTEL_XTPR      = BIT_14; // Send Task Priority messages
   EINTEL_PDCM      = BIT_15; // Perf/Debug Capability MSR
   EINTEL_BIT_16    = BIT_16; // Reserved, do not count on value
-  EINTEL_BIT_17    = BIT_17; // Reserved, do not count on value
+  EINTEL_PCID      = BIT_17; // Process-context Identifiers
   EINTEL_DCA       = BIT_18; // Direct Cache Access
   EINTEL_SSE4_1    = BIT_19; // Streaming SIMD Extensions 4.1
   EINTEL_SSE4_2    = BIT_20; // Streaming SIMD Extensions 4.2
   EINTEL_X2APIC    = BIT_21; // x2APIC feature
   EINTEL_MOVBE     = BIT_22; // MOVBE instruction
   EINTEL_POPCNT    = BIT_23; // A value of 1 indicates the processor supports the POPCNT instruction.
-  EINTEL_BIT_24    = BIT_24; // Reserved, do not count on value
+  EINTEL_TSC_DL    = BIT_24; // TSC-Deadline
   EINTEL_AES       = BIT_25; // the processor supports the AES instruction extensions
   EINTEL_XSAVE     = BIT_26; // XSAVE/XRSTOR processor extended states feature, XSETBV/XGETBV instructions and XFEATURE_ENABLED_MASK (XCR0) register
   EINTEL_OSXSAVE   = BIT_27; // OS has enabled features present in EINTEL_XSAVE
@@ -655,7 +657,7 @@
   EINTEL64_BIT_23 = BIT_23; // Reserved, do not count on value
   EINTEL64_BIT_24 = BIT_24; // Reserved, do not count on value
   EINTEL64_BIT_25 = BIT_25; // Reserved, do not count on value
-  EINTEL64_BIT_26 = BIT_26; // Reserved, do not count on value
+  EINTEL64_1GBYTE = BIT_26; // 1G-Byte pages are available
   EINTEL64_RDTSCP = BIT_27; // RDTSCP and IA32_TSC_AUX are available
   EINTEL64_BIT_28 = BIT_28; // Reserved, do not count on value
   EINTEL64_EM64T  = BIT_29; // Intel Extended Memory 64 Technology
@@ -696,6 +698,40 @@
   EINTEL64_2_BIT_30 = BIT_30; // Reserved, do not count on value
   EINTEL64_2_BIT_31 = BIT_31; // Reserved, do not count on value
 
+  { INTEL Power Management Flags }
+  PINTEL_TEMPSENSOR = BIT_0;  // Digital temperature sensor
+  PINTEL_TURBOBOOST = BIT_1;  // Intel Turbo Boost Technology Available
+  PINTEL_ARAT       = BIT_2;  // APIC-Timer-always-running feature
+  PINTEL_BIT_3      = BIT_3;  // Reverved, do not count on value
+  PINTEL_PLN        = BIT_4;  // Power Limit Notification constrols
+  PINTEL_ECMD       = BIT_5;  // Clock Modulation duty cycle extension
+  PINTEL_PTM        = BIT_6;  // Package Thermal Management
+  PINTEL_BIT_7      = BIT_7;  // Reserved, do not count on value
+  PINTEL_BIT_8      = BIT_8;  // Reserved, do not count on value
+  PINTEL_BIT_9      = BIT_9;  // Reserved, do not count on value
+  PINTEL_BIT_10     = BIT_10; // Reserved, do not count on value
+  PINTEL_BIT_11     = BIT_11; // Reserved, do not count on value
+  PINTEL_BIT_12     = BIT_12; // Reserved, do not count on value
+  PINTEL_BIT_13     = BIT_13; // Reserved, do not count on value
+  PINTEL_BIT_14     = BIT_14; // Reserved, do not count on value
+  PINTEL_BIT_15     = BIT_15; // Reserved, do not count on value
+  PINTEL_BIT_16     = BIT_16; // Reserved, do not count on value
+  PINTEL_BIT_17     = BIT_17; // Reserved, do not count on value
+  PINTEL_BIT_18     = BIT_18; // Reserved, do not count on value
+  PINTEL_BIT_19     = BIT_19; // Reserved, do not count on value
+  PINTEL_BIT_20     = BIT_20; // Reserved, do not count on value
+  PINTEL_BIT_21     = BIT_21; // Reserved, do not count on value
+  PINTEL_BIT_22     = BIT_22; // Reserved, do not count on value
+  PINTEL_BIT_23     = BIT_23; // Reserved, do not count on value
+  PINTEL_BIT_24     = BIT_24; // Reserved, do not count on value
+  PINTEL_BIT_25     = BIT_25; // Reserved, do not count on value
+  PINTEL_BIT_26     = BIT_26; // Reserved, do not count on value
+  PINTEL_BIT_27     = BIT_27; // Reserved, do not count on value
+  PINTEL_BIT_28     = BIT_28; // Reserved, do not count on value
+  PINTEL_BIT_29     = BIT_29; // Reserved, do not count on value
+  PINTEL_BIT_30     = BIT_30; // Reserved, do not count on value
+  PINTEL_BIT_31     = BIT_31; // Reserved, do not count on value
+
   { AMD Standard Feature Flags }
   AMD_FPU     = BIT_0;  // Floating-Point unit on chip
   AMD_VME     = BIT_1;  // Virtual Mode Extention
@@ -714,7 +750,7 @@
   AMD_MCA     = BIT_14; // Machine Check Architecture
   AMD_CMOV    = BIT_15; // Conditional Move Instruction
   AMD_PAT     = BIT_16; // Page Attribute Table
-  AMD_PSE32   = BIT_17; // Page Size Extensions
+  AMD_PSE36   = BIT_17; // Page Size Extensions
   AMD_BIT_18  = BIT_18; // Reserved, do not count on value
   AMD_CLFLSH  = BIT_19; // CLFLUSH instruction
   AMD_BIT_20  = BIT_20; // Reserved, do not count on value
@@ -732,7 +768,7 @@
 
   { AMD Standard Feature Flags continued }
   AMD2_SSE3       = BIT_0;  // SSE3 extensions
-  AMD2_BIT_1      = BIT_1;  // Reserved, do not count on value
+  AMD2_PCLMULQDQ  = BIT_1;  // PCLMULQDQ instruction support
   AMD2_BIT_2      = BIT_2;  // Reserved, do not count on value
   AMD2_MONITOR    = BIT_3;  // MONITOR/MWAIT instructions. See "MONITOR" and "MWAIT" in APM3.
   AMD2_BIT_4      = BIT_4;  // Reserved, do not count on value
@@ -743,7 +779,7 @@
   AMD2_SSSE3      = BIT_9;  // supplemental SSE3 extensions
   AMD2_BIT_10     = BIT_10; // Reserved, do not count on value
   AMD2_BIT_11     = BIT_11; // Reserved, do not count on value
-  AMD2_BIT_12     = BIT_12; // Reserved, do not count on value
+  AMD2_FMA        = BIT_12; // FMA instruction support
   AMD2_CMPXCHG16B = BIT_13; // CMPXCHG16B available
   AMD2_BIT_14     = BIT_14; // Reserved, do not count on value
   AMD2_BIT_15     = BIT_15; // Reserved, do not count on value
@@ -751,18 +787,18 @@
   AMD2_BIT_17     = BIT_17; // Reserved, do not count on value
   AMD2_BIT_18     = BIT_18; // Reserved, do not count on value
   AMD2_SSE41      = BIT_19; // SSE4.1 instruction support
-  AMD2_BIT_20     = BIT_20; // Reserved, do not count on value
+  AMD2_SSE42      = BIT_20; // SSE4.2 instruction support
   AMD2_BIT_21     = BIT_21; // Reserved, do not count on value
   AMD2_BIT_22     = BIT_22; // Reserved, do not count on value
   AMD2_POPCNT     = BIT_23; // POPCNT instruction. See "POPCNT" in APM3.
   AMD2_BIT_24     = BIT_24; // Reserved, do not count on value
-  AMD2_BIT_25     = BIT_25; // Reserved, do not count on value
-  AMD2_BIT_26     = BIT_26; // Reserved, do not count on value
-  AMD2_BIT_27     = BIT_27; // Reserved, do not count on value
-  AMD2_BIT_28     = BIT_28; // Reserved, do not count on value
-  AMD2_BIT_29     = BIT_29; // Reserved, do not count on value
+  AMD2_AES        = BIT_25; // AES instruction support
+  AMD2_XSAVE      = BIT_26; // XSAVE (and related) instructions are supported by hardware
+  AMD2_OSXSAVE    = BIT_27; // XSAVE (and related) instructions are enabled
+  AMD2_AVX        = BIT_28; // AVX instruction support
+  AMD2_F16C       = BIT_29; // half-precision convert instruction support
   AMD2_BIT_30     = BIT_30; // Reserved, do not count on value
-  AMD2_RAZ        = BIT_31; // RAZ
+  AMD2_RAZ        = BIT_31; // Reserved for use by hypervisor to indicate guest status
 
   { AMD Enhanced Feature Flags }
   EAMD_FPU     = BIT_0;  // Floating-Point unit on chip
@@ -810,18 +846,18 @@
   EAMD2_3DNOWPREFETCH = BIT_8;  // PREFETCH and PREFETCHW instruction support.
   EAMD2_OSVW          = BIT_9;  // OS visible workaround.
   EAMD2_IBS           = BIT_10; // Instruction based sampling
-  EAMD2_SSE5          = BIT_11; // Streaming SIMD Extensions 5
+  EAMD2_XOP           = BIT_11; // extended operation support
   EAMD2_SKINIT        = BIT_12; // SKINIT, STGI, and DEV support.
   EAMD2_WDT           = BIT_13; // Watchdog timer support.
   EAMD2_BIT_14        = BIT_14; // Reserved, do not count on value
-  EAMD2_BIT_15        = BIT_15; // Reserved, do not count on value
-  EAMD2_BIT_16        = BIT_16; // Reserved, do not count on value
+  EAMD2_LWP           = BIT_15; // lightweight profiling support
+  EAMD2_FMA4          = BIT_16; // 4-operand FMA instruction support.
   EAMD2_BIT_17        = BIT_17; // Reserved, do not count on value
   EAMD2_BIT_18        = BIT_18; // Reserved, do not count on value
-  EAMD2_BIT_19        = BIT_19; // Reserved, do not count on value
+  EAMD2_NODEID        = BIT_19; // Support for MSRC001_100C[NodeId, NodesPerProcessor]
   EAMD2_BIT_20        = BIT_20; // Reserved, do not count on value
-  EAMD2_BIT_21        = BIT_21; // Reserved, do not count on value
-  EAMD2_BIT_22        = BIT_22; // Reserved, do not count on value
+  EAMD2_TBM           = BIT_21; // trailing bit manipulation instruction support
+  EAMD2_TOPOLOGYEXT   = BIT_22; // topology extensions support
   EAMD2_BIT_23        = BIT_23; // Reserved, do not count on value
   EAMD2_BIT_24        = BIT_24; // Reserved, do not count on value
   EAMD2_BIT_25        = BIT_25; // Reserved, do not count on value
@@ -838,12 +874,12 @@
   PAMD_VOLTAGEID        = BIT_2;  // Voltage ID Control
   PAMD_THERMALTRIP      = BIT_3;  // Thermal Trip
   PAMD_THERMALMONITOR   = BIT_4;  // Thermal Monitoring
-  PAMD_SOFTTHERMCONTROL = BIT_5;  // Software Thermal Control
+  PAMD_BIT_5            = BIT_5;  // Reserved, do not count on value
   PAMD_100MHZSTEP       = BIT_6;  // 100 Mhz multiplier control.
   PAMD_HWPSTATE         = BIT_7;  // Hardware P-State control.
   PAMD_TSC_INVARIANT    = BIT_8;  // TSC rate is invariant
-  PAMD_BIT_9            = BIT_9;  // Reserved, do not count on value
-  PAMD_BIT_10           = BIT_10; // Reserved, do not count on value
+  PAMD_CPB              = BIT_9;  // core performance boost
+  PAMD_EFFFREQRO        = BIT_10; // read-only effective frequency interface
   PAMD_BIT_11           = BIT_11; // Reserved, do not count on value
   PAMD_BIT_12           = BIT_12; // Reserved, do not count on value
   PAMD_BIT_13           = BIT_13; // Reserved, do not count on value
@@ -879,8 +915,15 @@
   AMD_L2_ASSOC_4WAY     = 4;
   AMD_L2_ASSOC_8WAY     = 6;
   AMD_L2_ASSOC_16WAY    = 8;
+  AMD_L2_ASSOC_32WAY    = 10;
+  AMD_L2_ASSOC_48WAY    = 11;
+  AMD_L2_ASSOC_64WAY    = 12;
+  AMD_L2_ASSOC_96WAY    = 13;
+  AMD_L2_ASSOC_128WAY   = 14;
   AMD_L2_ASSOC_FULLY    = 15;
 
+  // TODO AMD SVM and LWP bits
+
   { VIA Standard Feature Flags }
   VIA_FPU           = BIT_0;  // FPU present
   VIA_VME           = BIT_1;  // Virtual Mode Extension
@@ -4363,6 +4406,9 @@
       CPUInfo.PhysicalCore := ((CoreInfo and $FC000000) shr 26) + 1;
     end;
 
+    if HiVal >= 6 then
+      CallCPUID(6, 0, CPUInfo.IntelSpecific.PowerManagementFeatures, Unused, Unused, Unused);
+
     // check Intel extended
     CallCPUID($80000000, 0, ExHiVal, Unused, Unused, Unused);
     if ExHiVal >= $80000001 then
@@ -4527,6 +4573,7 @@
       end;
     end;
 
+    CPUInfo.AES := (CPUInfo.IntelSpecific.ExFeatures and EINTEL_AES) <> 0;
     CPUInfo.MMX := (CPUInfo.Features and MMX_FLAG) <> 0;
     CPUInfo.SSE := [];
     if (CPUInfo.Features and SSE_FLAG) <> 0 then
@@ -4538,9 +4585,9 @@
     if (CPUInfo.IntelSpecific.ExFeatures and EINTEL_SSSE3) <> 0 then
       Include(CPUInfo.SSE, ssse3);
     if (CPUInfo.IntelSpecific.ExFeatures and EINTEL_SSE4_1) <> 0 then
-      Include(CPUInfo.SSE, sse4A);
+      Include(CPUInfo.SSE, sse41);
     if (CPUInfo.IntelSpecific.ExFeatures and EINTEL_SSE4_2) <> 0 then
-      Include(CPUInfo.SSE, sse4B);
+      Include(CPUInfo.SSE, sse42);
     if (CPUInfo.IntelSpecific.ExFeatures and EINTEL_AVX) <> 0 then
       Include(CPUInfo.SSE, avx);
     CPUInfo.Is64Bits := CPUInfo.HasExtendedInfo and ((CPUInfo.IntelSpecific.Ex64Features and EINTEL64_EM64T)<>0);
@@ -4682,6 +4729,7 @@
       end;
     end;
 
+    CPUInfo.AES := (CPUInfo.AMDSpecific.Features2 and AMD2_AES) <> 0;
     CPUInfo.MMX := (CPUInfo.Features and AMD_MMX) <> 0;
     CPUInfo.ExMMX := CPUInfo.HasExtendedInfo and ((CPUInfo.AMDSpecific.ExFeatures and EAMD_EXMMX) <> 0);
     CPUInfo._3DNow := CPUInfo.HasExtendedInfo and ((CPUInfo.AMDSpecific.ExFeatures and EAMD_3DNOW) <> 0);
@@ -4697,8 +4745,10 @@
     begin
       if (CPUInfo.AMDSpecific.ExFeatures2 and EAMD2_SSE4A) <> 0 then
         Include(CPUInfo.SSE, sse4A);
-      if (CPUInfo.AMDSpecific.ExFeatures2 and EAMD2_SSE5) <> 0 then
-        Include(CPUInfo.SSE, sse5);
+      if (CPUInfo.AMDSpecific.Features2 and AMD2_SSE41) <> 0 then
+        Include(CPUInfo.SSE, sse41);
+      if (CPUInfo.AMDSpecific.Features2 and AMD2_SSE42) <> 0 then
+        Include(CPUInfo.SSE, sse42);
     end;
     CPUInfo.Is64Bits := CPUInfo.HasExtendedInfo and ((CPUInfo.AMDSpecific.ExFeatures and EAMD_LONG) <> 0);
     CPUInfo.DEPCapable := CPUInfo.HasExtendedInfo and ((CPUInfo.AMDSpecific.ExFeatures and EAMD_NX) <> 0);


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Jcl-checkins-diff] SF.net SVN: jcl:[3384] tags/JCL-2.2-Build3886/

From: <ou...@us...> - 2010-10-21 07:34:52

Revision: 3384
          http://jcl.svn.sourceforge.net/jcl/?rev=3384&view=rev
Author:   outchy
Date:     2010-10-21 07:34:46 +0000 (Thu, 21 Oct 2010)

Log Message:
-----------
tag for JCL 2.2.1.3886.

Added Paths:
-----------
    tags/JCL-2.2-Build3886/


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Jcl-checkins-diff] SF.net SVN: jcl:[3383] branches/JCL_2.2/jcl

From: <ou...@us...> - 2010-10-21 07:29:44

Revision: 3383
          http://jcl.svn.sourceforge.net/jcl/?rev=3383&view=rev
Author:   outchy
Date:     2010-10-21 07:29:32 +0000 (Thu, 21 Oct 2010)

Log Message:
-----------
version numbers for JCL 2.2.1.3886.

Modified Paths:
--------------
    branches/JCL_2.2/jcl/devtools/pgEdit.xml
    branches/JCL_2.2/jcl/docs/Experts.html
    branches/JCL_2.2/jcl/docs/Readme.html
    branches/JCL_2.2/jcl/docs/Readme.txt
    branches/JCL_2.2/jcl/packages/c6/Jcl.RES
    branches/JCL_2.2/jcl/packages/c6/Jcl.rc
    branches/JCL_2.2/jcl/packages/c6/JclBaseExpert.rc
    branches/JCL_2.2/jcl/packages/c6/JclBaseExpert.res
    branches/JCL_2.2/jcl/packages/c6/JclContainers.rc
    branches/JCL_2.2/jcl/packages/c6/JclContainers.res
    branches/JCL_2.2/jcl/packages/c6/JclDebugExpert.RES
    branches/JCL_2.2/jcl/packages/c6/JclDebugExpert.rc
    branches/JCL_2.2/jcl/packages/c6/JclDebugExpertDLL.rc
    branches/JCL_2.2/jcl/packages/c6/JclDebugExpertDLL.res
    branches/JCL_2.2/jcl/packages/c6/JclDeveloperTools.rc
    branches/JCL_2.2/jcl/packages/c6/JclDeveloperTools.res
    branches/JCL_2.2/jcl/packages/c6/JclFavoriteFoldersExpert.RES
    branches/JCL_2.2/jcl/packages/c6/JclFavoriteFoldersExpert.rc
    branches/JCL_2.2/jcl/packages/c6/JclFavoriteFoldersExpertDLL.rc
    branches/JCL_2.2/jcl/packages/c6/JclFavoriteFoldersExpertDLL.res
    branches/JCL_2.2/jcl/packages/c6/JclProjectAnalysisExpert.RES
    branches/JCL_2.2/jcl/packages/c6/JclProjectAnalysisExpert.rc
    branches/JCL_2.2/jcl/packages/c6/JclProjectAnalysisExpertDLL.rc
    branches/JCL_2.2/jcl/packages/c6/JclProjectAnalysisExpertDLL.res
    branches/JCL_2.2/jcl/packages/c6/JclRepositoryExpert.rc
    branches/JCL_2.2/jcl/packages/c6/JclRepositoryExpert.res
    branches/JCL_2.2/jcl/packages/c6/JclRepositoryExpertDLL.rc
    branches/JCL_2.2/jcl/packages/c6/JclRepositoryExpertDLL.res
    branches/JCL_2.2/jcl/packages/c6/JclSIMDViewExpert.rc
    branches/JCL_2.2/jcl/packages/c6/JclSIMDViewExpert.res
    branches/JCL_2.2/jcl/packages/c6/JclSIMDViewExpertDLL.rc
    branches/JCL_2.2/jcl/packages/c6/JclSIMDViewExpertDLL.res
    branches/JCL_2.2/jcl/packages/c6/JclStackTraceViewerExpert.rc
    branches/JCL_2.2/jcl/packages/c6/JclStackTraceViewerExpert.res
    branches/JCL_2.2/jcl/packages/c6/JclStackTraceViewerExpertDLL.rc
    branches/JCL_2.2/jcl/packages/c6/JclStackTraceViewerExpertDLL.res
    branches/JCL_2.2/jcl/packages/c6/JclThreadNameExpert.RES
    branches/JCL_2.2/jcl/packages/c6/JclThreadNameExpert.rc
    branches/JCL_2.2/jcl/packages/c6/JclThreadNameExpertDLL.rc
    branches/JCL_2.2/jcl/packages/c6/JclThreadNameExpertDLL.res
    branches/JCL_2.2/jcl/packages/c6/JclUsesExpert.RES
    branches/JCL_2.2/jcl/packages/c6/JclUsesExpert.rc
    branches/JCL_2.2/jcl/packages/c6/JclUsesExpertDLL.rc
    branches/JCL_2.2/jcl/packages/c6/JclUsesExpertDLL.res
    branches/JCL_2.2/jcl/packages/c6/JclVcl.RES
    branches/JCL_2.2/jcl/packages/c6/JclVcl.rc
    branches/JCL_2.2/jcl/packages/c6/JclVersionControlExpert.rc
    branches/JCL_2.2/jcl/packages/c6/JclVersionControlExpert.res
    branches/JCL_2.2/jcl/packages/c6/JclVersionControlExpertDLL.rc
    branches/JCL_2.2/jcl/packages/c6/JclVersionControlExpertDLL.res
    branches/JCL_2.2/jcl/packages/cs1/Jcl.RES
    branches/JCL_2.2/jcl/packages/cs1/Jcl.bdsproj
    branches/JCL_2.2/jcl/packages/cs1/Jcl.rc
    branches/JCL_2.2/jcl/packages/cs1/JclBaseExpert.RES
    branches/JCL_2.2/jcl/packages/cs1/JclBaseExpert.bdsproj
    branches/JCL_2.2/jcl/packages/cs1/JclBaseExpert.rc
    branches/JCL_2.2/jcl/packages/cs1/JclContainers.bdsproj
    branches/JCL_2.2/jcl/packages/cs1/JclContainers.rc
    branches/JCL_2.2/jcl/packages/cs1/JclContainers.res
    branches/JCL_2.2/jcl/packages/cs1/JclDeveloperTools.bdsproj
    branches/JCL_2.2/jcl/packages/cs1/JclDeveloperTools.rc
    branches/JCL_2.2/jcl/packages/cs1/JclDeveloperTools.res
    branches/JCL_2.2/jcl/packages/cs1/JclFavoriteFoldersExpertDLL.RES
    branches/JCL_2.2/jcl/packages/cs1/JclFavoriteFoldersExpertDLL.bdsproj
    branches/JCL_2.2/jcl/packages/cs1/JclFavoriteFoldersExpertDLL.rc
    branches/JCL_2.2/jcl/packages/cs1/JclVersionControlExpertDLL.bdsproj
    branches/JCL_2.2/jcl/packages/cs1/JclVersionControlExpertDLL.rc
    branches/JCL_2.2/jcl/packages/cs1/JclVersionControlExpertDLL.res
    branches/JCL_2.2/jcl/packages/d10/Jcl.bdsproj
    branches/JCL_2.2/jcl/packages/d10/Jcl.rc
    branches/JCL_2.2/jcl/packages/d10/Jcl.res
    branches/JCL_2.2/jcl/packages/d10/JclBaseExpert.bdsproj
    branches/JCL_2.2/jcl/packages/d10/JclBaseExpert.rc
    branches/JCL_2.2/jcl/packages/d10/JclBaseExpert.res
    branches/JCL_2.2/jcl/packages/d10/JclContainers.bdsproj
    branches/JCL_2.2/jcl/packages/d10/JclContainers.rc
    branches/JCL_2.2/jcl/packages/d10/JclContainers.res
    branches/JCL_2.2/jcl/packages/d10/JclDebugExpert.bdsproj
    branches/JCL_2.2/jcl/packages/d10/JclDebugExpert.rc
    branches/JCL_2.2/jcl/packages/d10/JclDebugExpert.res
    branches/JCL_2.2/jcl/packages/d10/JclDebugExpertDLL.bdsproj
    branches/JCL_2.2/jcl/packages/d10/JclDebugExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d10/JclDebugExpertDLL.res
    branches/JCL_2.2/jcl/packages/d10/JclDeveloperTools.bdsproj
    branches/JCL_2.2/jcl/packages/d10/JclDeveloperTools.rc
    branches/JCL_2.2/jcl/packages/d10/JclDeveloperTools.res
    branches/JCL_2.2/jcl/packages/d10/JclFavoriteFoldersExpert.bdsproj
    branches/JCL_2.2/jcl/packages/d10/JclFavoriteFoldersExpert.rc
    branches/JCL_2.2/jcl/packages/d10/JclFavoriteFoldersExpert.res
    branches/JCL_2.2/jcl/packages/d10/JclFavoriteFoldersExpertDLL.bdsproj
    branches/JCL_2.2/jcl/packages/d10/JclFavoriteFoldersExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d10/JclFavoriteFoldersExpertDLL.res
    branches/JCL_2.2/jcl/packages/d10/JclProjectAnalysisExpert.RES
    branches/JCL_2.2/jcl/packages/d10/JclProjectAnalysisExpert.bdsproj
    branches/JCL_2.2/jcl/packages/d10/JclProjectAnalysisExpert.rc
    branches/JCL_2.2/jcl/packages/d10/JclProjectAnalysisExpertDLL.bdsproj
    branches/JCL_2.2/jcl/packages/d10/JclProjectAnalysisExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d10/JclProjectAnalysisExpertDLL.res
    branches/JCL_2.2/jcl/packages/d10/JclRepositoryExpert.bdsproj
    branches/JCL_2.2/jcl/packages/d10/JclRepositoryExpert.rc
    branches/JCL_2.2/jcl/packages/d10/JclRepositoryExpert.res
    branches/JCL_2.2/jcl/packages/d10/JclRepositoryExpertDLL.bdsproj
    branches/JCL_2.2/jcl/packages/d10/JclRepositoryExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d10/JclRepositoryExpertDLL.res
    branches/JCL_2.2/jcl/packages/d10/JclSIMDViewExpert.bdsproj
    branches/JCL_2.2/jcl/packages/d10/JclSIMDViewExpert.rc
    branches/JCL_2.2/jcl/packages/d10/JclSIMDViewExpert.res
    branches/JCL_2.2/jcl/packages/d10/JclSIMDViewExpertDLL.bdsproj
    branches/JCL_2.2/jcl/packages/d10/JclSIMDViewExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d10/JclSIMDViewExpertDLL.res
    branches/JCL_2.2/jcl/packages/d10/JclStackTraceViewerExpert.bdsproj
    branches/JCL_2.2/jcl/packages/d10/JclStackTraceViewerExpert.rc
    branches/JCL_2.2/jcl/packages/d10/JclStackTraceViewerExpert.res
    branches/JCL_2.2/jcl/packages/d10/JclStackTraceViewerExpertDLL.bdsproj
    branches/JCL_2.2/jcl/packages/d10/JclStackTraceViewerExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d10/JclStackTraceViewerExpertDLL.res
    branches/JCL_2.2/jcl/packages/d10/JclVcl.bdsproj
    branches/JCL_2.2/jcl/packages/d10/JclVcl.rc
    branches/JCL_2.2/jcl/packages/d10/JclVcl.res
    branches/JCL_2.2/jcl/packages/d10/JclVersionControlExpert.bdsproj
    branches/JCL_2.2/jcl/packages/d10/JclVersionControlExpert.rc
    branches/JCL_2.2/jcl/packages/d10/JclVersionControlExpert.res
    branches/JCL_2.2/jcl/packages/d10/JclVersionControlExpertDLL.bdsproj
    branches/JCL_2.2/jcl/packages/d10/JclVersionControlExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d10/JclVersionControlExpertDLL.res
    branches/JCL_2.2/jcl/packages/d11/Jcl.dproj
    branches/JCL_2.2/jcl/packages/d11/Jcl.rc
    branches/JCL_2.2/jcl/packages/d11/Jcl.res
    branches/JCL_2.2/jcl/packages/d11/JclBaseExpert.dproj
    branches/JCL_2.2/jcl/packages/d11/JclBaseExpert.rc
    branches/JCL_2.2/jcl/packages/d11/JclBaseExpert.res
    branches/JCL_2.2/jcl/packages/d11/JclContainers.dproj
    branches/JCL_2.2/jcl/packages/d11/JclContainers.rc
    branches/JCL_2.2/jcl/packages/d11/JclContainers.res
    branches/JCL_2.2/jcl/packages/d11/JclDebugExpert.dproj
    branches/JCL_2.2/jcl/packages/d11/JclDebugExpert.rc
    branches/JCL_2.2/jcl/packages/d11/JclDebugExpert.res
    branches/JCL_2.2/jcl/packages/d11/JclDebugExpertDLL.dproj
    branches/JCL_2.2/jcl/packages/d11/JclDebugExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d11/JclDebugExpertDLL.res
    branches/JCL_2.2/jcl/packages/d11/JclDeveloperTools.dproj
    branches/JCL_2.2/jcl/packages/d11/JclDeveloperTools.rc
    branches/JCL_2.2/jcl/packages/d11/JclDeveloperTools.res
    branches/JCL_2.2/jcl/packages/d11/JclFavoriteFoldersExpert.dproj
    branches/JCL_2.2/jcl/packages/d11/JclFavoriteFoldersExpert.rc
    branches/JCL_2.2/jcl/packages/d11/JclFavoriteFoldersExpert.res
    branches/JCL_2.2/jcl/packages/d11/JclFavoriteFoldersExpertDLL.dproj
    branches/JCL_2.2/jcl/packages/d11/JclFavoriteFoldersExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d11/JclFavoriteFoldersExpertDLL.res
    branches/JCL_2.2/jcl/packages/d11/JclProjectAnalysisExpert.dproj
    branches/JCL_2.2/jcl/packages/d11/JclProjectAnalysisExpert.rc
    branches/JCL_2.2/jcl/packages/d11/JclProjectAnalysisExpert.res
    branches/JCL_2.2/jcl/packages/d11/JclProjectAnalysisExpertDLL.dproj
    branches/JCL_2.2/jcl/packages/d11/JclProjectAnalysisExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d11/JclProjectAnalysisExpertDLL.res
    branches/JCL_2.2/jcl/packages/d11/JclRepositoryExpert.dproj
    branches/JCL_2.2/jcl/packages/d11/JclRepositoryExpert.rc
    branches/JCL_2.2/jcl/packages/d11/JclRepositoryExpert.res
    branches/JCL_2.2/jcl/packages/d11/JclRepositoryExpertDLL.dproj
    branches/JCL_2.2/jcl/packages/d11/JclRepositoryExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d11/JclRepositoryExpertDLL.res
    branches/JCL_2.2/jcl/packages/d11/JclSIMDViewExpert.dproj
    branches/JCL_2.2/jcl/packages/d11/JclSIMDViewExpert.rc
    branches/JCL_2.2/jcl/packages/d11/JclSIMDViewExpert.res
    branches/JCL_2.2/jcl/packages/d11/JclSIMDViewExpertDLL.dproj
    branches/JCL_2.2/jcl/packages/d11/JclSIMDViewExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d11/JclSIMDViewExpertDLL.res
    branches/JCL_2.2/jcl/packages/d11/JclStackTraceViewerExpert.dproj
    branches/JCL_2.2/jcl/packages/d11/JclStackTraceViewerExpert.rc
    branches/JCL_2.2/jcl/packages/d11/JclStackTraceViewerExpert.res
    branches/JCL_2.2/jcl/packages/d11/JclStackTraceViewerExpertDLL.dproj
    branches/JCL_2.2/jcl/packages/d11/JclStackTraceViewerExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d11/JclStackTraceViewerExpertDLL.res
    branches/JCL_2.2/jcl/packages/d11/JclVcl.dproj
    branches/JCL_2.2/jcl/packages/d11/JclVcl.rc
    branches/JCL_2.2/jcl/packages/d11/JclVcl.res
    branches/JCL_2.2/jcl/packages/d11/JclVersionControlExpert.dproj
    branches/JCL_2.2/jcl/packages/d11/JclVersionControlExpert.rc
    branches/JCL_2.2/jcl/packages/d11/JclVersionControlExpert.res
    branches/JCL_2.2/jcl/packages/d11/JclVersionControlExpertDLL.dproj
    branches/JCL_2.2/jcl/packages/d11/JclVersionControlExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d11/JclVersionControlExpertDLL.res
    branches/JCL_2.2/jcl/packages/d12/Jcl.dproj
    branches/JCL_2.2/jcl/packages/d12/Jcl.rc
    branches/JCL_2.2/jcl/packages/d12/Jcl.res
    branches/JCL_2.2/jcl/packages/d12/JclBaseExpert.dproj
    branches/JCL_2.2/jcl/packages/d12/JclBaseExpert.rc
    branches/JCL_2.2/jcl/packages/d12/JclBaseExpert.res
    branches/JCL_2.2/jcl/packages/d12/JclContainers.dproj
    branches/JCL_2.2/jcl/packages/d12/JclContainers.rc
    branches/JCL_2.2/jcl/packages/d12/JclContainers.res
    branches/JCL_2.2/jcl/packages/d12/JclDebugExpert.dproj
    branches/JCL_2.2/jcl/packages/d12/JclDebugExpert.rc
    branches/JCL_2.2/jcl/packages/d12/JclDebugExpert.res
    branches/JCL_2.2/jcl/packages/d12/JclDebugExpertDLL.dproj
    branches/JCL_2.2/jcl/packages/d12/JclDebugExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d12/JclDebugExpertDLL.res
    branches/JCL_2.2/jcl/packages/d12/JclDeveloperTools.dproj
    branches/JCL_2.2/jcl/packages/d12/JclDeveloperTools.rc
    branches/JCL_2.2/jcl/packages/d12/JclDeveloperTools.res
    branches/JCL_2.2/jcl/packages/d12/JclFavoriteFoldersExpert.dproj
    branches/JCL_2.2/jcl/packages/d12/JclFavoriteFoldersExpert.rc
    branches/JCL_2.2/jcl/packages/d12/JclFavoriteFoldersExpert.res
    branches/JCL_2.2/jcl/packages/d12/JclFavoriteFoldersExpertDLL.dproj
    branches/JCL_2.2/jcl/packages/d12/JclFavoriteFoldersExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d12/JclFavoriteFoldersExpertDLL.res
    branches/JCL_2.2/jcl/packages/d12/JclProjectAnalysisExpert.dproj
    branches/JCL_2.2/jcl/packages/d12/JclProjectAnalysisExpert.rc
    branches/JCL_2.2/jcl/packages/d12/JclProjectAnalysisExpert.res
    branches/JCL_2.2/jcl/packages/d12/JclProjectAnalysisExpertDLL.dproj
    branches/JCL_2.2/jcl/packages/d12/JclProjectAnalysisExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d12/JclProjectAnalysisExpertDLL.res
    branches/JCL_2.2/jcl/packages/d12/JclRepositoryExpert.dproj
    branches/JCL_2.2/jcl/packages/d12/JclRepositoryExpert.rc
    branches/JCL_2.2/jcl/packages/d12/JclRepositoryExpert.res
    branches/JCL_2.2/jcl/packages/d12/JclRepositoryExpertDLL.dproj
    branches/JCL_2.2/jcl/packages/d12/JclRepositoryExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d12/JclRepositoryExpertDLL.res
    branches/JCL_2.2/jcl/packages/d12/JclSIMDViewExpert.dproj
    branches/JCL_2.2/jcl/packages/d12/JclSIMDViewExpert.rc
    branches/JCL_2.2/jcl/packages/d12/JclSIMDViewExpert.res
    branches/JCL_2.2/jcl/packages/d12/JclSIMDViewExpertDLL.dproj
    branches/JCL_2.2/jcl/packages/d12/JclSIMDViewExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d12/JclSIMDViewExpertDLL.res
    branches/JCL_2.2/jcl/packages/d12/JclStackTraceViewerExpert.dproj
    branches/JCL_2.2/jcl/packages/d12/JclStackTraceViewerExpert.rc
    branches/JCL_2.2/jcl/packages/d12/JclStackTraceViewerExpert.res
    branches/JCL_2.2/jcl/packages/d12/JclStackTraceViewerExpertDLL.dproj
    branches/JCL_2.2/jcl/packages/d12/JclStackTraceViewerExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d12/JclStackTraceViewerExpertDLL.res
    branches/JCL_2.2/jcl/packages/d12/JclVcl.dproj
    branches/JCL_2.2/jcl/packages/d12/JclVcl.rc
    branches/JCL_2.2/jcl/packages/d12/JclVcl.res
    branches/JCL_2.2/jcl/packages/d12/JclVersionControlExpert.dproj
    branches/JCL_2.2/jcl/packages/d12/JclVersionControlExpert.rc
    branches/JCL_2.2/jcl/packages/d12/JclVersionControlExpert.res
    branches/JCL_2.2/jcl/packages/d12/JclVersionControlExpertDLL.dproj
    branches/JCL_2.2/jcl/packages/d12/JclVersionControlExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d12/JclVersionControlExpertDLL.res
    branches/JCL_2.2/jcl/packages/d14/Jcl.dproj
    branches/JCL_2.2/jcl/packages/d14/Jcl.rc
    branches/JCL_2.2/jcl/packages/d14/Jcl.res
    branches/JCL_2.2/jcl/packages/d14/JclBaseExpert.dproj
    branches/JCL_2.2/jcl/packages/d14/JclBaseExpert.rc
    branches/JCL_2.2/jcl/packages/d14/JclBaseExpert.res
    branches/JCL_2.2/jcl/packages/d14/JclContainers.dproj
    branches/JCL_2.2/jcl/packages/d14/JclContainers.rc
    branches/JCL_2.2/jcl/packages/d14/JclContainers.res
    branches/JCL_2.2/jcl/packages/d14/JclDebugExpert.dproj
    branches/JCL_2.2/jcl/packages/d14/JclDebugExpert.rc
    branches/JCL_2.2/jcl/packages/d14/JclDebugExpert.res
    branches/JCL_2.2/jcl/packages/d14/JclDebugExpertDLL.dproj
    branches/JCL_2.2/jcl/packages/d14/JclDebugExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d14/JclDebugExpertDLL.res
    branches/JCL_2.2/jcl/packages/d14/JclDeveloperTools.dproj
    branches/JCL_2.2/jcl/packages/d14/JclDeveloperTools.rc
    branches/JCL_2.2/jcl/packages/d14/JclDeveloperTools.res
    branches/JCL_2.2/jcl/packages/d14/JclFavoriteFoldersExpert.dproj
    branches/JCL_2.2/jcl/packages/d14/JclFavoriteFoldersExpert.rc
    branches/JCL_2.2/jcl/packages/d14/JclFavoriteFoldersExpert.res
    branches/JCL_2.2/jcl/packages/d14/JclFavoriteFoldersExpertDLL.dproj
    branches/JCL_2.2/jcl/packages/d14/JclFavoriteFoldersExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d14/JclFavoriteFoldersExpertDLL.res
    branches/JCL_2.2/jcl/packages/d14/JclProjectAnalysisExpert.dproj
    branches/JCL_2.2/jcl/packages/d14/JclProjectAnalysisExpert.rc
    branches/JCL_2.2/jcl/packages/d14/JclProjectAnalysisExpert.res
    branches/JCL_2.2/jcl/packages/d14/JclProjectAnalysisExpertDLL.dproj
    branches/JCL_2.2/jcl/packages/d14/JclProjectAnalysisExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d14/JclProjectAnalysisExpertDLL.res
    branches/JCL_2.2/jcl/packages/d14/JclRepositoryExpert.dproj
    branches/JCL_2.2/jcl/packages/d14/JclRepositoryExpert.rc
    branches/JCL_2.2/jcl/packages/d14/JclRepositoryExpert.res
    branches/JCL_2.2/jcl/packages/d14/JclRepositoryExpertDLL.dproj
    branches/JCL_2.2/jcl/packages/d14/JclRepositoryExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d14/JclRepositoryExpertDLL.res
    branches/JCL_2.2/jcl/packages/d14/JclSIMDViewExpert.dproj
    branches/JCL_2.2/jcl/packages/d14/JclSIMDViewExpert.rc
    branches/JCL_2.2/jcl/packages/d14/JclSIMDViewExpert.res
    branches/JCL_2.2/jcl/packages/d14/JclSIMDViewExpertDLL.dproj
    branches/JCL_2.2/jcl/packages/d14/JclSIMDViewExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d14/JclSIMDViewExpertDLL.res
    branches/JCL_2.2/jcl/packages/d14/JclStackTraceViewerExpert.dproj
    branches/JCL_2.2/jcl/packages/d14/JclStackTraceViewerExpert.rc
    branches/JCL_2.2/jcl/packages/d14/JclStackTraceViewerExpert.res
    branches/JCL_2.2/jcl/packages/d14/JclStackTraceViewerExpertDLL.dproj
    branches/JCL_2.2/jcl/packages/d14/JclStackTraceViewerExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d14/JclStackTraceViewerExpertDLL.res
    branches/JCL_2.2/jcl/packages/d14/JclVcl.dproj
    branches/JCL_2.2/jcl/packages/d14/JclVcl.rc
    branches/JCL_2.2/jcl/packages/d14/JclVcl.res
    branches/JCL_2.2/jcl/packages/d14/JclVersionControlExpert.dproj
    branches/JCL_2.2/jcl/packages/d14/JclVersionControlExpert.rc
    branches/JCL_2.2/jcl/packages/d14/JclVersionControlExpert.res
    branches/JCL_2.2/jcl/packages/d14/JclVersionControlExpertDLL.dproj
    branches/JCL_2.2/jcl/packages/d14/JclVersionControlExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d14/JclVersionControlExpertDLL.res
    branches/JCL_2.2/jcl/packages/d15/Jcl.dproj
    branches/JCL_2.2/jcl/packages/d15/Jcl.rc
    branches/JCL_2.2/jcl/packages/d15/Jcl.res
    branches/JCL_2.2/jcl/packages/d15/JclBaseExpert.dproj
    branches/JCL_2.2/jcl/packages/d15/JclBaseExpert.rc
    branches/JCL_2.2/jcl/packages/d15/JclBaseExpert.res
    branches/JCL_2.2/jcl/packages/d15/JclContainers.dproj
    branches/JCL_2.2/jcl/packages/d15/JclContainers.rc
    branches/JCL_2.2/jcl/packages/d15/JclContainers.res
    branches/JCL_2.2/jcl/packages/d15/JclDebugExpert.dproj
    branches/JCL_2.2/jcl/packages/d15/JclDebugExpert.rc
    branches/JCL_2.2/jcl/packages/d15/JclDebugExpert.res
    branches/JCL_2.2/jcl/packages/d15/JclDebugExpertDLL.dproj
    branches/JCL_2.2/jcl/packages/d15/JclDebugExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d15/JclDebugExpertDLL.res
    branches/JCL_2.2/jcl/packages/d15/JclDeveloperTools.dproj
    branches/JCL_2.2/jcl/packages/d15/JclDeveloperTools.rc
    branches/JCL_2.2/jcl/packages/d15/JclDeveloperTools.res
    branches/JCL_2.2/jcl/packages/d15/JclFavoriteFoldersExpert.dproj
    branches/JCL_2.2/jcl/packages/d15/JclFavoriteFoldersExpert.rc
    branches/JCL_2.2/jcl/packages/d15/JclFavoriteFoldersExpert.res
    branches/JCL_2.2/jcl/packages/d15/JclFavoriteFoldersExpertDLL.dproj
    branches/JCL_2.2/jcl/packages/d15/JclFavoriteFoldersExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d15/JclFavoriteFoldersExpertDLL.res
    branches/JCL_2.2/jcl/packages/d15/JclProjectAnalysisExpert.dproj
    branches/JCL_2.2/jcl/packages/d15/JclProjectAnalysisExpert.rc
    branches/JCL_2.2/jcl/packages/d15/JclProjectAnalysisExpert.res
    branches/JCL_2.2/jcl/packages/d15/JclProjectAnalysisExpertDLL.dproj
    branches/JCL_2.2/jcl/packages/d15/JclProjectAnalysisExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d15/JclProjectAnalysisExpertDLL.res
    branches/JCL_2.2/jcl/packages/d15/JclRepositoryExpert.dproj
    branches/JCL_2.2/jcl/packages/d15/JclRepositoryExpert.rc
    branches/JCL_2.2/jcl/packages/d15/JclRepositoryExpert.res
    branches/JCL_2.2/jcl/packages/d15/JclRepositoryExpertDLL.dproj
    branches/JCL_2.2/jcl/packages/d15/JclRepositoryExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d15/JclRepositoryExpertDLL.res
    branches/JCL_2.2/jcl/packages/d15/JclSIMDViewExpert.dproj
    branches/JCL_2.2/jcl/packages/d15/JclSIMDViewExpert.rc
    branches/JCL_2.2/jcl/packages/d15/JclSIMDViewExpert.res
    branches/JCL_2.2/jcl/packages/d15/JclSIMDViewExpertDLL.dproj
    branches/JCL_2.2/jcl/packages/d15/JclSIMDViewExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d15/JclSIMDViewExpertDLL.res
    branches/JCL_2.2/jcl/packages/d15/JclStackTraceViewerExpert.dproj
    branches/JCL_2.2/jcl/packages/d15/JclStackTraceViewerExpert.rc
    branches/JCL_2.2/jcl/packages/d15/JclStackTraceViewerExpert.res
    branches/JCL_2.2/jcl/packages/d15/JclStackTraceViewerExpertDLL.dproj
    branches/JCL_2.2/jcl/packages/d15/JclStackTraceViewerExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d15/JclStackTraceViewerExpertDLL.res
    branches/JCL_2.2/jcl/packages/d15/JclVcl.dproj
    branches/JCL_2.2/jcl/packages/d15/JclVcl.rc
    branches/JCL_2.2/jcl/packages/d15/JclVcl.res
    branches/JCL_2.2/jcl/packages/d15/JclVersionControlExpert.dproj
    branches/JCL_2.2/jcl/packages/d15/JclVersionControlExpert.rc
    branches/JCL_2.2/jcl/packages/d15/JclVersionControlExpert.res
    branches/JCL_2.2/jcl/packages/d15/JclVersionControlExpertDLL.dproj
    branches/JCL_2.2/jcl/packages/d15/JclVersionControlExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d15/JclVersionControlExpertDLL.res
    branches/JCL_2.2/jcl/packages/d6/Jcl.rc
    branches/JCL_2.2/jcl/packages/d6/Jcl.res
    branches/JCL_2.2/jcl/packages/d6/JclBaseExpert.rc
    branches/JCL_2.2/jcl/packages/d6/JclBaseExpert.res
    branches/JCL_2.2/jcl/packages/d6/JclContainers.rc
    branches/JCL_2.2/jcl/packages/d6/JclContainers.res
    branches/JCL_2.2/jcl/packages/d6/JclDebugExpert.rc
    branches/JCL_2.2/jcl/packages/d6/JclDebugExpert.res
    branches/JCL_2.2/jcl/packages/d6/JclDebugExpertDLL.RES
    branches/JCL_2.2/jcl/packages/d6/JclDebugExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d6/JclDeveloperTools.rc
    branches/JCL_2.2/jcl/packages/d6/JclDeveloperTools.res
    branches/JCL_2.2/jcl/packages/d6/JclFavoriteFoldersExpert.rc
    branches/JCL_2.2/jcl/packages/d6/JclFavoriteFoldersExpert.res
    branches/JCL_2.2/jcl/packages/d6/JclFavoriteFoldersExpertDLL.RES
    branches/JCL_2.2/jcl/packages/d6/JclFavoriteFoldersExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d6/JclProjectAnalysisExpert.RES
    branches/JCL_2.2/jcl/packages/d6/JclProjectAnalysisExpert.rc
    branches/JCL_2.2/jcl/packages/d6/JclProjectAnalysisExpertDLL.RES
    branches/JCL_2.2/jcl/packages/d6/JclProjectAnalysisExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d6/JclRepositoryExpert.rc
    branches/JCL_2.2/jcl/packages/d6/JclRepositoryExpert.res
    branches/JCL_2.2/jcl/packages/d6/JclRepositoryExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d6/JclRepositoryExpertDLL.res
    branches/JCL_2.2/jcl/packages/d6/JclSIMDViewExpert.rc
    branches/JCL_2.2/jcl/packages/d6/JclSIMDViewExpert.res
    branches/JCL_2.2/jcl/packages/d6/JclSIMDViewExpertDLL.RES
    branches/JCL_2.2/jcl/packages/d6/JclSIMDViewExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d6/JclStackTraceViewerExpert.rc
    branches/JCL_2.2/jcl/packages/d6/JclStackTraceViewerExpert.res
    branches/JCL_2.2/jcl/packages/d6/JclStackTraceViewerExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d6/JclStackTraceViewerExpertDLL.res
    branches/JCL_2.2/jcl/packages/d6/JclThreadNameExpert.rc
    branches/JCL_2.2/jcl/packages/d6/JclThreadNameExpert.res
    branches/JCL_2.2/jcl/packages/d6/JclThreadNameExpertDLL.RES
    branches/JCL_2.2/jcl/packages/d6/JclThreadNameExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d6/JclUsesExpert.rc
    branches/JCL_2.2/jcl/packages/d6/JclUsesExpert.res
    branches/JCL_2.2/jcl/packages/d6/JclUsesExpertDLL.RES
    branches/JCL_2.2/jcl/packages/d6/JclUsesExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d6/JclVcl.rc
    branches/JCL_2.2/jcl/packages/d6/JclVcl.res
    branches/JCL_2.2/jcl/packages/d6/JclVersionControlExpert.rc
    branches/JCL_2.2/jcl/packages/d6/JclVersionControlExpert.res
    branches/JCL_2.2/jcl/packages/d6/JclVersionControlExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d6/JclVersionControlExpertDLL.res
    branches/JCL_2.2/jcl/packages/d7/Jcl.rc
    branches/JCL_2.2/jcl/packages/d7/Jcl.res
    branches/JCL_2.2/jcl/packages/d7/JclBaseExpert.rc
    branches/JCL_2.2/jcl/packages/d7/JclBaseExpert.res
    branches/JCL_2.2/jcl/packages/d7/JclContainers.rc
    branches/JCL_2.2/jcl/packages/d7/JclContainers.res
    branches/JCL_2.2/jcl/packages/d7/JclDebugExpert.rc
    branches/JCL_2.2/jcl/packages/d7/JclDebugExpert.res
    branches/JCL_2.2/jcl/packages/d7/JclDebugExpertDLL.RES
    branches/JCL_2.2/jcl/packages/d7/JclDebugExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d7/JclDeveloperTools.rc
    branches/JCL_2.2/jcl/packages/d7/JclDeveloperTools.res
    branches/JCL_2.2/jcl/packages/d7/JclFavoriteFoldersExpert.rc
    branches/JCL_2.2/jcl/packages/d7/JclFavoriteFoldersExpert.res
    branches/JCL_2.2/jcl/packages/d7/JclFavoriteFoldersExpertDLL.RES
    branches/JCL_2.2/jcl/packages/d7/JclFavoriteFoldersExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d7/JclProjectAnalysisExpert.RES
    branches/JCL_2.2/jcl/packages/d7/JclProjectAnalysisExpert.rc
    branches/JCL_2.2/jcl/packages/d7/JclProjectAnalysisExpertDLL.RES
    branches/JCL_2.2/jcl/packages/d7/JclProjectAnalysisExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d7/JclRepositoryExpert.rc
    branches/JCL_2.2/jcl/packages/d7/JclRepositoryExpert.res
    branches/JCL_2.2/jcl/packages/d7/JclRepositoryExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d7/JclRepositoryExpertDLL.res
    branches/JCL_2.2/jcl/packages/d7/JclSIMDViewExpert.rc
    branches/JCL_2.2/jcl/packages/d7/JclSIMDViewExpert.res
    branches/JCL_2.2/jcl/packages/d7/JclSIMDViewExpertDLL.RES
    branches/JCL_2.2/jcl/packages/d7/JclSIMDViewExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d7/JclStackTraceViewerExpert.rc
    branches/JCL_2.2/jcl/packages/d7/JclStackTraceViewerExpert.res
    branches/JCL_2.2/jcl/packages/d7/JclStackTraceViewerExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d7/JclStackTraceViewerExpertDLL.res
    branches/JCL_2.2/jcl/packages/d7/JclUsesExpert.rc
    branches/JCL_2.2/jcl/packages/d7/JclUsesExpert.res
    branches/JCL_2.2/jcl/packages/d7/JclUsesExpertDLL.RES
    branches/JCL_2.2/jcl/packages/d7/JclUsesExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d7/JclVcl.rc
    branches/JCL_2.2/jcl/packages/d7/JclVcl.res
    branches/JCL_2.2/jcl/packages/d7/JclVersionControlExpert.rc
    branches/JCL_2.2/jcl/packages/d7/JclVersionControlExpert.res
    branches/JCL_2.2/jcl/packages/d7/JclVersionControlExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d7/JclVersionControlExpertDLL.res
    branches/JCL_2.2/jcl/packages/d8/Jcl.RES
    branches/JCL_2.2/jcl/packages/d8/Jcl.bdsproj
    branches/JCL_2.2/jcl/packages/d8/Jcl.rc
    branches/JCL_2.2/jcl/packages/d8/JclBaseExpert.RES
    branches/JCL_2.2/jcl/packages/d8/JclBaseExpert.bdsproj
    branches/JCL_2.2/jcl/packages/d8/JclBaseExpert.rc
    branches/JCL_2.2/jcl/packages/d8/JclContainers.bdsproj
    branches/JCL_2.2/jcl/packages/d8/JclContainers.rc
    branches/JCL_2.2/jcl/packages/d8/JclContainers.res
    branches/JCL_2.2/jcl/packages/d8/JclDeveloperTools.bdsproj
    branches/JCL_2.2/jcl/packages/d8/JclDeveloperTools.rc
    branches/JCL_2.2/jcl/packages/d8/JclDeveloperTools.res
    branches/JCL_2.2/jcl/packages/d8/JclFavoriteFoldersExpertDLL.RES
    branches/JCL_2.2/jcl/packages/d8/JclFavoriteFoldersExpertDLL.bdsproj
    branches/JCL_2.2/jcl/packages/d8/JclFavoriteFoldersExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d8/JclVersionControlExpertDLL.bdsproj
    branches/JCL_2.2/jcl/packages/d8/JclVersionControlExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d8/JclVersionControlExpertDLL.res
    branches/JCL_2.2/jcl/packages/d9/Jcl.RES
    branches/JCL_2.2/jcl/packages/d9/Jcl.bdsproj
    branches/JCL_2.2/jcl/packages/d9/Jcl.rc
    branches/JCL_2.2/jcl/packages/d9/JclBaseExpert.bdsproj
    branches/JCL_2.2/jcl/packages/d9/JclBaseExpert.rc
    branches/JCL_2.2/jcl/packages/d9/JclBaseExpert.res
    branches/JCL_2.2/jcl/packages/d9/JclContainers.bdsproj
    branches/JCL_2.2/jcl/packages/d9/JclContainers.rc
    branches/JCL_2.2/jcl/packages/d9/JclContainers.res
    branches/JCL_2.2/jcl/packages/d9/JclDebugExpert.RES
    branches/JCL_2.2/jcl/packages/d9/JclDebugExpert.bdsproj
    branches/JCL_2.2/jcl/packages/d9/JclDebugExpert.rc
    branches/JCL_2.2/jcl/packages/d9/JclDebugExpertDLL.RES
    branches/JCL_2.2/jcl/packages/d9/JclDebugExpertDLL.bdsproj
    branches/JCL_2.2/jcl/packages/d9/JclDebugExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d9/JclDeveloperTools.bdsproj
    branches/JCL_2.2/jcl/packages/d9/JclDeveloperTools.rc
    branches/JCL_2.2/jcl/packages/d9/JclDeveloperTools.res
    branches/JCL_2.2/jcl/packages/d9/JclFavoriteFoldersExpert.bdsproj
    branches/JCL_2.2/jcl/packages/d9/JclFavoriteFoldersExpert.rc
    branches/JCL_2.2/jcl/packages/d9/JclFavoriteFoldersExpert.res
    branches/JCL_2.2/jcl/packages/d9/JclFavoriteFoldersExpertDLL.RES
    branches/JCL_2.2/jcl/packages/d9/JclFavoriteFoldersExpertDLL.bdsproj
    branches/JCL_2.2/jcl/packages/d9/JclFavoriteFoldersExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d9/JclProjectAnalysisExpert.RES
    branches/JCL_2.2/jcl/packages/d9/JclProjectAnalysisExpert.bdsproj
    branches/JCL_2.2/jcl/packages/d9/JclProjectAnalysisExpert.rc
    branches/JCL_2.2/jcl/packages/d9/JclProjectAnalysisExpertDLL.RES
    branches/JCL_2.2/jcl/packages/d9/JclProjectAnalysisExpertDLL.bdsproj
    branches/JCL_2.2/jcl/packages/d9/JclProjectAnalysisExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d9/JclRepositoryExpert.bdsproj
    branches/JCL_2.2/jcl/packages/d9/JclRepositoryExpert.rc
    branches/JCL_2.2/jcl/packages/d9/JclRepositoryExpert.res
    branches/JCL_2.2/jcl/packages/d9/JclRepositoryExpertDLL.bdsproj
    branches/JCL_2.2/jcl/packages/d9/JclRepositoryExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d9/JclRepositoryExpertDLL.res
    branches/JCL_2.2/jcl/packages/d9/JclSIMDViewExpert.bdsproj
    branches/JCL_2.2/jcl/packages/d9/JclSIMDViewExpert.rc
    branches/JCL_2.2/jcl/packages/d9/JclSIMDViewExpertDLL.RES
    branches/JCL_2.2/jcl/packages/d9/JclSIMDViewExpertDLL.bdsproj
    branches/JCL_2.2/jcl/packages/d9/JclSIMDViewExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d9/JclSimdViewExpert.RES
    branches/JCL_2.2/jcl/packages/d9/JclStackTraceViewerExpert.bdsproj
    branches/JCL_2.2/jcl/packages/d9/JclStackTraceViewerExpert.rc
    branches/JCL_2.2/jcl/packages/d9/JclStackTraceViewerExpert.res
    branches/JCL_2.2/jcl/packages/d9/JclStackTraceViewerExpertDLL.bdsproj
    branches/JCL_2.2/jcl/packages/d9/JclStackTraceViewerExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d9/JclStackTraceViewerExpertDLL.res
    branches/JCL_2.2/jcl/packages/d9/JclVcl.RES
    branches/JCL_2.2/jcl/packages/d9/JclVcl.bdsproj
    branches/JCL_2.2/jcl/packages/d9/JclVcl.rc
    branches/JCL_2.2/jcl/packages/d9/JclVersionControlExpert.bdsproj
    branches/JCL_2.2/jcl/packages/d9/JclVersionControlExpert.rc
    branches/JCL_2.2/jcl/packages/d9/JclVersionControlExpert.res
    branches/JCL_2.2/jcl/packages/d9/JclVersionControlExpertDLL.bdsproj
    branches/JCL_2.2/jcl/packages/d9/JclVersionControlExpertDLL.rc
    branches/JCL_2.2/jcl/packages/d9/JclVersionControlExpertDLL.res
    branches/JCL_2.2/jcl/packages/fpc/Jcl.lpk
    branches/JCL_2.2/jcl/packages/fpc/JclContainers.lpk
    branches/JCL_2.2/jcl/packages/fpc/JclDeveloperTools.lpk
    branches/JCL_2.2/jcl/source/common/JclBase.pas

Modified: branches/JCL_2.2/jcl/devtools/pgEdit.xml
===================================================================
--- branches/JCL_2.2/jcl/devtools/pgEdit.xml	2010-10-20 20:35:14 UTC (rev 3382)
+++ branches/JCL_2.2/jcl/devtools/pgEdit.xml	2010-10-21 07:29:32 UTC (rev 3383)
@@ -98,7 +98,7 @@
         <ProjectProperty name="VersionMajorNumber" value="2"/>
         <ProjectProperty name="VersionMinorNumber" value="2"/>
         <ProjectProperty name="ReleaseNumber" value="1"/>
-        <ProjectProperty name="BuildNumber" value="3845"/>
+        <ProjectProperty name="BuildNumber" value="3886"/>
       </ProjectProperties>
     </Model>
   </models>

Modified: branches/JCL_2.2/jcl/docs/Experts.html
===================================================================
--- branches/JCL_2.2/jcl/docs/Experts.html	2010-10-20 20:35:14 UTC (rev 3382)
+++ branches/JCL_2.2/jcl/docs/Experts.html	2010-10-21 07:29:32 UTC (rev 3383)
@@ -11,8 +11,8 @@
 <hr><br>
 <h1>JEDI Code Library</h1>
 <p>Release 2.2<br>
-Build 3845<br>
-10-September-2010</p>
+Build 3886<br>
+21-October-2010</p>
 <hr><br>
 <h3>Content of this file</h3>
 <ul>

Modified: branches/JCL_2.2/jcl/docs/Readme.html
===================================================================
--- branches/JCL_2.2/jcl/docs/Readme.html	2010-10-20 20:35:14 UTC (rev 3382)
+++ branches/JCL_2.2/jcl/docs/Readme.html	2010-10-21 07:29:32 UTC (rev 3383)
@@ -15,8 +15,8 @@
 <h1>JEDI Code Library</h1>
 
 <p>Release 2.2<br>
-Build 3845<br>
-10-September-2010</p>
+Build 3886<br>
+21-October-2010</p>
 
 <hr><br>
 
@@ -63,6 +63,7 @@
 
 <ul>
 
+ <li>BZip2 is updated to 1.0.6</li>
  <li>PCRE is updated to 8.02</li>
  <li>The JEDI PreProcessor is now merged to JCL runtime code, you can embed it in your own application</li>
  <li>ZLib is updated to 1.2.5</li>

Modified: branches/JCL_2.2/jcl/docs/Readme.txt
===================================================================
--- branches/JCL_2.2/jcl/docs/Readme.txt	2010-10-20 20:35:14 UTC (rev 3382)
+++ branches/JCL_2.2/jcl/docs/Readme.txt	2010-10-21 07:29:32 UTC (rev 3383)
@@ -3,8 +3,8 @@
 
 JEDI Code Library
 Release 2.2
-Build 3845
-10-September-2010
+Build 3886
+21-October-2010
 
 
 --------------------------------------------------------------------------------
@@ -32,6 +32,7 @@
 
 Head changes: 
 
+BZip2 is updated to 1.0.6
 PCRE is updated to 8.02 
 The JEDI PreProcessor is now merged to JCL runtime code, you can embed it in your own application 
 ZLib is updated to 1.2.5 

Modified: branches/JCL_2.2/jcl/packages/c6/Jcl.RES
===================================================================
(Binary files differ)

Modified: branches/JCL_2.2/jcl/packages/c6/Jcl.rc
===================================================================
--- branches/JCL_2.2/jcl/packages/c6/Jcl.rc	2010-10-20 20:35:14 UTC (rev 3382)
+++ branches/JCL_2.2/jcl/packages/c6/Jcl.rc	2010-10-21 07:29:32 UTC (rev 3383)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 2,2,1,3845
-PRODUCTVERSION 2,2,1,3845
+FILEVERSION 2,2,1,3886
+PRODUCTVERSION 2,2,1,3886
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JEDI Code Library RTL package\0"
-              VALUE "FileVersion", "2.2.1.3845\0"
+              VALUE "FileVersion", "2.2.1.3886\0"
               VALUE "InternalName", "Jcl\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2009 Project JEDI\0"
               VALUE "OriginalFilename", "JclC60.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "2.2 Build 3845\0"
+              VALUE "ProductVersion", "2.2 Build 3886\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: branches/JCL_2.2/jcl/packages/c6/JclBaseExpert.rc
===================================================================
--- branches/JCL_2.2/jcl/packages/c6/JclBaseExpert.rc	2010-10-20 20:35:14 UTC (rev 3382)
+++ branches/JCL_2.2/jcl/packages/c6/JclBaseExpert.rc	2010-10-21 07:29:32 UTC (rev 3383)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 2,2,1,3845
-PRODUCTVERSION 2,2,1,3845
+FILEVERSION 2,2,1,3886
+PRODUCTVERSION 2,2,1,3886
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JCL Package containing common units for JCL Experts\0"
-              VALUE "FileVersion", "2.2.1.3845\0"
+              VALUE "FileVersion", "2.2.1.3886\0"
               VALUE "InternalName", "JclBaseExpert\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2009 Project JEDI\0"
               VALUE "OriginalFilename", "JclBaseExpertC60.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "2.2 Build 3845\0"
+              VALUE "ProductVersion", "2.2 Build 3886\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: branches/JCL_2.2/jcl/packages/c6/JclBaseExpert.res
===================================================================
(Binary files differ)

Modified: branches/JCL_2.2/jcl/packages/c6/JclContainers.rc
===================================================================
--- branches/JCL_2.2/jcl/packages/c6/JclContainers.rc	2010-10-20 20:35:14 UTC (rev 3382)
+++ branches/JCL_2.2/jcl/packages/c6/JclContainers.rc	2010-10-21 07:29:32 UTC (rev 3383)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 2,2,1,3845
-PRODUCTVERSION 2,2,1,3845
+FILEVERSION 2,2,1,3886
+PRODUCTVERSION 2,2,1,3886
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JEDI Code Library Containers package\0"
-              VALUE "FileVersion", "2.2.1.3845\0"
+              VALUE "FileVersion", "2.2.1.3886\0"
               VALUE "InternalName", "JclContainers\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2009 Project JEDI\0"
               VALUE "OriginalFilename", "JclContainersC60.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "2.2 Build 3845\0"
+              VALUE "ProductVersion", "2.2 Build 3886\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: branches/JCL_2.2/jcl/packages/c6/JclContainers.res
===================================================================
(Binary files differ)

Modified: branches/JCL_2.2/jcl/packages/c6/JclDebugExpert.RES
===================================================================
(Binary files differ)

Modified: branches/JCL_2.2/jcl/packages/c6/JclDebugExpert.rc
===================================================================
--- branches/JCL_2.2/jcl/packages/c6/JclDebugExpert.rc	2010-10-20 20:35:14 UTC (rev 3382)
+++ branches/JCL_2.2/jcl/packages/c6/JclDebugExpert.rc	2010-10-21 07:29:32 UTC (rev 3383)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 2,2,1,3845
-PRODUCTVERSION 2,2,1,3845
+FILEVERSION 2,2,1,3886
+PRODUCTVERSION 2,2,1,3886
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JCL Debug IDE extension\0"
-              VALUE "FileVersion", "2.2.1.3845\0"
+              VALUE "FileVersion", "2.2.1.3886\0"
               VALUE "InternalName", "JclDebugExpert\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2009 Project JEDI\0"
               VALUE "OriginalFilename", "JclDebugExpertC60.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "2.2 Build 3845\0"
+              VALUE "ProductVersion", "2.2 Build 3886\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: branches/JCL_2.2/jcl/packages/c6/JclDebugExpertDLL.rc
===================================================================
--- branches/JCL_2.2/jcl/packages/c6/JclDebugExpertDLL.rc	2010-10-20 20:35:14 UTC (rev 3382)
+++ branches/JCL_2.2/jcl/packages/c6/JclDebugExpertDLL.rc	2010-10-21 07:29:32 UTC (rev 3383)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 2,2,1,3845
-PRODUCTVERSION 2,2,1,3845
+FILEVERSION 2,2,1,3886
+PRODUCTVERSION 2,2,1,3886
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JCL Debug IDE extension\0"
-              VALUE "FileVersion", "2.2.1.3845\0"
+              VALUE "FileVersion", "2.2.1.3886\0"
               VALUE "InternalName", "JclDebugExpertDLL\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2009 Project JEDI\0"
               VALUE "OriginalFilename", "JclDebugExpertDLLC60.dll\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "2.2 Build 3845\0"
+              VALUE "ProductVersion", "2.2 Build 3886\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: branches/JCL_2.2/jcl/packages/c6/JclDebugExpertDLL.res
===================================================================
(Binary files differ)

Modified: branches/JCL_2.2/jcl/packages/c6/JclDeveloperTools.rc
===================================================================
--- branches/JCL_2.2/jcl/packages/c6/JclDeveloperTools.rc	2010-10-20 20:35:14 UTC (rev 3382)
+++ branches/JCL_2.2/jcl/packages/c6/JclDeveloperTools.rc	2010-10-21 07:29:32 UTC (rev 3383)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 2,2,1,3845
-PRODUCTVERSION 2,2,1,3845
+FILEVERSION 2,2,1,3886
+PRODUCTVERSION 2,2,1,3886
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JEDI Code Library Developer Tools package\0"
-              VALUE "FileVersion", "2.2.1.3845\0"
+              VALUE "FileVersion", "2.2.1.3886\0"
               VALUE "InternalName", "JclDeveloperTools\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2009 Project JEDI\0"
               VALUE "OriginalFilename", "JclDeveloperToolsC60.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "2.2 Build 3845\0"
+              VALUE "ProductVersion", "2.2 Build 3886\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: branches/JCL_2.2/jcl/packages/c6/JclDeveloperTools.res
===================================================================
(Binary files differ)

Modified: branches/JCL_2.2/jcl/packages/c6/JclFavoriteFoldersExpert.RES
===================================================================
(Binary files differ)

Modified: branches/JCL_2.2/jcl/packages/c6/JclFavoriteFoldersExpert.rc
===================================================================
--- branches/JCL_2.2/jcl/packages/c6/JclFavoriteFoldersExpert.rc	2010-10-20 20:35:14 UTC (rev 3382)
+++ branches/JCL_2.2/jcl/packages/c6/JclFavoriteFoldersExpert.rc	2010-10-21 07:29:32 UTC (rev 3383)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 2,2,1,3845
-PRODUCTVERSION 2,2,1,3845
+FILEVERSION 2,2,1,3886
+PRODUCTVERSION 2,2,1,3886
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JCL Open and Save IDE dialogs with favorite folders\0"
-              VALUE "FileVersion", "2.2.1.3845\0"
+              VALUE "FileVersion", "2.2.1.3886\0"
               VALUE "InternalName", "JclFavoriteFoldersExpert\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2009 Project JEDI\0"
               VALUE "OriginalFilename", "JclFavoriteFoldersExpertC60.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "2.2 Build 3845\0"
+              VALUE "ProductVersion", "2.2 Build 3886\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: branches/JCL_2.2/jcl/packages/c6/JclFavoriteFoldersExpertDLL.rc
===================================================================
--- branches/JCL_2.2/jcl/packages/c6/JclFavoriteFoldersExpertDLL.rc	2010-10-20 20:35:14 UTC (rev 3382)
+++ branches/JCL_2.2/jcl/packages/c6/JclFavoriteFoldersExpertDLL.rc	2010-10-21 07:29:32 UTC (rev 3383)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 2,2,1,3845
-PRODUCTVERSION 2,2,1,3845
+FILEVERSION 2,2,1,3886
+PRODUCTVERSION 2,2,1,3886
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JCL Open and Save IDE dialogs with favorite folders\0"
-              VALUE "FileVersion", "2.2.1.3845\0"
+              VALUE "FileVersion", "2.2.1.3886\0"
               VALUE "InternalName", "JclFavoriteFoldersExpertDLL\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2009 Project JEDI\0"
               VALUE "OriginalFilename", "JclFavoriteFoldersExpertDLLC60.dll\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "2.2 Build 3845\0"
+              VALUE "ProductVersion", "2.2 Build 3886\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: branches/JCL_2.2/jcl/packages/c6/JclFavoriteFoldersExpertDLL.res
===================================================================
(Binary files differ)

Modified: branches/JCL_2.2/jcl/packages/c6/JclProjectAnalysisExpert.RES
===================================================================
(Binary files differ)

Modified: branches/JCL_2.2/jcl/packages/c6/JclProjectAnalysisExpert.rc
===================================================================
--- branches/JCL_2.2/jcl/packages/c6/JclProjectAnalysisExpert.rc	2010-10-20 20:35:14 UTC (rev 3382)
+++ branches/JCL_2.2/jcl/packages/c6/JclProjectAnalysisExpert.rc	2010-10-21 07:29:32 UTC (rev 3383)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 2,2,1,3845
-PRODUCTVERSION 2,2,1,3845
+FILEVERSION 2,2,1,3886
+PRODUCTVERSION 2,2,1,3886
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JCL Project Analyzer\0"
-              VALUE "FileVersion", "2.2.1.3845\0"
+              VALUE "FileVersion", "2.2.1.3886\0"
               VALUE "InternalName", "JclProjectAnalysisExpert\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2009 Project JEDI\0"
               VALUE "OriginalFilename", "JclProjectAnalysisExpertC60.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "2.2 Build 3845\0"
+              VALUE "ProductVersion", "2.2 Build 3886\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: branches/JCL_2.2/jcl/packages/c6/JclProjectAnalysisExpertDLL.rc
===================================================================
--- branches/JCL_2.2/jcl/packages/c6/JclProjectAnalysisExpertDLL.rc	2010-10-20 20:35:14 UTC (rev 3382)
+++ branches/JCL_2.2/jcl/packages/c6/JclProjectAnalysisExpertDLL.rc	2010-10-21 07:29:32 UTC (rev 3383)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 2,2,1,3845
-PRODUCTVERSION 2,2,1,3845
+FILEVERSION 2,2,1,3886
+PRODUCTVERSION 2,2,1,3886
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JCL Project Analyzer\0"
-              VALUE "FileVersion", "2.2.1.3845\0"
+              VALUE "FileVersion", "2.2.1.3886\0"
               VALUE "InternalName", "JclProjectAnalysisExpertDLL\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2009 Project JEDI\0"
               VALUE "OriginalFilename", "JclProjectAnalysisExpertDLLC60.dll\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "2.2 Build 3845\0"
+              VALUE "ProductVersion", "2.2 Build 3886\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: branches/JCL_2.2/jcl/packages/c6/JclProjectAnalysisExpertDLL.res
===================================================================
(Binary files differ)

Modified: branches/JCL_2.2/jcl/packages/c6/JclRepositoryExpert.rc
===================================================================
--- branches/JCL_2.2/jcl/packages/c6/JclRepositoryExpert.rc	2010-10-20 20:35:14 UTC (rev 3382)
+++ branches/JCL_2.2/jcl/packages/c6/JclRepositoryExpert.rc	2010-10-21 07:29:32 UTC (rev 3383)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 2,2,1,3845
-PRODUCTVERSION 2,2,1,3845
+FILEVERSION 2,2,1,3886
+PRODUCTVERSION 2,2,1,3886
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JCL Package containing repository wizards\0"
-              VALUE "FileVersion", "2.2.1.3845\0"
+              VALUE "FileVersion", "2.2.1.3886\0"
               VALUE "InternalName", "JclRepositoryExpert\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2009 Project JEDI\0"
               VALUE "OriginalFilename", "JclRepositoryExpertC60.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "2.2 Build 3845\0"
+              VALUE "ProductVersion", "2.2 Build 3886\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: branches/JCL_2.2/jcl/packages/c6/JclRepositoryExpert.res
===================================================================
(Binary files differ)

Modified: branches/JCL_2.2/jcl/packages/c6/JclRepositoryExpertDLL.rc
===================================================================
--- branches/JCL_2.2/jcl/packages/c6/JclRepositoryExpertDLL.rc	2010-10-20 20:35:14 UTC (rev 3382)
+++ branches/JCL_2.2/jcl/packages/c6/JclRepositoryExpertDLL.rc	2010-10-21 07:29:32 UTC (rev 3383)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 2,2,1,3845
-PRODUCTVERSION 2,2,1,3845
+FILEVERSION 2,2,1,3886
+PRODUCTVERSION 2,2,1,3886
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JCL Package containing repository wizards\0"
-              VALUE "FileVersion", "2.2.1.3845\0"
+              VALUE "FileVersion", "2.2.1.3886\0"
               VALUE "InternalName", "JclRepositoryExpertDLL\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2009 Project JEDI\0"
               VALUE "OriginalFilename", "JclRepositoryExpertDLLC60.dll\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "2.2 Build 3845\0"
+              VALUE "ProductVersion", "2.2 Build 3886\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: branches/JCL_2.2/jcl/packages/c6/JclRepositoryExpertDLL.res
===================================================================
(Binary files differ)

Modified: branches/JCL_2.2/jcl/packages/c6/JclSIMDViewExpert.rc
===================================================================
--- branches/JCL_2.2/jcl/packages/c6/JclSIMDViewExpert.rc	2010-10-20 20:35:14 UTC (rev 3382)
+++ branches/JCL_2.2/jcl/packages/c6/JclSIMDViewExpert.rc	2010-10-21 07:29:32 UTC (rev 3383)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 2,2,1,3845
-PRODUCTVERSION 2,2,1,3845
+FILEVERSION 2,2,1,3886
+PRODUCTVERSION 2,2,1,3886
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JCL Debug Window of XMM registers\0"
-              VALUE "FileVersion", "2.2.1.3845\0"
+              VALUE "FileVersion", "2.2.1.3886\0"
               VALUE "InternalName", "JclSIMDViewExpert\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2009 Project JEDI\0"
               VALUE "OriginalFilename", "JclSIMDViewExpertC60.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "2.2 Build 3845\0"
+              VALUE "ProductVersion", "2.2 Build 3886\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: branches/JCL_2.2/jcl/packages/c6/JclSIMDViewExpert.res
===================================================================
(Binary files differ)

Modified: branches/JCL_2.2/jcl/packages/c6/JclSIMDViewExpertDLL.rc
===================================================================
--- branches/JCL_2.2/jcl/packages/c6/JclSIMDViewExpertDLL.rc	2010-10-20 20:35:14 UTC (rev 3382)
+++ branches/JCL_2.2/jcl/packages/c6/JclSIMDViewExpertDLL.rc	2010-10-21 07:29:32 UTC (rev 3383)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 2,2,1,3845
-PRODUCTVERSION 2,2,1,3845
+FILEVERSION 2,2,1,3886
+PRODUCTVERSION 2,2,1,3886
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JCL Debug Window of XMM registers\0"
-              VALUE "FileVersion", "2.2.1.3845\0"
+              VALUE "FileVersion", "2.2.1.3886\0"
               VALUE "InternalName", "JclSIMDViewExpertDLL\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2009 Project JEDI\0"
               VALUE "OriginalFilename", "JclSIMDViewExpertDLLC60.dll\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "2.2 Build 3845\0"
+              VALUE "ProductVersion", "2.2 Build 3886\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: branches/JCL_2.2/jcl/packages/c6/JclSIMDViewExpertDLL.res
===================================================================
(Binary files differ)

Modified: branches/JCL_2.2/jcl/packages/c6/JclStackTraceViewerExpert.rc
===================================================================
--- branches/JCL_2.2/jcl/packages/c6/JclStackTraceViewerExpert.rc	2010-10-20 20:35:14 UTC (rev 3382)
+++ branches/JCL_2.2/jcl/packages/c6/JclStackTraceViewerExpert.rc	2010-10-21 07:29:32 UTC (rev 3383)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 2,2,1,3845
-PRODUCTVERSION 2,2,1,3845
+FILEVERSION 2,2,1,3886
+PRODUCTVERSION 2,2,1,3886
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JCL Stack Trace Viewer\0"
-              VALUE "FileVersion", "2.2.1.3845\0"
+              VALUE "FileVersion", "2.2.1.3886\0"
               VALUE "InternalName", "JclStackTraceViewerExpert\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2009 Project JEDI\0"
               VALUE "OriginalFilename", "JclStackTraceViewerExpertC60.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "2.2 Build 3845\0"
+              VALUE "ProductVersion", "2.2 Build 3886\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: branches/JCL_2.2/jcl/packages/c6/JclStackTraceViewerExpert.res
===================================================================
(Binary files differ)

Modified: branches/JCL_2.2/jcl/packages/c6/JclStackTraceViewerExpertDLL.rc
===================================================================
--- branches/JCL_2.2/jcl/packages/c6/JclStackTraceViewerExpertDLL.rc	2010-10-20 20:35:14 UTC (rev 3382)
+++ branches/JCL_2.2/jcl/packages/c6/JclStackTraceViewerExpertDLL.rc	2010-10-21 07:29:32 UTC (rev 3383)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 2,2,1,3845
-PRODUCTVERSION 2,2,1,3845
+FILEVERSION 2,2,1,3886
+PRODUCTVERSION 2,2,1,3886
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JCL Stack Trace Viewer\0"
-              VALUE "FileVersion", "2.2.1.3845\0"
+              VALUE "FileVersion", "2.2.1.3886\0"
               VALUE "InternalName", "JclStackTraceViewerExpertDLL\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2009 Project JEDI\0"
               VALUE "OriginalFilename", "JclStackTraceViewerExpertDLLC60.dll\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "2.2 Build 3845\0"
+              VALUE "ProductVersion", "2.2 Build 3886\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: branches/JCL_2.2/jcl/packages/c6/JclStackTraceViewerExpertDLL.res
===================================================================
(Binary files differ)

Modified: branches/JCL_2.2/jcl/packages/c6/JclThreadNameExpert.RES
===================================================================
(Binary files differ)

Modified: branches/JCL_2.2/jcl/packages/c6/JclThreadNameExpert.rc
===================================================================
--- branches/JCL_2.2/jcl/packages/c6/JclThreadNameExpert.rc	2010-10-20 20:35:14 UTC (rev 3382)
+++ branches/JCL_2.2/jcl/packages/c6/JclThreadNameExpert.rc	2010-10-21 07:29:32 UTC (rev 3383)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 2,2,1,3845
-PRODUCTVERSION 2,2,1,3845
+FILEVERSION 2,2,1,3886
+PRODUCTVERSION 2,2,1,3886
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JCL Thread Name IDE expert\0"
-              VALUE "FileVersion", "2.2.1.3845\0"
+              VALUE "FileVersion", "2.2.1.3886\0"
               VALUE "InternalName", "JclThreadNameExpert\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2009 Project JEDI\0"
               VALUE "OriginalFilename", "JclThreadNameExpertC60.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "2.2 Build 3845\0"
+              VALUE "ProductVersion", "2.2 Build 3886\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: branches/JCL_2.2/jcl/packages/c6/JclThreadNameExpertDLL.rc
===================================================================
--- branches/JCL_2.2/jcl/packages/c6/JclThreadNameExpertDLL.rc	2010-10-20 20:35:14 UTC (rev 3382)
+++ branches/JCL_2.2/jcl/packages/c6/JclThreadNameExpertDLL.rc	2010-10-21 07:29:32 UTC (rev 3383)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 2,2,1,3845
-PRODUCTVERSION 2,2,1,3845
+FILEVERSION 2,2,1,3886
+PRODUCTVERSION 2,2,1,3886
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JCL Thread Name IDE expert\0"
-              VALUE "FileVersion", "2.2.1.3845\0"
+              VALUE "FileVersion", "2.2.1.3886\0"
               VALUE "InternalName", "JclThreadNameExpertDLL\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2009 Project JEDI\0"
               VALUE "OriginalFilename", "JclThreadNameExpertDLLC60.dll\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "2.2 Build 3845\0"
+              VALUE "ProductVersion", "2.2 Build 3886\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: branches/JCL_2.2/jcl/packages/c6/JclThreadNameExpertDLL.res
===================================================================
(Binary files differ)

Modified: branches/JCL_2.2/jcl/packages/c6/JclUsesExpert.RES
===================================================================
(Binary files differ)

Modified: branches/JCL_2.2/jcl/packages/c6/JclUsesExpert.rc
===================================================================
--- branches/JCL_2.2/jcl/packages/c6/JclUsesExpert.rc	2010-10-20 20:35:14 UTC (rev 3382)
+++ branches/JCL_2.2/jcl/packages/c6/JclUsesExpert.rc	2010-10-21 07:29:32 UTC (rev 3383)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSI...
 
[truncated message content]

[Jcl-checkins-diff] SF.net SVN: jcl:[3382] trunk/jcl/make.proj

From: <ah...@us...> - 2010-10-20 20:35:20

Revision: 3382
          http://jcl.svn.sourceforge.net/jcl/?rev=3382&view=rev
Author:   ahuser
Date:     2010-10-20 20:35:14 +0000 (Wed, 20 Oct 2010)

Log Message:
-----------
XML style fix

Modified Paths:
--------------
    trunk/jcl/make.proj

Modified: trunk/jcl/make.proj
===================================================================
--- trunk/jcl/make.proj	2010-10-20 19:09:07 UTC (rev 3381)
+++ trunk/jcl/make.proj	2010-10-20 20:35:14 UTC (rev 3382)
@@ -198,7 +198,9 @@
 			Inputs="@(JclSources);$(JclResFiles);$(JclIncFile);@(Packages->'$(JclDir)\Packages\$(LibDirVersion)\%(Filename).dpk')"
 			Outputs="@(Packages->'$(DcpOutDir)\%(Filename).dcp')" DependsOnTargets="CompileJclSources">
 		<Exec Command="$(DCC32) %(Packages.FileName).dpk $(PackageOptions)" WorkingDirectory="$(JclDir)\Packages\$(LibDirVersion)" />
-	</Target><Target Name="DeleteOutputFiles">
+	</Target>
+
+	<Target Name="DeleteOutputFiles">
 		<Delete Files="$(JclSourcesOutput)" />
 		<Delete Files="$(JclBcbSourceOutput)" />
 		<Delete Files="$(JclResFileOutput)" />


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Jcl-checkins-diff] SF.net SVN: jcl:[3381] trunk/jcl/install/VclGui/JediGUIText.dfm

From: <ou...@us...> - 2010-10-20 19:09:13

Revision: 3381
          http://jcl.svn.sourceforge.net/jcl/?rev=3381&view=rev
Author:   outchy
Date:     2010-10-20 19:09:07 +0000 (Wed, 20 Oct 2010)

Log Message:
-----------
Compatibility with Delphi 6's TRichEdit component that does not support OnDblClick event.

Modified Paths:
--------------
    trunk/jcl/install/VclGui/JediGUIText.dfm

Modified: trunk/jcl/install/VclGui/JediGUIText.dfm
===================================================================
--- trunk/jcl/install/VclGui/JediGUIText.dfm	2010-10-20 19:04:40 UTC (rev 3380)
+++ trunk/jcl/install/VclGui/JediGUIText.dfm	2010-10-20 19:09:07 UTC (rev 3381)
@@ -29,7 +29,6 @@
       Height = 208
       Anchors = [akLeft, akTop, akRight, akBottom]
       TabOrder = 0
-      OnDblClick = RichEditTextDblClick
     end
   end
 end


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Jcl-checkins-diff] SF.net SVN: jcl:[3380] trunk/jcl/docs

From: <ou...@us...> - 2010-10-20 19:04:49

Revision: 3380
          http://jcl.svn.sourceforge.net/jcl/?rev=3380&view=rev
Author:   outchy
Date:     2010-10-20 19:04:40 +0000 (Wed, 20 Oct 2010)

Log Message:
-----------
doc update: remove outdated docs (cps, threadsafe).
Remove doc text version when unnecessary.
HTML file update to effectively include the css stylesheet.
Remove the email addresses since they may be a good spam source.
Update dead link to JEDI mantis and MPL FAQs.

Modified Paths:
--------------
    trunk/jcl/docs/Contacting authors.html
    trunk/jcl/docs/Contributors.html
    trunk/jcl/docs/Experts.html
    trunk/jcl/docs/MPL FAQ.html

Removed Paths:
-------------
    trunk/jcl/docs/Contributors.txt
    trunk/jcl/docs/ThreadSafe.txt
    trunk/jcl/docs/cps.html
    trunk/jcl/docs/cps_files/

Modified: trunk/jcl/docs/Contacting authors.html
===================================================================
--- trunk/jcl/docs/Contacting authors.html	2010-10-20 19:02:31 UTC (rev 3379)
+++ trunk/jcl/docs/Contacting authors.html	2010-10-20 19:04:40 UTC (rev 3380)
@@ -1,15 +1,17 @@
 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
-<html><head>
-<link rel="stylesheet" href="..%5CDclStyle.css">
-<title>Contacting authors</title></head>
+<html>
+<head>
+<title>Contacting authors</title>
+<style type="text/css">
+@import url(styles/default.css);
+</style>
+</head>
 <body>
 <h1>Contacting authors</h1>
 <p>
 The JEDI Code Library is built upon donations by various individuals. In the
 documentation for each subroutine or class you will find who the author of that
-particular code is by looking in the "Quick Info" section. The author's e-mail
-is not listed there. It is listed in the contributors page elsewhere in this
-document. Therefore if you really need to contact an author it is possible. However,
+particular code is by looking in the "Quick Info" section. However,
 generically speaking, you should <b>never contact an author</b> regarding code included
 in this library. There are various reasons for this with the two most prominent
 being that some authors explicitly requested this and because "author" means
@@ -27,7 +29,7 @@
 reason is not to your liking: complain to me. It was most likely we who screwed
 it up and introduced those bugs into code that was working perfectly until we got
 our hands on it! To report bugs, use Project JEDI's
-<a href="http://homepages.borland.com/jedi/issuetracker/">Issue Tracker</a>.
+<a href="http://issuetracker.delphi-jedi.org/">Issue Tracker</a>.
 
-</p><div class="footer">Built on Saturday, November 24, 2007</div>
+</p><div class="footer">Built on Saturday, October 20, 2010</div>
 </body></html>
\ No newline at end of file

Modified: trunk/jcl/docs/Contributors.html
===================================================================
--- trunk/jcl/docs/Contributors.html	2010-10-20 19:02:31 UTC (rev 3379)
+++ trunk/jcl/docs/Contributors.html	2010-10-20 19:04:40 UTC (rev 3380)
@@ -1,12 +1,11 @@
 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
-<html><head>
-
-  
-  <link rel="stylesheet" href="..%5CDclStyle.css">
-
-  
-  <title>JCL Contributors (code donators)</title></head>
-
+<html>
+<head>
+<title>JCL Contributors (code donators)</title>
+<style type="text/css">
+@import url(styles/default.css);
+</style>
+</head>
 <body>
 
   
@@ -32,19 +31,19 @@
   <tbody>
     <tr valign="top">
 
-    <td width="25%"><a href="mailto:aa...@bi...">aa</a></td>
+    <td width="25%">aa</td>
 
-    <td width="25%"><a href="mailto:ala...@ao...">Alan Lloyd</a></td>
+    <td width="25%">Alan Lloyd</td>
 
     <td width="25%">Alex Denissov</td>
 
-    <td width="25%"><a href="mailto:al...@mt...">Alex Konshin</a></td>
+    <td width="25%">Alex Konshin</td>
 
   </tr>
 
   <tr valign="top">
 
-    <td width="25%"><a href="mailto:ra...@ch...">Alexander Radchenko</a></td>
+    <td width="25%">Alexander Radchenko</td>
 
     <td width="25%">Alexei Koudinov</td>
 
@@ -56,80 +55,80 @@
 
   <tr valign="top">
 
-    <td width="25%"><a href="mailto:asn...@us...">Andr\xE9 Snepvangers</a></td>
+    <td width="25%">Andr\xE9 Snepvangers</td>
 
-    <td width="25%"><a href="mailto:ah...@us...">Andreas Hausladen</a></td>
+    <td width="25%">Andreas Hausladen</td>
 
-    <td width="25%"><a href="mailto:Jak...@ad...">Andreas Jakobsche</a></td>
+    <td width="25%">Andreas Jakobsche</td>
 
-    <td width="25%"><a href="mailto:ajo...@rp...">Angus Johnson</a></td>
+    <td width="25%">Angus Johnson</td>
 
   </tr>
 
   <tr valign="top">
 
-    <td width="25%"><a href="mailto:as...@ia...">Anthony Steele</a></td>
+    <td width="25%">Anthony Steele</td>
 
-    <td width="25%"><a href="mailto:az...@at...">Azret Botash</a></td>
+    <td width="25%">Azret Botash</td>
 
     <td width="25%">Barry Kelly</td>
 
-    <td width="25%"><a href="mailto:HB...@Er...">Bender Heri</a></td>
+    <td width="25%">Bender Heri</td>
 
   </tr>
 
   <tr valign="top">
 
-    <td width="25%"><a href="mailto:ber...@ya...">Bernhard Berger</a></td>
+    <td width="25%">Bernhard Berger</td>
 
-    <td width="25%"><a href="mailto:or...@bm...">Bryan Coutch</a></td>
+    <td width="25%">Bryan Coutch</td>
 
-    <td width="25%"><a href="mailto:ca...@ca...">Carl Clark</a></td>
+    <td width="25%">Carl Clark</td>
 
-    <td width="25%"><a href="mailto:ce...@ma...">Cenon Del Rosario</a></td>
+    <td width="25%">Cenon Del Rosario</td>
 
   </tr>
 
   <tr valign="top">
 
-    <td width="25%"><a href="mailto:cca...@in...">Charlie Calvert</a></td>
+    <td width="25%">Charlie Calvert</td>
 
     <td width="25%">Chris Morris</td>
 
-	<td width="25%"><a href="mailto:chr...@li...">Christoph Lindeman</a></td>
+	<td width="25%">Christoph Lindeman</td>
 	<td width="25%">Clayton Collie</td>
 
   </tr>
 
   <tr valign="top">
 
-	<td width="25%"><a href="mailto:sa...@ia...">Corrie Engelbrecht</a></td>
+	<td width="25%">Corrie Engelbrecht</td>
 
-	<td width="25%"><a href="mailto:Cyb...@ya...">Cybertron_549672</a></td>
+	<td width="25%">Cybertron_549672</td>
 
-	<td width="25%"><a href="mailto:dj...@sg...">Daniel M\xF8ller</a></td>
+	<td width="25%">Daniel M\xF8ller</td>
 
-	<td width="25%"><a href="mailto:david@e.co.za">David Butler</a></td>
+	<td width="25%">David Butler</td>
 
   </tr>
 
   <tr valign="top">
 
-	<td width="25%"><a href="mailto:dhe...@Pi...">David Hervieux</a></td>
+	<td width="25%">David Hervieux</td>
 
-	<td width="25%"><a href="mailto:de...@da...">Deian Ivanov</a></td>
+	<td width="25%">Deian Ivanov</td>
 
-	<td width="25%"><a href="mailto:de...@em...">Dewald Hess</a></td>
+	<td width="25%">Dewald Hess</td>
 
-	<td width="25%"><a href="mailto:rm...@fe...">Dick Maley (Advanced Delphi Systems)</a></td>
+	<td width="25%">Dick Maley (Advanced Delphi Systems)</td>
 
   </tr>
 
   <tr valign="top">
 
-	<td width="25%"><a href="mailto:dy...@in...">Dylan Thomas</a></td>
+	<td width="25%">Dylan Thomas</td>
 
-	<td width="25%"><a href="mailto:Ear...@at...">Earl F. Glynn</a></td>
+	<td width="25%">Earl F. Glynn</td>
 
 	<td width="25%">Eric S. Fisher</td>
 
@@ -141,21 +140,21 @@
 
 	<td width="25%">ESB Consultancy</td>
 
-	<td width="25%"><a href="mailto:ftf...@di...">Felipe de Toledo Farias</a></td>
+	<td width="25%">Felipe de Toledo Farias</td>
 
-	<td width="25%"><a href="mailto:fl...@us...">Flier Lu</a></td>
+	<td width="25%">Flier Lu</td>
 
-	<td width="25%"><a href="mailto:ouc...@la...">Florent Ouchet</a></td>
+	<td width="25%">Florent Ouchet</td>
 
   </tr>
 
   <tr valign="top">
 
-	<td width="25%"><a href="mailto:hal...@c2...">Hallvard Vassbotn</a></td>
+	<td width="25%">Hallvard Vassbotn</td>
 
-	<td width="25%"><a href="mailto:he...@us...">Heinz Zastrau</a></td>
+	<td width="25%">Heinz Zastrau</td>
 
-	<td width="25%"><a href="mailto:he...@wr...">Helen Borrie</a></td>
+	<td width="25%">Helen Borrie</td>
 
 	<td width="25%">Heri Bender</td>
 
@@ -165,23 +164,23 @@
 
 	<td width="25%">Huanlin Tsai</td>
 
-	<td width="25%"><a href="mailto:ba...@oz...">Ivo Bauer</a></td>
+	<td width="25%">Ivo Bauer</td>
 
-	<td width="25%"><a href="mailto:Jac...@On...">Jack Bombeeck</a></td>
+	<td width="25%">Jack Bombeeck</td>
 
-	<td width="25%"><a href="mailto:ja...@eu...">Jack N.A. Bakker</a></td>
+	<td width="25%">Jack N.A. Bakker</td>
 
   </tr>
 
   <tr valign="top">
 
-	<td width="25%"><a href="mailto:su...@ja...">James Azarja</a></td>
+	<td width="25%">James Azarja</td>
 
 	<td width="25%">Jean Debord</td>
 
-	<td width="25%"><a href="mailto:cyc...@or...">Jean-Fabien Connault</a></td>
+	<td width="25%">Jean-Fabien Connault</td>
 
-	<td width="25%"><a href="mailto:rd...@us...">Jean-Philippe BEMPEL</a></td>
+	<td width="25%">Jean-Philippe BEMPEL</td>
 
   </tr>
 
@@ -189,21 +188,21 @@
 
 	<td width="25%">Jeroen Speldekamp</td>
 
-	<td width="25%"><a href="mailto:joh...@gm...">Johannes Berg</a></td>
+	<td width="25%">Johannes Berg</td>
 
-	<td width="25%"><a href="mailto:ja...@ho...">John C Molyneux</a></td>
+	<td width="25%">John C Molyneux</td>
 
-	<td width="25%"><a href="mailto:jud...@mi...">Jud McCranie</a></td>
+	<td width="25%">Jud McCranie</td>
 
   </tr>
 
   <tr valign="top">
 
-	<td width="25%"><a href="mailto:j.f...@ne...">Julien Ferraro</a></td>
+	<td width="25%">Julien Ferraro</td>
 
-	<td width="25%"><a href="mailto:gal...@te...">Kevin S. Gallagher</a></td>
+	<td width="25%">Kevin S. Gallagher</td>
 
-	<td width="25%"><a href="mailto:la...@ci...">Lasse V\xE5gs\xE6ther Karlsen</a></td>
+	<td width="25%">Lasse V\xE5gs\xE6ther Karlsen</td>
 
 	<td width="25%">Leonard Wennekers</td>
 
@@ -211,43 +210,43 @@
 
   <tr valign="top">
 
-	<td width="25%"><a href="mailto:lir...@ho...">Liran Shahar</a></td>
+	<td width="25%">Liran Shahar</td>
 
-	<td width="25%"><a href="mailto:ll...@in...">Lloyd Kinsella</a></td>
+	<td width="25%">Lloyd Kinsella</td>
 
-	<td width="25%"><a href="mailto:lu...@us...">Lucjan Lukasik</a></td>
+	<td width="25%">Lucjan Lukasik</td>
 
-	<td width="25%"><a href="mailto:mav...@cs...">M.H. Avegaart</a></td>
+	<td width="25%">M.H. Avegaart</td>
 
   </tr>
 
   <tr valign="top">
 
-	<td width="25%"><a href="mailto:ed...@cc...">Malcolm Edgar</a></td>
+	<td width="25%">Malcolm Edgar</td>
 
-	<td width="25%"><a href="mailto:ma...@us...">Manlio Laschena</a></td>
+	<td width="25%">Manlio Laschena</td>
 
 	<td width="25%">Marc Convents</td>
 
-	<td width="25%"><a href="mailto:ma...@ze...">Marcel Bestebroer</a></td>
+	<td width="25%">Marcel Bestebroer</td>
 
   </tr>
 
   <tr valign="top">
 
-	<td width="25%"><a href="mailto:br...@ba...">Marcel van Brakel</a></td>
+	<td width="25%">Marcel van Brakel</td>
 
-	<td width="25%"><a href="mailto:wi...@po...">Marcin Wieczorek</a></td>
+	<td width="25%">Marcin Wieczorek</td>
 
-	<td width="25%"><a href="mailto:Don...@gm...">Marco Klemm</a></td>
+	<td width="25%">Marco Klemm</td>
 
-	<td width="25%"><a href="mailto:oc...@ya...">Mario R. Carro</a></td>
+	<td width="25%">Mario R. Carro</td>
 
   </tr>
 
   <tr valign="top">
 
-	<td width="25%"><a href="mailto:ma...@ca...">Marius le Roux</a></td>
+	<td width="25%">Marius le Roux</td>
 
 	<td width="25%">Mark Vaughan</td>
 
@@ -259,61 +258,61 @@
 
   <tr valign="top">
 
-	<td width="25%"><a href="mailto:ni...@da...">Massimo Maria Ghisalberti</a></td>
+	<td width="25%">Massimo Maria Ghisalberti</td>
 
-	<td width="25%"><a href="mailto:MHa...@bu...">Matt Hamilton</a></td>
+	<td width="25%">Matt Hamilton</td>
 
-	<td width="25%"><a href="mailto:mt...@us...">Matthias Thoma</a></td>
+	<td width="25%">Matthias Thoma</td>
 
-	<td width="25%"><a href="mailto:mic...@oz...">Michael Rynn</a></td>
+	<td width="25%">Michael Rynn</td>
 
   </tr>
 
   <tr valign="top">
 
-	<td width="25%"><a href="mailto:msc...@bs...">Michael Schnell</a></td>
+	<td width="25%">Michael Schnell</td>
 
-	<td width="25%"><a href="mailto:ea...@ms...">Michael Tsai</a></td>
+	<td width="25%">Michael Tsai</td>
 
 	<td width="25%">Michael Winter</td>
 
-	<td width="25%"><a href="mailto:pu...@li...">Mike Lischke</a></td>
+	<td width="25%">Mike Lischke</td>
 
   </tr>
 
   <tr valign="top">
 
-	<td width="25%"><a href="mailto:nh...@ic...">Nick Hodges</a></td>
+	<td width="25%">Nick Hodges</td>
 
-	<td width="25%"><a href="mailto:n....@si...">Nils Haeck</a></td>
+	<td width="25%">Nils Haeck</td>
 
-	<td width="25%"><a href="mailto:ass...@us...">Oliver Schneider</a></td>
+	<td width="25%">Oliver Schneider</td>
 
-	<td width="25%"><a href="mailto:ob...@us...">Olivier Sannier</a></td>
+	<td width="25%">Olivier Sannier</td>
 
   </tr>
 
   <tr valign="top">
 
-	<td width="25%"><a href="mailto:pat...@ie...">Patrick van Laake</a></td>
+	<td width="25%">Patrick van Laake</td>
 
-	<td width="25%"><a href="mailto:pc...@at...">Pavel Cisar</a></td>
+	<td width="25%">Pavel Cisar</td>
 
-	<td width="25%"><a href="mailto:pel...@fi...">Pelle Liljendal</a></td>
+	<td width="25%">Pelle Liljendal</td>
 
-	<td width="25%"><a href="mailto:fr...@gm...">Peter Friese</a></td>
+	<td width="25%">Peter Friese</td>
 
   </tr>
 
   <tr valign="top">
 
-	<td width="25%"><a href="mailto:fm...@kc...">Peter McMahon</a></td>
+	<td width="25%">Peter McMahon</td>
 
-	<td width="25%"><a href="mailto:pet...@ao...">Peter Panino</a></td>
+	<td width="25%">Peter Panino</td>
 
-	<td width="25%"><a href="mailto:pe...@us...">Peter Th\xF6rnquist</a></td>
+	<td width="25%">Peter Th\xF6rnquist</td>
 
-	<td width="25%"><a href="mailto:pv...@us...">Petr Vones</a></td>
+	<td width="25%">Petr Vones</td>
 
   </tr>
 
@@ -321,65 +320,65 @@
 
 	<td width="25%">Python</td>
 
-	<td width="25%"><a href="mailto:ral...@gm...">Ralf Junker</a></td>
+	<td width="25%">Ralf Junker</td>
 
-	<td width="25%"><a href="mailto:ray...@us...">Raymond Alexander</a></td>
+	<td width="25%">Raymond Alexander</td>
 
-	<td width="25%"><a href="mailto:rik...@us...">Rik Barker</a></td>
+	<td width="25%">Rik Barker</td>
 
   </tr>
 
   <tr valign="top">
 
-	<td width="25%"><a href="mailto:rh...@nw...">Robert Lee</a></td>
+	<td width="25%">Robert Lee</td>
 
-	<td width="25%"><a href="mailto:mar...@us...">Robert Marquardt</a></td>
+	<td width="25%">Robert Marquardt</td>
 
-	<td width="25%"><a href="mailto:rob...@ko...">Robert R. Marsh</a></td>
+	<td width="25%">Robert R. Marsh</td>
 
-	<td width="25%"><a href="mailto:Rob...@us...">Robert Rossmair</a></td>
+	<td width="25%">Robert Rossmair</td>
 
   </tr>
 
   <tr valign="top">
 
-	<td width="25%"><a href="mailto:rve...@gm...">Rudy Velthuis</a></td>
+	<td width="25%">Rudy Velthuis</td>
 
-	<td width="25%"><a href="mailto:sco...@us...">Scott Price</a></td>
+	<td width="25%">Scott Price</td>
 
-	<td width="25%"><a href="mailto:an...@so...">SouthEaster</a></td>
+	<td width="25%">SouthEaster</td>
 
-	<td width="25%"><a href="mailto:ste...@01...">Stefan Kirschner</a></td>
+	<td width="25%">Stefan Kirschner</td>
 
   </tr>
 
   <tr valign="top">
 
-	<td width="25%"><a href="mailto:sf...@if...">Stephane Fillon</a></td>
+	<td width="25%">Stephane Fillon</td>
 
-	<td width="25%"><a href="mailto:Ste...@Bi...">Sterling Butts</a></td>
+	<td width="25%">Sterling Butts</td>
 
-	<td width="25%"><a href="mailto:be...@ot...">Theo Bebekis</a></td>
+	<td width="25%">Theo Bebekis</td>
 
-	<td width="25%"><a href="mailto:ti...@th...">Tim Yates</a></td>
+	<td width="25%">Tim Yates</td>
 
   </tr>
 
   <tr valign="top">
 
-	<td width="25%"><a href="mailto:to...@us...">Tom Hahn</a></td>
+	<td width="25%">Tom Hahn</td>
 
-	<td width="25%"><a href="mailto:usc...@us...">Uwe Schuster</a></td>
+	<td width="25%">Uwe Schuster</td>
 
-	<td width="25%"><a href="mailto:jon...@sk...">Wim De Cleen</a></td>
+	<td width="25%">Wim De Cleen</td>
 
-	<td width="25%"><a href="mailto:yg...@ne...">Yaniv Golan</a></td>
+	<td width="25%">Yaniv Golan</td>
 
   </tr>
 
   <tr valign="top">
 
-    <td width="25%"><a href="mailto:">Your name here?</a></td>
+    <td width="25%">Your name here?</td>
 
   </tr>
   </tbody>
@@ -395,4 +394,4 @@
   
 <p></p>
 
-</body></html>
\ No newline at end of file
+</body></html>

Deleted: trunk/jcl/docs/Contributors.txt
===================================================================
--- trunk/jcl/docs/Contributors.txt	2010-10-20 19:02:31 UTC (rev 3379)
+++ trunk/jcl/docs/Contributors.txt	2010-10-20 19:04:40 UTC (rev 3380)
@@ -1,116 +0,0 @@
-aa=aa...@bi...
-Alan Lloyd=ala...@ao...
-Alex Denissov=de...@uw...
-Alex Konshin=al...@mt...
-Alexander Radchenko=ra...@ch...
-Alexei Koudinov=
-Allan Lyons=
-Anders Melander=
-Andr\xE9 Snepvangers=asn...@us...
-Andreas Hausladen=ah...@us...
-Andreas Jakobsche=Jak...@ad...
-Angus Johnson=ajo...@rp...
-Anthony Steele=as...@ia...
-Azret Botash=az...@at...
-Barry Kelly=bar...@gm...
-Bender Heri=HB...@Er...
-Bernhard Berger=ber...@ya...
-Bryan Coutch=or...@bm...
-Carl Clark=ca...@ca...
-Cenon Del Rosario=ce...@ma...
-Charlie Calvert=cca...@in...
-Chris Morris=
-Christoph Lindeman=chr...@li...
-Clayton Collie=
-Corrie Engelbrecht=sa...@ia...
-Cybertron_549672=Cyb...@ya...
-Daniel M\xF8ller=dj...@sg...
-David Butler=david@e.co.za
-David Hervieux=dhe...@Pi...
-Deian Ivanov=de...@da...
-Dewald Hess=de...@em...
-Dick Maley (Advanced Delphi Systems)=rm...@fe...
-Dylan Thomas=dy...@in...
-Earl F. Glynn=Ear...@at...
-Eric S. Fisher=
-Ernesto Benestante=
-ESB Consultancy=
-Felipe de Toledo Farias=ftf...@di...
-Flier Lu=fl...@us...
-Florent Ouchet=ouc...@la...
-Hallvard Vassbotn=hal...@c2...
-Heinz Zastrau=he...@us...
-Helen Borrie=he...@wr...
-Heri Bender=
-Huanlin Tsai=
-Ivo Bauer=ba...@oz...
-Jack Bombeeck=Jac...@On...
-Jack N.A. Bakker=ja...@eu...
-James Azarja=su...@ja...
-Jean Debord=
-Jean-Fabien Connault=cyc...@or...
-Jean-Philippe BEMPEL=rd...@us...
-Jeroen Speldekamp=
-Johannes Berg=joh...@gm...
-John C Molyneux=ja...@ho...
-Jud McCranie=jud...@mi...
-Julien Ferraro=j.f...@ne...
-Kevin S. Gallagher=gal...@te...
-Lasse V\xE5gs\xE6ther Karlsen=la...@ci...
-Leonard Wennekers=
-Liran Shahar=lir...@ho...
-Lloyd Kinsella=ll...@in...
-Lucjan Lukasik=lu...@us...
-M.H. Avegaart=mav...@cs...
-Malcolm Edgar=ed...@cc...
-Manlio Laschena=ma...@us...
-Marc Convents=
-Marcel Bestebroer=ma...@ze...
-Marcel van Brakel=br...@ba...
-Marcin Wieczorek=wi...@po...
-Marco Klemm=Don...@gm...
-Mario R. Carro=oc...@ya...
-Marius le Roux=ma...@ca...
-Mark Vaughan=
-Martin Kimmings=
-Martin Kubecka=
-Massimo Maria Ghisalberti=ni...@da...
-Matt Hamilton=MHa...@bu...
-Matthias Thoma=mt...@us...
-Michael Rynn=mic...@oz...
-Michael Schnell=msc...@bs...
-Michael Tsai=ea...@ms...
-Michael Winter=
-Mike Lischke=pu...@li...
-Nick Hodges=nh...@ic...
-Nils Haeck=n....@si...
-Oliver Schneider=ass...@us...
-Olivier Sannier=ob...@us...
-Patrick van Laake=pat...@ie...
-Pavel Cisar=pc...@at...
-Pelle F. S. Liljendal=pel...@fi...
-Peter Friese=fr...@gm...
-Peter McMahon=fm...@kc...
-Peter Panino=pet...@ao...
-Peter Th\xF6rnquist=pe...@us...
-Petr Vones=pv...@us...
-Python=
-Ralf Junker=ral...@gm...
-Raymond Alexander=ray...@us...
-Rik Barker=rik...@us...
-Robert Lee=rh...@nw...
-Robert Marquardt=mar...@us...
-Robert R. Marsh=rob...@ko...
-Robert Rossmair=Rob...@us...
-Rudy Velthuis=rve...@gm...
-Scott Price=sco...@us...
-SouthEaster=an...@so...
-Stefan Kirschner=ste...@01...
-Stephane Fillon=sf...@if...
-Sterling Butts=Ste...@Bi...
-Theo Bebekis=be...@ot...
-Tim Yates=ti...@th...
-Tom Hahn=to...@us...
-Uwe Schuster=usc...@us...
-Wim De Cleen=jon...@sk...
-Yaniv Golan=yg...@ne...

Modified: trunk/jcl/docs/Experts.html
===================================================================
--- trunk/jcl/docs/Experts.html	2010-10-20 19:02:31 UTC (rev 3379)
+++ trunk/jcl/docs/Experts.html	2010-10-20 19:04:40 UTC (rev 3380)
@@ -1,7 +1,7 @@
 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
 <html lang="en-us">
 <head>
-  <title>JEDI Code Library Release 2.2</title>
+  <title>JEDI Code Library Experts</title>
   <meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type">
   <link rel="stylesheet" type="text/css" href="styles/default.css">
   <meta content="Project JEDI" name="author">
@@ -10,9 +10,7 @@
 <body>
 <hr><br>
 <h1>JEDI Code Library</h1>
-<p>Release 2.2<br>
-Build 3817<br>
-13-August-2010</p>
+<br>
 <hr><br>
 <h3>Content of this file</h3>
 <ul>

Modified: trunk/jcl/docs/MPL FAQ.html
===================================================================
--- trunk/jcl/docs/MPL FAQ.html	2010-10-20 19:02:31 UTC (rev 3379)
+++ trunk/jcl/docs/MPL FAQ.html	2010-10-20 19:04:40 UTC (rev 3380)
@@ -10,7 +10,7 @@
 </P>
 <P><HR WIDTH="20%"><P>
 Please email Comments to <A HREF="mailto:mb...@bi...">Michael Beck</A><BR>
-For additional information, please also check the <A HREF="http://www.mozilla.com/MPL/FAQ.html">Official FAQ from Mozilla</A>
+For additional information, please also check the <A HREF="http://www.mozilla.org/MPL/mpl-faq.html">Official FAQ from Mozilla</A>
 
 <H3>Author perspective</H3>
 <OL>

Deleted: trunk/jcl/docs/ThreadSafe.txt
===================================================================
--- trunk/jcl/docs/ThreadSafe.txt	2010-10-20 19:02:31 UTC (rev 3379)
+++ trunk/jcl/docs/ThreadSafe.txt	2010-10-20 19:04:40 UTC (rev 3380)
@@ -1,28 +0,0 @@
-------------------------------------------------------------------------------
-JEDI Code Library
-HomePage: http://jcl.sourceforge.net/
-------------------------------------------------------------------------------
-
-Thread safe support
-
-Some pieces of code can handle read/write accesses from multiples threads
-without writing specific code.
-This support can be enabled:
-- by defining the THREADSAFE compiler symbol {$DEFINE THREADSAFE} when JCL
-  units are part of a project.
-- by checking the \x93Enable thread safe code\x94 node in the installer options
-
-Presently only the following units have some pieces of code that implicitly
-handles thread safe accesses:
-source\common\JclAbstractContainers.pas
-source\common\JclArrayLists.pas
-source\common\JclArraySets.pas
-source\common\JclBinaryTrees.pas
-source\common\JclHashMaps.pas
-source\common\JclLinkedLists.pas
-source\common\JclQueues.pas
-source\common\JclStacks.pas
-
-This support is made using critical sections, if you want other piece of code
-to be thread safe, please create a feature request in the \x93Code Library\x94 category
-of the mantiss at http://homepages.borland.com/jedi/issuetracker/

Deleted: trunk/jcl/docs/cps.html
===================================================================
--- trunk/jcl/docs/cps.html	2010-10-20 19:02:31 UTC (rev 3379)
+++ trunk/jcl/docs/cps.html	2010-10-20 19:04:40 UTC (rev 3380)
@@ -1,655 +0,0 @@
-<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
-<html>
-<head>
-  <link rel="stylesheet" href="cps_files/test.css" type="text/css">
-  <title>JEDI Code Library - Cross Platform Strategy</title>
-</head>
-<body>
-<h1>JEDI Code Library - Cross Platform Strategy</h1>
-<p>
-This paper presents the JCL teams strategy for cross platform
-compliance of the
-JEDI Code Library. It is based up on the discussions within the JCL
-newsgroup
-and JCL developer mailing lists. This document is currently <b>work in
-progress</b>
-and subject to changes with or without notice.
-</p>
-<p>
-Version history: <br>
-&nbsp;&nbsp;&nbsp;&nbsp;0.1 Initial release
-</p>
-<p>
-</p>
-<h3>Background</h3>
-<p>
-The main objective is to make the JEDI Code Library VisualCLX (Kylix
-for Delphi/Delphi) and Delphi.NET compatible. For a detailed
-explanation of the currently used terminology, see the following
-article <a href="http://bdn.borland.com/article/0,1410,29460,00.html">
-Overview of the VCL for .NET</a>. </p>
-<p>
-We have to cope with nearly all aspects of cross platform progamming,
-like different APIs, different operating system concepts etc. Since we
-want to be as crossplatform compatible as possible interface
-compatability is the most important
-issue for us. JEDI Code Library users should have to opportunity the
-use the JCL
-on whatever platform they like. Figure 1 shows the three basic layers
-we have to deal with:
-</p>
-<ul>
-  <li>Platform independent layer: Units which are not (or only very
-minor)
-platform specific and do not depend on a specific component set. This
-doesn't mean that units in this layer have to consist of no platform
-dependent code, but they have to
-be nearly 100% interface compatible and all functionality must have
-been ported to all
-supported platforms. </li>
-  <li>Platform dependent layer: Units which depend on a specific
-platform (e.g. JclCLI) </li>
-  <li>Component set dependent layer: Units which depend on a specific
-component set</li>
-</ul>
-<p>
-<img src="cps_files/strucv1.jpg" border="1"><br>
-<i>Fig 1: The JEDI Code Library crossplatform layer structure</i>
-</p>
-<p>
-The JEDI Code Library currently targets the following platforms:
-</p>
-<ul>
-  <li>Kylix for Delphi (Kylix 3) / Linux</li>
-  <li>Delphi (Version 5,6,7) / Microsoft Windows</li>
-</ul>
-and is trying to support the following platforms as soon as possible:
-<ul>
-  <li>Delphi .NET / .NET (Micrsoft Windows) </li>
-</ul>
-<p>
-As a mid or long term perspective we are hoping to get the JCL
-FreePascal compatible.
-This involves the possibilty to have the JCL running on DOS, OS/2,
-FreeBSD and
-AmigaOS. </p>
-<h3>Common platform independent layer</h3>
-<p>
-This layer consists of all files which are not platform dependent or
-need only very minor adjustations. Furthermore all units in this layer
-do not depend on a
-specific component set. Examples for common platform independent units
-are JclBase, JclDateTime, JclFileUtils and JclMath. The units have been
-ported to all platforms and are the crossplatform "core" of the Jedi
-Code Library. As a general rule a unit in this layer should have no
-platform specific ifdefs in its
-interface section.
-</p>
-<h3>Platform dependent layer</h3>
-<p>
-Furthermore we do not have to differentiate between VCL and VisualCLX
-units only (the so called component set dependent layer), but also
-between UNIX, Windows and .NET dependent units. The platform dependent
-units doesn't need to be interface compatible (if there is an
-equivalent in one of the other suported platforms at all!).
-An example for a platform dependent unit is JclCLI. Nonetheless if
-there are equivalents in all other supported platforms as well it might
-be considerable to write a more general class and include that unit
-into the common platform indepedant layer.
-</p>
-<h3>Component set dependent layer</h3>
-<p>
-When it comes to sharing code between VCL and VisualCLX-applications,
-some facts need to be stated:
-</p>
-<p>
-</p>
-<li>A unit is called <i>VCL-dependent</i>, when it uses some
-VCL-unit(s), e.g. Graphics.
-</li>
-<li>A unit is called <i>VisualCLX-dependent</i>, when it uses some
-VisualCLX-unit(s), e.g. QGraphics.</li>
-<p>
-When a unit contains neither VCL- nor VisualCLX-specific code, there is
-no problem: It can be used by either type of application.
-</p>
-<p>
-While it is basically possible to create VCL-dependent and
-VisualCLX-dependent
-variants of the same unit by means of conditional compilation - and use
-them in
-VCL- and VisualCLX-applications respectively -, this method fails at
-design time:
-One and the same unit cannot be installed twice in the IDE, not even as
-part of
-different packages. We would have to rename one of the variants,
-effectively
-creating a new unit. Therefor we will use a preprocessor to resolve the
-conditional compilation symbols related to VCL/VisualCLX-specific code
-and create
-VCL/VisualCLX units from a common codebase.
-</p>
-<p>
-Component dependent units should be largely "interface compatible" -
-interface
-adjustments for specific component sets are unavoidable - nonetheless
-similar
-interfaces are desirable.
-</p>
-<h3>Preprocessor</h3>
-<p>
-The preprocessor jpp is a modified version of Barry Kelly's ppp tool.
-In contrast to ppp, which resolves all conditional compilation
-directives without exception, with jpp symbols not only can be defined
-but also undefined. Those symbols which are neither defined nor
-explicitely undefined are considered
-as of unknown status and it and its related source code remains
-untouched.
-</p>
-<p>
-The usage of jpp is not too hard. It is called via
-</p>
-<pre>jpp [options] &lt;input files&gt;...<br></pre>
-Possible options are
-<pre>  -i       Process includes<br>  -c       Process conditional directives<br>  -C       Strip comments<br>  -pxxx    Add xxx to include path<br>  -dxxx    Define xxx as a preprocessor conditional symbol<br>  -uxxx    Assume preprocessor conditional symbol xxx as not defined<br>  -x[n:]yyy  Strip first n characters from file name; precede filename by prefix yyy<br></pre>
-<p>
-The example command line below generates a file JclQGraphics.pas in
-subdirectory
-CLX from file Graphics.cb located in the current directory. Symbols
-"VisualCLX"
-and "COMPILER6_UP" are specified as defined, "Bitmap32" and "VCL" as
-undefined.
-</p>
-<pre>  jpp -c -dVisualCLX -dCOMPILER6_UP -uBitmap32 -uVCL -xCLX\JclQ Graphics.cb<br></pre>
-<h3>Generating Jcl[Q]Graphics.pas and Jcl[Q]GraphUtils.pas</h3>
-<p>
-First compile Preprocessor\jpp.exe from Preprocessor\jpp.dpr.
-Then change to the "Source" directory and type "make" at the command
-line.
-This will create the units <br>
-VCL\JclGraphics.pas <br>
-VCL\JclGraphUtils.pas <br>
-CLX\JclQGraphics.pas <br>
-CLX\JclQGraphUtils.pas <br>
-</p>
-<p>
-from their prototypes _Graphics.pas and _GraphUtils.pas.
-</p>
-<h3>Minimizing VCL dependencies</h3>
-<p>
-To reduce VCL dependencies in JCL, the following changes have been
-made:
-</p>
-<menu>
-<dl>
-  <dt>JclFileUtils</dt>
-  <dd>PathCompactPath is an overloaded function. The variant which
-takes a TCanvas as argument (and thus creates a dependency on VCL unit
-Graphics) has been removed. </dd>
-</dl>
-<br>
-<dl>
-  <dt>JclShell</dt>
-  <dd> ShellLinkGetIcon has been removed. It could get part of some
-genuine VCL-dependent unit (e.g. JclGraphUtils), but for now it is left
-out. </dd>
-</dl>
-<br>
-<dl>
-  <dt>JclPEImage</dt>
-  <dd>
-    <pre> Replace "uses Consts," by<br><br>    uses<br>      {$IFDEF COMPILER6_UP}<br>      RtlConsts,         // VisualCLX-package compatible (part of rtlxx.bpl)<br>      {$ELSE}<br>      Consts,            // not VisualCLX-package compatible (part of vclxx.bpl)<br>      {$ENDIF COMPILER6_UP} </pre>
-  </dd>
-</dl>
-</menu>
-<p>
-Note that the first two changes have enormous impact, since many JCL
-units use JclFileUtils and JclSysInfo (which both use JclShell). This
-leaves JclGraphics and JclGraphUtils as sole units with genuine
-VCL/VisualCLX-dependencies.
-JclPrint is the only remaining pure VCL-dependent units. </p>
-<h3>New directory structure</h3>
-<p>
-With the new JCL release we introduce a more appropriate source file
-directory
-structure. The files are now grouped according their respective layers.
-</p>
-<pre>Source/<br>  Common<br>  DotNet<br>  Unix<br>  VCL<br>  VisCLX<br>  Windows   <br></pre>
-<h3>Status - Platforms</h3>
-<p>
-This table gives a short overview of which units are already working
-under four different Delphi language compilers/platforms. There are
-four status levels possible:
-</p>
-<p>
-<table>
-  <tbody>
-    <tr>
-      <td
- style="text-align: center; background-color: rgb(238, 238, 238);"><span
- style="font-weight: bold;">+</span><br>
-      </td>
-      <td>&nbsp; the unit has been ported to that platform</td>
-    </tr>
-    <tr>
-      <td
- style="text-align: center; background-color: rgb(238, 238, 238);">-</td>
-      <td>&nbsp; the unit has not been ported to that platform</td>
-    </tr>
-    <tr>
-      <td
- style="text-align: center; background-color: rgb(238, 238, 238);">&nbsp;(+)
-      <br>
-      </td>
-      <td>&nbsp; the unit compiles, but not all of its functionality
-has been ported to that platform.</td>
-    </tr>
-    <tr>
-      <td
- style="text-align: center; background-color: rgb(238, 238, 238);">&nbsp;platform
-      <br>
-      </td>
-      <td>&nbsp; the unit is platform dependent and will not be ported.</td>
-    </tr>
-  </tbody>
-</table>
-</p>
-<table>
-  <tbody>
-    <tr>
-      <td style="background-color: rgb(238, 238, 238);"><b>Name</b></td>
-      <td
- style="text-align: center; background-color: rgb(238, 238, 238);"><b>Delphi
-(Windows)</b></td>
-      <td
- style="text-align: center; background-color: rgb(238, 238, 238);"><b>Kylix
-for Delphi</b></td>
-      <td
- style="text-align: center; background-color: rgb(238, 238, 238);"><b>Delphi.NET</b></td>
-      <td
- style="text-align: center; background-color: rgb(238, 238, 238);"><b>Free
-Pascal</b></td>
-    </tr>
-    <tr>
-      <td>Jcl8087</td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">?</td>
-    </tr>
-    <tr>
-      <td>JclAppInst</td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">?</td>
-    </tr>
-    <tr>
-      <td>JclCil</td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">?</td>
-    </tr>
-    <tr>
-      <td>JclClr</td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">?</td>
-    </tr>
-    <tr>
-      <td>JclCom</td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">?</td>
-    </tr>
-    <tr>
-      <td>JclComplex</td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">?</td>
-    </tr>
-    <tr>
-      <td>JclConsole</td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">?</td>
-    </tr>
-    <tr>
-      <td>JclCounter</td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">?</td>
-    </tr>
-    <tr>
-      <td>JclDateTime</td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;">(+)</td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">?</td>
-    </tr>
-    <tr>
-      <td>JclDebug</td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">? </td>
-    </tr>
-    <tr>
-      <td>JclDotNet</td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">? </td>
-    </tr>
-    <tr>
-      <td>JclEDI</td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">? </td>
-    </tr>
-    <tr>
-      <td>JclEDISEF</td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">? </td>
-    </tr>
-    <tr>
-      <td>JclEDIXML</td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">? </td>
-    </tr>
-    <tr>
-      <td>JclEDI_ANSIX12</td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">? </td>
-    </tr>
-    <tr>
-      <td>JclEDI_UNEDIFACT</td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">? </td>
-    </tr>
-    <tr>
-      <td>JclFileUtils</td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;">(+)</td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">? </td>
-    </tr>
-    <tr>
-      <td>JclExprEval</td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;"><b>+</b><br>
-      </td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">? </td>
-    </tr>
-    <tr>
-      <td>JclHookExcept</td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">? </td>
-    </tr>
-    <tr>
-      <td>JclIniFiles</td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;"><b>+</b><br>
-      </td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">? </td>
-    </tr>
-    <tr>
-      <td>JclLanMan</td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">? </td>
-    </tr>
-    <tr>
-      <td>JclLocales</td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">? </td>
-    </tr>
-    <tr>
-      <td>JclLogic</td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">? </td>
-    </tr>
-    <tr>
-      <td>JclMapi</td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">? </td>
-    </tr>
-    <tr>
-      <td>JclMath</td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">? </td>
-    </tr>
-    <tr>
-      <td>JclMetaData</td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">? </td>
-    </tr>
-    <tr>
-      <td>JclMidi</td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">? </td>
-    </tr>
-    <tr>
-      <td>JclMime</td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">? </td>
-    </tr>
-    <tr>
-      <td>JclMiscel</td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">? </td>
-    </tr>
-    <tr>
-      <td>JclMultimedia</td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">? </td>
-    </tr>
-    <tr>
-      <td>JclNTFS</td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">? </td>
-    </tr>
-    <tr>
-      <td>JclPEImage</td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">? </td>
-    </tr>
-    <tr>
-      <td>JclPrint</td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">? </td>
-    </tr>
-    <tr>
-      <td>JclStrHashMap</td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;"><b>+</b><br>
-      </td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">? </td>
-    </tr>
-    <tr>
-      <td>JclStatistics</td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">? </td>
-    </tr>
-    <tr>
-      <td>JclShell</td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">? </td>
-    </tr>
-    <tr>
-      <td>JclSecurity</td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">? </td>
-    </tr>
-    <tr>
-      <td>JclSchedule</td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">? </td>
-    </tr>
-    <tr>
-      <td>JclRTTI</td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">? </td>
-    </tr>
-    <tr>
-      <td>JclResources</td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">? </td>
-    </tr>
-    <tr>
-      <td>JclRegistry</td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">? </td>
-    </tr>
-    <tr>
-      <td>JclStrings</td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">? </td>
-    </tr>
-    <tr>
-      <td>Jclsvcctrl</td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">? </td>
-    </tr>
-    <tr>
-      <td>Jclsynch</td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">? </td>
-    </tr>
-    <tr>
-      <td>JclTask</td>
-      <td style="text-align: center;">platform</td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">? </td>
-    </tr>
-    <tr>
-      <td>JclSysUtils</td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;">(+)<br>
-      </td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">? </td>
-    </tr>
-    <tr>
-      <td>JclSysInfo</td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;">(+)<br>
-      </td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">? </td>
-    </tr>
-    <tr>
-      <td>JclTD32</td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">? </td>
-    </tr>
-    <tr>
-      <td>JclUnicode</td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">? </td>
-    </tr>
-    <tr>
-      <td>JclUnitConv</td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;"><b>+</b></td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">? </td>
-    </tr>
-    <tr>
-      <td>JclWin32</td>
-      <td style="text-align: center;">platform </td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">? </td>
-    </tr>
-    <tr>
-      <td>JclWinMidi</td>
-      <td style="text-align: center;">platform </td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">-</td>
-      <td style="text-align: center;">? </td>
-    </tr>
-  </tbody>
-</table>
-<h3>Assembler</h3>
-<p>
-For crossplatform compatability it is absolutely necessary to reduce
-the amount
-of inline assembler code used. Therefore as a general rule every line
-of assembler
-<b>must have a pure pascal pendant</b>. Please use assembler only if it
-really has a noticeable impact on the libraries performance. </p>
-<pre>{$IFNDEF PUREPASCAL}<br>  // assembler code here<br>{$ELSE}<br>  // Delphi equivalent here<br>{$ENDIF}  <br></pre>
-<h3>Packages</h3>
-</body>
-</html>


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Jcl-checkins-diff] SF.net SVN: jcl:[3379] trunk/jcl/install

From: <ou...@us...> - 2010-10-20 19:02:38

Revision: 3379
          http://jcl.svn.sourceforge.net/jcl/?rev=3379&view=rev
Author:   outchy
Date:     2010-10-20 19:02:31 +0000 (Wed, 20 Oct 2010)

Log Message:
-----------
new installer option to display MPL license and request an explicit agreement.

Modified Paths:
--------------
    trunk/jcl/install/JclInstall.pas
    trunk/jcl/install/JclInstallResources.pas
    trunk/jcl/install/JediInstall.pas
    trunk/jcl/install/JediInstaller.dpr
    trunk/jcl/install/VclGui/JediGUIInstall.pas
    trunk/jcl/install/VclGui/JediGUIMain.pas

Added Paths:
-----------
    trunk/jcl/install/VclGui/JediGUIText.dfm
    trunk/jcl/install/VclGui/JediGUIText.pas

Removed Paths:
-------------
    trunk/jcl/install/VclGui/JediGUIReadme.dfm
    trunk/jcl/install/VclGui/JediGUIReadme.pas

Modified: trunk/jcl/install/JclInstall.pas
===================================================================
--- trunk/jcl/install/JclInstall.pas	2010-10-20 16:06:36 UTC (rev 3378)
+++ trunk/jcl/install/JclInstall.pas	2010-10-20 19:02:31 UTC (rev 3379)
@@ -217,7 +217,10 @@
     FJclHlpHelpFileName: string;
     FJclHxSHelpFileName: string;
     FJclReadmeFileName: string;
+    FJclLicenseFileName: string;
     FGUI: IJediInstallGUI;
+    FReadMePage: IJediTextPage;
+    FLicensePage: IJediTextPage;
     FNbEnabled: Integer;
     FNbInstalled: Integer;
     {$IFDEF MSWINDOWS}
@@ -274,11 +277,14 @@
     property JclHlpHelpFileName: string read FJclHlpHelpFileName;
     property JclHxSHelpFileName: string read FJclHxSHelpFileName;
     property JclReadmeFileName: string read FJclReadmeFileName;
+    property JclLicenseFileName: string read FJclLicenseFileName;
     property RadToolInstallations: TJclBorRADToolInstallations read FRadToolInstallations;
     property TargetInstalls[Index: Integer]: TJclInstallation read GetTargetInstall;
     property TargetInstallCount: Integer read GetTargetInstallCount;
 
     property GUI: IJediInstallGUI read FGUI;
+    property ReadMePage: IJediTextPage read FReadMePage;
+    property LicensePage: IJediTextPage read FLicensePage;
     property NbEnabled: Integer read FNbEnabled;
     property NbInstalled: Integer read FNbInstalled;
 
@@ -477,6 +483,7 @@
   HHFileName        = 'HH.EXE';
 
   ReadmeFileName = 'Readme.txt';
+  LicenseFileName = 'LICENSE.txt';
 
   DailyRevisionFileName = 'jcl-revision.txt';
   EntriesFileName1      = '.svn' + DirDelimiter + 'entries';
@@ -3006,7 +3013,6 @@
   procedure InitDistribution;
   var
     ExceptDialogsPath, InstallerFileName, ProfileName: string;
-    ReadMePage: IJediReadMePage;
     Index: Integer;
     Settings: IJediConfiguration;
   begin
@@ -3045,12 +3051,18 @@
     FileSetAttr(ChangeFileExt(FVclDialogSendFileName, '.dfm'), faArchive);
     {$ENDIF MSWINDOWS}
     FJclReadmeFileName := JclPath + 'docs' + DirDelimiter + ReadmeFileName;
+    FJclLicenseFileName := JclPath + LicenseFileName;
     if Assigned(GUI) then
     begin
-      ReadMePage := GUI.CreateReadmePage;
-      ReadMePage.Caption := Version;
-      ReadMePage.ReadmeFileName := FJclReadmeFileName;
+      FReadMePage := GUI.CreateTextPage;
+      FReadMePage.Caption := Version;
+      FReadMePage.TextFileName := FJclReadmeFileName;
 
+      FLicensePage := GUI.CreateTextPage;
+      FLicensePage.Caption := LoadResString(@RsCaptionLicense);
+      FLicensePage.TextFileName := FJclLicenseFileName;
+      FLicensePage.AddOption(LoadResString(@RsCaptionLicenseAgreement));
+
       if InstallCore.ProfilesManager.MultipleProfileMode then
       begin
         FProfilesPage := GUI.CreateProfilesPage;
@@ -3105,6 +3117,15 @@
     Exit;
   end;
 
+  if Assigned(LicensePage) and not LicensePage.Options[0] then
+  begin
+    if Assigned(GUI) then
+      GUI.Dialog(LoadResString(@RsMissingLicenseAgreement), dtError, [drCancel]);
+    LicensePage.Show;
+    Result := False;
+    Exit;
+  end;
+
   {$IFDEF MSWINDOWS}
   if Assigned(GUI) then
   begin
@@ -3113,6 +3134,8 @@
       AInstallation := TargetInstalls[I];
       if AInstallation.Enabled then
       begin
+        if Assigned(AInstallation.GUIPage) then
+          AInstallation.GUIPage.Show;
         KeepSettings := GUI.Dialog(LoadResString(@RsKeepExpertSettings),
           dtConfirmation, [drYes, drNo]) = drYes;
         Break;

Modified: trunk/jcl/install/JclInstallResources.pas
===================================================================
--- trunk/jcl/install/JclInstallResources.pas	2010-10-20 16:06:36 UTC (rev 3378)
+++ trunk/jcl/install/JclInstallResources.pas	2010-10-20 19:02:31 UTC (rev 3379)
@@ -43,6 +43,11 @@
   RsCaptionDCPPath    = '&DCP path:';
   RsCaptionBPIPath    = 'BP&I path:';
 
+  // License
+  RsCaptionLicense          = 'MPL 1.1 License';
+  RsCaptionLicenseAgreement = 'I agree with the terms of the MPL 1.1 license';
+  RsMissingLicenseAgreement = 'Please agree to the terms of the MPL 1.1 license first';
+
   // Products
   RsCaptionLibrary = 'JEDI Code Library';
 

Modified: trunk/jcl/install/JediInstall.pas
===================================================================
--- trunk/jcl/install/JediInstall.pas	2010-10-20 16:06:36 UTC (rev 3378)
+++ trunk/jcl/install/JediInstall.pas	2010-10-20 19:02:31 UTC (rev 3379)
@@ -66,12 +66,18 @@
     property Caption: string read GetCaption write SetCaption;
   end;
 
-  IJediReadmePage = interface(IJediPage)
+  IJediTextPage = interface(IJediPage)
     ['{5DA5C5C9-649F-47CF-B64A-55E983CA88EC}']
-    procedure SetReadmeFileName(const Value: string);
-    function GetReadmeFileName: string;
+    procedure SetTextFileName(const Value: string);
+    function GetTextFileName: string;
+    function AddOption(const Caption: string): Integer;
+    function GetOptionCount: Integer;
+    function GetOption(Index: Integer): Boolean;
+    procedure SetOption(Index: Integer; Value: Boolean);
 
-    property ReadmeFileName: string read GetReadmeFileName write SetReadmeFileName;
+    property TextFileName: string read GetTextFileName write SetTextFileName;
+    property OptionCount: Integer read GetOptionCount;
+    property Options[Index: Integer]: Boolean read GetOption write SetOption;
   end;
 
   IJediInstallPage = interface(IJediPage)
@@ -84,7 +90,7 @@
     function GetDirectoryCount: Integer;
     function GetDirectory(Index: Integer): string;
     procedure SetDirectory(Index: Integer; const Value: string);
-    function AddDirectory(Caption: string): Integer;
+    function AddDirectory(const Caption: string): Integer;
     function GetProgress: Integer;
     procedure SetProgress(Value: Integer);
     procedure BeginInstall;
@@ -165,7 +171,7 @@
     ['{3471A535-51D7-4FBB-B6AE-20D136E38E34}']
     function Dialog(const Text: string; DialogType: TDialogType = dtInformation;
       Options: TDialogResponses = [drOK]): TDialogResponse;
-    function CreateReadmePage: IJediReadmePage;
+    function CreateTextPage: IJediTextPage;
     function CreateInstallPage: IJediInstallPage;
     function CreateProfilesPage: IJediProfilesPage;
     function GetPageCount: Integer;

Modified: trunk/jcl/install/JediInstaller.dpr
===================================================================
--- trunk/jcl/install/JediInstaller.dpr	2010-10-20 16:06:36 UTC (rev 3378)
+++ trunk/jcl/install/JediInstaller.dpr	2010-10-20 19:02:31 UTC (rev 3379)
@@ -20,7 +20,7 @@
   JediRegInfo in 'JediRegInfo.pas',
   JclDotNet in '..\source\windows\JclDotNet.pas',
   FrmCompile in 'VclGui\FrmCompile.pas' {FormCompile},
-  JediGUIReadme in 'VclGui\JediGUIReadme.pas' {ReadmeFrame: TFrame},
+  JediGUIText in 'VclGui\JediGUIText.pas' {TextFrame: TFrame},
   JediGUIInstall in 'VclGui\JediGUIInstall.pas' {InstallFrame: TFrame},
   JediGUIMain in 'VclGui\JediGUIMain.pas' {MainForm},
   JediGUIProfiles in 'VclGui\JediGUIProfiles.pas' {ProfilesFrame: TFrame},

Modified: trunk/jcl/install/VclGui/JediGUIInstall.pas
===================================================================
--- trunk/jcl/install/VclGui/JediGUIInstall.pas	2010-10-20 16:06:36 UTC (rev 3378)
+++ trunk/jcl/install/VclGui/JediGUIInstall.pas	2010-10-20 19:02:31 UTC (rev 3379)
@@ -98,7 +98,7 @@
     function GetDirectoryCount: Integer;
     function GetDirectory(Index: Integer): string;
     procedure SetDirectory(Index: Integer; const Value: string);
-    function AddDirectory(Caption: string): Integer;
+    function AddDirectory(const Caption: string): Integer;
     function GetProgress: Integer;
     procedure SetProgress(Value: Integer);
     procedure BeginInstall;
@@ -558,7 +558,7 @@
   PDirectoryRec(FDirectories.Items[Index])^.Edit.Text := Value;
 end;
 
-function TInstallFrame.AddDirectory(Caption: string): Integer;
+function TInstallFrame.AddDirectory(const Caption: string): Integer;
 var
   ADirectoryRec: PDirectoryRec;
   ALabel: TLabel;

Modified: trunk/jcl/install/VclGui/JediGUIMain.pas
===================================================================
--- trunk/jcl/install/VclGui/JediGUIMain.pas	2010-10-20 16:06:36 UTC (rev 3378)
+++ trunk/jcl/install/VclGui/JediGUIMain.pas	2010-10-20 19:02:31 UTC (rev 3379)
@@ -83,7 +83,7 @@
     // IJediInstallGUI
     function Dialog(const Text: string; DialogType: TDialogType = dtInformation;
       Options: TDialogResponses = [drOK]): TDialogResponse;
-    function CreateReadmePage: IJediReadmePage;
+    function CreateTextPage: IJediTextPage;
     function CreateInstallPage: IJediInstallPage;
     function CreateProfilesPage: IJediProfilesPage;
     function GetPageCount: Integer;
@@ -116,7 +116,7 @@
   JclDebug, JclShell, JediGUIProfiles,
   JclBase, JclFileUtils, JclStrings, JclSysInfo, JclSysUtils, JclArrayLists,
   JediInstallResources,
-  JediGUIReadme, JediGUIInstall;
+  JediGUIText, JediGUIInstall;
 
 const
   DelphiJediURL     = 'http://www.delphi-jedi.org/';
@@ -326,16 +326,16 @@
   end;
 end;
 
-function TMainForm.CreateReadmePage: IJediReadmePage;
+function TMainForm.CreateTextPage: IJediTextPage;
 var
-  AReadmeFrame: TReadmeFrame;
+  AReadmeFrame: TTextFrame;
   ATabSheet: TTabSheet;
 begin
   ATabSheet := TTabSheet.Create(Self);
   ATabSheet.PageControl := ProductsPageControl;
   ATabSheet.ImageIndex := -1;
 
-  AReadmeFrame := TReadmeFrame.Create(Self);
+  AReadmeFrame := TTextFrame.Create(Self);
   AReadmeFrame.Parent := ATabSheet;
   AReadmeFrame.Align := alClient;
   AReadmeFrame.Name := '';

Deleted: trunk/jcl/install/VclGui/JediGUIReadme.dfm
===================================================================
--- trunk/jcl/install/VclGui/JediGUIReadme.dfm	2010-10-20 16:06:36 UTC (rev 3378)
+++ trunk/jcl/install/VclGui/JediGUIReadme.dfm	2010-10-20 19:02:31 UTC (rev 3379)
@@ -1,16 +0,0 @@
-object ReadmeFrame: TReadmeFrame
-  Left = 0
-  Top = 0
-  Width = 320
-  Height = 240
-  TabOrder = 0
-  TabStop = True
-  object ReadmePane: TRichEdit
-    Left = 0
-    Top = 0
-    Width = 320
-    Height = 240
-    Align = alClient
-    TabOrder = 0
-  end
-end

Deleted: trunk/jcl/install/VclGui/JediGUIReadme.pas
===================================================================
--- trunk/jcl/install/VclGui/JediGUIReadme.pas	2010-10-20 16:06:36 UTC (rev 3378)
+++ trunk/jcl/install/VclGui/JediGUIReadme.pas	2010-10-20 19:02:31 UTC (rev 3379)
@@ -1,108 +0,0 @@
-{**************************************************************************************************}
-{                                                                                                  }
-{ Project JEDI Code Library (JCL) extension                                                        }
-{                                                                                                  }
-{ The contents of this file are subject to the Mozilla Public License Version 1.1 (the "License"); }
-{ you may not use this file except in compliance with the License. You may obtain a copy of the    }
-{ License at http://www.mozilla.org/MPL/                                                           }
-{                                                                                                  }
-{ Software distributed under the License is distributed on an "AS IS" basis, WITHOUT WARRANTY OF   }
-{ ANY KIND, either express or implied. See the License for the specific language governing rights  }
-{ and limitations under the License.                                                               }
-{                                                                                                  }
-{ The Original Code is JediGUIReadme.pas.                                                          }
-{                                                                                                  }
-{ The Initial Developer of the Original Code is Florent Ouchet. Portions created by Florent Ouchet }
-{ are Copyright (C) of Florent Ouchet. All Rights Reserved.                                        }
-{                                                                                                  }
-{ Contributors:                                                                                    }
-{                                                                                                  }
-{**************************************************************************************************}
-{                                                                                                  }
-{ Last modified: $Date::                                                                         $ }
-{ Revision:      $Rev::                                                                          $ }
-{ Author:        $Author::                                                                       $ }
-{                                                                                                  }
-{**************************************************************************************************}
-
-unit JediGUIReadme;
-
-{$I jcl.inc}
-{$I crossplatform.inc}
-
-interface
-
-uses
-  Windows, Messages,
-  SysUtils, Classes,
-  Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls,
-  JediInstall;
-
-type
-  TReadmeFrame = class(TFrame, IJediReadmePage, IJediPage)
-    ReadmePane: TRichEdit;
-    procedure ReadmePaneDblClick(Sender: TObject);
-  private
-    FReadmeFileName: string;
-  public
-    // IJediPage
-    function GetCaption: string;
-    procedure SetCaption(const Value: string);
-    function GetHintAtPos(ScreenX, ScreenY: Integer): string;
-    procedure Show;
-    // IJediReadmePage
-    procedure SetReadmeFileName(const Value: string);
-    function GetReadmeFileName: string;
-
-    property ReadmeFileName: string read GetReadmeFileName write SetReadmeFileName;
-  end;
-
-implementation
-
-{$R *.dfm}
-
-uses
-  JclShell;
-
-function TReadmeFrame.GetCaption: string;
-begin
-  Result := (Parent as TTabSheet).Caption;
-end;
-
-function TReadmeFrame.GetReadmeFileName: string;
-begin
-  Result := FReadmeFileName;
-end;
-
-procedure TReadmeFrame.ReadmePaneDblClick(Sender: TObject);
-begin
-  { TODO: implement for Unix }
-  ShellExecEx(ReadmeFileName);
-end;
-
-procedure TReadmeFrame.SetCaption(const Value: string);
-begin
-  (Parent as TTabSheet).Caption := Value;
-end;
-
-function TReadmeFrame.GetHintAtPos(ScreenX, ScreenY: Integer): string;
-begin
-  Result := '';
-end;
-
-procedure TReadmeFrame.SetReadmeFileName(const Value: string);
-begin
-  FReadmeFileName := Value;
-  if FileExists(Value) then
-    ReadmePane.Lines.LoadFromFile(Value);
-end;
-
-procedure TReadmeFrame.Show;
-var
-  ATabSheet: TTabSheet;
-begin
-  ATabSheet := Parent as TTabSheet;
-  (ATabSheet.Parent as TPageControl).ActivePage := ATabSheet;
-end;
-
-end.

Copied: trunk/jcl/install/VclGui/JediGUIText.dfm (from rev 3375, trunk/jcl/install/VclGui/JediGUIReadme.dfm)
===================================================================
--- trunk/jcl/install/VclGui/JediGUIText.dfm	                        (rev 0)
+++ trunk/jcl/install/VclGui/JediGUIText.dfm	2010-10-20 19:02:31 UTC (rev 3379)
@@ -0,0 +1,35 @@
+object TextFrame: TTextFrame
+  Left = 0
+  Top = 0
+  Width = 320
+  Height = 240
+  TabOrder = 0
+  TabStop = True
+  object PanelOptions: TPanel
+    Left = 0
+    Top = 240
+    Width = 320
+    Height = 0
+    Align = alBottom
+    BevelOuter = bvNone
+    TabOrder = 0
+  end
+  object PanelText: TPanel
+    Left = 0
+    Top = 0
+    Width = 320
+    Height = 240
+    Align = alClient
+    BevelOuter = bvNone
+    TabOrder = 1
+    object RichEditText: TRichEdit
+      Left = 16
+      Top = 16
+      Width = 288
+      Height = 208
+      Anchors = [akLeft, akTop, akRight, akBottom]
+      TabOrder = 0
+      OnDblClick = RichEditTextDblClick
+    end
+  end
+end

Copied: trunk/jcl/install/VclGui/JediGUIText.pas (from rev 3375, trunk/jcl/install/VclGui/JediGUIReadme.pas)
===================================================================
--- trunk/jcl/install/VclGui/JediGUIText.pas	                        (rev 0)
+++ trunk/jcl/install/VclGui/JediGUIText.pas	2010-10-20 19:02:31 UTC (rev 3379)
@@ -0,0 +1,183 @@
+{**************************************************************************************************}
+{                                                                                                  }
+{ Project JEDI Code Library (JCL) extension                                                        }
+{                                                                                                  }
+{ The contents of this file are subject to the Mozilla Public License Version 1.1 (the "License"); }
+{ you may not use this file except in compliance with the License. You may obtain a copy of the    }
+{ License at http://www.mozilla.org/MPL/                                                           }
+{                                                                                                  }
+{ Software distributed under the License is distributed on an "AS IS" basis, WITHOUT WARRANTY OF   }
+{ ANY KIND, either express or implied. See the License for the specific language governing rights  }
+{ and limitations under the License.                                                               }
+{                                                                                                  }
+{ The Original Code is JediGUIReadme.pas.                                                          }
+{                                                                                                  }
+{ The Initial Developer of the Original Code is Florent Ouchet. Portions created by Florent Ouchet }
+{ are Copyright (C) of Florent Ouchet. All Rights Reserved.                                        }
+{                                                                                                  }
+{ Contributors:                                                                                    }
+{                                                                                                  }
+{**************************************************************************************************}
+{                                                                                                  }
+{ Last modified: $Date::                                                                         $ }
+{ Revision:      $Rev::                                                                          $ }
+{ Author:        $Author::                                                                       $ }
+{                                                                                                  }
+{**************************************************************************************************}
+
+unit JediGUIText;
+
+{$I jcl.inc}
+{$I crossplatform.inc}
+
+interface
+
+uses
+  Windows, Messages,
+  SysUtils, Classes,
+  Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls,
+  JediInstall, ExtCtrls;
+
+type
+  TTextFrame = class(TFrame, IJediTextPage, IJediPage)
+    PanelOptions: TPanel;
+    PanelText: TPanel;
+    RichEditText: TRichEdit;
+    procedure RichEditTextDblClick(Sender: TObject);
+  private
+    FTextFileName: string;
+    FOptions: TList;
+  public
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+    // IJediPage
+    function GetCaption: string;
+    procedure SetCaption(const Value: string);
+    function GetHintAtPos(ScreenX, ScreenY: Integer): string;
+    procedure Show;
+    // IJediTextPage
+    procedure SetTextFileName(const Value: string);
+    function GetTextFileName: string;
+    function AddOption(const Caption: string): Integer;
+    function GetOptionCount: Integer;
+    function GetOption(Index: Integer): Boolean;
+    procedure SetOption(Index: Integer; Value: Boolean);
+
+    property TextFileName: string read GetTextFileName write SetTextFileName;
+    property OptionCount: Integer read GetOptionCount;
+    property Options[Index: Integer]: Boolean read GetOption write SetOption;
+  end;
+
+implementation
+
+{$R *.dfm}
+
+uses
+  JclShell;
+
+type
+  TOptionRec = record
+    CheckBox: TCheckBox;
+  end;
+
+  POptionRec = ^TOptionRec;
+
+constructor TTextFrame.Create(AOwner: TComponent);
+begin
+  inherited Create(AOwner);
+  FOptions := TList.Create;
+end;
+
+destructor TTextFrame.Destroy;
+var
+  Index: Integer;
+begin
+  for Index := 0 to FOptions.Count - 1 do
+    Dispose(FOptions.Items[Index]);
+  FOptions.Free;
+  inherited Destroy;
+end;
+
+function TTextFrame.GetCaption: string;
+begin
+  Result := (Parent as TTabSheet).Caption;
+end;
+
+function TTextFrame.GetTextFileName: string;
+begin
+  Result := FTextFileName;
+end;
+
+procedure TTextFrame.RichEditTextDblClick(Sender: TObject);
+begin
+  { TODO: implement for Unix }
+  ShellExecEx(TextFileName);
+end;
+
+procedure TTextFrame.SetCaption(const Value: string);
+begin
+  (Parent as TTabSheet).Caption := Value;
+end;
+
+function TTextFrame.GetHintAtPos(ScreenX, ScreenY: Integer): string;
+begin
+  Result := '';
+end;
+
+procedure TTextFrame.SetTextFileName(const Value: string);
+begin
+  FTextFileName := Value;
+  if FileExists(Value) then
+    RichEditText.Lines.LoadFromFile(Value);
+end;
+
+procedure TTextFrame.Show;
+var
+  ATabSheet: TTabSheet;
+begin
+  ATabSheet := Parent as TTabSheet;
+  (ATabSheet.Parent as TPageControl).ActivePage := ATabSheet;
+end;
+
+function TTextFrame.AddOption(const Caption: string): Integer;
+var
+  AOptionRec: POptionRec;
+  ControlTop: Integer;
+begin
+  if FOptions.Count > 0 then
+  begin
+    AOptionRec := FOptions.Items[FOptions.Count - 1];
+    ControlTop := AOptionRec^.CheckBox.Top + AOptionRec^.CheckBox.Height + 10;
+  end
+  else
+    ControlTop := 16;
+
+  New(AOptionRec);
+  AOptionRec^.CheckBox := TCheckBox.Create(Self);
+  AOptionRec^.CheckBox.Parent := PanelOptions;
+  AOptionRec^.CheckBox.Anchors := [akLeft, akTop, akRight];
+  AOptionRec^.CheckBox.Caption := Caption;
+
+  AOptionRec^.CheckBox.SetBounds(16, ControlTop, PanelOptions.ClientWidth - 32, AOptionRec^.CheckBox.Height);
+
+  PanelOptions.ClientHeight := AOptionRec^.CheckBox.Top + AOptionRec^.CheckBox.Height + 16;
+
+  Result := FOptions.Add(AOptionRec);
+end;
+
+procedure TTextFrame.SetOption(Index: Integer; Value: Boolean);
+begin
+  POptionRec(FOptions.Items[Index])^.CheckBox.Checked := Value;
+end;
+
+function TTextFrame.GetOption(Index: Integer): Boolean;
+begin
+  Result := POptionRec(FOptions.Items[Index])^.CheckBox.Checked;
+end;
+
+function TTextFrame.GetOptionCount: Integer;
+begin
+  Result := FOptions.Count;
+end;
+
+end.


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Jcl-checkins-diff] SF.net SVN: jcl:[3378] trunk/jcl/install/JediInstall.pas

From: <ou...@us...> - 2010-10-20 16:06:45

Revision: 3378
          http://jcl.svn.sourceforge.net/jcl/?rev=3378&view=rev
Author:   outchy
Date:     2010-10-20 16:06:36 +0000 (Wed, 20 Oct 2010)

Log Message:
-----------
Stop the installation if user confirmation is a negative answer.

Modified Paths:
--------------
    trunk/jcl/install/JediInstall.pas

Modified: trunk/jcl/install/JediInstall.pas
===================================================================
--- trunk/jcl/install/JediInstall.pas	2010-10-20 08:13:21 UTC (rev 3377)
+++ trunk/jcl/install/JediInstall.pas	2010-10-20 16:06:36 UTC (rev 3378)
@@ -429,7 +429,8 @@
   else
     Result := True;
 
-  for Index := FProducts.Size - 1 downto 0 do
+  if Result then
+    for Index := FProducts.Size - 1 downto 0 do
   begin
     Result := (FProducts.GetObject(Index) as IJediProduct).Install;
     if not Result then


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Jcl-checkins-diff] SF.net SVN: jcl:[3377] branches/JCL_2.2

From: <ou...@us...> - 2010-10-20 08:13:30

Revision: 3377
          http://jcl.svn.sourceforge.net/jcl/?rev=3377&view=rev
Author:   outchy
Date:     2010-10-20 08:13:21 +0000 (Wed, 20 Oct 2010)

Log Message:
-----------
Merge of trunk revisions 3354 and 3361 into 2.2 branch.

Modified Paths:
--------------
    branches/JCL_2.2/jcl/devtools/jpp/JppParser.pas
    branches/JCL_2.2/jcl/source/windows/obj/bzip2/blocksort.obj
    branches/JCL_2.2/jcl/source/windows/obj/bzip2/bzlib.obj
    branches/JCL_2.2/jcl/source/windows/obj/bzip2/compress.obj
    branches/JCL_2.2/jcl/source/windows/obj/bzip2/crctable.obj
    branches/JCL_2.2/jcl/source/windows/obj/bzip2/decompress.obj
    branches/JCL_2.2/jcl/source/windows/obj/bzip2/huffman.obj
    branches/JCL_2.2/jcl/source/windows/obj/bzip2/makefile.mak
    branches/JCL_2.2/jcl/source/windows/obj/bzip2/randtable.obj

Added Paths:
-----------
    branches/JCL_2.2/thirdparty/bzip2/bzip2-1.0.6.tar.gz

Removed Paths:
-------------
    branches/JCL_2.2/thirdparty/bzip2/bzip2-1.0.5.tar.gz

Modified: branches/JCL_2.2/jcl/devtools/jpp/JppParser.pas
===================================================================
--- branches/JCL_2.2/jcl/devtools/jpp/JppParser.pas	2010-10-20 08:03:55 UTC (rev 3376)
+++ branches/JCL_2.2/jcl/devtools/jpp/JppParser.pas	2010-10-20 08:13:21 UTC (rev 3377)
@@ -290,76 +290,82 @@
   // recurse macro expanding
   if ForceRecurseTest or (StrIPos('$JPP', AResult) > 0) then
   begin
-    Recurse := False;
-    TempLexer := TJppLexer.Create(AResult);
     try
-      State.PushState;
-      while True do
-      begin
-        case TempLexer.CurrTok of
-          ptEof:
-            Break;
-          ptDefine,
-          ptJppDefine:
-            if poProcessDefines in State.Options then
-              State.Define(TempLexer.TokenAsString);
-          ptUndef,
-          ptJppUndef:
-            if poProcessDefines in State.Options then
-              State.Undef(TempLexer.TokenAsString);
-          ptIfdef, ptIfndef:
-            if (poProcessDefines in State.Options) and (State.Defines[TempLexer.TokenAsString] in [ttDefined, ttUndef]) then
-            begin
-              Recurse := True;
+      Recurse := False;
+      TempLexer := TJppLexer.Create(AResult);
+      try
+        State.PushState;
+        while True do
+        begin
+          case TempLexer.CurrTok of
+            ptEof:
               Break;
-            end;
-          ptJppDefineMacro,
-          ptJppExpandMacro,
-          ptJppUndefMacro:
-            if poProcessMacros in State.Options then
-            begin
-              Recurse := True;
-              Break;
-            end;
-          ptJppGetStrValue,
-          ptJppGetIntValue,
-          ptJppGetBoolValue,
-          ptJppSetStrValue,
-          ptJppSetIntValue,
-          ptJppSetBoolValue,
-          ptJppLoop:
-            if poProcessValues in State.Options then
-            begin
-              Recurse := True;
-              Break;
-            end;
+            ptDefine,
+            ptJppDefine:
+              if poProcessDefines in State.Options then
+                State.Define(TempLexer.TokenAsString);
+            ptUndef,
+            ptJppUndef:
+              if poProcessDefines in State.Options then
+                State.Undef(TempLexer.TokenAsString);
+            ptIfdef, ptIfndef:
+              if (poProcessDefines in State.Options) and (State.Defines[TempLexer.TokenAsString] in [ttDefined, ttUndef]) then
+              begin
+                Recurse := True;
+                Break;
+              end;
+            ptJppDefineMacro,
+            ptJppExpandMacro,
+            ptJppUndefMacro:
+              if poProcessMacros in State.Options then
+              begin
+                Recurse := True;
+                Break;
+              end;
+            ptJppGetStrValue,
+            ptJppGetIntValue,
+            ptJppGetBoolValue,
+            ptJppSetStrValue,
+            ptJppSetIntValue,
+            ptJppSetBoolValue,
+            ptJppLoop:
+              if poProcessValues in State.Options then
+              begin
+                Recurse := True;
+                Break;
+              end;
+          end;
+          TempLexer.NextTok;
         end;
-        TempLexer.NextTok;
+      finally
+        State.PopState;
+        TempLexer.Free;
       end;
-    finally
-      State.PopState;
-      TempLexer.Free;
-    end;
-    if Recurse then
-    begin
-      TempMemoryStream := TMemoryStream.Create;
-      try
-        TempStringStream := TJclAutoStream.Create(TempMemoryStream);
+      if Recurse then
+      begin
+        TempMemoryStream := TMemoryStream.Create;
         try
-          TempStringStream.WriteString(AResult, 1, Length(AResult));
-          TempStringStream.Seek(0, soBeginning);
-          TempParser := TJppParser.Create(TempStringStream.ReadString, State);
+          TempStringStream := TJclAutoStream.Create(TempMemoryStream);
           try
-            AResult := TempParser.Parse;
+            TempStringStream.WriteString(AResult, 1, Length(AResult));
+            TempStringStream.Seek(0, soBeginning);
+            TempParser := TJppParser.Create(TempStringStream.ReadString, State);
+            try
+              AResult := TempParser.Parse;
+            finally
+              TempParser.Free;
+            end;
           finally
-            TempParser.Free;
+            TempStringStream.Free;
           end;
         finally
-          TempStringStream.Free;
+          TempMemoryStream.Free;
         end;
-      finally
-        TempMemoryStream.Free;
       end;
+    except
+      // The text might not be well-formed Pascal source and
+      // thus exceptions might be raised, in such case, just add the text without recursion
+      AResult := S;
     end;
   end;
   if FixIndent then

Modified: branches/JCL_2.2/jcl/source/windows/obj/bzip2/blocksort.obj
===================================================================
(Binary files differ)

Modified: branches/JCL_2.2/jcl/source/windows/obj/bzip2/bzlib.obj
===================================================================
(Binary files differ)

Modified: branches/JCL_2.2/jcl/source/windows/obj/bzip2/compress.obj
===================================================================
(Binary files differ)

Modified: branches/JCL_2.2/jcl/source/windows/obj/bzip2/crctable.obj
===================================================================
(Binary files differ)

Modified: branches/JCL_2.2/jcl/source/windows/obj/bzip2/decompress.obj
===================================================================
(Binary files differ)

Modified: branches/JCL_2.2/jcl/source/windows/obj/bzip2/huffman.obj
===================================================================
(Binary files differ)

Modified: branches/JCL_2.2/jcl/source/windows/obj/bzip2/makefile.mak
===================================================================
--- branches/JCL_2.2/jcl/source/windows/obj/bzip2/makefile.mak	2010-10-20 08:03:55 UTC (rev 3376)
+++ branches/JCL_2.2/jcl/source/windows/obj/bzip2/makefile.mak	2010-10-20 08:13:21 UTC (rev 3377)
@@ -2,7 +2,7 @@
 # makefile to make bzip2 .obj files using Borland's C++ compiler bcc32
 # derived from a makefile generated by BCB6' bpr2mak
 #
-# if bzip2 source directory is different from $(JCL)\source\bzip2-1.0.5, use
+# if bzip2 source directory is different from $(JCL)\source\bzip2-1.0.6, use
 # "make -Dbzip2src=<path to bzip2 sources>" to tell make where to find the 
 # source files
 #
@@ -42,7 +42,7 @@
 BCC = $(BCB)
 
 !if !$d(bzip2src)
-bzip2src = ..\..\..\bzip2-1.0.5
+bzip2src = ..\..\..\bzip2-1.0.6
 !endif
 
 !if !$d(CPU)

Modified: branches/JCL_2.2/jcl/source/windows/obj/bzip2/randtable.obj
===================================================================
(Binary files differ)

Deleted: branches/JCL_2.2/thirdparty/bzip2/bzip2-1.0.5.tar.gz
===================================================================
(Binary files differ)

Copied: branches/JCL_2.2/thirdparty/bzip2/bzip2-1.0.6.tar.gz (from rev 3354, trunk/thirdparty/bzip2/bzip2-1.0.6.tar.gz)
===================================================================
--- branches/JCL_2.2/thirdparty/bzip2/bzip2-1.0.6.tar.gz	                        (rev 0)
+++ branches/JCL_2.2/thirdparty/bzip2/bzip2-1.0.6.tar.gz	2010-10-20 08:13:21 UTC (rev 3377)
@@ -0,0 +1,5929 @@
+\x8B
+\x97L

[Jcl-checkins-diff] SF.net SVN: jcl:[3376] trunk/help/JCLHelp.dox

From: <ou...@us...> - 2010-10-20 08:04:02

Revision: 3376
          http://jcl.svn.sourceforge.net/jcl/?rev=3376&view=rev
Author:   outchy
Date:     2010-10-20 08:03:55 +0000 (Wed, 20 Oct 2010)

Log Message:
-----------
Change image scaling to preserve disk space.

Modified Paths:
--------------
    trunk/help/JCLHelp.dox

Modified: trunk/help/JCLHelp.dox
===================================================================
--- trunk/help/JCLHelp.dox	2010-10-18 19:58:05 UTC (rev 3375)
+++ trunk/help/JCLHelp.dox	2010-10-20 08:03:55 UTC (rev 3376)
@@ -72,7 +72,7 @@
 NodesAdjustWidthToGrid=0
 NodesAllSameWidth=0
 NodeSpacing=1
-Scale=1
+Scale=0.1
 ShowControlPoints=0
 SubGraphSpacing=40
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Jcl-checkins-diff] SF.net SVN: jcl:[3375] trunk

From: <ou...@us...> - 2010-10-18 19:58:15

Revision: 3375
          http://jcl.svn.sourceforge.net/jcl/?rev=3375&view=rev
Author:   outchy
Date:     2010-10-18 19:58:05 +0000 (Mon, 18 Oct 2010)

Log Message:
-----------
Remove thirdparty distribution binary files for bzip2, pcre and zlib and add their respective source files.

Modified Paths:
--------------
    trunk/jcl/source/windows/obj/bzip2/makefile.mak
    trunk/jcl/source/windows/obj/pcre/makefile.mak
    trunk/jcl/source/windows/obj/zlib/makefile.mak
    trunk/thirdparty/bzip2/how-to-update.txt
    trunk/thirdparty/pcre/how-to-update.txt
    trunk/thirdparty/svn_cleaner/SvnCleaner.xml
    trunk/thirdparty/zlib/how-to-update.txt

Added Paths:
-----------
    trunk/thirdparty/bzip2/bzip2-1.0.6/
    trunk/thirdparty/bzip2/bzip2-1.0.6/LICENSE
    trunk/thirdparty/bzip2/bzip2-1.0.6/README
    trunk/thirdparty/bzip2/bzip2-1.0.6/blocksort.c
    trunk/thirdparty/bzip2/bzip2-1.0.6/bzlib.c
    trunk/thirdparty/bzip2/bzip2-1.0.6/bzlib.h
    trunk/thirdparty/bzip2/bzip2-1.0.6/bzlib_private.h
    trunk/thirdparty/bzip2/bzip2-1.0.6/compress.c
    trunk/thirdparty/bzip2/bzip2-1.0.6/crctable.c
    trunk/thirdparty/bzip2/bzip2-1.0.6/decompress.c
    trunk/thirdparty/bzip2/bzip2-1.0.6/huffman.c
    trunk/thirdparty/bzip2/bzip2-1.0.6/randtable.c
    trunk/thirdparty/pcre/pcre-8.02/
    trunk/thirdparty/pcre/pcre-8.02/AUTHORS
    trunk/thirdparty/pcre/pcre-8.02/LICENCE
    trunk/thirdparty/pcre/pcre-8.02/README
    trunk/thirdparty/pcre/pcre-8.02/config.h.generic
    trunk/thirdparty/pcre/pcre-8.02/dftables.c
    trunk/thirdparty/pcre/pcre-8.02/pcre.h.generic
    trunk/thirdparty/pcre/pcre-8.02/pcre_compile.c
    trunk/thirdparty/pcre/pcre-8.02/pcre_config.c
    trunk/thirdparty/pcre/pcre-8.02/pcre_dfa_exec.c
    trunk/thirdparty/pcre/pcre-8.02/pcre_exec.c
    trunk/thirdparty/pcre/pcre-8.02/pcre_fullinfo.c
    trunk/thirdparty/pcre/pcre-8.02/pcre_get.c
    trunk/thirdparty/pcre/pcre-8.02/pcre_globals.c
    trunk/thirdparty/pcre/pcre-8.02/pcre_info.c
    trunk/thirdparty/pcre/pcre-8.02/pcre_internal.h
    trunk/thirdparty/pcre/pcre-8.02/pcre_maketables.c
    trunk/thirdparty/pcre/pcre-8.02/pcre_newline.c
    trunk/thirdparty/pcre/pcre-8.02/pcre_ord2utf8.c
    trunk/thirdparty/pcre/pcre-8.02/pcre_refcount.c
    trunk/thirdparty/pcre/pcre-8.02/pcre_study.c
    trunk/thirdparty/pcre/pcre-8.02/pcre_tables.c
    trunk/thirdparty/pcre/pcre-8.02/pcre_try_flipped.c
    trunk/thirdparty/pcre/pcre-8.02/pcre_ucd.c
    trunk/thirdparty/pcre/pcre-8.02/pcre_valid_utf8.c
    trunk/thirdparty/pcre/pcre-8.02/pcre_version.c
    trunk/thirdparty/pcre/pcre-8.02/pcre_xclass.c
    trunk/thirdparty/pcre/pcre-8.02/ucp.h
    trunk/thirdparty/zlib/zlib-1.2.5/
    trunk/thirdparty/zlib/zlib-1.2.5/README
    trunk/thirdparty/zlib/zlib-1.2.5/adler32.c
    trunk/thirdparty/zlib/zlib-1.2.5/compress.c
    trunk/thirdparty/zlib/zlib-1.2.5/crc32.c
    trunk/thirdparty/zlib/zlib-1.2.5/crc32.h
    trunk/thirdparty/zlib/zlib-1.2.5/deflate.c
    trunk/thirdparty/zlib/zlib-1.2.5/deflate.h
    trunk/thirdparty/zlib/zlib-1.2.5/infback.c
    trunk/thirdparty/zlib/zlib-1.2.5/inffast.c
    trunk/thirdparty/zlib/zlib-1.2.5/inffast.h
    trunk/thirdparty/zlib/zlib-1.2.5/inffixed.h
    trunk/thirdparty/zlib/zlib-1.2.5/inflate.c
    trunk/thirdparty/zlib/zlib-1.2.5/inflate.h
    trunk/thirdparty/zlib/zlib-1.2.5/inftrees.c
    trunk/thirdparty/zlib/zlib-1.2.5/inftrees.h
    trunk/thirdparty/zlib/zlib-1.2.5/trees.c
    trunk/thirdparty/zlib/zlib-1.2.5/trees.h
    trunk/thirdparty/zlib/zlib-1.2.5/uncompr.c
    trunk/thirdparty/zlib/zlib-1.2.5/zconf.h
    trunk/thirdparty/zlib/zlib-1.2.5/zlib.h
    trunk/thirdparty/zlib/zlib-1.2.5/zutil.c
    trunk/thirdparty/zlib/zlib-1.2.5/zutil.h

Removed Paths:
-------------
    trunk/thirdparty/bzip2/bzip2-1.0.6.tar.gz
    trunk/thirdparty/pcre/pcre-8.02.tar.gz
    trunk/thirdparty/zlib/zlib-1.2.5.tar.gz

Modified: trunk/jcl/source/windows/obj/bzip2/makefile.mak
===================================================================
--- trunk/jcl/source/windows/obj/bzip2/makefile.mak	2010-10-14 20:40:29 UTC (rev 3374)
+++ trunk/jcl/source/windows/obj/bzip2/makefile.mak	2010-10-18 19:58:05 UTC (rev 3375)
@@ -2,7 +2,7 @@
 # makefile to make bzip2 .obj files using Borland's C++ compiler bcc32
 # derived from a makefile generated by BCB6' bpr2mak
 #
-# if bzip2 source directory is different from $(JCL)\source\bzip2-1.0.6, use
+# if bzip2 source directory is different from ..\..\..\..\..\thirdparty\bzip2\bzip2-1.0.6, use
 # "make -Dbzip2src=<path to bzip2 sources>" to tell make where to find the 
 # source files
 #
@@ -42,7 +42,7 @@
 BCC = $(BCB)
 
 !if !$d(bzip2src)
-bzip2src = ..\..\..\bzip2-1.0.6
+bzip2src = ..\..\..\..\..\thirdparty\bzip2\bzip2-1.0.6
 !endif
 
 !if !$d(CPU)

Modified: trunk/jcl/source/windows/obj/pcre/makefile.mak
===================================================================
--- trunk/jcl/source/windows/obj/pcre/makefile.mak	2010-10-14 20:40:29 UTC (rev 3374)
+++ trunk/jcl/source/windows/obj/pcre/makefile.mak	2010-10-18 19:58:05 UTC (rev 3375)
@@ -2,7 +2,7 @@
 # makefile to make pcre .obj files using Borland's C++ compiler bcc32
 # derived from a makefile generated by BCB6' bpr2mak
 #
-# if pcre source directory is different from $(JCL)\source\pcre-8.02, use
+# if pcre source directory is different from ..\..\..\..\..\thirdparty\pcre\pcre-8.02, use
 # "make -Dpcresrc=<path to pcre sources>" to tell make where to find the 
 # source files
 #
@@ -42,7 +42,7 @@
 BCC = $(BCB)
 
 !if !$d(pcresrc)
-pcresrc = ..\..\..\pcre-8.02
+pcresrc = ..\..\..\..\..\thirdparty\pcre\pcre-8.02
 !endif
 
 !if !$d(CPU)

Modified: trunk/jcl/source/windows/obj/zlib/makefile.mak
===================================================================
--- trunk/jcl/source/windows/obj/zlib/makefile.mak	2010-10-14 20:40:29 UTC (rev 3374)
+++ trunk/jcl/source/windows/obj/zlib/makefile.mak	2010-10-18 19:58:05 UTC (rev 3375)
@@ -2,7 +2,7 @@
 # makefile to make zlib .obj files using Borland's C++ compiler bcc32
 # derived from a makefile generated by BCB6' bpr2mak
 #
-# if zlib source directory is different from $(JLC)\source\zlib-1.2.5, use
+# if zlib source directory is different from ..\..\..\..\..\thirdparty\zlib\zlib-1.2.5, use
 # "make -Dzlibsrc=<path to zlib sources>" to tell make where to find the 
 # source files
 #
@@ -44,7 +44,7 @@
 BCC = $(BCB)
 
 !if !$d(zlibsrc)
-zlibsrc = ..\..\..\zlib-1.2.5
+zlibsrc = ..\..\..\..\..\thirdparty\zlib\zlib-1.2.5
 !endif
 
 !if !$d(CPU)


Property changes on: trunk/thirdparty/bzip2/bzip2-1.0.6
___________________________________________________________________
Added: tsvn:projectlanguage
   + 0x0409
Added: bugtraq:url
   + http://issuetracker.delphi-jedi.org/view.php?id=%BUGID%
Added: bugtraq:message
   + (Mantis #%BUGID%)
Added: svn:ignore
   + sample3.ref
bzip2.1.preformatted
manual.html
mk251.c
libbz2.def
bz-fo.xsl
bz-html.xsl
entities.xml
bzip2.1
bzgrep
README.COMPILATION.PROBLEMS
bzmore.1
xmlproc.sh
makefile.msc
manual.ps
format.pl
bzdiff.1
bz-common.xsl
CHANGES
libbz2.dsp
manual.xml
Makefile
words0
words1
words2
words3
README.XML.STUFF
manual.pdf
bzgrep.1
bzip.css
dlltest.c
bzip2recover.c
bzmore
sample1.bz2
sample2.bz2
dlltest.dsp
Makefile-libbz2_so
sample3.bz2
bzdiff
bzip2.txt
spewG.c
bzip2.c
sample1.ref
sample2.ref
unzcrash.c

Added: bugtraq:logregex
   + [Mm]antis #?(\d+)(,? ?#?(\d+))+
(\d+)

Added: trunk/thirdparty/bzip2/bzip2-1.0.6/LICENSE
===================================================================
--- trunk/thirdparty/bzip2/bzip2-1.0.6/LICENSE	                        (rev 0)
+++ trunk/thirdparty/bzip2/bzip2-1.0.6/LICENSE	2010-10-18 19:58:05 UTC (rev 3375)
@@ -0,0 +1,42 @@
+
+--------------------------------------------------------------------------
+
+This program, "bzip2", the associated library "libbzip2", and all
+documentation, are copyright (C) 1996-2010 Julian R Seward.  All
+rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions
+are met:
+
+1. Redistributions of source code must retain the above copyright
+   notice, this list of conditions and the following disclaimer.
+
+2. The origin of this software must not be misrepresented; you must 
+   not claim that you wrote the original software.  If you use this 
+   software in a product, an acknowledgment in the product 
+   documentation would be appreciated but is not required.
+
+3. Altered source versions must be plainly marked as such, and must
+   not be misrepresented as being the original software.
+
+4. The name of the author may not be used to endorse or promote 
+   products derived from this software without specific prior written 
+   permission.
+
+THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS
+OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
+DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE
+GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
+WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+Julian Seward, js...@bz...
+bzip2/libbzip2 version 1.0.6 of 6 September 2010
+
+--------------------------------------------------------------------------

Added: trunk/thirdparty/bzip2/bzip2-1.0.6/README
===================================================================
--- trunk/thirdparty/bzip2/bzip2-1.0.6/README	                        (rev 0)
+++ trunk/thirdparty/bzip2/bzip2-1.0.6/README	2010-10-18 19:58:05 UTC (rev 3375)
@@ -0,0 +1,215 @@
+
+This is the README for bzip2/libzip2.
+This version is fully compatible with the previous public releases.
+
+------------------------------------------------------------------
+This file is part of bzip2/libbzip2, a program and library for
+lossless, block-sorting data compression.
+
+bzip2/libbzip2 version 1.0.6 of 6 September 2010
+Copyright (C) 1996-2010 Julian Seward <js...@bz...>
+
+Please read the WARNING, DISCLAIMER and PATENTS sections in this file.
+
+This program is released under the terms of the license contained
+in the file LICENSE.
+------------------------------------------------------------------
+
+Complete documentation is available in Postscript form (manual.ps),
+PDF (manual.pdf) or html (manual.html).  A plain-text version of the
+manual page is available as bzip2.txt.
+
+
+HOW TO BUILD -- UNIX
+
+Type 'make'.  This builds the library libbz2.a and then the programs
+bzip2 and bzip2recover.  Six self-tests are run.  If the self-tests
+complete ok, carry on to installation:
+
+To install in /usr/local/bin, /usr/local/lib, /usr/local/man and
+/usr/local/include, type
+
+   make install
+
+To install somewhere else, eg, /xxx/yyy/{bin,lib,man,include}, type
+
+   make install PREFIX=/xxx/yyy
+
+If you are (justifiably) paranoid and want to see what 'make install'
+is going to do, you can first do
+
+   make -n install                      or
+   make -n install PREFIX=/xxx/yyy      respectively.
+
+The -n instructs make to show the commands it would execute, but not
+actually execute them.
+
+
+HOW TO BUILD -- UNIX, shared library libbz2.so.
+
+Do 'make -f Makefile-libbz2_so'.  This Makefile seems to work for
+Linux-ELF (RedHat 7.2 on an x86 box), with gcc.  I make no claims
+that it works for any other platform, though I suspect it probably
+will work for most platforms employing both ELF and gcc.
+
+bzip2-shared, a client of the shared library, is also built, but not
+self-tested.  So I suggest you also build using the normal Makefile,
+since that conducts a self-test.  A second reason to prefer the
+version statically linked to the library is that, on x86 platforms,
+building shared objects makes a valuable register (%ebx) unavailable
+to gcc, resulting in a slowdown of 10%-20%, at least for bzip2.
+
+Important note for people upgrading .so's from 0.9.0/0.9.5 to version
+1.0.X.  All the functions in the library have been renamed, from (eg)
+bzCompress to BZ2_bzCompress, to avoid namespace pollution.
+Unfortunately this means that the libbz2.so created by
+Makefile-libbz2_so will not work with any program which used an older
+version of the library.  I do encourage library clients to make the
+effort to upgrade to use version 1.0, since it is both faster and more
+robust than previous versions.
+
+
+HOW TO BUILD -- Windows 95, NT, DOS, Mac, etc.
+
+It's difficult for me to support compilation on all these platforms.
+My approach is to collect binaries for these platforms, and put them
+on the master web site (http://www.bzip.org).  Look there.  However
+(FWIW), bzip2-1.0.X is very standard ANSI C and should compile
+unmodified with MS Visual C.  If you have difficulties building, you
+might want to read README.COMPILATION.PROBLEMS.
+
+At least using MS Visual C++ 6, you can build from the unmodified
+sources by issuing, in a command shell: 
+
+   nmake -f makefile.msc
+
+(you may need to first run the MSVC-provided script VCVARS32.BAT
+ so as to set up paths to the MSVC tools correctly).
+
+
+VALIDATION
+
+Correct operation, in the sense that a compressed file can always be
+decompressed to reproduce the original, is obviously of paramount
+importance.  To validate bzip2, I used a modified version of Mark
+Nelson's churn program.  Churn is an automated test driver which
+recursively traverses a directory structure, using bzip2 to compress
+and then decompress each file it encounters, and checking that the
+decompressed data is the same as the original.
+
+
+
+Please read and be aware of the following:
+
+WARNING:
+
+   This program and library (attempts to) compress data by 
+   performing several non-trivial transformations on it.  
+   Unless you are 100% familiar with *all* the algorithms 
+   contained herein, and with the consequences of modifying them, 
+   you should NOT meddle with the compression or decompression 
+   machinery.  Incorrect changes can and very likely *will* 
+   lead to disastrous loss of data.
+
+
+DISCLAIMER:
+
+   I TAKE NO RESPONSIBILITY FOR ANY LOSS OF DATA ARISING FROM THE
+   USE OF THIS PROGRAM/LIBRARY, HOWSOEVER CAUSED.
+
+   Every compression of a file implies an assumption that the
+   compressed file can be decompressed to reproduce the original.
+   Great efforts in design, coding and testing have been made to
+   ensure that this program works correctly.  However, the complexity
+   of the algorithms, and, in particular, the presence of various
+   special cases in the code which occur with very low but non-zero
+   probability make it impossible to rule out the possibility of bugs
+   remaining in the program.  DO NOT COMPRESS ANY DATA WITH THIS
+   PROGRAM UNLESS YOU ARE PREPARED TO ACCEPT THE POSSIBILITY, HOWEVER
+   SMALL, THAT THE DATA WILL NOT BE RECOVERABLE.
+
+   That is not to say this program is inherently unreliable.  
+   Indeed, I very much hope the opposite is true.  bzip2/libbzip2 
+   has been carefully constructed and extensively tested.
+
+
+PATENTS:
+
+   To the best of my knowledge, bzip2/libbzip2 does not use any 
+   patented algorithms.  However, I do not have the resources 
+   to carry out a patent search.  Therefore I cannot give any 
+   guarantee of the above statement.
+
+
+
+WHAT'S NEW IN 0.9.0 (as compared to 0.1pl2) ?
+
+   * Approx 10% faster compression, 30% faster decompression
+   * -t (test mode) is a lot quicker
+   * Can decompress concatenated compressed files
+   * Programming interface, so programs can directly read/write .bz2 files
+   * Less restrictive (BSD-style) licensing
+   * Flag handling more compatible with GNU gzip
+   * Much more documentation, i.e., a proper user manual
+   * Hopefully, improved portability (at least of the library)
+
+WHAT'S NEW IN 0.9.5 ?
+
+   * Compression speed is much less sensitive to the input
+     data than in previous versions.  Specifically, the very
+     slow performance caused by repetitive data is fixed.
+   * Many small improvements in file and flag handling.
+   * A Y2K statement.
+
+WHAT'S NEW IN 1.0.0 ?
+
+   See the CHANGES file.
+
+WHAT'S NEW IN 1.0.2 ?
+
+   See the CHANGES file.
+
+WHAT'S NEW IN 1.0.3 ?
+
+   See the CHANGES file.
+
+WHAT'S NEW IN 1.0.4 ?
+
+   See the CHANGES file.
+
+WHAT'S NEW IN 1.0.5 ?
+
+   See the CHANGES file.
+
+WHAT'S NEW IN 1.0.6 ?
+
+   See the CHANGES file.
+
+
+I hope you find bzip2 useful.  Feel free to contact me at
+   js...@bz...
+if you have any suggestions or queries.  Many people mailed me with
+comments, suggestions and patches after the releases of bzip-0.15,
+bzip-0.21, and bzip2 versions 0.1pl2, 0.9.0, 0.9.5, 1.0.0, 1.0.1,
+1.0.2 and 1.0.3, and the changes in bzip2 are largely a result of this
+feedback.  I thank you for your comments.
+
+bzip2's "home" is http://www.bzip.org/
+
+Julian Seward
+js...@bz...
+Cambridge, UK.
+
+18     July 1996 (version 0.15)
+25   August 1996 (version 0.21)
+ 7   August 1997 (bzip2, version 0.1)
+29   August 1997 (bzip2, version 0.1pl2)
+23   August 1998 (bzip2, version 0.9.0)
+ 8     June 1999 (bzip2, version 0.9.5)
+ 4     Sept 1999 (bzip2, version 0.9.5d)
+ 5      May 2000 (bzip2, version 1.0pre8)
+30 December 2001 (bzip2, version 1.0.2pre1)
+15 February 2005 (bzip2, version 1.0.3)
+20 December 2006 (bzip2, version 1.0.4)
+10 December 2007 (bzip2, version 1.0.5)
+ 6     Sept 2010 (bzip2, version 1.0.6)

Added: trunk/thirdparty/bzip2/bzip2-1.0.6/blocksort.c
===================================================================
--- trunk/thirdparty/bzip2/bzip2-1.0.6/blocksort.c	                        (rev 0)
+++ trunk/thirdparty/bzip2/bzip2-1.0.6/blocksort.c	2010-10-18 19:58:05 UTC (rev 3375)
@@ -0,0 +1,1094 @@
+
+/*-------------------------------------------------------------*/
+/*--- Block sorting machinery                               ---*/
+/*---                                           blocksort.c ---*/
+/*-------------------------------------------------------------*/
+
+/* ------------------------------------------------------------------
+   This file is part of bzip2/libbzip2, a program and library for
+   lossless, block-sorting data compression.
+
+   bzip2/libbzip2 version 1.0.6 of 6 September 2010
+   Copyright (C) 1996-2010 Julian Seward <js...@bz...>
+
+   Please read the WARNING, DISCLAIMER and PATENTS sections in the 
+   README file.
+
+   This program is released under the terms of the license contained
+   in the file LICENSE.
+   ------------------------------------------------------------------ */
+
+
+#include "bzlib_private.h"
+
+/*---------------------------------------------*/
+/*--- Fallback O(N log(N)^2) sorting        ---*/
+/*--- algorithm, for repetitive blocks      ---*/
+/*---------------------------------------------*/
+
+/*---------------------------------------------*/
+static 
+__inline__
+void fallbackSimpleSort ( UInt32* fmap, 
+                          UInt32* eclass, 
+                          Int32   lo, 
+                          Int32   hi )
+{
+   Int32 i, j, tmp;
+   UInt32 ec_tmp;
+
+   if (lo == hi) return;
+
+   if (hi - lo > 3) {
+      for ( i = hi-4; i >= lo; i-- ) {
+         tmp = fmap[i];
+         ec_tmp = eclass[tmp];
+         for ( j = i+4; j <= hi && ec_tmp > eclass[fmap[j]]; j += 4 )
+            fmap[j-4] = fmap[j];
+         fmap[j-4] = tmp;
+      }
+   }
+
+   for ( i = hi-1; i >= lo; i-- ) {
+      tmp = fmap[i];
+      ec_tmp = eclass[tmp];
+      for ( j = i+1; j <= hi && ec_tmp > eclass[fmap[j]]; j++ )
+         fmap[j-1] = fmap[j];
+      fmap[j-1] = tmp;
+   }
+}
+
+
+/*---------------------------------------------*/
+#define fswap(zz1, zz2) \
+   { Int32 zztmp = zz1; zz1 = zz2; zz2 = zztmp; }
+
+#define fvswap(zzp1, zzp2, zzn)       \
+{                                     \
+   Int32 yyp1 = (zzp1);               \
+   Int32 yyp2 = (zzp2);               \
+   Int32 yyn  = (zzn);                \
+   while (yyn > 0) {                  \
+      fswap(fmap[yyp1], fmap[yyp2]);  \
+      yyp1++; yyp2++; yyn--;          \
+   }                                  \
+}
+
+
+#define fmin(a,b) ((a) < (b)) ? (a) : (b)
+
+#define fpush(lz,hz) { stackLo[sp] = lz; \
+                       stackHi[sp] = hz; \
+                       sp++; }
+
+#define fpop(lz,hz) { sp--;              \
+                      lz = stackLo[sp];  \
+                      hz = stackHi[sp]; }
+
+#define FALLBACK_QSORT_SMALL_THRESH 10
+#define FALLBACK_QSORT_STACK_SIZE   100
+
+
+static
+void fallbackQSort3 ( UInt32* fmap, 
+                      UInt32* eclass,
+                      Int32   loSt, 
+                      Int32   hiSt )
+{
+   Int32 unLo, unHi, ltLo, gtHi, n, m;
+   Int32 sp, lo, hi;
+   UInt32 med, r, r3;
+   Int32 stackLo[FALLBACK_QSORT_STACK_SIZE];
+   Int32 stackHi[FALLBACK_QSORT_STACK_SIZE];
+
+   r = 0;
+
+   sp = 0;
+   fpush ( loSt, hiSt );
+
+   while (sp > 0) {
+
+      AssertH ( sp < FALLBACK_QSORT_STACK_SIZE - 1, 1004 );
+
+      fpop ( lo, hi );
+      if (hi - lo < FALLBACK_QSORT_SMALL_THRESH) {
+         fallbackSimpleSort ( fmap, eclass, lo, hi );
+         continue;
+      }
+
+      /* Random partitioning.  Median of 3 sometimes fails to
+         avoid bad cases.  Median of 9 seems to help but 
+         looks rather expensive.  This too seems to work but
+         is cheaper.  Guidance for the magic constants 
+         7621 and 32768 is taken from Sedgewick's algorithms
+         book, chapter 35.
+      */
+      r = ((r * 7621) + 1) % 32768;
+      r3 = r % 3;
+      if (r3 == 0) med = eclass[fmap[lo]]; else
+      if (r3 == 1) med = eclass[fmap[(lo+hi)>>1]]; else
+                   med = eclass[fmap[hi]];
+
+      unLo = ltLo = lo;
+      unHi = gtHi = hi;
+
+      while (1) {
+         while (1) {
+            if (unLo > unHi) break;
+            n = (Int32)eclass[fmap[unLo]] - (Int32)med;
+            if (n == 0) { 
+               fswap(fmap[unLo], fmap[ltLo]); 
+               ltLo++; unLo++; 
+               continue; 
+            };
+            if (n > 0) break;
+            unLo++;
+         }
+         while (1) {
+            if (unLo > unHi) break;
+            n = (Int32)eclass[fmap[unHi]] - (Int32)med;
+            if (n == 0) { 
+               fswap(fmap[unHi], fmap[gtHi]); 
+               gtHi--; unHi--; 
+               continue; 
+            };
+            if (n < 0) break;
+            unHi--;
+         }
+         if (unLo > unHi) break;
+         fswap(fmap[unLo], fmap[unHi]); unLo++; unHi--;
+      }
+
+      AssertD ( unHi == unLo-1, "fallbackQSort3(2)" );
+
+      if (gtHi < ltLo) continue;
+
+      n = fmin(ltLo-lo, unLo-ltLo); fvswap(lo, unLo-n, n);
+      m = fmin(hi-gtHi, gtHi-unHi); fvswap(unLo, hi-m+1, m);
+
+      n = lo + unLo - ltLo - 1;
+      m = hi - (gtHi - unHi) + 1;
+
+      if (n - lo > hi - m) {
+         fpush ( lo, n );
+         fpush ( m, hi );
+      } else {
+         fpush ( m, hi );
+         fpush ( lo, n );
+      }
+   }
+}
+
+#undef fmin
+#undef fpush
+#undef fpop
+#undef fswap
+#undef fvswap
+#undef FALLBACK_QSORT_SMALL_THRESH
+#undef FALLBACK_QSORT_STACK_SIZE
+
+
+/*---------------------------------------------*/
+/* Pre:
+      nblock > 0
+      eclass exists for [0 .. nblock-1]
+      ((UChar*)eclass) [0 .. nblock-1] holds block
+      ptr exists for [0 .. nblock-1]
+
+   Post:
+      ((UChar*)eclass) [0 .. nblock-1] holds block
+      All other areas of eclass destroyed
+      fmap [0 .. nblock-1] holds sorted order
+      bhtab [ 0 .. 2+(nblock/32) ] destroyed
+*/
+
+#define       SET_BH(zz)  bhtab[(zz) >> 5] |= (1 << ((zz) & 31))
+#define     CLEAR_BH(zz)  bhtab[(zz) >> 5] &= ~(1 << ((zz) & 31))
+#define     ISSET_BH(zz)  (bhtab[(zz) >> 5] & (1 << ((zz) & 31)))
+#define      WORD_BH(zz)  bhtab[(zz) >> 5]
+#define UNALIGNED_BH(zz)  ((zz) & 0x01f)
+
+static
+void fallbackSort ( UInt32* fmap, 
+                    UInt32* eclass, 
+                    UInt32* bhtab,
+                    Int32   nblock,
+                    Int32   verb )
+{
+   Int32 ftab[257];
+   Int32 ftabCopy[256];
+   Int32 H, i, j, k, l, r, cc, cc1;
+   Int32 nNotDone;
+   Int32 nBhtab;
+   UChar* eclass8 = (UChar*)eclass;
+
+   /*--
+      Initial 1-char radix sort to generate
+      initial fmap and initial BH bits.
+   --*/
+   if (verb >= 4)
+      VPrintf0 ( "        bucket sorting ...\n" );
+   for (i = 0; i < 257;    i++) ftab[i] = 0;
+   for (i = 0; i < nblock; i++) ftab[eclass8[i]]++;
+   for (i = 0; i < 256;    i++) ftabCopy[i] = ftab[i];
+   for (i = 1; i < 257;    i++) ftab[i] += ftab[i-1];
+
+   for (i = 0; i < nblock; i++) {
+      j = eclass8[i];
+      k = ftab[j] - 1;
+      ftab[j] = k;
+      fmap[k] = i;
+   }
+
+   nBhtab = 2 + (nblock / 32);
+   for (i = 0; i < nBhtab; i++) bhtab[i] = 0;
+   for (i = 0; i < 256; i++) SET_BH(ftab[i]);
+
+   /*--
+      Inductively refine the buckets.  Kind-of an
+      "exponential radix sort" (!), inspired by the
+      Manber-Myers suffix array construction algorithm.
+   --*/
+
+   /*-- set sentinel bits for block-end detection --*/
+   for (i = 0; i < 32; i++) { 
+      SET_BH(nblock + 2*i);
+      CLEAR_BH(nblock + 2*i + 1);
+   }
+
+   /*-- the log(N) loop --*/
+   H = 1;
+   while (1) {
+
+      if (verb >= 4) 
+         VPrintf1 ( "        depth %6d has ", H );
+
+      j = 0;
+      for (i = 0; i < nblock; i++) {
+         if (ISSET_BH(i)) j = i;
+         k = fmap[i] - H; if (k < 0) k += nblock;
+         eclass[k] = j;
+      }
+
+      nNotDone = 0;
+      r = -1;
+      while (1) {
+
+	 /*-- find the next non-singleton bucket --*/
+         k = r + 1;
+         while (ISSET_BH(k) && UNALIGNED_BH(k)) k++;
+         if (ISSET_BH(k)) {
+            while (WORD_BH(k) == 0xffffffff) k += 32;
+            while (ISSET_BH(k)) k++;
+         }
+         l = k - 1;
+         if (l >= nblock) break;
+         while (!ISSET_BH(k) && UNALIGNED_BH(k)) k++;
+         if (!ISSET_BH(k)) {
+            while (WORD_BH(k) == 0x00000000) k += 32;
+            while (!ISSET_BH(k)) k++;
+         }
+         r = k - 1;
+         if (r >= nblock) break;
+
+         /*-- now [l, r] bracket current bucket --*/
+         if (r > l) {
+            nNotDone += (r - l + 1);
+            fallbackQSort3 ( fmap, eclass, l, r );
+
+            /*-- scan bucket and generate header bits-- */
+            cc = -1;
+            for (i = l; i <= r; i++) {
+               cc1 = eclass[fmap[i]];
+               if (cc != cc1) { SET_BH(i); cc = cc1; };
+            }
+         }
+      }
+
+      if (verb >= 4) 
+         VPrintf1 ( "%6d unresolved strings\n", nNotDone );
+
+      H *= 2;
+      if (H > nblock || nNotDone == 0) break;
+   }
+
+   /*-- 
+      Reconstruct the original block in
+      eclass8 [0 .. nblock-1], since the
+      previous phase destroyed it.
+   --*/
+   if (verb >= 4)
+      VPrintf0 ( "        reconstructing block ...\n" );
+   j = 0;
+   for (i = 0; i < nblock; i++) {
+      while (ftabCopy[j] == 0) j++;
+      ftabCopy[j]--;
+      eclass8[fmap[i]] = (UChar)j;
+   }
+   AssertH ( j < 256, 1005 );
+}
+
+#undef       SET_BH
+#undef     CLEAR_BH
+#undef     ISSET_BH
+#undef      WORD_BH
+#undef UNALIGNED_BH
+
+
+/*---------------------------------------------*/
+/*--- The main, O(N^2 log(N)) sorting       ---*/
+/*--- algorithm.  Faster for "normal"       ---*/
+/*--- non-repetitive blocks.                ---*/
+/*---------------------------------------------*/
+
+/*---------------------------------------------*/
+static
+__inline__
+Bool mainGtU ( UInt32  i1, 
+               UInt32  i2,
+               UChar*  block, 
+               UInt16* quadrant,
+               UInt32  nblock,
+               Int32*  budget )
+{
+   Int32  k;
+   UChar  c1, c2;
+   UInt16 s1, s2;
+
+   AssertD ( i1 != i2, "mainGtU" );
+   /* 1 */
+   c1 = block[i1]; c2 = block[i2];
+   if (c1 != c2) return (c1 > c2);
+   i1++; i2++;
+   /* 2 */
+   c1 = block[i1]; c2 = block[i2];
+   if (c1 != c2) return (c1 > c2);
+   i1++; i2++;
+   /* 3 */
+   c1 = block[i1]; c2 = block[i2];
+   if (c1 != c2) return (c1 > c2);
+   i1++; i2++;
+   /* 4 */
+   c1 = block[i1]; c2 = block[i2];
+   if (c1 != c2) return (c1 > c2);
+   i1++; i2++;
+   /* 5 */
+   c1 = block[i1]; c2 = block[i2];
+   if (c1 != c2) return (c1 > c2);
+   i1++; i2++;
+   /* 6 */
+   c1 = block[i1]; c2 = block[i2];
+   if (c1 != c2) return (c1 > c2);
+   i1++; i2++;
+   /* 7 */
+   c1 = block[i1]; c2 = block[i2];
+   if (c1 != c2) return (c1 > c2);
+   i1++; i2++;
+   /* 8 */
+   c1 = block[i1]; c2 = block[i2];
+   if (c1 != c2) return (c1 > c2);
+   i1++; i2++;
+   /* 9 */
+   c1 = block[i1]; c2 = block[i2];
+   if (c1 != c2) return (c1 > c2);
+   i1++; i2++;
+   /* 10 */
+   c1 = block[i1]; c2 = block[i2];
+   if (c1 != c2) return (c1 > c2);
+   i1++; i2++;
+   /* 11 */
+   c1 = block[i1]; c2 = block[i2];
+   if (c1 != c2) return (c1 > c2);
+   i1++; i2++;
+   /* 12 */
+   c1 = block[i1]; c2 = block[i2];
+   if (c1 != c2) return (c1 > c2);
+   i1++; i2++;
+
+   k = nblock + 8;
+
+   do {
+      /* 1 */
+      c1 = block[i1]; c2 = block[i2];
+      if (c1 != c2) return (c1 > c2);
+      s1 = quadrant[i1]; s2 = quadrant[i2];
+      if (s1 != s2) return (s1 > s2);
+      i1++; i2++;
+      /* 2 */
+      c1 = block[i1]; c2 = block[i2];
+      if (c1 != c2) return (c1 > c2);
+      s1 = quadrant[i1]; s2 = quadrant[i2];
+      if (s1 != s2) return (s1 > s2);
+      i1++; i2++;
+      /* 3 */
+      c1 = block[i1]; c2 = block[i2];
+      if (c1 != c2) return (c1 > c2);
+      s1 = quadrant[i1]; s2 = quadrant[i2];
+      if (s1 != s2) return (s1 > s2);
+      i1++; i2++;
+      /* 4 */
+      c1 = block[i1]; c2 = block[i2];
+      if (c1 != c2) return (c1 > c2);
+      s1 = quadrant[i1]; s2 = quadrant[i2];
+      if (s1 != s2) return (s1 > s2);
+      i1++; i2++;
+      /* 5 */
+      c1 = block[i1]; c2 = block[i2];
+      if (c1 != c2) return (c1 > c2);
+      s1 = quadrant[i1]; s2 = quadrant[i2];
+      if (s1 != s2) return (s1 > s2);
+      i1++; i2++;
+      /* 6 */
+      c1 = block[i1]; c2 = block[i2];
+      if (c1 != c2) return (c1 > c2);
+      s1 = quadrant[i1]; s2 = quadrant[i2];
+      if (s1 != s2) return (s1 > s2);
+      i1++; i2++;
+      /* 7 */
+      c1 = block[i1]; c2 = block[i2];
+      if (c1 != c2) return (c1 > c2);
+      s1 = quadrant[i1]; s2 = quadrant[i2];
+      if (s1 != s2) return (s1 > s2);
+      i1++; i2++;
+      /* 8 */
+      c1 = block[i1]; c2 = block[i2];
+      if (c1 != c2) return (c1 > c2);
+      s1 = quadrant[i1]; s2 = quadrant[i2];
+      if (s1 != s2) return (s1 > s2);
+      i1++; i2++;
+
+      if (i1 >= nblock) i1 -= nblock;
+      if (i2 >= nblock) i2 -= nblock;
+
+      k -= 8;
+      (*budget)--;
+   }
+      while (k >= 0);
+
+   return False;
+}
+
+
+/*---------------------------------------------*/
+/*--
+   Knuth's increments seem to work better
+   than Incerpi-Sedgewick here.  Possibly
+   because the number of elems to sort is
+   usually small, typically <= 20.
+--*/
+static
+Int32 incs[14] = { 1, 4, 13, 40, 121, 364, 1093, 3280,
+                   9841, 29524, 88573, 265720,
+                   797161, 2391484 };
+
+static
+void mainSimpleSort ( UInt32* ptr,
+                      UChar*  block,
+                      UInt16* quadrant,
+                      Int32   nblock,
+                      Int32   lo, 
+                      Int32   hi, 
+                      Int32   d,
+                      Int32*  budget )
+{
+   Int32 i, j, h, bigN, hp;
+   UInt32 v;
+
+   bigN = hi - lo + 1;
+   if (bigN < 2) return;
+
+   hp = 0;
+   while (incs[hp] < bigN) hp++;
+   hp--;
+
+   for (; hp >= 0; hp--) {
+      h = incs[hp];
+
+      i = lo + h;
+      while (True) {
+
+         /*-- copy 1 --*/
+         if (i > hi) break;
+         v = ptr[i];
+         j = i;
+         while ( mainGtU ( 
+                    ptr[j-h]+d, v+d, block, quadrant, nblock, budget 
+                 ) ) {
+            ptr[j] = ptr[j-h];
+            j = j - h;
+            if (j <= (lo + h - 1)) break;
+         }
+         ptr[j] = v;
+         i++;
+
+         /*-- copy 2 --*/
+         if (i > hi) break;
+         v = ptr[i];
+         j = i;
+         while ( mainGtU ( 
+                    ptr[j-h]+d, v+d, block, quadrant, nblock, budget 
+                 ) ) {
+            ptr[j] = ptr[j-h];
+            j = j - h;
+            if (j <= (lo + h - 1)) break;
+         }
+         ptr[j] = v;
+         i++;
+
+         /*-- copy 3 --*/
+         if (i > hi) break;
+         v = ptr[i];
+         j = i;
+         while ( mainGtU ( 
+                    ptr[j-h]+d, v+d, block, quadrant, nblock, budget 
+                 ) ) {
+            ptr[j] = ptr[j-h];
+            j = j - h;
+            if (j <= (lo + h - 1)) break;
+         }
+         ptr[j] = v;
+         i++;
+
+         if (*budget < 0) return;
+      }
+   }
+}
+
+
+/*---------------------------------------------*/
+/*--
+   The following is an implementation of
+   an elegant 3-way quicksort for strings,
+   described in a paper "Fast Algorithms for
+   Sorting and Searching Strings", by Robert
+   Sedgewick and Jon L. Bentley.
+--*/
+
+#define mswap(zz1, zz2) \
+   { Int32 zztmp = zz1; zz1 = zz2; zz2 = zztmp; }
+
+#define mvswap(zzp1, zzp2, zzn)       \
+{                                     \
+   Int32 yyp1 = (zzp1);               \
+   Int32 yyp2 = (zzp2);               \
+   Int32 yyn  = (zzn);                \
+   while (yyn > 0) {                  \
+      mswap(ptr[yyp1], ptr[yyp2]);    \
+      yyp1++; yyp2++; yyn--;          \
+   }                                  \
+}
+
+static 
+__inline__
+UChar mmed3 ( UChar a, UChar b, UChar c )
+{
+   UChar t;
+   if (a > b) { t = a; a = b; b = t; };
+   if (b > c) { 
+      b = c;
+      if (a > b) b = a;
+   }
+   return b;
+}
+
+#define mmin(a,b) ((a) < (b)) ? (a) : (b)
+
+#define mpush(lz,hz,dz) { stackLo[sp] = lz; \
+                          stackHi[sp] = hz; \
+                          stackD [sp] = dz; \
+                          sp++; }
+
+#define mpop(lz,hz,dz) { sp--;             \
+                         lz = stackLo[sp]; \
+                         hz = stackHi[sp]; \
+                         dz = stackD [sp]; }
+
+
+#define mnextsize(az) (nextHi[az]-nextLo[az])
+
+#define mnextswap(az,bz)                                        \
+   { Int32 tz;                                                  \
+     tz = nextLo[az]; nextLo[az] = nextLo[bz]; nextLo[bz] = tz; \
+     tz = nextHi[az]; nextHi[az] = nextHi[bz]; nextHi[bz] = tz; \
+     tz = nextD [az]; nextD [az] = nextD [bz]; nextD [bz] = tz; }
+
+
+#define MAIN_QSORT_SMALL_THRESH 20
+#define MAIN_QSORT_DEPTH_THRESH (BZ_N_RADIX + BZ_N_QSORT)
+#define MAIN_QSORT_STACK_SIZE 100
+
+static
+void mainQSort3 ( UInt32* ptr,
+                  UChar*  block,
+                  UInt16* quadrant,
+                  Int32   nblock,
+                  Int32   loSt, 
+                  Int32   hiSt, 
+                  Int32   dSt,
+                  Int32*  budget )
+{
+   Int32 unLo, unHi, ltLo, gtHi, n, m, med;
+   Int32 sp, lo, hi, d;
+
+   Int32 stackLo[MAIN_QSORT_STACK_SIZE];
+   Int32 stackHi[MAIN_QSORT_STACK_SIZE];
+   Int32 stackD [MAIN_QSORT_STACK_SIZE];
+
+   Int32 nextLo[3];
+   Int32 nextHi[3];
+   Int32 nextD [3];
+
+   sp = 0;
+   mpush ( loSt, hiSt, dSt );
+
+   while (sp > 0) {
+
+      AssertH ( sp < MAIN_QSORT_STACK_SIZE - 2, 1001 );
+
+      mpop ( lo, hi, d );
+      if (hi - lo < MAIN_QSORT_SMALL_THRESH || 
+          d > MAIN_QSORT_DEPTH_THRESH) {
+         mainSimpleSort ( ptr, block, quadrant, nblock, lo, hi, d, budget );
+         if (*budget < 0) return;
+         continue;
+      }
+
+      med = (Int32) 
+            mmed3 ( block[ptr[ lo         ]+d],
+                    block[ptr[ hi         ]+d],
+                    block[ptr[ (lo+hi)>>1 ]+d] );
+
+      unLo = ltLo = lo;
+      unHi = gtHi = hi;
+
+      while (True) {
+         while (True) {
+            if (unLo > unHi) break;
+            n = ((Int32)block[ptr[unLo]+d]) - med;
+            if (n == 0) { 
+               mswap(ptr[unLo], ptr[ltLo]); 
+               ltLo++; unLo++; continue; 
+            };
+            if (n >  0) break;
+            unLo++;
+         }
+         while (True) {
+            if (unLo > unHi) break;
+            n = ((Int32)block[ptr[unHi]+d]) - med;
+            if (n == 0) { 
+               mswap(ptr[unHi], ptr[gtHi]); 
+               gtHi--; unHi--; continue; 
+            };
+            if (n <  0) break;
+            unHi--;
+         }
+         if (unLo > unHi) break;
+         mswap(ptr[unLo], ptr[unHi]); unLo++; unHi--;
+      }
+
+      AssertD ( unHi == unLo-1, "mainQSort3(2)" );
+
+      if (gtHi < ltLo) {
+         mpush(lo, hi, d+1 );
+         continue;
+      }
+
+      n = mmin(ltLo-lo, unLo-ltLo); mvswap(lo, unLo-n, n);
+      m = mmin(hi-gtHi, gtHi-unHi); mvswap(unLo, hi-m+1, m);
+
+      n = lo + unLo - ltLo - 1;
+      m = hi - (gtHi - unHi) + 1;
+
+      nextLo[0] = lo;  nextHi[0] = n;   nextD[0] = d;
+      nextLo[1] = m;   nextHi[1] = hi;  nextD[1] = d;
+      nextLo[2] = n+1; nextHi[2] = m-1; nextD[2] = d+1;
+
+      if (mnextsize(0) < mnextsize(1)) mnextswap(0,1);
+      if (mnextsize(1) < mnextsize(2)) mnextswap(1,2);
+      if (mnextsize(0) < mnextsize(1)) mnextswap(0,1);
+
+      AssertD (mnextsize(0) >= mnextsize(1), "mainQSort3(8)" );
+      AssertD (mnextsize(1) >= mnextsize(2), "mainQSort3(9)" );
+
+      mpush (nextLo[0], nextHi[0], nextD[0]);
+      mpush (nextLo[1], nextHi[1], nextD[1]);
+      mpush (nextLo[2], nextHi[2], nextD[2]);
+   }
+}
+
+#undef mswap
+#undef mvswap
+#undef mpush
+#undef mpop
+#undef mmin
+#undef mnextsize
+#undef mnextswap
+#undef MAIN_QSORT_SMALL_THRESH
+#undef MAIN_QSORT_DEPTH_THRESH
+#undef MAIN_QSORT_STACK_SIZE
+
+
+/*---------------------------------------------*/
+/* Pre:
+      nblock > N_OVERSHOOT
+      block32 exists for [0 .. nblock-1 +N_OVERSHOOT]
+      ((UChar*)block32) [0 .. nblock-1] holds block
+      ptr exists for [0 .. nblock-1]
+
+   Post:
+      ((UChar*)block32) [0 .. nblock-1] holds block
+      All other areas of block32 destroyed
+      ftab [0 .. 65536 ] destroyed
+      ptr [0 .. nblock-1] holds sorted order
+      if (*budget < 0), sorting was abandoned
+*/
+
+#define BIGFREQ(b) (ftab[((b)+1) << 8] - ftab[(b) << 8])
+#define SETMASK (1 << 21)
+#define CLEARMASK (~(SETMASK))
+
+static
+void mainSort ( UInt32* ptr, 
+                UChar*  block,
+                UInt16* quadrant, 
+                UInt32* ftab,
+                Int32   nblock,
+                Int32   verb,
+                Int32*  budget )
+{
+   Int32  i, j, k, ss, sb;
+   Int32  runningOrder[256];
+   Bool   bigDone[256];
+   Int32  copyStart[256];
+   Int32  copyEnd  [256];
+   UChar  c1;
+   Int32  numQSorted;
+   UInt16 s;
+   if (verb >= 4) VPrintf0 ( "        main sort initialise ...\n" );
+
+   /*-- set up the 2-byte frequency table --*/
+   for (i = 65536; i >= 0; i--) ftab[i] = 0;
+
+   j = block[0] << 8;
+   i = nblock-1;
+   for (; i >= 3; i -= 4) {
+      quadrant[i] = 0;
+      j = (j >> 8) | ( ((UInt16)block[i]) << 8);
+      ftab[j]++;
+      quadrant[i-1] = 0;
+      j = (j >> 8) | ( ((UInt16)block[i-1]) << 8);
+      ftab[j]++;
+      quadrant[i-2] = 0;
+      j = (j >> 8) | ( ((UInt16)block[i-2]) << 8);
+      ftab[j]++;
+      quadrant[i-3] = 0;
+      j = (j >> 8) | ( ((UInt16)block[i-3]) << 8);
+      ftab[j]++;
+   }
+   for (; i >= 0; i--) {
+      quadrant[i] = 0;
+      j = (j >> 8) | ( ((UInt16)block[i]) << 8);
+      ftab[j]++;
+   }
+
+   /*-- (emphasises close relationship of block & quadrant) --*/
+   for (i = 0; i < BZ_N_OVERSHOOT; i++) {
+      block   [nblock+i] = block[i];
+      quadrant[nblock+i] = 0;
+   }
+
+   if (verb >= 4) VPrintf0 ( "        bucket sorting ...\n" );
+
+   /*-- Complete the initial radix sort --*/
+   for (i = 1; i <= 65536; i++) ftab[i] += ftab[i-1];
+
+   s = block[0] << 8;
+   i = nblock-1;
+   for (; i >= 3; i -= 4) {
+      s = (s >> 8) | (block[i] << 8);
+      j = ftab[s] -1;
+      ftab[s] = j;
+      ptr[j] = i;
+      s = (s >> 8) | (block[i-1] << 8);
+      j = ftab[s] -1;
+      ftab[s] = j;
+      ptr[j] = i-1;
+      s = (s >> 8) | (block[i-2] << 8);
+      j = ftab[s] -1;
+      ftab[s] = j;
+      ptr[j] = i-2;
+      s = (s >> 8) | (block[i-3] << 8);
+      j = ftab[s] -1;
+      ftab[s] = j;
+      ptr[j] = i-3;
+   }
+   for (; i >= 0; i--) {
+      s = (s >> 8) | (block[i] << 8);
+      j = ftab[s] -1;
+      ftab[s] = j;
+      ptr[j] = i;
+   }
+
+   /*--
+      Now ftab contains the first loc of every small bucket.
+      Calculate the running order, from smallest to largest
+      big bucket.
+   --*/
+   for (i = 0; i <= 255; i++) {
+      bigDone     [i] = False;
+      runningOrder[i] = i;
+   }
+
+   {
+      Int32 vv;
+      Int32 h = 1;
+      do h = 3 * h + 1; while (h <= 256);
+      do {
+         h = h / 3;
+         for (i = h; i <= 255; i++) {
+            vv = runningOrder[i];
+            j = i;
+            while ( BIGFREQ(runningOrder[j-h]) > BIGFREQ(vv) ) {
+               runningOrder[j] = runningOrder[j-h];
+               j = j - h;
+               if (j <= (h - 1)) goto zero;
+            }
+            zero:
+            runningOrder[j] = vv;
+         }
+      } while (h != 1);
+   }
+
+   /*--
+      The main sorting loop.
+   --*/
+
+   numQSorted = 0;
+
+   for (i = 0; i <= 255; i++) {
+
+      /*--
+         Process big buckets, starting with the least full.
+         Basically this is a 3-step process in which we call
+         mainQSort3 to sort the small buckets [ss, j], but
+         also make a big effort to avoid the calls if we can.
+      --*/
+      ss = runningOrder[i];
+
+      /*--
+         Step 1:
+         Complete the big bucket [ss] by quicksorting
+         any unsorted small buckets [ss, j], for j != ss.  
+         Hopefully previous pointer-scanning phases have already
+         completed many of the small buckets [ss, j], so
+         we don't have to sort them at all.
+      --*/
+      for (j = 0; j <= 255; j++) {
+         if (j != ss) {
+            sb = (ss << 8) + j;
+            if ( ! (ftab[sb] & SETMASK) ) {
+               Int32 lo = ftab[sb]   & CLEARMASK;
+               Int32 hi = (ftab[sb+1] & CLEARMASK) - 1;
+               if (hi > lo) {
+                  if (verb >= 4)
+                     VPrintf4 ( "        qsort [0x%x, 0x%x]   "
+                                "done %d   this %d\n",
+                                ss, j, numQSorted, hi - lo + 1 );
+                  mainQSort3 ( 
+                     ptr, block, quadrant, nblock, 
+                     lo, hi, BZ_N_RADIX, budget 
+                  );   
+                  numQSorted += (hi - lo + 1);
+                  if (*budget < 0) return;
+               }
+            }
+            ftab[sb] |= SETMASK;
+         }
+      }
+
+      AssertH ( !bigDone[ss], 1006 );
+
+      /*--
+         Step 2:
+         Now scan this big bucket [ss] so as to synthesise the
+         sorted order for small buckets [t, ss] for all t,
+         including, magically, the bucket [ss,ss] too.
+         This will avoid doing Real Work in subsequent Step 1's.
+      --*/
+      {
+         for (j = 0; j <= 255; j++) {
+            copyStart[j] =  ftab[(j << 8) + ss]     & CLEARMASK;
+            copyEnd  [j] = (ftab[(j << 8) + ss + 1] & CLEARMASK) - 1;
+         }
+         for (j = ftab[ss << 8] & CLEARMASK; j < copyStart[ss]; j++) {
+            k = ptr[j]-1; if (k < 0) k += nblock;
+            c1 = block[k];
+            if (!bigDone[c1])
+               ptr[ copyStart[c1]++ ] = k;
+         }
+         for (j = (ftab[(ss+1) << 8] & CLEARMASK) - 1; j > copyEnd[ss]; j--) {
+            k = ptr[j]-1; if (k < 0) k += nblock;
+            c1 = block[k];
+            if (!bigDone[c1]) 
+               ptr[ copyEnd[c1]-- ] = k;
+         }
+      }
+
+      AssertH ( (copyStart[ss]-1 == copyEnd[ss])
+                || 
+                /* Extremely rare case missing in bzip2-1.0.0 and 1.0.1.
+                   Necessity for this case is demonstrated by compressing 
+                   a sequence of approximately 48.5 million of character 
+                   251; 1.0.0/1.0.1 will then die here. */
+                (copyStart[ss] == 0 && copyEnd[ss] == nblock-1),
+                1007 )
+
+      for (j = 0; j <= 255; j++) ftab[(j << 8) + ss] |= SETMASK;
+
+      /*--
+         Step 3:
+         The [ss] big bucket is now done.  Record this fact,
+         and update the quadrant descriptors.  Remember to
+         update quadrants in the overshoot area too, if
+         necessary.  The "if (i < 255)" test merely skips
+         this updating for the last bucket processed, since
+         updating for the last bucket is pointless.
+
+         The quadrant array provides a way to incrementally
+         cache sort orderings, as they appear, so as to 
+         make subsequent comparisons in fullGtU() complete
+         faster.  For repetitive blocks this makes a big
+         difference (but not big enough to be able to avoid
+         the fallback sorting mechanism, exponential radix sort).
+
+         The precise meaning is: at all times:
+
+            for 0 <= i < nblock and 0 <= j <= nblock
+
+            if block[i] != block[j], 
+
+               then the relative values of quadrant[i] and 
+                    quadrant[j] are meaningless.
+
+               else {
+                  if quadrant[i] < quadrant[j]
+                     then the string starting at i lexicographically
+                     precedes the string starting at j
+
+                  else if quadrant[i] > quadrant[j]
+                     then the string starting at j lexicographically
+                     precedes the string starting at i
+
+                  else
+                     the relative ordering of the strings starting
+                     at i and j has not yet been determined.
+               }
+      --*/
+      bigDone[ss] = True;
+
+      if (i < 255) {
+         Int32 bbStart  = ftab[ss << 8] & CLEARMASK;
+         Int32 bbSize   = (ftab[(ss+1) << 8] & CLEARMASK) - bbStart;
+         Int32 shifts   = 0;
+
+         while ((bbSize >> shifts) > 65534) shifts++;
+
+         for (j = bbSize-1; j >= 0; j--) {
+            Int32 a2update     = ptr[bbStart + j];
+            UInt16 qVal        = (UInt16)(j >> shifts);
+            quadrant[a2update] = qVal;
+            if (a2update < BZ_N_OVERSHOOT)
+               quadrant[a2update + nblock] = qVal;
+         }
+         AssertH ( ((bbSize-1) >> shifts) <= 65535, 1002 );
+      }
+
+   }
+
+   if (verb >= 4)
+      VPrintf3 ( "        %d pointers, %d sorted, %d scanned\n",
+                 nblock, numQSorted, nblock - numQSorted );
+}
+
+#undef BIGFREQ
+#undef SETMASK
+#undef CLEARMASK
+
+
+/*---------------------------------------------*/
+/* Pre:
+      nblock > 0
+      arr2 exists for [0 .. nblock-1 +N_OVERSHOOT]
+      ((UChar*)arr2)  [0 .. nblock-1] holds block
+      arr1 exists for [0 .. nblock-1]
+
+   Post:
+      ((UChar*)arr2) [0 .. nblock-1] holds block
+      All other areas of block destroyed
+      ftab [ 0 .. 65536 ] destroyed
+      arr1 [0 .. nblock-1] holds sorted order
+*/
+void BZ2_blockSort ( EState* s )
+{
+   UInt32* ptr    = s->ptr; 
+   UChar*  block  = s->block;
+   UInt32* ftab   = s->ftab;
+   Int32   nblock = s->nblock;
+   Int32   verb   = s->verbosity;
+   Int32   wfact  = s->workFactor;
+   UInt16* quadrant;
+   Int32   budget;
+   Int32   budgetInit;
+   Int32   i;
+
+   if (nblock < 10000) {
+      fallbackSort ( s->arr1, s->arr2, ftab, nblock, verb );
+   } else {
+      /* Calculate the location for quadrant, remembering to get
+         the alignment right.  Assumes that &(block[0]) is at least
+         2-byte aligned -- this should be ok since block is really
+         the first section of arr2.
+      */
+      i = nblock+BZ_N_OVERSHOOT;
+      if (i & 1) i++;
+      quadrant = (UInt16*)(&(block[i]));
+
+      /* (wfact-1) / 3 puts the default-factor-30
+         transition point at very roughly the same place as 
+         with v0.1 and v0.9.0.  
+         Not that it particularly matters any more, since the
+         resulting compressed stream is now the same regardless
+         of whether or not we use the main sort or fallback sort.
+      */
+      if (wfact < 1  ) wfact = 1;
+      if (wfact > 100) wfact = 100;
+      budgetInit = nblock * ((wfact-1) / 3);
+      budget = budgetInit;
+
+      mainSort ( ptr, block, quadrant, ftab, nblock, verb, &budget );
+      if (verb >= 3) 
+         VPrintf3 ( "      %d work, %d block, ratio %5.2f\n",
+                    budgetInit - budget,
+                    nblock, 
+                    (float)(budgetInit - budget) /
+                    (float)(nblock==0 ? 1 : nblock) ); 
+      if (budget < 0) {
+         if (verb >= 2) 
+            VPrintf0 ( "    too repetitive; using fallback"
+                       " sorting algorithm\n" );
+         fallbackSort ( s->arr1, s->arr2, ftab, nblock, verb );
+      }
+   }
+
+   s->origPtr = -1;
+   for (i = 0; i < s->nblock; i++)
+      if (ptr[i] == 0)
+         { s->origPtr = i; break; };
+
+   AssertH( s->origPtr != -1, 1003 );
+}
+
+
+/*-------------------------------------------------------------*/
+/*--- end                                       blocksort.c ---*/
+/*-------------------------------------------------------------*/


Property changes on: trunk/thirdparty/bzip2/bzip2-1.0.6/blocksort.c
___________________________________________________________________
Added: svn:keywords
   + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id
Added: svn:eol-style
   + native

Added: trunk/thirdparty/bzip2/bzip2-1.0.6/bzlib.c
===================================================================
--- trunk/thirdparty/bzip2/bzip2-1.0.6/bzlib.c	                        (rev 0)
+++ trunk/thirdparty/bzip2/bzip2-1.0.6/bzlib.c	2010-10-18 19:58:05 UTC (rev 3375)
@@ -0,0 +1,1572 @@
+
+/*-------------------------------------------------------------*/
+/*--- Library top-level functions.                          ---*/
+/*---                                               bzlib.c ---*/
+/*-------------------------------------------------------------*/
+
+/* ------------------------------------------------------------------
+   This file is part of bzip2/libbzip2, a program and library for
+   lossless, block-sorting data compression.
+
+   bzip2/libbzip2 version 1.0.6 of 6 September 2010
+   Copyright (C) 1996-2010 Julian Seward <js...@bz...>
+
+   Please read the WARNING, DISCLAIMER and PATENTS sections in the 
+   README file.
+
+   This program is released under the terms of the license contained
+   in the file LICENSE.
+   ------------------------------------------------------------------ */
+
+/* CHANGES
+   0.9.0    -- original version.
+   0.9.0a/b -- no changes in this file.
+   0.9.0c   -- made zero-length BZ_FLUSH work correctly in bzCompress().
+     fixed bzWrite/bzRead to ignore zero-length requests.
+     fixed bzread to correctly handle read requests after EOF.
+     wrong parameter order in call to bzDecompressInit in
+     bzBuffToBuffDecompress.  Fixed.
+*/
+
+#include "bzlib_private.h"
+
+
+/*---------------------------------------------------*/
+/*--- Compression stuff                           ---*/
+/*---------------------------------------------------*/
+
+
+/*---------------------------------------------------*/
+#ifndef BZ_NO_STDIO
+void BZ2_bz__AssertH__fail ( int errcode )
+{
+   fprintf(stderr, 
+      "\n\nbzip2/libbzip2: internal error number %d.\n"
+      "This is a bug in bzip2/libbzip2, %s.\n"
+      "Please report it to me at: js...@bz....  If this happened\n"
+      "when you were using some program which uses libbzip2 as a\n"
+      "component, you should also report this bug to the author(s)\n"
+      "of that program.  Please make an effort to report this bug;\n"
+      "timely and accurate bug reports eventually lead to higher\n"
+      "quality software.  Thanks.  Julian Seward, 10 December 2007.\n\n",
+      errcode,
+      BZ2_bzlibVersion()
+   );
+
+   if (errcode == 1007) {
+   fprintf(stderr,
+      "\n*** A special note about internal error number 1007 ***\n"
+      "\n"
+      "Experience suggests that a common cause of i.e. 1007\n"
+      "is unreliable memory or other hardware.  The 1007 assertion\n"
+      "just happens to cross-check the results of huge numbers of\n"
+      "memory reads/writes, and so acts (unintendedly) as a stress\n"
+      "test of your memory system.\n"
+      "\n"
+      "I suggest the following: try compressing the file again,\n"
+      "possibly monitoring progress in detail with the -vv flag.\n"
+      "\n"
+      "* If the error cannot be reproduced, and/or happens at different\n"
+      "  points in compression, you may have a flaky memory system.\n"
+      "  Try a memory-test program.  I have used Memtest86\n"
+      "  (www.memtest86.com).  At the time of writing it is free (GPLd).\n"
+      "  Memtest86 tests memory much more thorougly than your BIOSs\n"
+      "  power-on test, and may find failures that the BIOS doesn't.\n"
+      "\n"
+      "* If the error can be repeatably reproduced, this is a bug in\n"
+      "  bzip2, and I would very much like to hear about it.  Please\n"
+      "  let me know, and, ideally, save a copy of the file causing the\n"
+      "  problem -- without which I will be unable to investigate it.\n"
+      "\n"
+   );
+   }
+
+   exit(3);
+}
+#endif
+
+
+/*---------------------------------------------------*/
+static
+int bz_config_ok ( void )
+{
+   if (sizeof(int)   != 4) return 0;
+   if (sizeof(short) != 2) return 0;
+   if (sizeof(char)  != 1) return 0;
+   return 1;
+}
+
+
+/*---------------------------------------------------*/
+static
+void* default_bzalloc ( void* opaque, Int32 items, Int32 size )
+{
+   void* v = malloc ( items * size );
+   return v;
+}
+
+static
+void default_bzfree ( void* opaque, void* addr )
+{
+   if (addr != NULL) free ( addr );
+}
+
+
+/*---------------------------------------------------*/
+static
+void prepare_new_block ( EState* s )
+{
+   Int32 i;
+   s->nblock = 0;
+   s->numZ = 0;
+   s->state_out_pos = 0;
+   BZ_INITIALISE_CRC ( s->blockCRC );
+   for (i = 0; i < 256; i++) s->inUse[i] = False;
+   s->blockNo++;
+}
+
+
+/*---------------------------------------------------*/
+static
+void init_RL ( EState* s )
+{
+   s->state_in_ch  = 256;
+   s->state_in_len = 0;
+}
+
+
+static
+Bool isempty_RL ( EState* s )
+{
+   if (s->state_in_ch < 256 && s->state_in_len > 0)
+      return False; else
+      return True;
+}
+
+
+/*---------------------------------------------------*/
+int BZ_API(BZ2_bzCompressInit) 
+                    ( bz_stream* strm, 
+                     int        blockSize100k,
+                     int        verbosity,
+                     int        workFactor )
+{
+   Int32   n;
+   EState* s;
+
+   if (!bz_config_ok()) return BZ_CONFIG_ERROR;
+
+   if (strm == NULL || 
+       blockSize100k < 1 || blockSize100k > 9 ||
+       workFactor < 0 || workFactor > 250)
+     return BZ_PARAM_ERROR;
+
+   if (workFactor == 0) workFactor = 30;
+   if (strm->bzalloc == NULL) strm->bzalloc = default_bzalloc;
+   if (strm->bzfree == NULL) strm->bzfree = default_bzfree;
+
+   s = BZALLOC( sizeof(EState) );
+   if (s == NULL) return BZ_MEM_ERROR;
+   s->strm = strm;
+
+   s->arr1 = NULL;
+   s->arr2 = NULL;
+   s->ftab = NULL;
+
+   n       = 100000 * blockSize100k;
+   s->arr1 = BZALLOC( n                  * sizeof(UInt32) );
+   s->arr2 = BZALLOC( (n+BZ_N_OVERSHOOT) * sizeof(UInt32) );
+   s->ftab = BZALLOC( 65537              * sizeof(UInt32) );
+
+   if (s->arr1 == NULL || s->arr2 == NULL || s->ftab == NULL) {
+      if (s->arr1 != NULL) BZFREE(s->arr1);
+      if (s->arr2 != NULL) BZFREE(s->arr2);
+      if (s->ftab != NULL) BZFREE(s->ftab);
+      if (s       != NULL) BZFREE(s);
+      return BZ_MEM_ERROR;
+   }
+
+   s->blockNo           = 0;
+   s->state             = BZ_S_INPUT;
+   s->mode              = BZ_M_RUNNING;
+   s->combinedCRC       = 0;
+   s->blockSize100k     = blockSize100k;
+   s->nblockMAX         = 100000 * blockSize100k - 19;
+   s->verbosity         = verbosity;
+   s->workFactor        = workFactor;
+
+   s->block             = (UChar*)s->arr2;
+   s->mtfv              = (UInt16*)s->arr1;
+   s->zbits             = NULL;
+   s->ptr               = (UInt32*)s->arr1;
+
+   strm->state          = s;
+   strm->total_in_lo32  = 0;
+   strm->total_in_hi32  = 0;
+   strm->total_out_lo32 = 0;
+   strm->total_out_hi32 = 0;
+   init_RL ( s );
+   prepare_new_block ( s );
+   return BZ_OK;
+}
+
+
+/*---------------------------------------------------*/
+static
+void add_pair_to_block ( EState* s )
+{
+   Int32 i;
+   UChar ch = (UChar)(s->state_in_ch);
+   for (i = 0; i < s->state_in_len; i++) {
+      BZ_UPDATE_CRC( s->blockCRC, ch );
+   }
+   s->inUse[s->state_in_ch] = True;
+   switch (s->state_in_len) {
+      case 1:
+         s->block[s->nblock] = (UChar)ch; s->nblock++;
+         break;
+      case 2:
+         s->block[s->nblock] = (UChar)ch; s->nblock++;
+         s->block[s->nblock] = (UChar)ch; s->nblock++;
+         break;
+      case 3:
+         s->block[s->nblock] = (UChar)ch; s->nblock++;
+         s->block[s->nblock] = (UChar)ch; s->nblock++;
+         s->block[s->nblock] = (UChar)ch; s->nblock++;
+         break;
+      default:
+         s->inUse[s->state_in_len-4] = True;
+         s->block[s->nblock] = (UChar)ch; s->nblock++;
+         s->block[s->nblock] = (UChar)ch; s->nblock++;
+         s->block[s->nblock] = (UChar)ch; s->nblock++;
+         s->block[s->nblock] = (UChar)ch; s->nblock++;
+         s->block[s->nblock] = ((UChar)(s->state_in_len-4));
+         s->nblock++;
+         break;
+   }
+}
+
+
+/*---------------------------------------------------*/
+static
+void flush_RL ( EState* s )
+{
+   if (s->state_in_ch < 256) add_pair_to_block ( s );
+   init_RL ( s );
+}
+
+
+/*---------------------------------------------------*/
+#define ADD_CHAR_TO_BLOCK(zs,zchh0)               \
+{                                                 \
+   UInt32 zchh = (UInt32)(zchh0);                 \
+   /*-- fast track the common case --*/           \
+   if (zchh != zs->state_in_ch &&                 \
+       zs->state_in_len == 1) {                   \
+      UChar ch = (UChar)(zs->state_in_ch);        \
+      BZ_UPDATE_CRC( zs->blockCRC, ch );          \
+      zs->inUse[zs->state_in_ch] = True;          \
+      zs->block[zs->nblock] = (UChar)ch;          \
+      zs->nblock++;                               \
+      zs->state_in_ch = zchh;                     \
+   }                                              \
+   else                                           \
+   /*-- general, uncommon cases --*/              \
+   if (zchh != zs->state_in_ch ||                 \
+      zs->state_in_len == 255) {                  \
+      if (zs->state_in_ch < 256)                  \
+         add_pair_to_block ( zs );                \
+      zs->state_in_ch = zchh;                     \
+      zs->state_in_len = 1;                       \
+   } else {                                       \
+      zs->state_in_len++;                         \
+   }                                              \
+}
+
+
+/*---------------------------------------------------*/
+static
+Bool copy_input_until_stop ( EState* s )
+{
+   Bool progress_in = False;
+
+   if (s->mode == BZ_M_RUNNING) {
+
+      /*-- fast track the common case --*/
+      while (True) {
+         /*-- block full? --*/
+         if (s->nblock >= s->nblockMAX) break;
+         /*-- no input? --*/
+         if (s->strm->avail_in == 0) break;
+         progress_in = True;
+         ADD_CHAR_TO_BLOCK ( s, (UInt32)(*((UChar*)(s->strm->next_in))) ); 
+         s->strm->next_in++;
+         s->strm->avail_in--;
+         s->strm->total_in_lo32++;
+         if (s->strm->total_in_lo32 == 0) s->strm->total_in_hi32++;
+      }
+
+   } else {
+
+      /*-- general, uncommon case --*/
+      while (True) {
+         /*-- block full? --*/
+         if (s->nblock >= s->nblockMAX) break;
+         /*-- no input? --*/
+         if (s->strm->avail_in == 0) break;
+         /*-- flush/finish end? --*/
+         i...
 
[truncated message content]

[Jcl-checkins-diff] SF.net SVN: jcl:[3374] trunk/jcl/source/common/JclFileUtils.pas

From: <ou...@us...> - 2010-10-14 20:40:35

Revision: 3374
          http://jcl.svn.sourceforge.net/jcl/?rev=3374&view=rev
Author:   outchy
Date:     2010-10-14 20:40:29 +0000 (Thu, 14 Oct 2010)

Log Message:
-----------
Mantis 4414: TJclFileVersionInfo crashes on MP3DirectCut exe (althought File Info present).

Modified Paths:
--------------
    trunk/jcl/source/common/JclFileUtils.pas

Modified: trunk/jcl/source/common/JclFileUtils.pas
===================================================================
--- trunk/jcl/source/common/JclFileUtils.pas	2010-10-14 11:44:56 UTC (rev 3373)
+++ trunk/jcl/source/common/JclFileUtils.pas	2010-10-14 20:40:29 UTC (rev 3374)
@@ -4952,11 +4952,19 @@
     P: PAnsiChar;
     TempKey: PWideChar;
   begin
+    Key := '';
     P := Data;
     Len := PWord(P)^;
     if Len = 0 then
     begin
-      Error := True;
+      // do not raise error in the case of resources padded with 0
+      while P < EndOfData do
+      begin
+        Error := P^ <> #0;
+        if Error then
+          Break;
+        Inc(P);
+      end;
       Exit;
     end;
     Inc(P, SizeOf(Word));


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Jcl-checkins-diff] SF.net SVN: jcl:[3373] trunk/jcl/source/common/JclAnsiStrings.pas

From: <CC...@us...> - 2010-10-14 11:45:02

Revision: 3373
          http://jcl.svn.sourceforge.net/jcl/?rev=3373&view=rev
Author:   CCRDude
Date:     2010-10-14 11:44:56 +0000 (Thu, 14 Oct 2010)

Log Message:
-----------
Fixed bug with CommaText and quotes plus spaces found while creating DUnit tests.

Modified Paths:
--------------
    trunk/jcl/source/common/JclAnsiStrings.pas

Modified: trunk/jcl/source/common/JclAnsiStrings.pas
===================================================================
--- trunk/jcl/source/common/JclAnsiStrings.pas	2010-10-14 11:42:12 UTC (rev 3372)
+++ trunk/jcl/source/common/JclAnsiStrings.pas	2010-10-14 11:44:56 UTC (rev 3373)
@@ -878,7 +878,8 @@
     ValueChar := Value[Index];
     if ValueChar = AQuoteChar then
       Inc(QuoteCharCount);
-    if (ValueChar = ADelimiter) and ((not StrictDelimiter) or (Odd(QuoteCharCount) or (QuoteCharCount = 0))) then
+    if ((ValueChar = ADelimiter) or ((ValueChar = ' ') and (not StrictDelimiter)))
+    and ((not Odd(QuoteCharCount) or (QuoteCharCount = 0))) then
     begin
       if StrictDelimiter then
         Add(Copy(Value, LastStart, Index - LastStart))
@@ -905,7 +906,7 @@
   for I := 0 to Count - 2 do
     Result := Result + Strings[I] + sLineBreak;
   if Count > 0 then
-    Result := Result + Strings[Count - 1];
+    Result := Result + Strings[Count - 1] + sLineBreak;
 end;
 
 procedure TJclAnsiStrings.SetText(const Value: AnsiString);


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Jcl-checkins-diff] SF.net SVN: jcl:[3372] trunk/qa/automated/dunit/units/TestJclStrings.pas

From: <CC...@us...> - 2010-10-14 11:42:19

Revision: 3372
          http://jcl.svn.sourceforge.net/jcl/?rev=3372&view=rev
Author:   CCRDude
Date:     2010-10-14 11:42:12 +0000 (Thu, 14 Oct 2010)

Log Message:
-----------
Added tests for TAnsiStringList.

Modified Paths:
--------------
    trunk/qa/automated/dunit/units/TestJclStrings.pas

Modified: trunk/qa/automated/dunit/units/TestJclStrings.pas
===================================================================
--- trunk/qa/automated/dunit/units/TestJclStrings.pas	2010-10-14 10:32:06 UTC (rev 3371)
+++ trunk/qa/automated/dunit/units/TestJclStrings.pas	2010-10-14 11:42:12 UTC (rev 3372)
@@ -180,6 +180,27 @@
     procedure _ZeroBased;
 end;
 
+  { TJclStringManagment }
+
+  TAnsiStringListTest = class (TTestCase)
+  published
+    procedure _SetCommaTextCount;
+    procedure _GetCommaTextCount;
+    procedure _GetCommaTextSpacedCount;
+    procedure _SetCommaTextProperties;
+    procedure _SetCommaTextQuotedProperties;
+    procedure _SetCommaTextQuotedSpacedProperties;
+    procedure _GetCommaTextQuotedProperties;
+    procedure _SetCommaTextInnerQuotesProperties;
+    procedure _GetCommaTextInnerQuotesProperties;
+    procedure _SetDelimitedTextCommaDoubleQuoteFalse;
+    procedure _GetDelimitedTextCommaDoubleQuoteFalse;
+    procedure _SetDelimitedTextCommaDoubleQuoteTrue;
+    procedure _GetDelimitedTextCommaDoubleQuoteTrue;
+    procedure _SetDelimitedTextFunkyFalse;
+    procedure _GetDelimitedTextFunkyFalse;
+  end;
+
 implementation
 
 {$IFDEF LINUX}
@@ -366,9 +387,11 @@
 end;
 
 function StrLower2(const S: AnsiString): AnsiString;
+var sTemp: String;
 begin
-  Result := S;
-  StrLowerInPlace(Result);
+  sTemp := S;
+  StrLowerInPlace(sTemp);
+  Result := sTemp;
 end;
 
 //==================================================================================================
@@ -2921,13 +2944,354 @@
   end;
 end;
 
+{ TAnsiStringListTest }
+
+procedure TAnsiStringListTest._GetCommaTextCount;
+var slJCL: TAnsiStringList;
+    slRTL: TStringList;
+begin
+  slJCL := TAnsiStringList.Create;
+  slRTL := TStringList.Create;
+  try
+    slJCL.CommaText := 'Hello,World';
+    slRTL.CommaText := 'Hello,World';
+    CheckEquals(2, slJCL.Count, 'TAnsiStringList.Count');
+    CheckEquals(slRTL.Count, slJCL.Count, 'TAnsiStringList.Count');
+  finally
+    FreeAndNil(slJCL);
+    FreeAndNil(slRTL);
+  end;
+end;
+
+procedure TAnsiStringListTest._GetCommaTextInnerQuotesProperties;
+var slJCL: TAnsiStringList;
+    slRTL: TStringList;
+begin
+  slJCL := TAnsiStringList.Create;
+  slRTL := TStringList.Create;
+  try
+    slJCL.Add('Hello');
+    slJCL.Add('"World"');
+    slRTL.Add('Hello');
+    slRTL.Add('"World"');
+    CheckEquals('Hello,"""World"""', slJCL.CommaText, 'TAnsiStringList.CommaText');
+    CheckEquals(slRTL.CommaText, slJCL.CommaText, 'TAnsiStringList.CommaText');
+  finally
+    FreeAndNil(slJCL);
+    FreeAndNil(slRTL);
+  end;
+end;
+
+procedure TAnsiStringListTest._GetCommaTextQuotedProperties;
+var slJCL: TAnsiStringList;
+    slRTL: TStringList;
+begin
+     slJCL := TAnsiStringList.Create;
+  slRTL := TStringList.Create;
+  try
+    slJCL.Add('Hello');
+    slJCL.Add('My World');
+    slRTL.Add('Hello');
+    slRTL.Add('My World');
+    CheckEquals('Hello,"My World"', slJCL.CommaText, 'TAnsiStringList.CommaText');
+    CheckEquals(slRTL.CommaText, slJCL.CommaText, 'TAnsiStringList.CommaText');
+  finally
+    FreeAndNil(slJCL);
+    FreeAndNil(slRTL);
+  end;
+end;
+
+procedure TAnsiStringListTest._GetCommaTextSpacedCount;
+var slJCL: TAnsiStringList;
+    slRTL: TStringList;
+begin
+  slJCL := TAnsiStringList.Create;
+  slRTL := TStringList.Create;
+  try
+    slJCL.CommaText := 'Hello,My World,There!';
+    slRTL.CommaText := 'Hello,My World,There!';
+    CheckEquals(4, slJCL.Count, 'TAnsiStringList.Count');
+    CheckEquals(slRTL.Count, slJCL.Count, 'TAnsiStringList.Count');
+  finally
+    FreeAndNil(slJCL);
+    FreeAndNil(slRTL);
+  end;
+end;
+
+procedure TAnsiStringListTest._GetDelimitedTextCommaDoubleQuoteFalse;
+var slJCL: TAnsiStringList;
+    slRTL: TStringList;
+begin
+  slJCL := TAnsiStringList.Create;
+  slRTL := TStringList.Create;
+  try
+    slJCL.CommaText := 'Hello,"My World"';
+    slRTL.CommaText := 'Hello,"My World"';
+    slJCL.QuoteChar := '"';
+    slJCL.Delimiter := ',';
+    slJCL.StrictDelimiter := false;
+    slRTL.QuoteChar := '"';
+    slRTL.Delimiter := ',';
+    slRTL.StrictDelimiter := false;
+    CheckEquals('Hello,"My World"', slJCL.DelimitedText, 'TAnsiStringList.DelimitedText');
+    CheckEquals(slRTL.DelimitedText, slJCL.DelimitedText, 'TAnsiStringList.DelimitedText');
+  finally
+    FreeAndNil(slJCL);
+    FreeAndNil(slRTL);
+  end;
+end;
+
+procedure TAnsiStringListTest._GetDelimitedTextCommaDoubleQuoteTrue;
+var slJCL: TAnsiStringList;
+    slRTL: TStringList;
+begin
+  slJCL := TAnsiStringList.Create;
+  slRTL := TStringList.Create;
+  try
+    slJCL.CommaText := 'Hello,My World';
+    slRTL.CommaText := 'Hello,My World';
+    slJCL.QuoteChar := '"';
+    slJCL.Delimiter := ',';
+    slJCL.StrictDelimiter := true;
+    slRTL.QuoteChar := '"';
+    slRTL.Delimiter := ',';
+    slRTL.StrictDelimiter := true;
+    CheckEquals('Hello,My,World', slJCL.DelimitedText, 'TAnsiStringList.DelimitedText');
+    CheckEquals(slRTL.DelimitedText, slJCL.DelimitedText, 'TAnsiStringList.DelimitedText');
+  finally
+    FreeAndNil(slJCL);
+    FreeAndNil(slRTL);
+  end;
+end;
+
+procedure TAnsiStringListTest._GetDelimitedTextFunkyFalse;
+var slJCL: TAnsiStringList;
+    slRTL: TStringList;
+begin
+  slJCL := TAnsiStringList.Create;
+  slRTL := TStringList.Create;
+  try
+    slJCL.CommaText := 'Hello,"My World"';
+    slRTL.CommaText := 'Hello,"My World"';
+    slJCL.QuoteChar := '|';
+    slJCL.Delimiter := '-';
+    slJCL.StrictDelimiter := false;
+    slRTL.QuoteChar := '|';
+    slRTL.Delimiter := '-';
+    slRTL.StrictDelimiter := false;
+    CheckEquals('Hello-|My World|', slJCL.DelimitedText, 'TAnsiStringList.DelimitedText');
+    CheckEquals(slRTL.DelimitedText, slJCL.DelimitedText, 'TAnsiStringList.DelimitedText');
+  finally
+    FreeAndNil(slJCL);
+    FreeAndNil(slRTL);
+  end;
+end;
+
+procedure TAnsiStringListTest._SetCommaTextCount;
+var slJCL: TAnsiStringList;
+    slRTL: TStringList;
+begin
+  slJCL := TAnsiStringList.Create;
+  slRTL := TStringList.Create;
+  try
+    slJCL.CommaText := 'Hello,World';
+    slRTL.CommaText := 'Hello,World';
+    CheckEquals(2, slJCL.Count, 'TAnsiStringList.Count');
+    CheckEquals(slRTL.Count, slJCL.Count, 'TAnsiStringList.Count');
+  finally
+    FreeAndNil(slJCL);
+    FreeAndNil(slRTL);
+  end;
+end;
+
+procedure TAnsiStringListTest._SetCommaTextInnerQuotesProperties;
+var slJCL: TAnsiStringList;
+    slRTL: TStringList;
+begin
+  slJCL := TAnsiStringList.Create;
+  slRTL := TStringList.Create;
+  try
+    slJCL.CommaText := 'Hello,"""World"""';
+    slRTL.CommaText := 'Hello,"""World"""';
+    CheckEquals(2, slJCL.Count, 'TAnsiStringList.Count');
+    CheckEquals(slRTL.Count, slJCL.Count, 'TAnsiStringList.Count');
+    if slJCL.Count=2 then begin
+      CheckEquals('Hello', slJCL[0], 'TAnsiStringList[0]');
+      CheckEquals(slRTL[0], slJCL[0], 'TAnsiStringList[0]');
+      CheckEquals('"World"', slJCL[1], 'TAnsiStringList[1]');
+      CheckEquals(slRTL[1], slJCL[1], 'TAnsiStringList[1]');
+    end;
+  finally
+    FreeAndNil(slJCL);
+    FreeAndNil(slRTL);
+  end;
+end;
+
+procedure TAnsiStringListTest._SetCommaTextProperties;
+var slJCL: TAnsiStringList;
+    slRTL: TStringList;
+begin
+  slJCL := TAnsiStringList.Create;
+  slRTL := TStringList.Create;
+  try
+    slJCL.CommaText := 'Hello,World';
+    slRTL.CommaText := 'Hello,World';
+    CheckEquals(2, slJCL.Count, 'TAnsiStringList.Count');
+    CheckEquals(slRTL.Count, slJCL.Count, 'TAnsiStringList.Count');
+    if slJCL.Count=2 then begin
+      CheckEquals('Hello', slJCL[0], 'TAnsiStringList[0]');
+      CheckEquals(slRTL[0], slJCL[0], 'TAnsiStringList[0]');
+      CheckEquals('World', slJCL[1], 'TAnsiStringList[1]');
+      CheckEquals(slRTL[1], slJCL[1], 'TAnsiStringList[1]');
+    end;
+  finally
+    FreeAndNil(slJCL);
+    FreeAndNil(slRTL);
+  end;
+end;
+
+procedure TAnsiStringListTest._SetCommaTextQuotedProperties;
+var slJCL: TAnsiStringList;
+    slRTL: TStringList;
+begin
+  slJCL := TAnsiStringList.Create;
+  slRTL := TStringList.Create;
+  try
+    slJCL.CommaText := 'Hello,"World"';
+    slRTL.CommaText := 'Hello,"World"';
+    CheckEquals(2, slJCL.Count, 'TAnsiStringList.Count');
+    CheckEquals(slRTL.Count, slJCL.Count, 'TAnsiStringList.Count');
+    if slJCL.Count=2 then begin
+      CheckEquals('Hello', slJCL[0], 'TAnsiStringList[0]');
+      CheckEquals(slRTL[0], slJCL[0], 'TAnsiStringList[0]');
+      CheckEquals('World', slJCL[1], 'TAnsiStringList[1]');
+      CheckEquals(slRTL[1], slJCL[1], 'TAnsiStringList[1]');
+    end;
+  finally
+    FreeAndNil(slJCL);
+    FreeAndNil(slRTL);
+  end;
+end;
+
+procedure TAnsiStringListTest._SetCommaTextQuotedSpacedProperties;
+var slJCL: TAnsiStringList;
+    slRTL: TStringList;
+begin
+  slJCL := TAnsiStringList.Create;
+  slRTL := TStringList.Create;
+  try
+    slJCL.CommaText := 'Hello,"My World",There!';
+    slRTL.CommaText := 'Hello,"My World",There!';
+    CheckEquals(3, slJCL.Count, 'TAnsiStringList.Count');
+    CheckEquals(slRTL.Count, slJCL.Count, 'TAnsiStringList.Count');
+    if slJCL.Count=3 then begin
+      CheckEquals('Hello', slJCL[0], 'TAnsiStringList[0]');
+      CheckEquals(slRTL[0], slJCL[0], 'TAnsiStringList[0]');
+      CheckEquals('My World', slJCL[1], 'TAnsiStringList[1]');
+      CheckEquals(slRTL[1], slJCL[1], 'TAnsiStringList[1]');
+    end;
+  finally
+    FreeAndNil(slJCL);
+    FreeAndNil(slRTL);
+  end;
+end;
+
+procedure TAnsiStringListTest._SetDelimitedTextCommaDoubleQuoteFalse;
+var slJCL: TAnsiStringList;
+    slRTL: TStringList;
+begin
+  slJCL := TAnsiStringList.Create;
+  slRTL := TStringList.Create;
+  try
+    slJCL.QuoteChar := '"';
+    slJCL.Delimiter := ',';
+    slJCL.StrictDelimiter := false;
+    slJCL.DelimitedText := 'Hello,"My World"';
+    slRTL.QuoteChar := '"';
+    slRTL.Delimiter := ',';
+    slRTL.StrictDelimiter := false;
+    slRTL.DelimitedText := 'Hello,"My World"';
+    CheckEquals(2, slJCL.Count, 'TAnsiStringList.Count');
+    CheckEquals(slRTL.Count, slJCL.Count, 'TAnsiStringList.Count');
+    if slJCL.Count=2 then begin
+      CheckEquals('Hello', slJCL[0], 'TAnsiStringList[0]');
+      CheckEquals(slRTL[0], slJCL[0], 'TAnsiStringList[0]');
+      CheckEquals('My World', slJCL[1], 'TAnsiStringList[1]');
+      CheckEquals(slRTL[1], slJCL[1], 'TAnsiStringList[1]');
+    end;
+  finally
+    FreeAndNil(slJCL);
+    FreeAndNil(slRTL);
+  end;
+end;
+
+procedure TAnsiStringListTest._SetDelimitedTextCommaDoubleQuoteTrue;
+var slJCL: TAnsiStringList;
+    slRTL: TStringList;
+begin
+  slJCL := TAnsiStringList.Create;
+  slRTL := TStringList.Create;
+  try
+    slJCL.QuoteChar := '"';
+    slJCL.Delimiter := ',';
+    slJCL.StrictDelimiter := true;
+    slJCL.DelimitedText := 'Hello,My World';
+    slRTL.QuoteChar := '"';
+    slRTL.Delimiter := ',';
+    slRTL.StrictDelimiter := true;
+    slRTL.DelimitedText := 'Hello,My World';
+    CheckEquals(2, slJCL.Count, 'TAnsiStringList.Count');
+    CheckEquals(slRTL.Count, slJCL.Count, 'TAnsiStringList.Count');
+    if slJCL.Count=2 then begin
+      CheckEquals('Hello', slJCL[0], 'TAnsiStringList[0]');
+      CheckEquals(slRTL[0], slJCL[0], 'TAnsiStringList[0]');
+      CheckEquals('My World', slJCL[1], 'TAnsiStringList[1]');
+      CheckEquals(slRTL[1], slJCL[1], 'TAnsiStringList[1]');
+    end;
+  finally
+    FreeAndNil(slJCL);
+    FreeAndNil(slRTL);
+  end;
+end;
+
+procedure TAnsiStringListTest._SetDelimitedTextFunkyFalse;
+var slJCL: TAnsiStringList;
+    slRTL: TStringList;
+begin
+  slJCL := TAnsiStringList.Create;
+  slRTL := TStringList.Create;
+  try
+    slJCL.QuoteChar := '|';
+    slJCL.Delimiter := '-';
+    slJCL.StrictDelimiter := false;
+    slJCL.DelimitedText := 'Hello-|My World|';
+    slRTL.QuoteChar := '|';
+    slRTL.Delimiter := '-';
+    slRTL.StrictDelimiter := false;
+    slRTL.DelimitedText := 'Hello-|My World|';
+    CheckEquals(2, slJCL.Count, 'TAnsiStringList.Count');
+    CheckEquals(slRTL.Count, slJCL.Count, 'TAnsiStringList.Count');
+    if slJCL.Count=2 then begin
+      CheckEquals('Hello', slJCL[0], 'TAnsiStringList[0]');
+      CheckEquals(slRTL[0], slJCL[0], 'TAnsiStringList[0]');
+      CheckEquals('My World', slJCL[1], 'TAnsiStringList[1]');
+      CheckEquals(slRTL[1], slJCL[1], 'TAnsiStringList[1]');
+    end;
+  finally
+    FreeAndNil(slJCL);
+    FreeAndNil(slRTL);
+  end;
+end;
+
 initialization
+
   RegisterTest('JCLStrings', TJclStringTransformation.Suite);
   RegisterTest('JCLStrings', TJclStringManagment.Suite);
   RegisterTest('JCLStrings', TJclStringSearchandReplace.Suite);
   RegisterTest('JCLStrings', TJclStringCharacterTestRoutines.Suite);
   RegisterTest('JCLStrings', TJclStringExtraction.Suite);
   RegisterTest('JCLStrings', TJclStringTabSet.Suite);
+  RegisterTest('JCLStrings', TAnsiStringListTest.Suite);
 
 // History:
 //


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Jcl-checkins-diff] SF.net SVN: jcl:[3371] trunk/jcl/source/common/JclSimpleXml.pas

From: <ou...@us...> - 2010-10-14 10:32:13

Revision: 3371
          http://jcl.svn.sourceforge.net/jcl/?rev=3371&view=rev
Author:   outchy
Date:     2010-10-14 10:32:06 +0000 (Thu, 14 Oct 2010)

Log Message:
-----------
Mantis 5361: SimpleXmlEncode() should encode characters 0..31.
Do not encode NativeLineFeed, NativeCarriageReturn and NativeTab.

Modified Paths:
--------------
    trunk/jcl/source/common/JclSimpleXml.pas

Modified: trunk/jcl/source/common/JclSimpleXml.pas
===================================================================
--- trunk/jcl/source/common/JclSimpleXml.pas	2010-10-12 17:05:41 UTC (rev 3370)
+++ trunk/jcl/source/common/JclSimpleXml.pas	2010-10-14 10:32:06 UTC (rev 3371)
@@ -506,12 +506,12 @@
 function VarXML: TVarType;
 
 // Encodes a string into an internal format:
-// any character #32..#127 is preserved
+// any character TAB,LF,CR,#32..#127 is preserved
 // all other characters are converted to hex notation except
 // for some special characters that are converted to XML entities
 function SimpleXMLEncode(const S: string): string;
 // Decodes a string encoded with SimpleXMLEncode:
-// any character #32..#127 is preserved
+// any character TAB,LF,CR,#32..#127 is preserved
 // all other characters and substrings are converted from
 // the special XML entities to characters or from hex to characters
 // NB! Setting TrimBlanks to true will slow down the process considerably
@@ -719,7 +719,9 @@
         AddEntity(Tmp, RIndex, RLen, '&lt;');
       '>':
         AddEntity(Tmp, RIndex, RLen, '&gt;');
-      Char(#0)..Char(#31),
+      NativeNull..NativeBackspace, // NativeTab, NativeLineFeed
+      NativeVerticalTab..NativeFormFeed, // NativeCarriageReturn
+      NativeSo..NativeUs,
       Char(128)..Char(255):
         AddEntity(Tmp, RIndex, RLen, Format('&#x%.2x;', [Ord(C)]));
       {$IFDEF SUPPORTS_UNICODE}


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Jcl-checkins-diff] SF.net SVN: jcl:[3370] trunk/jcl/source/common/JclSimpleXml.pas

From: <ou...@us...> - 2010-10-12 17:05:48

Revision: 3370
          http://jcl.svn.sourceforge.net/jcl/?rev=3370&view=rev
Author:   outchy
Date:     2010-10-12 17:05:41 +0000 (Tue, 12 Oct 2010)

Log Message:
-----------
Mantis 5361: SimpleXmlEncode() should encode characters 0..31.

Modified Paths:
--------------
    trunk/jcl/source/common/JclSimpleXml.pas

Modified: trunk/jcl/source/common/JclSimpleXml.pas
===================================================================
--- trunk/jcl/source/common/JclSimpleXml.pas	2010-10-09 08:51:19 UTC (rev 3369)
+++ trunk/jcl/source/common/JclSimpleXml.pas	2010-10-12 17:05:41 UTC (rev 3370)
@@ -506,12 +506,12 @@
 function VarXML: TVarType;
 
 // Encodes a string into an internal format:
-// any character <= #127 is preserved
+// any character #32..#127 is preserved
 // all other characters are converted to hex notation except
 // for some special characters that are converted to XML entities
 function SimpleXMLEncode(const S: string): string;
 // Decodes a string encoded with SimpleXMLEncode:
-// any character <= #127 is preserved
+// any character #32..#127 is preserved
 // all other characters and substrings are converted from
 // the special XML entities to characters or from hex to characters
 // NB! Setting TrimBlanks to true will slow down the process considerably
@@ -719,6 +719,7 @@
         AddEntity(Tmp, RIndex, RLen, '&lt;');
       '>':
         AddEntity(Tmp, RIndex, RLen, '&gt;');
+      Char(#0)..Char(#31),
       Char(128)..Char(255):
         AddEntity(Tmp, RIndex, RLen, Format('&#x%.2x;', [Ord(C)]));
       {$IFDEF SUPPORTS_UNICODE}
@@ -760,7 +761,7 @@
       if S[ReadIndex] = ';' then
       begin
         Value := StrToIntDef(cHexPrefix[IsHex] + Copy(S, I, ReadIndex - I), -1); // no characters are less than 0
-        if Value > 0 then
+        if Value >= 0 then
           S[WriteIndex] := Chr(Value)
         else
           ReadIndex := I - (2 + Cardinal(IsHex)); // reset to start


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Jcl-checkins-diff] SF.net SVN: jcl:[3369] trunk/thirdparty/makedist

From: <ou...@us...> - 2010-10-09 08:51:26

Revision: 3369
          http://jcl.svn.sourceforge.net/jcl/?rev=3369&view=rev
Author:   outchy
Date:     2010-10-09 08:51:19 +0000 (Sat, 09 Oct 2010)

Log Message:
-----------
Update scripts since the semantics of "svn export" changed between SVN 1.6.2 and SVN 1.6.13.
DOM creates thousands and thousands files: add delays after calls to help compiler.

Modified Paths:
--------------
    trunk/thirdparty/makedist/JclFiles.xml
    trunk/thirdparty/makedist/JclTesting.xml

Modified: trunk/thirdparty/makedist/JclFiles.xml
===================================================================
--- trunk/thirdparty/makedist/JclFiles.xml	2010-10-08 14:38:30 UTC (rev 3368)
+++ trunk/thirdparty/makedist/JclFiles.xml	2010-10-09 08:51:19 UTC (rev 3369)
@@ -10,13 +10,10 @@
       <configuration index="0" caption="Directory" value="sandbox"/>
       <configuration index="1" caption="Move to recycle bin" value="no"/>
     </action>
-    <action classname="TDirectoryCreator">
-      <configuration index="0" caption="Directory" value="sandbox"/>
-    </action>
     <action classname="TCommandLineCaller">
       <configuration index="0" caption="Application" value="%SVN%"/>
-      <configuration index="1" caption="Working directory" value="sandbox"/>
-      <configuration index="2" caption="Parameters" value="export -rBASE --native-eol CRLF --force ..\..\..\ ."/>
+      <configuration index="1" caption="Working directory" value=""/>
+      <configuration index="2" caption="Parameters" value="export -rBASE --native-eol CRLF ..\..\ sandbox"/>
       <configuration index="3" caption="Valid exit codes" value=""/>
       <configuration index="4" caption="Result file" value=""/>
     </action>
@@ -212,6 +209,9 @@
     <action classname="TDirectoryCreator">
       <configuration index="0" caption="Directory" value="sandbox\%PREFIX%"/>
     </action>
+    <action classname="TDelay">
+      <configuration index="0" caption="Delay" value="30"/>
+    </action>
     <action classname="TFileMover">
       <configuration index="0" caption="Old file name" value="sandbox\jcl\help"/>
       <configuration index="1" caption="New file name" value="sandbox\%PREFIX%\help"/>
@@ -259,6 +259,9 @@
       <configuration index="3" caption="Valid exit codes" value="0;20;30"/>
       <configuration index="4" caption="Result file" value=""/>
     </action>
+    <action classname="TDelay">
+      <configuration index="0" caption="Delay" value="30"/>
+    </action>
     <action classname="TFileRemover">
       <configuration index="0" caption="Directory" value="sandbox\jcl\help"/>
       <configuration index="1" caption="Filter" value="*.html;*.css;*.js;*.gif;*.jpg;*.png;*.c;*.h;*.inc;*.hhc;*.hhk;*.hhp"/>
@@ -314,6 +317,9 @@
       <configuration index="3" caption="Valid exit codes" value="0;20;30"/>
       <configuration index="4" caption="Result file" value=""/>
     </action>
+    <action classname="TDelay">
+      <configuration index="0" caption="Delay" value="30"/>
+    </action>
     <action classname="TFileRemover">
       <configuration index="0" caption="Directory" value="sandbox\jcl\help"/>
       <configuration index="1" caption="Filter" value="*.html;*.css;*.js;*.gif;*.jpg;*.png;*.c;*.h;*.inc;*.log"/>
@@ -372,6 +378,9 @@
     <action classname="TDirectoryCreator">
       <configuration index="0" caption="Directory" value="sandbox\%PREFIX%"/>
     </action>
+    <action classname="TDelay">
+      <configuration index="0" caption="Delay" value="30"/>
+    </action>
     <action classname="TFileMover">
       <configuration index="0" caption="Old file name" value="sandbox\jcl\help"/>
       <configuration index="1" caption="New file name" value="sandbox\%PREFIX%\help"/>
@@ -422,6 +431,9 @@
     <action classname="TDirectoryCreator">
       <configuration index="0" caption="Directory" value="sandbox\%PREFIX%"/>
     </action>
+    <action classname="TDelay">
+      <configuration index="0" caption="Delay" value="30"/>
+    </action>
     <action classname="TFileMover">
       <configuration index="0" caption="Old file name" value="sandbox\jcl\help"/>
       <configuration index="1" caption="New file name" value="sandbox\%PREFIX%\help"/>
@@ -472,6 +484,9 @@
     <action classname="TDirectoryCreator">
       <configuration index="0" caption="Directory" value="sandbox\%PREFIX%"/>
     </action>
+    <action classname="TDelay">
+      <configuration index="0" caption="Delay" value="30"/>
+    </action>
     <action classname="TFileMover">
       <configuration index="0" caption="Old file name" value="sandbox\jcl\help"/>
       <configuration index="1" caption="New file name" value="sandbox\%PREFIX%\help"/>

Modified: trunk/thirdparty/makedist/JclTesting.xml
===================================================================
--- trunk/thirdparty/makedist/JclTesting.xml	2010-10-08 14:38:30 UTC (rev 3368)
+++ trunk/thirdparty/makedist/JclTesting.xml	2010-10-09 08:51:19 UTC (rev 3369)
@@ -25,13 +25,10 @@
       <configuration index="0" caption="Directory" value="sandbox"/>
       <configuration index="1" caption="Move to recycle bin" value="no"/>
     </action>
-    <action classname="TDirectoryCreator">
-      <configuration index="0" caption="Directory" value="sandbox"/>
-    </action>
     <action classname="TCommandLineCaller">
       <configuration index="0" caption="Application" value="%SVN%"/>
-      <configuration index="1" caption="Working directory" value="sandbox"/>
-      <configuration index="2" caption="Parameters" value="export -rBASE --native-eol CRLF --force ..\..\..\ ."/>
+      <configuration index="1" caption="Working directory" value=""/>
+      <configuration index="2" caption="Parameters" value="export -rBASE --native-eol CRLF ..\..\ sandbox"/>
       <configuration index="3" caption="Valid exit codes" value=""/>
       <configuration index="4" caption="Result file" value=""/>
     </action>
@@ -182,6 +179,9 @@
     <action classname="TDirectoryCreator">
       <configuration index="0" caption="Directory" value="sandbox\%PREFIX%"/>
     </action>
+    <action classname="TDelay">
+      <configuration index="0" caption="Delay" value="30"/>
+    </action>
     <action classname="TFileMover">
       <configuration index="0" caption="Old file name" value="sandbox\jcl\help"/>
       <configuration index="1" caption="New file name" value="sandbox\%PREFIX%\help"/>
@@ -250,6 +250,9 @@
       <configuration index="3" caption="Valid exit codes" value="0;20;30"/>
       <configuration index="4" caption="Result file" value=""/>
     </action>
+    <action classname="TDelay">
+      <configuration index="0" caption="Delay" value="30"/>
+    </action>
     <action classname="TFileRemover">
       <configuration index="0" caption="Directory" value="sandbox\jcl\help"/>
       <configuration index="1" caption="Filter" value="*.html;*.css;*.js;*.gif;*.jpg;*.png;*.c;*.h;*.inc;*.log"/>
@@ -326,6 +329,9 @@
       <configuration index="3" caption="Valid exit codes" value="0;20;30"/>
       <configuration index="4" caption="Result file" value=""/>
     </action>
+    <action classname="TDelay">
+      <configuration index="0" caption="Delay" value="30"/>
+    </action>
     <action classname="TFileRemover">
       <configuration index="0" caption="Directory" value="sandbox\jcl\help"/>
       <configuration index="1" caption="Filter" value="*.html;*.css;*.js;*.gif;*.jpg;*.png;*.c;*.h;*.inc"/>


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Jcl-checkins-diff] SF.net SVN: jcl:[3368] trunk

From: <ou...@us...> - 2010-10-08 14:38:39

Revision: 3368
          http://jcl.svn.sourceforge.net/jcl/?rev=3368&view=rev
Author:   outchy
Date:     2010-10-08 14:38:30 +0000 (Fri, 08 Oct 2010)

Log Message:
-----------
Help update:
 - container topics are now copies of object container topics;
 - remove useless references to "Borland";
 - documentation for JclBase.pas;
 - documentation for all JCL and JEDI included files.
JPP update to generate help topics from container templates.

Modified Paths:
--------------
    trunk/help/Base.dtx
    trunk/help/Bitmap32.dtx
    trunk/help/Containers.dtx
    trunk/help/Debug.dtx
    trunk/help/ExprEval.dtx
    trunk/help/IncludedFiles.dtx
    trunk/help/JCLHelp.dox
    trunk/help/PE.dtx
    trunk/help/RTTI.dtx
    trunk/help/hlpgrps.dtx
    trunk/jcl/devtools/jpp/Templates/JclContainerIntfTemplates.pas
    trunk/jcl/devtools/jpp/Templates/JclContainerKnownTypes.pas
    trunk/jcl/devtools/jpp/Templates/JclContainerTemplates.pas

Added Paths:
-----------
    trunk/help/ContainerCopies.dtx
    trunk/help/containers/
    trunk/help/containers/ContainerCopies.dtx
    trunk/help/containers/JclAlgorithms.inc
    trunk/help/containers/JclArrayLists.inc
    trunk/help/containers/JclArraySets.inc
    trunk/help/containers/JclBinaryTrees.inc
    trunk/help/containers/JclContainerIntf.inc
    trunk/help/containers/JclHashMaps.inc
    trunk/help/containers/JclHashSets.inc
    trunk/help/containers/JclLinkedLists.inc
    trunk/help/containers/JclQueues.inc
    trunk/help/containers/JclSortedMaps.inc
    trunk/help/containers/JclStacks.inc
    trunk/help/containers/JclTrees.inc
    trunk/help/containers/JclVectors.inc
    trunk/help/containers/Makefile.mak

Modified: trunk/help/Base.dtx
===================================================================
--- trunk/help/Base.dtx	2010-10-08 14:15:41 UTC (rev 3367)
+++ trunk/help/Base.dtx	2010-10-08 14:38:30 UTC (rev 3368)
@@ -18,11 +18,7 @@
 <TITLE Error Handling>
 <TOPICORDER 400>
 --------------------------------------------------------------------------------
-@@BaseServices.FPCCompatibility
-<GROUP BaseServices>
-<TITLE FPC Compatibility>
-<TOPICORDER 600>
---------------------------------------------------------------------------------
+
 @@BaseServices.Int64support
 <GROUP BaseServices>
 <TITLE Int64 support>
@@ -57,32 +53,8 @@
 Donator:
   Marcel van Brakel
 --------------------------------------------------------------------------------
-@@string
-<GROUP BaseServices.FPCCompatibility>
-Summary:
-  ResStringRec is a pointer to a resource string.
-Description:
-  ResStringRec is a pointer to a resource string used with the creation of exceptions.
-  This type is provided for compatibility with FPC. When compiling with Delphi or
-  Kylix use the type defined in SysUtils.pas instead.
-Donator:
-  Team JCL
---------------------------------------------------------------------------------
-@@SysErrorMessage
-<GROUP BaseServices.FPCCompatibility>
-Summary:
-  Converts OS error codes into strings.
-Description:
-  SysErrorMessage returns an error message string that corresponds to the specified
-  OS error code. This routine is provided for compatibility with FPC. When compiling
-  with Delphi or Kylix use the SysErrorMessage from the RTL instead (SysUtils.pas).
-Parameters:
-  ErrNo - The Windows API error code for which to retrieve the associated error message.
-Result:
-  Returns the error message string associated with the specified Windows API error code.
-Donator:
-  Team JCL
---------------------------------------------------------------------------------
+
+
 @@EJclError
 <GROUP BaseServices.ErrorHandling>
 Summary:
@@ -508,22 +480,7 @@
 Donator:
   Marcel van Brakel
 --------------------------------------------------------------------------------
-@@TObjectList
-<GROUP BaseServices.Compatibility>
-Summary:
-  TList descendent to maintain a list of TObject descendants.
-Description:
-  TObjectList is a TList descendant adapted to maintain a list of TObject descendants
-  which can optionally be owned by the class. If the class owns the items, it will
-  automatically free the objects when the list is cleared. This class is only provided
-  for backward compatibility and is not a full-fledged implementation of TObjectList
-  as found in Delphi 5 and up.
-Donator:
-  Petr Vones
---------------------------------------------------------------------------------
 
-
-
 @@RaiseLastOSError
 <GROUP BaseServices.Compatibility>
 Summary:
@@ -746,3 +703,338 @@
 @@TDynWordArray
 Summary:
   Type for a dynamic array of Word (unsigned 16-bit integer).
+
+@@AWSuffix
+\ \ 
+Summary
+Suffix for External string function API
+
+
+Description
+This constant denotes the suffix for imported string
+functions. Windows headers usually have two declarations for
+each string function: one is Ansi-flavoured, the other is
+unicode-enabled. The two functions have different names: the
+names of the Ansi-flavoured functions end with 'A' while
+Unicode-enabled functions end with 'W'.
+
+
+
+Since Delphi/C++Builder 2009, the built-in string type is
+Unicode-enabled. This constant is accordingly set to 'W'
+(stands for Wide) for Delphi/C++Builder and newer while it is
+set to 'A' (stands for Ansi) for older versions.
+
+
+
+This constant is used in various places in the JCL for
+specifying the flavour of the function that is being
+imported.
+
+@@BOM_UTF16_LSB
+Summary
+UTF-16 LSB Text file Byte-Order-Mark (BOM)
+Description
+These 2 bytes are usually inserted to the beginning of UTF-16
+text files where the least significant byte of each character
+is written first.
+
+@@BOM_UTF16_MSB
+Summary
+UTF-16 MSB Text file Byte-Order-Mark (BOM)
+Description
+These 2 bytes are usually inserted to the beginning of UTF-16
+text files where the most significant byte of each character
+is written first.
+
+@@BOM_UTF32_LSB
+Summary
+UTF-32 LSB Text file Byte-Order-Mark (BOM)
+Description
+These 4 bytes are usually inserted to the beginning of UTF-32
+text files where the least significant byte of each character
+is written first.
+
+@@BOM_UTF32_MSB
+Summary
+UTF-32 MSB Text file Byte-Order-Mark (BOM)
+Description
+These 4 bytes are usually inserted to the beginning of UTF-32
+text files where the most significant byte of each character
+is written first.
+
+@@BOM_UTF8
+Summary
+UTF-8 Text file Byte-Order-Mark (BOM)
+Description
+These 3 bytes are usually inserted to the beginning of UTF-8
+text files.
+
+@@HexPrefix
+Summary
+Constants describing the hexadecimal prefix for strings.
+Description
+The HexPrefix constants are the prefix to be added to strings
+denoting hexadecimal values.
+<table>
+Constant          \Description:
+----------------  -----------------------------------------------
+HexPrefixC        Prefix for C/C++ hexadecimal values
+HexPrefixPascal   Prefix for Pascal/Delphi hexadecimal values
+HexPrefix         Language independant prefix, this constant is
+                   automatically set to HexPrefixPascal when the
+                   code is compiled with Delphi and to HexPrefixC
+                   when compiled with C++Builder.
+</table>
+
+@@HexPrefixC
+<combine HexPrefix>
+
+\ \ 
+
+@@HexPrefixPascal
+<combine HexPrefix>
+
+\ \ 
+
+@@MaximumUCS2
+Summary
+Maximum value for an UCS-2 encoded character
+Description
+This constant denotes the maximum value for an UCS-2
+character. Valid UCS-2 characters are included in range
+[#0..MaximumUCS2].
+
+@@MaximumUCS4
+Summary
+Maximum value for an UCS-4 encoded character
+Description
+This constant denotes the maximum value for an UCS-4
+character. Valid UCS-4 characters are included in range
+[#0..MaximumUCS4].
+
+@@MaximumUTF16
+Summary
+Maximum value for an UTF-16 encoded character
+Description
+This constant denotes the maximum value for an UTF-16
+character. Valid UTF-16 characters are included in range
+[#0..MaximumUTF16], with the exclusion of ranges
+[SurrogateLowStart..SurrogateLowEnd] and
+[SurrogateHighStart..SurrogateHighEnd].
+
+
+
+In an UTF-16 stream, characters are read per 16-bit wide
+chunk. Characters are decoded as follow:
+
+A first 16-bit chunk is read, if its value is included in
+[SurrogateLowStart..SurrogateLowEnd], it is an error. If its
+value is not included in
+[SurrogateHighStart..SurrogateHighEnd], then the character
+value is equal to this first chunk.
+
+If the value of the first chunk is included in
+[SurrogateHighStart..SurrogateHighEnd], a second thunk is
+read and its value has to be included in
+[SurrogateLowStart..SurrogateLowEnd], it is an error
+\otherwise. Finally the value of these two thunk are combined
+to make the character value.
+
+@@SurrogateHighEnd
+<combine MaximumUTF16>
+
+\ \ 
+
+@@SurrogateHighStart
+<combine MaximumUTF16>
+
+\ \ 
+
+@@SurrogateLowEnd
+<combine MaximumUTF16>
+
+\ \ 
+
+@@SurrogateLowStart
+<combine MaximumUTF16>
+
+\ \ 
+
+@@UCS4ReplacementCharacter
+Summary
+UTF-8/UTF-16/UCS2/UCS4 replacement character
+Description
+When an UTF-8 or an UTF-16 character fails to be correctly
+decoded, it may be replaced by this constant acting as an
+error flag. Depending on the code, exceptions might be raised
+instead of inserting this constant. See code details.
+
+@@JclBase.pas
+\ \ 
+Summary
+JclBase description
+
+
+Description
+The JclBase file contains basic declarations for the JEDI
+Code Library.
+
+@@GetMem@@Longint
+\ \ 
+Summary
+GetMem function redeclaration for FPC
+Description
+FPC emits a lot of warnings while compiling GetMem calls: it
+complains about the first argument not being initialized.
+This is caused by the declaration of the first parameter as a
+variable parameter. We change it to output in order to avoid
+all these warnings.
+
+@@Addr32ToAddr64@TJclAddr32
+\ \ 
+Summary
+32-bit address to 64-bit address conversion
+Description
+This function converts a 32-bit address to a 64-bit value.
+
+@@Addr64ToAddr32@TJclAddr64
+Summary
+64-bit address to 32-bit address conversion
+Description
+This function converts a 64-bit address to a 32-bit value.
+Exceptions
+If the argument address does not fit in the result, an
+exception of class EJclAddr64Exception is raised.
+
+@@AnsiByteArrayStringLen@TBytes
+Summary
+Computes the length of an AnsiString stored in a TBytes array
+Description
+This functions computes the length of the AnsiString stored
+in the TBytes array. The string ends at the first encountered
+null character.
+Parameters
+Data :  Source byte array
+Returns
+The length of the string, including the ending null
+character.
+See Also
+AnsiByteArrayToString@TBytes@SizeInt
+
+StringToAnsiByteArray@string
+
+@@AnsiByteArrayToString@TBytes@SizeInt
+Summary
+Makes a copy an AnsiString stored in a TBytes array
+Description
+This functions copies Count characters from the AnsiString
+stored in a TBytes array to its result.
+Parameters
+Data :   Source byte array
+Count :  Number of characters to be copied
+Returns
+A string of length Count whose data is initialized by the
+values read from Data.
+See Also
+AnsiByteArrayStringLen@TBytes
+
+StringToAnsiByteArray@string
+
+@@StringToAnsiByteArray@string
+Summary
+Create a byte array from an AnsiString
+Description
+This function serializes all the characters of S to the
+resulting byte array.
+Parameters
+S :  String to convert
+Returns
+Serialized bytes from S.
+See Also
+AnsiByteArrayToString@TBytes@SizeInt
+
+AnsiByteArrayStringLen@TBytes
+
+@@EJclAddr64Exception
+Summary
+Exception class for address conversion failures
+Description
+This exception class is raised when a 64-bit address cannot
+be stored as a 32-bit value.
+See Also
+Addr64ToAddr32@TJclAddr64
+
+@@PInt64
+\ \ 
+Summary
+Type for pointers to signed 6'-bit integers
+
+@@TDynWideCharArray
+\ \ 
+Summary
+Type for a dynamic array of WideChar.
+
+@@TDynAnsiCharArray
+\ \ 
+Summary
+Type for a dynamic array of AnsiChar.
+
+@@TDynAnsiStringArray
+\ \ 
+Summary
+Type for a dynamic array of AnsiString.
+
+@@TDynCharArray
+\ \ 
+Summary
+Type for a dynamic array of Char.
+
+@@TDynUnicodeStringArray
+\ \ 
+Summary
+Type for a dynamic array of UnicodeString (defined for
+Delphi/C++Builder 2009 and newer).
+
+@@TDynWideStringArray
+\ \ 
+Summary
+Type for a dynamic array of WideString.
+
+@@TJclByteArray
+\ \ 
+Summary
+Type for a dynamic array of Byte.
+
+@@TJclAddr64
+Summary
+Integer type for 64-bit addresses.
+
+@@TJclAddr32
+Summary
+Integer type for 32-bit addresses.
+
+@@TJclAddr
+Summary
+Integer type for addresses.
+
+
+Description
+This type is aliased to TJclAddr32 for 32-bit applications
+and it is aliased to TJclAddr64 for 64-bit applications.
+
+
+@@AnsiReplacementCharacter
+Summary
+ANSI replacement character
+Description
+When an Unicode character does not have representation in the
+current ANSI codepage, it may be replaced by this constant
+acting as an error flag. Depending on the code, exceptions
+might be raised instead of inserting this constant. See code
+details.
+
+@@PJclAddr
+<combine TJclAddr>
+
+\ \ 

Modified: trunk/help/Bitmap32.dtx
===================================================================
--- trunk/help/Bitmap32.dtx	2010-10-08 14:15:41 UTC (rev 3367)
+++ trunk/help/Bitmap32.dtx	2010-10-08 14:38:30 UTC (rev 3368)
@@ -1540,7 +1540,7 @@
   Stores the transformation matrix.
 Description:
   The matrix is accessed as a field instead of a property in order to make it
-  Borland C++ Builder compatible.
+  C++ Builder compatible.
 Donator:
   Alex Denissov
 --------------------------------------------------------------------------------

Added: trunk/help/ContainerCopies.dtx
===================================================================
--- trunk/help/ContainerCopies.dtx	                        (rev 0)
+++ trunk/help/ContainerCopies.dtx	2010-10-08 14:38:30 UTC (rev 3368)
@@ -0,0 +1,40968 @@
+
+
+@@MoveArray@TDynIInterfaceArray@SizeInt@SizeInt@SizeInt
+<copy MoveArray@TDynObjectArray@SizeInt@SizeInt@SizeInt>
+\ \
+@@MoveArray@TDynAnsiStringArray@SizeInt@SizeInt@SizeInt
+<copy MoveArray@TDynObjectArray@SizeInt@SizeInt@SizeInt>
+\ \
+@@MoveArray@TDynWideStringArray@SizeInt@SizeInt@SizeInt
+<copy MoveArray@TDynObjectArray@SizeInt@SizeInt@SizeInt>
+\ \
+@@MoveArray@TDynUnicodeStringArray@SizeInt@SizeInt@SizeInt
+<copy MoveArray@TDynObjectArray@SizeInt@SizeInt@SizeInt>
+\ \
+@@MoveArray@TDynSingleArray@SizeInt@SizeInt@SizeInt
+<copy MoveArray@TDynObjectArray@SizeInt@SizeInt@SizeInt>
+\ \
+@@MoveArray@TDynDoubleArray@SizeInt@SizeInt@SizeInt
+<copy MoveArray@TDynObjectArray@SizeInt@SizeInt@SizeInt>
+\ \
+@@MoveArray@TDynExtendedArray@SizeInt@SizeInt@SizeInt
+<copy MoveArray@TDynObjectArray@SizeInt@SizeInt@SizeInt>
+\ \
+@@MoveArray@TDynIntegerArray@SizeInt@SizeInt@SizeInt
+<copy MoveArray@TDynObjectArray@SizeInt@SizeInt@SizeInt>
+\ \
+@@MoveArray@TDynCardinalArray@SizeInt@SizeInt@SizeInt
+<copy MoveArray@TDynObjectArray@SizeInt@SizeInt@SizeInt>
+\ \
+@@MoveArray@TDynInt64Array@SizeInt@SizeInt@SizeInt
+<copy MoveArray@TDynObjectArray@SizeInt@SizeInt@SizeInt>
+\ \
+@@MoveArray@TDynPointerArray@SizeInt@SizeInt@SizeInt
+<copy MoveArray@TDynObjectArray@SizeInt@SizeInt@SizeInt>
+\ \
+
+
+@@Iterate@IJclIntfIterator@Integer@TIntfIterateProcedure
+<copy Iterate@IJclIterator@Integer@TIterateProcedure>
+\ \
+@@Iterate@IJclAnsiStrIterator@Integer@TAnsiStrIterateProcedure
+<copy Iterate@IJclIterator@Integer@TIterateProcedure>
+\ \
+@@Iterate@IJclWideStrIterator@Integer@TWideStrIterateProcedure
+<copy Iterate@IJclIterator@Integer@TIterateProcedure>
+\ \
+@@Iterate@IJclUnicodeStrIterator@Integer@TUnicodeStrIterateProcedure
+<copy Iterate@IJclIterator@Integer@TIterateProcedure>
+\ \
+@@Iterate@IJclSingleIterator@Integer@TSingleIterateProcedure
+<copy Iterate@IJclIterator@Integer@TIterateProcedure>
+\ \
+@@Iterate@IJclDoubleIterator@Integer@TDoubleIterateProcedure
+<copy Iterate@IJclIterator@Integer@TIterateProcedure>
+\ \
+@@Iterate@IJclExtendedIterator@Integer@TExtendedIterateProcedure
+<copy Iterate@IJclIterator@Integer@TIterateProcedure>
+\ \
+@@Iterate@IJclIntegerIterator@Integer@TIntegerIterateProcedure
+<copy Iterate@IJclIterator@Integer@TIterateProcedure>
+\ \
+@@Iterate@IJclCardinalIterator@Integer@TCardinalIterateProcedure
+<copy Iterate@IJclIterator@Integer@TIterateProcedure>
+\ \
+@@Iterate@IJclInt64Iterator@Integer@TInt64IterateProcedure
+<copy Iterate@IJclIterator@Integer@TIterateProcedure>
+\ \
+@@Iterate@IJclPtrIterator@Integer@TPtrIterateProcedure
+<copy Iterate@IJclIterator@Integer@TIterateProcedure>
+\ \
+
+
+@@Apply@IJclIntfIterator@Integer@TIntfApplyFunction
+<copy Apply@IJclIterator@Integer@TApplyFunction>
+\ \
+@@Apply@IJclAnsiStrIterator@Integer@TAnsiStrApplyFunction
+<copy Apply@IJclIterator@Integer@TApplyFunction>
+\ \
+@@Apply@IJclWideStrIterator@Integer@TWideStrApplyFunction
+<copy Apply@IJclIterator@Integer@TApplyFunction>
+\ \
+@@Apply@IJclUnicodeStrIterator@Integer@TUnicodeStrApplyFunction
+<copy Apply@IJclIterator@Integer@TApplyFunction>
+\ \
+@@Apply@IJclSingleIterator@Integer@TSingleApplyFunction
+<copy Apply@IJclIterator@Integer@TApplyFunction>
+\ \
+@@Apply@IJclDoubleIterator@Integer@TDoubleApplyFunction
+<copy Apply@IJclIterator@Integer@TApplyFunction>
+\ \
+@@Apply@IJclExtendedIterator@Integer@TExtendedApplyFunction
+<copy Apply@IJclIterator@Integer@TApplyFunction>
+\ \
+@@Apply@IJclIntegerIterator@Integer@TIntegerApplyFunction
+<copy Apply@IJclIterator@Integer@TApplyFunction>
+\ \
+@@Apply@IJclCardinalIterator@Integer@TCardinalApplyFunction
+<copy Apply@IJclIterator@Integer@TApplyFunction>
+\ \
+@@Apply@IJclInt64Iterator@Integer@TInt64ApplyFunction
+<copy Apply@IJclIterator@Integer@TApplyFunction>
+\ \
+@@Apply@IJclPtrIterator@Integer@TPtrApplyFunction
+<copy Apply@IJclIterator@Integer@TApplyFunction>
+\ \
+
+
+@@IntfSimpleCompare@IInterface@IInterface
+<copy SimpleCompare@TObject@TObject>
+\ \
+@@AnsiStrSimpleCompare@AnsiString@AnsiString
+<copy SimpleCompare@TObject@TObject>
+\ \
+@@WideStrSimpleCompare@WideString@WideString
+<copy SimpleCompare@TObject@TObject>
+\ \
+@@UnicodeStrSimpleCompare@UnicodeString@UnicodeString
+<copy SimpleCompare@TObject@TObject>
+\ \
+@@StrSimpleCompare@string@string
+<copy SimpleCompare@TObject@TObject>
+\ \
+@@SingleSimpleCompare@Single@Single
+<copy SimpleCompare@TObject@TObject>
+\ \
+@@DoubleSimpleCompare@Double@Double
+<copy SimpleCompare@TObject@TObject>
+\ \
+@@ExtendedSimpleCompare@Extended@Extended
+<copy SimpleCompare@TObject@TObject>
+\ \
+@@FloatSimpleCompare@Float@Float
+<copy SimpleCompare@TObject@TObject>
+\ \
+@@IntegerSimpleCompare@Integer@Integer
+<copy SimpleCompare@TObject@TObject>
+\ \
+@@CardinalSimpleCompare@Cardinal@Cardinal
+<copy SimpleCompare@TObject@TObject>
+\ \
+@@Int64SimpleCompare@Int64@Int64
+<copy SimpleCompare@TObject@TObject>
+\ \
+@@PtrSimpleCompare@Pointer@Pointer
+<copy SimpleCompare@TObject@TObject>
+\ \
+
+
+@@IntfSimpleEqualityCompare@IInterface@IInterface
+<copy SimpleEqualityCompare@TObject@TObject>
+\ \
+@@AnsiStrSimpleEqualityCompare@AnsiString@AnsiString
+<copy SimpleEqualityCompare@TObject@TObject>
+\ \
+@@WideStrSimpleEqualityCompare@WideString@WideString
+<copy SimpleEqualityCompare@TObject@TObject>
+\ \
+@@UnicodeStrSimpleEqualityCompare@UnicodeString@UnicodeString
+<copy SimpleEqualityCompare@TObject@TObject>
+\ \
+@@StrSimpleEqualityCompare@string@string
+<copy SimpleEqualityCompare@TObject@TObject>
+\ \
+@@SingleSimpleEqualityCompare@Single@Single
+<copy SimpleEqualityCompare@TObject@TObject>
+\ \
+@@DoubleSimpleEqualityCompare@Double@Double
+<copy SimpleEqualityCompare@TObject@TObject>
+\ \
+@@ExtendedSimpleEqualityCompare@Extended@Extended
+<copy SimpleEqualityCompare@TObject@TObject>
+\ \
+@@FloatSimpleEqualityCompare@Float@Float
+<copy SimpleEqualityCompare@TObject@TObject>
+\ \
+@@IntegerSimpleEqualityCompare@Integer@Integer
+<copy SimpleEqualityCompare@TObject@TObject>
+\ \
+@@CardinalSimpleEqualityCompare@Cardinal@Cardinal
+<copy SimpleEqualityCompare@TObject@TObject>
+\ \
+@@Int64SimpleEqualityCompare@Int64@Int64
+<copy SimpleEqualityCompare@TObject@TObject>
+\ \
+@@PtrSimpleEqualityCompare@Pointer@Pointer
+<copy SimpleEqualityCompare@TObject@TObject>
+\ \
+
+
+@@IntfSimpleHashConvert@IInterface
+<copy SimpleHashConvert@TObject>
+\ \
+@@AnsiStrSimpleHashConvert@AnsiString
+<copy SimpleHashConvert@TObject>
+\ \
+@@WideStrSimpleHashConvert@WideString
+<copy SimpleHashConvert@TObject>
+\ \
+@@UnicodeStrSimpleHashConvert@UnicodeString
+<copy SimpleHashConvert@TObject>
+\ \
+@@StrSimpleHashConvert@string
+<copy SimpleHashConvert@TObject>
+\ \
+@@SingleSimpleHashConvert@Single
+<copy SimpleHashConvert@TObject>
+\ \
+@@DoubleSimpleHashConvert@Double
+<copy SimpleHashConvert@TObject>
+\ \
+@@ExtendedSimpleHashConvert@Extended
+<copy SimpleHashConvert@TObject>
+\ \
+@@FloatSimpleHashConvert@Float
+<copy SimpleHashConvert@TObject>
+\ \
+@@IntegerSimpleHashConvert@Integer
+<copy SimpleHashConvert@TObject>
+\ \
+@@CardinalSimpleHashConvert@Cardinal
+<copy SimpleHashConvert@TObject>
+\ \
+@@Int64SimpleHashConvert@Int64
+<copy SimpleHashConvert@TObject>
+\ \
+@@PtrSimpleHashConvert@Pointer
+<copy SimpleHashConvert@TObject>
+\ \
+
+
+@@Find@IJclIntfIterator@Integer@IInterface@TIntfCompare
+<copy Find@IJclIterator@Integer@TObject@TCompare>
+\ \
+@@Find@IJclAnsiStrIterator@Integer@AnsiString@TAnsiStrCompare
+<copy Find@IJclIterator@Integer@TObject@TCompare>
+\ \
+@@Find@IJclWideStrIterator@Integer@WideString@TWideStrCompare
+<copy Find@IJclIterator@Integer@TObject@TCompare>
+\ \
+@@Find@IJclUnicodeStrIterator@Integer@UnicodeString@TUnicodeStrCompare
+<copy Find@IJclIterator@Integer@TObject@TCompare>
+\ \
+@@Find@IJclSingleIterator@Integer@Single@TSingleCompare
+<copy Find@IJclIterator@Integer@TObject@TCompare>
+\ \
+@@Find@IJclDoubleIterator@Integer@Double@TDoubleCompare
+<copy Find@IJclIterator@Integer@TObject@TCompare>
+\ \
+@@Find@IJclExtendedIterator@Integer@Extended@TExtendedCompare
+<copy Find@IJclIterator@Integer@TObject@TCompare>
+\ \
+@@Find@IJclIntegerIterator@Integer@Integer@TIntegerCompare
+<copy Find@IJclIterator@Integer@TObject@TCompare>
+\ \
+@@Find@IJclCardinalIterator@Integer@Cardinal@TCardinalCompare
+<copy Find@IJclIterator@Integer@TObject@TCompare>
+\ \
+@@Find@IJclInt64Iterator@Integer@Int64@TInt64Compare
+<copy Find@IJclIterator@Integer@TObject@TCompare>
+\ \
+@@Find@IJclPtrIterator@Integer@Pointer@TPtrCompare
+<copy Find@IJclIterator@Integer@TObject@TCompare>
+\ \
+
+
+@@Find@IJclIntfIterator@Integer@IInterface@TIntfEqualityCompare
+<copy Find@IJclIterator@Integer@TObject@TEqualityCompare>
+\ \
+@@Find@IJclAnsiStrIterator@Integer@AnsiString@TAnsiStrEqualityCompare
+<copy Find@IJclIterator@Integer@TObject@TEqualityCompare>
+\ \
+@@Find@IJclWideStrIterator@Integer@WideString@TWideStrEqualityCompare
+<copy Find@IJclIterator@Integer@TObject@TEqualityCompare>
+\ \
+@@Find@IJclUnicodeStrIterator@Integer@UnicodeString@TUnicodeStrEqualityCompare
+<copy Find@IJclIterator@Integer@TObject@TEqualityCompare>
+\ \
+@@Find@IJclSingleIterator@Integer@Single@TSingleEqualityCompare
+<copy Find@IJclIterator@Integer@TObject@TEqualityCompare>
+\ \
+@@Find@IJclDoubleIterator@Integer@Double@TDoubleEqualityCompare
+<copy Find@IJclIterator@Integer@TObject@TEqualityCompare>
+\ \
+@@Find@IJclExtendedIterator@Integer@Extended@TExtendedEqualityCompare
+<copy Find@IJclIterator@Integer@TObject@TEqualityCompare>
+\ \
+@@Find@IJclIntegerIterator@Integer@Integer@TIntegerEqualityCompare
+<copy Find@IJclIterator@Integer@TObject@TEqualityCompare>
+\ \
+@@Find@IJclCardinalIterator@Integer@Cardinal@TCardinalEqualityCompare
+<copy Find@IJclIterator@Integer@TObject@TEqualityCompare>
+\ \
+@@Find@IJclInt64Iterator@Integer@Int64@TInt64EqualityCompare
+<copy Find@IJclIterator@Integer@TObject@TEqualityCompare>
+\ \
+@@Find@IJclPtrIterator@Integer@Pointer@TPtrEqualityCompare
+<copy Find@IJclIterator@Integer@TObject@TEqualityCompare>
+\ \
+
+
+@@CountObject@IJclIntfIterator@Integer@IInterface@TIntfCompare
+<copy CountObject@IJclIterator@Integer@TObject@TCompare>
+\ \
+@@CountObject@IJclAnsiStrIterator@Integer@AnsiString@TAnsiStrCompare
+<copy CountObject@IJclIterator@Integer@TObject@TCompare>
+\ \
+@@CountObject@IJclWideStrIterator@Integer@WideString@TWideStrCompare
+<copy CountObject@IJclIterator@Integer@TObject@TCompare>
+\ \
+@@CountObject@IJclUnicodeStrIterator@Integer@UnicodeString@TUnicodeStrCompare
+<copy CountObject@IJclIterator@Integer@TObject@TCompare>
+\ \
+@@CountObject@IJclSingleIterator@Integer@Single@TSingleCompare
+<copy CountObject@IJclIterator@Integer@TObject@TCompare>
+\ \
+@@CountObject@IJclDoubleIterator@Integer@Double@TDoubleCompare
+<copy CountObject@IJclIterator@Integer@TObject@TCompare>
+\ \
+@@CountObject@IJclExtendedIterator@Integer@Extended@TExtendedCompare
+<copy CountObject@IJclIterator@Integer@TObject@TCompare>
+\ \
+@@CountObject@IJclIntegerIterator@Integer@Integer@TIntegerCompare
+<copy CountObject@IJclIterator@Integer@TObject@TCompare>
+\ \
+@@CountObject@IJclCardinalIterator@Integer@Cardinal@TCardinalCompare
+<copy CountObject@IJclIterator@Integer@TObject@TCompare>
+\ \
+@@CountObject@IJclInt64Iterator@Integer@Int64@TInt64Compare
+<copy CountObject@IJclIterator@Integer@TObject@TCompare>
+\ \
+@@CountObject@IJclPtrIterator@Integer@Pointer@TPtrCompare
+<copy CountObject@IJclIterator@Integer@TObject@TCompare>
+\ \
+
+
+@@CountObject@IJclIntfIterator@Integer@IInterface@TIntfEqualityCompare
+<copy CountObject@IJclIterator@Integer@TObject@TEqualityCompare>
+\ \
+@@CountObject@IJclAnsiStrIterator@Integer@AnsiString@TAnsiStrEqualityCompare
+<copy CountObject@IJclIterator@Integer@TObject@TEqualityCompare>
+\ \
+@@CountObject@IJclWideStrIterator@Integer@WideString@TWideStrEqualityCompare
+<copy CountObject@IJclIterator@Integer@TObject@TEqualityCompare>
+\ \
+@@CountObject@IJclUnicodeStrIterator@Integer@UnicodeString@TUnicodeStrEqualityCompare
+<copy CountObject@IJclIterator@Integer@TObject@TEqualityCompare>
+\ \
+@@CountObject@IJclSingleIterator@Integer@Single@TSingleEqualityCompare
+<copy CountObject@IJclIterator@Integer@TObject@TEqualityCompare>
+\ \
+@@CountObject@IJclDoubleIterator@Integer@Double@TDoubleEqualityCompare
+<copy CountObject@IJclIterator@Integer@TObject@TEqualityCompare>
+\ \
+@@CountObject@IJclExtendedIterator@Integer@Extended@TExtendedEqualityCompare
+<copy CountObject@IJclIterator@Integer@TObject@TEqualityCompare>
+\ \
+@@CountObject@IJclIntegerIterator@Integer@Integer@TIntegerEqualityCompare
+<copy CountObject@IJclIterator@Integer@TObject@TEqualityCompare>
+\ \
+@@CountObject@IJclCardinalIterator@Integer@Cardinal@TCardinalEqualityCompare
+<copy CountObject@IJclIterator@Integer@TObject@TEqualityCompare>
+\ \
+@@CountObject@IJclInt64Iterator@Integer@Int64@TInt64EqualityCompare
+<copy CountObject@IJclIterator@Integer@TObject@TEqualityCompare>
+\ \
+@@CountObject@IJclPtrIterator@Integer@Pointer@TPtrEqualityCompare
+<copy CountObject@IJclIterator@Integer@TObject@TEqualityCompare>
+\ \
+
+
+@@Copy@IJclIntfIterator@Integer@IJclIntfIterator
+<copy Copy@IJclIterator@Integer@IJclIterator>
+\ \
+@@Copy@IJclAnsiStrIterator@Integer@IJclAnsiStrIterator
+<copy Copy@IJclIterator@Integer@IJclIterator>
+\ \
+@@Copy@IJclWideStrIterator@Integer@IJclWideStrIterator
+<copy Copy@IJclIterator@Integer@IJclIterator>
+\ \
+@@Copy@IJclUnicodeStrIterator@Integer@IJclUnicodeStrIterator
+<copy Copy@IJclIterator@Integer@IJclIterator>
+\ \
+@@Copy@IJclSingleIterator@Integer@IJclSingleIterator
+<copy Copy@IJclIterator@Integer@IJclIterator>
+\ \
+@@Copy@IJclDoubleIterator@Integer@IJclDoubleIterator
+<copy Copy@IJclIterator@Integer@IJclIterator>
+\ \
+@@Copy@IJclExtendedIterator@Integer@IJclExtendedIterator
+<copy Copy@IJclIterator@Integer@IJclIterator>
+\ \
+@@Copy@IJclIntegerIterator@Integer@IJclIntegerIterator
+<copy Copy@IJclIterator@Integer@IJclIterator>
+\ \
+@@Copy@IJclCardinalIterator@Integer@IJclCardinalIterator
+<copy Copy@IJclIterator@Integer@IJclIterator>
+\ \
+@@Copy@IJclInt64Iterator@Integer@IJclInt64Iterator
+<copy Copy@IJclIterator@Integer@IJclIterator>
+\ \
+@@Copy@IJclPtrIterator@Integer@IJclPtrIterator
+<copy Copy@IJclIterator@Integer@IJclIterator>
+\ \
+
+
+@@Generate@IJclIntfList@Integer@IInterface
+<copy Generate@IJclList@Integer@TObject>
+\ \
+@@Generate@IJclAnsiStrList@Integer@AnsiString
+<copy Generate@IJclList@Integer@TObject>
+\ \
+@@Generate@IJclWideStrList@Integer@WideString
+<copy Generate@IJclList@Integer@TObject>
+\ \
+@@Generate@IJclUnicodeStrList@Integer@UnicodeString
+<copy Generate@IJclList@Integer@TObject>
+\ \
+@@Generate@IJclSingleList@Integer@Single
+<copy Generate@IJclList@Integer@TObject>
+\ \
+@@Generate@IJclDoubleList@Integer@Double
+<copy Generate@IJclList@Integer@TObject>
+\ \
+@@Generate@IJclExtendedList@Integer@Extended
+<copy Generate@IJclList@Integer@TObject>
+\ \
+@@Generate@IJclIntegerList@Integer@Integer
+<copy Generate@IJclList@Integer@TObject>
+\ \
+@@Generate@IJclCardinalList@Integer@Cardinal
+<copy Generate@IJclList@Integer@TObject>
+\ \
+@@Generate@IJclInt64List@Integer@Int64
+<copy Generate@IJclList@Integer@TObject>
+\ \
+@@Generate@IJclPtrList@Integer@Pointer
+<copy Generate@IJclList@Integer@TObject>
+\ \
+
+
+@@Fill@IJclIntfIterator@Integer@IInterface
+<copy Fill@IJclIterator@Integer@TObject>
+\ \
+@@Fill@IJclAnsiStrIterator@Integer@AnsiString
+<copy Fill@IJclIterator@Integer@TObject>
+\ \
+@@Fill@IJclWideStrIterator@Integer@WideString
+<copy Fill@IJclIterator@Integer@TObject>
+\ \
+@@Fill@IJclUnicodeStrIterator@Integer@UnicodeString
+<copy Fill@IJclIterator@Integer@TObject>
+\ \
+@@Fill@IJclSingleIterator@Integer@Single
+<copy Fill@IJclIterator@Integer@TObject>
+\ \
+@@Fill@IJclDoubleIterator@Integer@Double
+<copy Fill@IJclIterator@Integer@TObject>
+\ \
+@@Fill@IJclExtendedIterator@Integer@Extended
+<copy Fill@IJclIterator@Integer@TObject>
+\ \
+@@Fill@IJclIntegerIterator@Integer@Integer
+<copy Fill@IJclIterator@Integer@TObject>
+\ \
+@@Fill@IJclCardinalIterator@Integer@Cardinal
+<copy Fill@IJclIterator@Integer@TObject>
+\ \
+@@Fill@IJclInt64Iterator@Integer@Int64
+<copy Fill@IJclIterator@Integer@TObject>
+\ \
+@@Fill@IJclPtrIterator@Integer@Pointer
+<copy Fill@IJclIterator@Integer@TObject>
+\ \
+
+
+@@Reverse@IJclIntfIterator@IJclIntfIterator
+<copy Reverse@IJclIterator@IJclIterator>
+\ \
+@@Reverse@IJclAnsiStrIterator@IJclAnsiStrIterator
+<copy Reverse@IJclIterator@IJclIterator>
+\ \
+@@Reverse@IJclWideStrIterator@IJclWideStrIterator
+<copy Reverse@IJclIterator@IJclIterator>
+\ \
+@@Reverse@IJclUnicodeStrIterator@IJclUnicodeStrIterator
+<copy Reverse@IJclIterator@IJclIterator>
+\ \
+@@Reverse@IJclSingleIterator@IJclSingleIterator
+<copy Reverse@IJclIterator@IJclIterator>
+\ \
+@@Reverse@IJclDoubleIterator@IJclDoubleIterator
+<copy Reverse@IJclIterator@IJclIterator>
+\ \
+@@Reverse@IJclExtendedIterator@IJclExtendedIterator
+<copy Reverse@IJclIterator@IJclIterator>
+\ \
+@@Reverse@IJclIntegerIterator@IJclIntegerIterator
+<copy Reverse@IJclIterator@IJclIterator>
+\ \
+@@Reverse@IJclCardinalIterator@IJclCardinalIterator
+<copy Reverse@IJclIterator@IJclIterator>
+\ \
+@@Reverse@IJclInt64Iterator@IJclInt64Iterator
+<copy Reverse@IJclIterator@IJclIterator>
+\ \
+@@Reverse@IJclPtrIterator@IJclPtrIterator
+<copy Reverse@IJclIterator@IJclIterator>
+\ \
+
+
+@@Sort@IJclIntfList@Integer@Integer@TIntfCompare
+<copy Sort@IJclList@Integer@Integer@TCompare>
+\ \
+@@Sort@IJclAnsiStrList@Integer@Integer@TAnsiStrCompare
+<copy Sort@IJclList@Integer@Integer@TCompare>
+\ \
+@@Sort@IJclWideStrList@Integer@Integer@TWideStrCompare
+<copy Sort@IJclList@Integer@Integer@TCompare>
+\ \
+@@Sort@IJclUnicodeStrList@Integer@Integer@TUnicodeStrCompare
+<copy Sort@IJclList@Integer@Integer@TCompare>
+\ \
+@@Sort@IJclSingleList@Integer@Integer@TSingleCompare
+<copy Sort@IJclList@Integer@Integer@TCompare>
+\ \
+@@Sort@IJclDoubleList@Integer@Integer@TDoubleCompare
+<copy Sort@IJclList@Integer@Integer@TCompare>
+\ \
+@@Sort@IJclExtendedList@Integer@Integer@TExtendedCompare
+<copy Sort@IJclList@Integer@Integer@TCompare>
+\ \
+@@Sort@IJclIntegerList@Integer@Integer@TIntegerCompare
+<copy Sort@IJclList@Integer@Integer@TCompare>
+\ \
+@@Sort@IJclCardinalList@Integer@Integer@TCardinalCompare
+<copy Sort@IJclList@Integer@Integer@TCompare>
+\ \
+@@Sort@IJclInt64List@Integer@Integer@TInt64Compare
+<copy Sort@IJclList@Integer@Integer@TCompare>
+\ \
+@@Sort@IJclPtrList@Integer@Integer@TPtrCompare
+<copy Sort@IJclList@Integer@Integer@TCompare>
+\ \
+
+
+@@TJclIntfArrayList
+<copy TJclArrayList>
+\ \
+
+@@!!MEMBEROVERVIEW_TJclIntfArrayList
+<copy !!MEMBEROVERVIEW_TJclArrayList>
+\ \
+
+@@TJclIntfArrayList.Add@IInterface
+<copy TJclArrayList.Add@TObject>
+\ \
+
+@@TJclIntfArrayList.AddAll@IJclIntfCollection
+<copy TJclArrayList.AddAll@IJclCollection>
+\ \
+
+@@TJclIntfArrayList.AssignDataTo@TJclAbstractContainerBase
+<copy TJclArrayList.AssignDataTo@TJclAbstractContainerBase>
+\ \
+
+@@TJclIntfArrayList.Clear
+<copy TJclArrayList.Clear>
+\ \
+
+@@TJclIntfArrayList.CollectionEquals@IJclIntfCollection
+<copy TJclArrayList.CollectionEquals@IJclCollection>
+\ \
+
+@@TJclIntfArrayList.Contains@IInterface
+<copy TJclArrayList.Contains@TObject>
+\ \
+
+@@TJclIntfArrayList.ContainsAll@IJclIntfCollection
+<copy TJclArrayList.ContainsAll@IJclCollection>
+\ \
+
+@@TJclIntfArrayList.Create@IJclIntfCollection
+<copy TJclArrayList.Create@IJclCollection@Boolean>
+\ \
+
+@@TJclIntfArrayList.Create@Integer
+<copy TJclArrayList.Create@Integer@Boolean>
+\ \
+
+@@TJclIntfArrayList.CreateEmptyContainer
+<copy TJclArrayList.CreateEmptyContainer>
+\ \
+
+@@TJclIntfArrayList.Delete@Integer
+<copy TJclArrayList.Delete@Integer>
+\ \
+
+@@TJclIntfArrayList.Destroy
+<copy TJclArrayList.Destroy>
+\ \
+
+@@TJclIntfArrayList.Extract@IInterface
+<copy TJclArrayList.Extract@TObject>
+\ \
+
+@@TJclIntfArrayList.ExtractAll@IJclIntfCollection
+<copy TJclArrayList.ExtractAll@IJclCollection>
+\ \
+
+@@TJclIntfArrayList.ExtractIndex@Integer
+<copy TJclArrayList.ExtractIndex@Integer>
+\ \
+
+@@TJclIntfArrayList.First
+<copy TJclArrayList.First>
+\ \
+
+@@TJclIntfArrayList.GetEnumerator
+<copy TJclArrayList.GetEnumerator>
+\ \
+
+@@TJclIntfArrayList.GetObject@Integer
+<copy TJclArrayList.GetObject@Integer>
+\ \
+
+@@TJclIntfArrayList.IndexOf@IInterface
+<copy TJclArrayList.IndexOf@TObject>
+\ \
+
+@@TJclIntfArrayList.Insert@Integer@IInterface
+<copy TJclArrayList.Insert@Integer@TObject>
+\ \
+
+@@TJclIntfArrayList.InsertAll@Integer@IJclIntfCollection
+<copy TJclArrayList.InsertAll@Integer@IJclCollection>
+\ \
+
+@@TJclIntfArrayList.IsEmpty
+<copy TJclArrayList.IsEmpty>
+\ \
+
+@@TJclIntfArrayList.Last
+<copy TJclArrayList.Last>
+\ \
+
+@@TJclIntfArrayList.LastIndexOf@IInterface
+<copy TJclArrayList.LastIndexOf@TObject>
+\ \
+
+@@TJclIntfArrayList.Remove@IInterface
+<copy TJclArrayList.Remove@TObject>
+\ \
+
+@@TJclIntfArrayList.RemoveAll@IJclIntfCollection
+<copy TJclArrayList.RemoveAll@IJclCollection>
+\ \
+
+@@TJclIntfArrayList.RetainAll@IJclIntfCollection
+<copy TJclArrayList.RetainAll@IJclCollection>
+\ \
+
+@@TJclIntfArrayList.SetCapacity@Integer
+<copy TJclArrayList.SetCapacity@Integer>
+\ \
+
+@@TJclIntfArrayList.SetObject@Integer@IInterface
+<copy TJclArrayList.SetObject@Integer@TObject>
+\ \
+
+@@TJclIntfArrayList.Size
+<copy TJclArrayList.Size>
+\ \
+
+@@TJclIntfArrayList.SubList@Integer@Integer
+<copy TJclArrayList.SubList@Integer@Integer>
+\ \
+@@TJclAnsiStrArrayList
+<copy TJclArrayList>
+\ \
+
+@@!!MEMBEROVERVIEW_TJclAnsiStrArrayList
+<copy !!MEMBEROVERVIEW_TJclArrayList>
+\ \
+
+@@TJclAnsiStrArrayList.Add@AnsiString
+<copy TJclArrayList.Add@TObject>
+\ \
+
+@@TJclAnsiStrArrayList.AddAll@IJclAnsiStrCollection
+<copy TJclArrayList.AddAll@IJclCollection>
+\ \
+
+@@TJclAnsiStrArrayList.AssignDataTo@TJclAbstractContainerBase
+<copy TJclArrayList.AssignDataTo@TJclAbstractContainerBase>
+\ \
+
+@@TJclAnsiStrArrayList.Clear
+<copy TJclArrayList.Clear>
+\ \
+
+@@TJclAnsiStrArrayList.CollectionEquals@IJclAnsiStrCollection
+<copy TJclArrayList.CollectionEquals@IJclCollection>
+\ \
+
+@@TJclAnsiStrArrayList.Contains@AnsiString
+<copy TJclArrayList.Contains@TObject>
+\ \
+
+@@TJclAnsiStrArrayList.ContainsAll@IJclAnsiStrCollection
+<copy TJclArrayList.ContainsAll@IJclCollection>
+\ \
+
+@@TJclAnsiStrArrayList.Create@IJclAnsiStrCollection
+<copy TJclArrayList.Create@IJclCollection@Boolean>
+\ \
+
+@@TJclAnsiStrArrayList.Create@Integer
+<copy TJclArrayList.Create@Integer@Boolean>
+\ \
+
+@@TJclAnsiStrArrayList.CreateEmptyContainer
+<copy TJclArrayList.CreateEmptyContainer>
+\ \
+
+@@TJclAnsiStrArrayList.Delete@Integer
+<copy TJclArrayList.Delete@Integer>
+\ \
+
+@@TJclAnsiStrArrayList.Destroy
+<copy TJclArrayList.Destroy>
+\ \
+
+@@TJclAnsiStrArrayList.Extract@AnsiString
+<copy TJclArrayList.Extract@TObject>
+\ \
+
+@@TJclAnsiStrArrayList.ExtractAll@IJclAnsiStrCollection
+<copy TJclArrayList.ExtractAll@IJclCollection>
+\ \
+
+@@TJclAnsiStrArrayList.ExtractIndex@Integer
+<copy TJclArrayList.ExtractIndex@Integer>
+\ \
+
+@@TJclAnsiStrArrayList.First
+<copy TJclArrayList.First>
+\ \
+
+@@TJclAnsiStrArrayList.GetEnumerator
+<copy TJclArrayList.GetEnumerator>
+\ \
+
+@@TJclAnsiStrArrayList.GetString@Integer
+<copy TJclArrayList.GetObject@Integer>
+\ \
+
+@@TJclAnsiStrArrayList.IndexOf@AnsiString
+<copy TJclArrayList.IndexOf@TObject>
+\ \
+
+@@TJclAnsiStrArrayList.Insert@Integer@AnsiString
+<copy TJclArrayList.Insert@Integer@TObject>
+\ \
+
+@@TJclAnsiStrArrayList.InsertAll@Integer@IJclAnsiStrCollection
+<copy TJclArrayList.InsertAll@Integer@IJclCollection>
+\ \
+
+@@TJclAnsiStrArrayList.IsEmpty
+<copy TJclArrayList.IsEmpty>
+\ \
+
+@@TJclAnsiStrArrayList.Last
+<copy TJclArrayList.Last>
+\ \
+
+@@TJclAnsiStrArrayList.LastIndexOf@AnsiString
+<copy TJclArrayList.LastIndexOf@TObject>
+\ \
+
+@@TJclAnsiStrArrayList.Remove@AnsiString
+<copy TJclArrayList.Remove@TObject>
+\ \
+
+@@TJclAnsiStrArrayList.RemoveAll@IJclAnsiStrCollection
+<copy TJclArrayList.RemoveAll@IJclCollection>
+\ \
+
+@@TJclAnsiStrArrayList.RetainAll@IJclAnsiStrCollection
+<copy TJclArrayList.RetainAll@IJclCollection>
+\ \
+
+@@TJclAnsiStrArrayList.SetCapacity@Integer
+<copy TJclArrayList.SetCapacity@Integer>
+\ \
+
+@@TJclAnsiStrArrayList.SetString@Integer@AnsiString
+<copy TJclArrayList.SetObject@Integer@TObject>
+\ \
+
+@@TJclAnsiStrArrayList.Size
+<copy TJclArrayList.Size>
+\ \
+
+@@TJclAnsiStrArrayList.SubList@Integer@Integer
+<copy TJclArrayList.SubList@Integer@Integer>
+\ \
+@@TJclWideStrArrayList
+<copy TJclArrayList>
+\ \
+
+@@!!MEMBEROVERVIEW_TJclWideStrArrayList
+<copy !!MEMBEROVERVIEW_TJclArrayList>
+\ \
+
+@@TJclWideStrArrayList.Add@WideString
+<copy TJclArrayList.Add@TObject>
+\ \
+
+@@TJclWideStrArrayList.AddAll@IJclWideStrCollection
+<copy TJclArrayList.AddAll@IJclCollection>
+\ \
+
+@@TJclWideStrArrayList.AssignDataTo@TJclAbstractContainerBase
+<copy TJclArrayList.AssignDataTo@TJclAbstractContainerBase>
+\ \
+
+@@TJclWideStrArrayList.Clear
+<copy TJclArrayList.Clear>
+\ \
+
+@@TJclWideStrArrayList.CollectionEquals@IJclWideStrCollection
+<copy TJclArrayList.CollectionEquals@IJclCollection>
+\ \
+
+@@TJclWideStrArrayList.Contains@WideString
+<copy TJclArrayList.Contains@TObject>
+\ \
+
+@@TJclWideStrArrayList.ContainsAll@IJclWideStrCollection
+<copy TJclArrayList.ContainsAll@IJclCollection>
+\ \
+
+@@TJclWideStrArrayList.Create@IJclWideStrCollection
+<copy TJclArrayList.Create@IJclCollection@Boolean>
+\ \
+
+@@TJclWideStrArrayList.Create@Integer
+<copy TJclArrayList.Create@Integer@Boolean>
+\ \
+
+@@TJclWideStrArrayList.CreateEmptyContainer
+<copy TJclArrayList.CreateEmptyContainer>
+\ \
+
+@@TJclWideStrArrayList.Delete@Integer
+<copy TJclArrayList.Delete@Integer>
+\ \
+
+@@TJclWideStrArrayList.Destroy
+<copy TJclArrayList.Destroy>
+\ \
+
+@@TJclWideStrArrayList.Extract@WideString
+<copy TJclArrayList.Extract@TObject>
+\ \
+
+@@TJclWideStrArrayList.ExtractAll@IJclWideStrCollection
+<copy TJclArrayList.ExtractAll@IJclCollection>
+\ \
+
+@@TJclWideStrArrayList.ExtractIndex@Integer
+<copy TJclArrayList.ExtractIndex@Integer>
+\ \
+
+@@TJclWideStrArrayList.First
+<copy TJclArrayList.First>
+\ \
+
+@@TJclWideStrArrayList.GetEnumerator
+<copy TJclArrayList.GetEnumerator>
+\ \
+
+@@TJclWideStrArrayList.GetString@Integer
+<copy TJclArrayList.GetObject@Integer>
+\ \
+
+@@TJclWideStrArrayList.IndexOf@WideString
+<copy TJclArrayList.IndexOf@TObject>
+\ \
+
+@@TJclWideStrArrayList.Insert@Integer@WideString
+<copy TJclArrayList.Insert@Integer@TObject>
+\ \
+
+@@TJclWideStrArrayList.InsertAll@Integer@IJclWideStrCollection
+<copy TJclArrayList.InsertAll@Integer@IJclCollection>
+\ \
+
+@@TJclWideStrArrayList.IsEmpty
+<copy TJclArrayList.IsEmpty>
+\ \
+
+@@TJclWideStrArrayList.Last
+<copy TJclArrayList.Last>
+\ \
+
+@@TJclWideStrArrayList.LastIndexOf@WideString
+<copy TJclArrayList.LastIndexOf@TObject>
+\ \
+
+@@TJclWideStrArrayList.Remove@WideString
+<copy TJclArrayList.Remove@TObject>
+\ \
+
+@@TJclWideStrArrayList.RemoveAll@IJclWideStrCollection
+<copy TJclArrayList.RemoveAll@IJclCollection>
+\ \
+
+@@TJclWideStrArrayList.RetainAll@IJclWideStrCollection
+<copy TJclArrayList.RetainAll@IJclCollection>
+\ \
+
+@@TJclWideStrArrayList.SetCapacity@Integer
+<copy TJclArrayList.SetCapacity@Integer>
+\ \
+
+@@TJclWideStrArrayList.SetString@Integer@WideString
+<copy TJclArrayList.SetObject@Integer@TObject>
+\ \
+
+@@TJclWideStrArrayList.Size
+<copy TJclArrayList.Size>
+\ \
+
+@@TJclWideStrArrayList.SubList@Integer@Integer
+<copy TJclArrayList.SubList@Integer@Integer>
+\ \
+@@TJclUnicodeStrArrayList
+<copy TJclArrayList>
+\ \
+
+@@!!MEMBEROVERVIEW_TJclUnicodeStrArrayList
+<copy !!MEMBEROVERVIEW_TJclArrayList>
+\ \
+
+@@TJclUnicodeStrArrayList.Add@UnicodeString
+<copy TJclArrayList.Add@TObject>
+\ \
+
+@@TJclUnicodeStrArrayList.AddAll@IJclUnicodeStrCollection
+<copy TJclArrayList.AddAll@IJclCollection>
+\ \
+
+@@TJclUnicodeStrArrayList.AssignDataTo@TJclAbstractContainerBase
+<copy TJclArrayList.AssignDataTo@TJclAbstractContainerBase>
+\ \
+
+@@TJclUnicodeStrArrayList.Clear
+<copy TJclArrayList.Clear>
+\ \
+
+@@TJclUnicodeStrArrayList.CollectionEquals@IJclUnicodeStrCollection
+<copy TJclArrayList.CollectionEquals@IJclCollection>
+\ \
+
+@@TJclUnicodeStrArrayList.Contains@UnicodeString
+<copy TJclArrayList.Contains@TObject>
+\ \
+
+@@TJclUnicodeStrArrayList.ContainsAll@IJclUnicodeStrCollection
+<copy TJclArrayList.ContainsAll@IJclCollection>
+\ \
+
+@@TJclUnicodeStrArrayList.Create@IJclUnicodeStrCollection
+<copy TJclArrayList.Create@IJclCollection@Boolean>
+\ \
+
+@@TJclUnicodeStrArrayList.Create@Integer
+<copy TJclArrayList.Create@Integer@Boolean>
+\ \
+
+@@TJclUnicodeStrArrayList.CreateEmptyContainer
+<copy TJclArrayList.CreateEmptyContainer>
+\ \
+
+@@TJclUnicodeStrArrayList.Delete@Integer
+<copy TJclArrayList.Delete@Integer>
+\ \
+
+@@TJclUnicodeStrArrayList.Destroy
+<copy TJclArrayList.Destroy>
+\ \
+
+@@TJclUnicodeStrArrayList.Extract@UnicodeString
+<copy TJclArrayList.Extract@TObject>
+\ \
+
+@@TJclUnicodeStrArrayList.ExtractAll@IJclUnicodeStrCollection
+<copy TJclArrayList.ExtractAll@IJclCollection>
+\ \
+
+@@TJclUnicodeStrArrayList.ExtractIndex@Integer
+<copy TJclArrayList.ExtractIndex@Integer>
+\ \
+
+@@TJclUnicodeStrArrayList.First
+<copy TJclArrayList.First>
+\ \
+
+@@TJclUnicodeStrArrayList.GetEnumerator
+<copy TJclArrayList.GetEnumerator>
+\ \
+
+@@TJclUnicodeStrArrayList.GetString@Integer
+<copy TJclArrayList.GetObject@Integer>
+\ \
+
+@@TJclUnicodeStrArrayList.IndexOf@UnicodeString
+<copy TJclArrayList.IndexOf@TObject>
+\ \
+
+@@TJclUnicodeStrArrayList.Insert@Integer@UnicodeString
+<copy TJclArrayList.Insert@Integer@TObject>
+\ \
+
+@@TJclUnicodeStrArrayList.InsertAll@Integer@IJclUnicodeStrCollection
+<copy TJclArrayList.InsertAll@Integer@IJclCollection>
+\ \
+
+@@TJclUnicodeStrArrayList.IsEmpty
+<copy TJclArrayList.IsEmpty>
+\ \
+
+@@TJclUnicodeStrArrayList.Last
+<copy TJclArrayList.Last>
+\ \
+
+@@TJclUnicodeStrArrayList.LastIndexOf@UnicodeString
+<copy TJclArrayList.LastIndexOf@TObject>
+\ \
+
+@@TJclUnicodeStrArrayList.Remove@UnicodeString
+<copy TJclArrayList.Remove@TObject>
+\ \
+
+@@TJclUnicodeStrArrayList.RemoveAll@IJclUnicodeStrCollection
+<copy TJclArrayList.RemoveAll@IJclCollection>
+\ \
+
+@@TJclUnicodeStrArrayList.RetainAll@IJclUnicodeStrCollection
+<copy TJclArrayList.RetainAll@IJclCollection>
+\ \
+
+@@TJclUnicodeStrArrayList.SetCapacity@Integer
+<copy TJclArrayList.SetCapacity@Integer>
+\ \
+
+@@TJclUnicodeStrArrayList.SetString@Integer@UnicodeString
+<copy TJclArrayList.SetObject@Integer@TObject>
+\ \
+
+@@TJclUnicodeStrArrayList.Size
+<copy TJclArrayList.Size>
+\ \
+
+@@TJclUnicodeStrArrayList.SubList@Integer@Integer
+<copy TJclArrayList.SubList@Integer@Integer>
+\ \
+@@TJclSingleArrayList
+<copy TJclArrayList>
+\ \
+
+@@!!MEMBEROVERVIEW_TJclSingleArrayList
+<copy !!MEMBEROVERVIEW_TJclArrayList>
+\ \
+
+@@TJclSingleArrayList.Add@Single
+<copy TJclArrayList.Add@TObject>
+\ \
+
+@@TJclSingleArrayList.AddAll@IJclSingleCollection
+<copy TJclArrayList.AddAll@IJclCollection>
+\ \
+
+@@TJclSingleArrayList.AssignDataTo@TJclAbstractContainerBase
+<copy TJclArrayList.AssignDataTo@TJclAbstractContainerBase>
+\ \
+
+@@TJclSingleArrayList.Clear
+<copy TJclArrayList.Clear>
+\ \
+
+@@TJclSingleArrayList.CollectionEquals@IJclSingleCollection
+<copy TJclArrayList.CollectionEquals@IJclCollection>
+\ \
+
+@@TJclSingleArrayList.Contains@Single
+<copy TJclArrayList.Contains@TObject>
+\ \
+
+@@TJclSingleArrayList.ContainsAll@IJclSingleCollection
+<copy TJclArrayList.ContainsAll@IJclCollection>
+\ \
+
+@@TJclSingleArrayList.Create@IJclSingleCollection
+<copy TJclArrayList.Create@IJclCollection@Boolean>
+\ \
+
+@@TJclSingleArrayList.Create@Integer
+<copy TJclArrayList.Create@Integer@Boolean>
+\ \
+
+@@TJclSingleArrayList.CreateEmptyContainer
+<copy TJclArrayList.CreateEmptyContainer>
+\ \
+
+@@TJclSingleArrayList.Delete@Integer
+<copy TJclArrayList.Delete@Integer>
+\ \
+
+@@TJclSingleArrayList.Destroy
+<copy TJclArrayList.Destroy>
+\ \
+
+@@TJclSingleArrayList.Extract@Single
+<copy TJclArrayList.Extract@TObject>
+\ \
+
+@@TJclSingleArrayList.ExtractAll@IJclSingleCollection
+<copy TJclArrayList.ExtractAll@IJclCollection>
+\ \
+
+@@TJclSingleArrayList.ExtractIndex@Integer
+<copy TJclArrayList.ExtractIndex@Integer>
+\ \
+
+@@TJclSingleArrayList.First
+<copy TJclArrayList.First>
+\ \
+
+@@TJclSingleArrayList.GetEnumerator
+<copy TJclArrayList.GetEnumerator>
+\ \
+
+@@TJclSingleArrayList.GetValue@Integer
+<copy TJclArrayList.GetObject@Integer>
+\ \
+
+@@TJclSingleArrayList.IndexOf@Single
+<copy TJclArrayList.IndexOf@TObject>
+\ \
+
+@@TJclSingleArrayList.Insert@Integer@Single
+<copy TJclArrayList.Insert@Integer@TObject>
+\ \
+
+@@TJclSingleArrayList.InsertAll@Integer@IJclSingleCollection
+<copy TJclArrayList.InsertAll@Integer@IJclCollection>
+\ \
+
+@@TJclSingleArrayList.IsEmpty
+<copy TJclArrayList.IsEmpty>
+\ \
+
+@@TJclSingleArrayList.Last
+<copy TJclArrayList.Last>
+\ \
+
+@@TJclSingleArrayList.LastIndexOf@Single
+<copy TJclArrayList.LastIndexOf@TObject>
+\ \
+
+@@TJclSingleArrayList.Remove@Single
+<copy TJclArrayList.Remove@TObject>
+\ \
+
+@@TJclSingleArrayList.RemoveAll@IJclSingleCollection
+<copy TJclArrayList.RemoveAll@IJclCollection>
+\ \
+
+@@TJclSingleArrayList.RetainAll@IJclSingleCollection
+<copy TJclArrayList.RetainAll@IJclCollection>
+\ \
+
+@@TJclSingleArrayList.SetCapacity@Integer
+<copy TJclArrayList.SetCapacity@Integer>
+\ \
+
+@@TJclSingleArrayList.SetValue@Integer@Single
+<copy TJclArrayList.SetObject@Integer@TObject>
+\ \
+
+@@TJclSingleArrayList.Size
+<copy TJclArrayList.Size>
+\ \
+
+@@TJclSingleArrayList.SubList@Integer@Integer
+<copy TJclArrayList.SubList@Integer@Integer>
+\ \
+@@TJclDoubleArrayList
+<copy TJclArrayList>
+\ \
+
+@@!!MEMBEROVERVIEW_TJclDoubleArrayList
+<copy !!MEMBEROVERVIEW_TJclArrayList>
+\ \
+
+@@TJclDoubleArrayList.Add@Double
+<copy TJclArrayList.Add@TObject>
+\ \
+
+@@TJclDoubleArrayList.AddAll@IJclDoubleCollection
+<copy TJclArrayList.AddAll@IJclCollection>
+\ \
+
+@@TJclDoubleArrayList.AssignDataTo@TJclAbstractContainerBase
+<copy TJclArrayList.AssignDataTo@TJclAbstractContainerBase>
+\ \
+
+@@TJclDoubleArrayList.Clear
+<copy TJclArrayList.Clear>
+\ \
+
+@@TJclDoubleArrayList.CollectionEquals@IJclDoubleCollection
+<copy TJclArrayList.CollectionEquals@IJclCollection>
+\ \
+
+@@TJclDoubleArrayList.Contains@Double
+<copy TJclArrayList.Contains@TObject>
+\ \
+
+@@TJclDoubleArrayList.ContainsAll@IJclDoubleCollection
+<copy TJclArrayList.ContainsAll@IJclCollection>
+\ \
+
+@@TJclDoubleArrayList.Create@IJclDoubleCollection
+<copy TJclArrayList.Create@IJclCollection@Boolean>
+\ \
+
+@@TJclDoubleArrayList.Create@Integer
+<copy TJclArrayList.Create@Integer@Boolean>
+\ \
+
+@@TJclDoubleArrayList.CreateEmptyContainer
+<copy TJclArrayList.CreateEmptyContainer>
+\ \
+
+@@TJclDoubleArrayList.Delete@Integer
+<copy TJclArrayList.Delete@Integer>
+\ \
+
+@@TJclDoubleArrayList.Destroy
+<copy TJclArrayList.Destroy>
+\ \
+
+@@TJclDoubleArrayList.Extract@Double
+<copy TJclArrayList.Extract@TObject>
+\ \
+
+@@TJclDoubleArrayList.ExtractAll@IJclDoubleCollection
+<copy TJclArrayList.ExtractAll@IJclCollection>
+\ \
+
+@@TJclDoubleArrayList.ExtractIndex@Integer
+<copy TJclArrayList.ExtractIndex@Integer>
+\ \
+
+@@TJclDoubleArrayList.First
+<copy TJclArrayList.First>
+\ \
+
+@@TJclDoubleArrayList.GetEnumerator
+<copy TJclArrayList.GetEnumerator>
+\ \
+
+@@TJclDoubleArrayList.GetValue@Integer
+<copy TJclArrayList.GetObject@Integer>
+\ \
+
+@@TJclDoubleArrayList.IndexOf@Double
+<copy TJclArrayList.IndexOf@TObject>
+\ \
+
+@@TJclDoubleArrayList.Insert@Integer@Double
+<copy TJclArrayList.Insert@Integer@TObject>
+\ \
+
+@@TJclDoubleArrayList.InsertAll@Integer@IJclDoubleCollection
+<copy TJclArrayList.InsertAll@Integer@IJclCollection>
+\ \
+
+@@TJclDoubleArrayList.IsEmpty
+<copy TJclArrayList.IsEmpty>
+\ \
+
+@@TJclDoubleArrayList.Last
+<copy TJclArrayList.Last>
+\ \
+
+@@TJclDoubleArrayList.LastIndexOf@Double
+<copy TJclArrayList.LastIndexOf@TObject>
+\ \
+
+@@TJclDoubleArrayList.Remove@Double
+<copy TJclArrayList.Remove@TObject>
+\ \
+
+@@TJclDoubleArrayList.RemoveAll@IJclDoubleCollection
+<copy TJclArrayList.RemoveAll@IJclCollection>
+\ \
+
+@@TJclDoubleArrayList.RetainAll@IJclDoubleCollection
+<copy TJclArrayList.RetainAll@IJclCollection>
+\ \
+
+@@TJclDoubleArrayList.SetCapacity@Integer
+<copy TJclArrayList.SetCapacity@Integer>
+\ \
+
+@@TJclDoubleArrayList.SetValue@Integer@Double
+<copy TJclArrayList.SetObject@Integer@TObject>
+\ \
+
+@@TJclDoubleArrayList.Size
+<copy TJclArrayList.Size>
+\ \
+
+@@TJclDoubleArrayList.SubList@Integer@Integer
+<copy TJclArrayList.SubList@Integer@Integer>
+\ \
+@@TJclExtendedArrayList
+<copy TJclArrayList>
+\ \
+
+@@!!MEMBEROVERVIEW_TJclExtendedArrayList
+<copy !!MEMBEROVERVIEW_TJclArrayList>
+\ \
+
+@@TJclExtendedArrayList.Add@Extended
+<copy TJclArrayList.Add@TObject>
+\ \
+
+@@TJclExtendedArrayList.AddAll@IJclExtendedCollection
+<copy TJclArrayList.AddAll@IJclCollection>
+\ \
+
+@@TJclExtendedArrayList.AssignDataTo@TJclAbstractContainerBase
+<copy TJclArrayList.AssignDataTo@TJclAbstractContainerBase>
+\ \
+
+@@TJclExtendedArrayList.Clear
+<copy TJclArrayList.Clear>
+\ \
+
+@@TJclExtendedArrayList.CollectionEquals@IJclExtendedCollection
+<copy TJclArrayList.CollectionEquals@IJclCollection>
+\ \
+
+@@TJclExtendedArrayList.Contains@Extended
+<copy TJclArrayList.Contains@TObject>
+\ \
+
+@@TJclExtendedArrayList.ContainsAll@IJclExtendedCollection
+<copy TJclArrayList.ContainsAll@IJclCollection>
+\ \
+
+@@TJclExtendedArrayList.Create@IJclExtendedCollection
+<copy TJclArrayList.Create@IJclCollection@Boolean>
+\ \
+
+@@TJclExtendedArrayList.Create@Integer
+<copy TJclArrayList.Create@Integer@Boolean>
+\ \
+
+@@TJclExtendedArrayList.CreateEmptyContainer
+<copy TJclArrayList.CreateEmptyContainer>
+\ \
+
+@@TJclExtendedArrayList.Delete@Integer
+<copy TJclArrayList.Delete@Integer>
+\ \
+
+@@TJclExtendedArrayList.Destroy
+<copy TJclArrayList.Destroy>
+\ \
+
+@@TJclExtendedArrayList.Extract@Extended
+<copy TJclArrayList.Extract@TObject>
+\ \
+
+@@TJclExtendedArrayList.ExtractAll@IJclExtendedCollection
+<copy TJclArrayList.ExtractAll@IJclCollection>
+\ \
+
+@@TJclExtendedArrayList.ExtractIndex@Integer
+<copy TJclArrayList.ExtractIndex@Integer>
+\ \
+
+@@TJclExtendedArrayList.First
+<copy TJclArrayList.First>
+\ \
+
+@@TJclExtendedArrayList.GetEnumerator
+<copy TJclArrayList.GetEnumerator>
+\ \
+
+@@TJclExtendedArrayList.GetValue@Integer
+<copy TJclArrayList.GetObject@Integer>
+\ \
+
+@@TJclExtendedArrayList.IndexOf@Extended
+<copy TJclArrayList.IndexOf@TObject>
+\ \
+
+@@TJclExtendedArrayList.Insert@Integer@Extended
+<copy TJclArrayList.Insert@Integer@TObject>
+\ \
+
+@@TJclExtendedArrayList.InsertAll@Integer@IJclExtendedCollection
+<copy TJclArrayList.InsertAll@Integer@IJclCollection>
+\ \
+
+@@TJclExtendedArrayList.IsEmpty
+<copy TJclArrayList.IsEmpty>
+\ \
+
+@@TJclExtendedArrayList.Last
+<copy TJclArrayList.Last>
+\ \
+
+@@TJclExtendedArrayList.LastIndexOf@Extended
+<copy TJclArrayList.LastIndexOf@TObject>
+\ \
+
+@@TJclExtendedArrayList.Remove@Extended
+<copy TJclArrayList.Remove@TObject>
+\ \
+
+@@TJclExtendedArrayList.RemoveAll@IJclExtendedCollection
+<copy TJclArrayList.RemoveAll@IJclCollection>
+\ \
+
+@@TJclExtendedArrayList.RetainAll@IJclExtendedCollection
+<copy TJclArrayList.RetainAll@IJclCollection>
+\ \
+
+@@TJclExtendedArrayList.SetCapacity@Integer
+<copy TJclArrayList.SetCapacity@Integer>
+\ \
+
+@@TJclExtendedArrayList.SetValue@Integer@Extended
+<copy TJclArrayList.SetObject@Integer@TObject>
+\ \
+
+@@TJclExtendedArrayList.Size
+<copy TJclArrayList.Size>
+\ \
+
+@@TJclExtendedArrayList.SubList@Integer@Integer
+<copy TJclArrayList.SubList@Integer@Integer>
+\ \
+@@TJclIntegerArrayList
+<copy TJclArrayList>
+\ \
+
+@@!!MEMBEROVERVIEW_TJclIntegerArrayList
+<copy !!MEMBEROVERVIEW_TJclArrayList>
+\ \
+
+@@TJclIntegerArrayList.Add@Integer
+<copy TJclArrayList.Add@TObject>
+\ \
+
+@@TJclIntegerArrayList.AddAll@IJclIntegerCollection
+<copy TJclArrayList.AddAll@IJclCollection>
+\ \
+
+@@TJclIntegerArrayList.AssignDataTo@TJclAbstractContainerBase
+<copy TJclArrayList.AssignDataTo@TJclAbstractContainerBase>
+\ \
+
+@@TJclIntegerArrayList.Clear
+<copy TJclArrayList.Clear>
+\ \
+
+@@TJclIntegerArrayList.CollectionEquals@IJclIntegerCollection
+<copy TJclArrayList.CollectionEquals@IJclCollection>
+\ \
+
+@@TJclIntegerArrayList.Contains@Integer
+<copy TJclArrayList.Contains@TObject>
+\ \
+
+@@TJclIntegerArrayList.ContainsAll@IJclIntegerCollection
+<copy TJclArrayList.ContainsAll@IJclCollection>
+\ \
+
+@@TJclIntegerArrayList.Create@IJclIntegerCollection
+<copy TJclArrayList.Create@IJclCollection@Boolean>
+\ \
+
+@@TJclIntegerArrayList.Create@Integer
+<copy TJclArrayList.Create@Integer@Boolean>
+\ \
+
+@@TJclIntegerArrayList.CreateEmptyContainer
+<copy TJclArrayList.CreateEmptyContainer>
+\ \
+
+@@TJclIntegerArrayList.Delete@Integer
+<copy TJclArrayList.Delete@Integer>
+\ \
+
+@@TJclIntegerArrayList.Destroy
+<copy TJclArrayList.Destroy>
+\ \
+
+@@TJclIntegerArrayList.Extract@Integer
+<copy TJclArrayList.Extract@TObject>
+\ \
+
+@@TJclIntegerArrayList.ExtractAll@IJclIntegerCollection
+<copy TJclArrayList.ExtractAll@IJclCollection>
+\ \
+
+@@TJclIntegerArrayList.ExtractIndex@Integer
+<copy TJclArrayList.ExtractIndex@Integer>
+\ \
+
+@@TJclIntegerArrayList.First
+<copy TJclArrayList.First>
+\ \
+
+@@TJclIntegerArrayList.GetEnumerator
+<copy TJclArrayList.GetEnumerator>
+\ \
+
+@@TJclIntegerArrayList.GetValue@Integer
+<copy TJclArrayList.GetObject@Integer>
+\ \
+
+@@TJclIntegerArrayList.IndexOf@Integer
+<copy TJclArrayList.IndexOf@TObject>
+\ \
+
+@@TJclIntegerArrayList.Insert@Integer@Integer
+<copy TJclArrayList.Insert@Integer@TObject>
+\ \
+
+@@TJclIntegerArrayList.InsertAll@Integer@IJclIntegerCollection
+<copy TJclArrayList.InsertAll@Integer@IJclCollection>
+\ \
+
+@@TJclIntegerArrayList.IsEmpty
+<copy TJclArrayList.IsEmpty>
+\ \
+
+@@TJclIntegerArrayList.Last
+<copy TJclArrayList.Last>
+\ \
+
+@@TJclIntegerArrayList.LastIndexOf@Integer
+<copy TJclArrayList.LastIndexOf@TObject>
+\ \
+
+@@TJclIntegerArrayList.Remove@Integer
+<copy TJclArrayList.Remove@TObject>
+\ \
+
+@@TJclIntegerArrayList.RemoveAll@IJclIntegerCollection
+<copy TJclArrayList.RemoveAll@IJclCollection>
+\ \
+
+@@TJclIntegerArrayList.RetainAll@IJclIntegerCollection
+<copy TJclArrayList.RetainAll@IJclCollection>
+\ \
+
+@@TJclIntegerArrayList.SetCapacity@Integer
+<copy TJclArrayList.SetCapacity@Integer>
+\ \
+
+@@TJclIntegerArrayList.SetValue@Integer@Integer
+<copy TJclArrayList.SetObject@Integer@TObject>
+\ \
+
+@@TJclIntegerArrayList.Size
+<copy TJclArrayList.Size>
+\ \
+
+@@TJclIntegerArrayList.SubList@Integer@Integer
+<copy TJclArrayList.SubList@Integer@Integer>
+\ \
+@@TJclCardinalArrayList
+<copy TJclArrayList>
+\ \
+
+@@!!MEMBEROVERVIEW_TJclCardinalArrayList
+<copy !!MEMBEROVERVIEW_TJclArrayList>
+\ \
+
+@@TJclCardinalArrayList.Add@Cardinal
+<copy TJclArrayList.Add@TObject>
+\ \
+
+@@TJclCardinalArrayList.AddAll@IJclCardinalCollection
+<copy TJclArrayList.AddAll@IJclCollection>
+\ \
+
+@@TJclCardinalArrayList.AssignDataTo@TJclAbstractContainerBase
+<copy TJclArrayList.AssignDataTo@TJclAbstractContainerBase>
+\ \
+
+@@TJclCardinalArrayList.Clear
+<copy TJclArrayList.Clear>
+\ \
+
+@@TJclCardinalArrayList.CollectionEquals@IJclCardinalCollection
+<copy TJclArrayList.CollectionEquals@IJclCollection>
+\ \
+
+@@TJclCardinalArrayList.Contains@Cardinal
+<copy TJclArrayList.Contains@TObject>
+\ \
+
+@@TJclCardinalArrayList.ContainsAll@IJclCardinalCollection
+<copy TJclArrayList.ContainsAll@IJclCollection>
+\ \
+
+@@TJclCardinalArrayList.Create@IJclCardinalCollection
+<copy TJclArrayList.Create@IJclCollection@Boolean>
+\ \
+
+@@TJclCardinalArrayList.Create@Integer
+<copy TJclArrayList.Create@Integer@Boolean>
+\ \
+
+@@TJclCardinalArrayList.CreateEmptyContainer
+<copy TJclArrayList.CreateEmptyContainer>
+\ \
+
+@@TJclCardinalArrayList.Delete@Integer
+<copy TJclArrayList.Delete@Integer>
+\ \
+
+@@TJclCardinalArrayList.Destroy
+<copy TJclArrayList.Destroy>
+\ \
+
+@@TJclCardinalArrayList.Extract@Cardinal
+<copy TJclArrayList.Extract@TObject>
+\ \
+
+@@TJclCardinalArrayList.ExtractAll@IJclCardinalCollection
+<copy TJclArrayList.ExtractAll@IJclCollection>
+\ \
+
+@@TJclCardinalArrayList.ExtractIndex@Integer
+<copy TJclArrayList.ExtractIndex@Integer>
+\ \
+
+@@TJclCardinalArrayList.First
+<copy TJclArrayList.First>
+\ \
+
+@@TJclCardinalArrayList.GetEnumerator
+<copy TJclArrayList.GetEnumerator>
+\ \
+
+@@TJclCardinalArrayList.GetValue@Integer
+<copy TJclArrayList.GetObject@Integer>
+\ \
+
+@@TJclCardinalArrayList.IndexOf@Cardinal
+<copy TJclArrayList.IndexOf@TObject>
+\ \
+
+@@TJclCardinalArrayList.Insert@Integer@Cardinal
+<copy TJclArrayList.Insert@Integer@TObject>
+\ \
+
+@@TJclCardinalArrayList.InsertAll@Integer@IJclCardinalCollection
+<copy TJclArrayList.InsertAll@Integer@IJclCollection>
+\ \
+
+@@TJclCardinalArrayList.IsEmpty
+<copy TJclArrayList.IsEmpty>
+\ \
+
+@@TJclCardinalArrayList.Last
+<copy TJclArrayList.Last>
+\ \
+
+@@TJclCardinalArrayList.LastIndexOf@Cardinal
+<copy TJclArrayList.LastIndexOf@TObject>
+\ \
+
+@@TJclCardinalArrayList.Remove@Cardinal
+<copy TJclArrayList.Remove@TObject>
+\ \
+
+@@TJclCardinalArrayList.RemoveAll@IJclCardinalCollection
+<copy TJclArrayList.RemoveAll@IJclCollection>
+\ \
+
+@@TJclCardinalArrayList.RetainAll@IJclCardinalCollection
+<copy TJclArrayList.RetainAll@IJclCollection>
+\ \
+
+@@TJclCardinalArrayList.SetCapacity@Integer
+<copy TJclArrayList.SetCapacity@Integer>
+\ \
+
+@@TJclCardinalArrayList.SetValue@Integer@Cardinal
+<copy TJclArrayList.SetObject@Integer@TObject>
+\ \
+
+@@TJclCardinalArrayList.Size
+<copy TJclArrayList.Size>
+\ \
+
+@@TJclCardinalArrayList.SubList@Integer@Integer
+<copy TJclArrayList.SubList@Integer@Integer>
+\ \
+@@TJclInt64ArrayList
+<copy TJclArrayList>
+\ \
+
+@@!!MEMBEROVERVIEW_TJclInt64ArrayList
+<copy !!MEMBEROVERVIEW_TJclArrayList>
+\ \
+
+@@TJclInt64ArrayList.Add@Int64
+<copy TJclArrayList.Add@TObject>
+\ \
+
+@@TJclInt64ArrayList.AddAll@IJclInt64Collection
+<copy TJclArrayList.AddAll@IJclCollection>
+\ \
+
+@@TJclInt64ArrayList.AssignDataTo@TJclAbstractContainerBase
+<copy TJclArrayList.AssignDataTo@TJclAbstractContainerBase>
+\ \
+
+@@TJclInt64ArrayList.Clear
+<copy TJclArrayList.Clear>
+\ \
+
+@@TJclInt64ArrayList.CollectionEquals@IJclInt64Collection
+<copy TJclArrayList.CollectionEquals@IJclCollection>
+\ \
+
+@@TJclInt64ArrayList.Contains@Int64
+<copy TJclArrayList.Contains@TObject>
+\ \
+
+@@TJclInt64ArrayList.ContainsAll@IJclInt64Collection
+<copy TJclArrayList.ContainsAll@IJclCollection>
+\ \
+
+@@TJclInt64ArrayList.Create@IJclInt64Collection
+<copy TJclArrayList.Create@IJclCollection@Boolean>
+\ \
+
+@@TJclInt64ArrayList.Create@Integer
+<copy TJclArrayList.Create@Integer@Boolean>
+\ \
+
+@@TJclInt64ArrayList.CreateEmptyContainer
+<copy TJclArrayList.CreateEmptyContainer>
+\ \
+
+@@TJclInt64ArrayList.Delete@Integer
+<copy TJclArrayList.Delete@Integer>
+\ \
+
+@@TJclInt64ArrayList.Destroy...
 
[truncated message content]

49 messages has been excluded from this view by a project administrator.

Flat | Threaded

<< < 1 .. 19 20 21 22 23 .. 92 > >> (Page 21 of 92)