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

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 .. 80 81 82 83 84 .. 92 > >> (Page 82 of 92)

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

From: <ou...@us...> - 2006-12-30 09:16:59

Revision: 1858
          http://svn.sourceforge.net/jcl/?rev=1858&view=rev
Author:   outchy
Date:     2006-12-30 01:16:57 -0800 (Sat, 30 Dec 2006)

Log Message:
-----------
Mantis 3799 the uses expert won't work on BDS: it is not able to get compiler messages, the IDE message view control doesn't inherit from a TTreeView anymore.

Modified Paths:
--------------
    trunk/jcl/packages/c5/JclUsesExpertC50.RES
    trunk/jcl/packages/c6/JclUsesExpert.RES
    trunk/jcl/packages/resources.mak

Modified: trunk/jcl/packages/c5/JclUsesExpertC50.RES
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c6/JclUsesExpert.RES
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/resources.mak
===================================================================
--- trunk/jcl/packages/resources.mak	2006-12-30 09:08:26 UTC (rev 1857)
+++ trunk/jcl/packages/resources.mak	2006-12-30 09:16:57 UTC (rev 1858)
@@ -43,7 +43,6 @@
            cs1\JclBaseExpert.res                    \
            cs1\JclFavoriteFoldersExpertDLL.res      \
            cs1\JclVersionControlExpertDLL.res       \
-           d10\JclUsesExpert.res                    \
            d10\Jcl.res                              \
            d10\JclBaseExpert.res                    \
            d10\JclDebugExpert.res                   \
@@ -55,7 +54,6 @@
            d10\JclRepositoryExpert.res              \
            d10\JclRepositoryExpertDLL.res           \
            d10\JclSIMDViewExpert.res                \
-           d10\JclUsesExpertDLL.res                 \
            d10\JclSIMDViewExpertDLL.res             \
            d10\JclVcl.res                           \
            d10\JclThreadNameExpert.res              \
@@ -140,9 +138,7 @@
            d9\JclRepositoryExpert.res               \
            d9\JclRepositoryExpertDLL.res            \
            d9\JclSIMDViewExpert.res                 \
-           d9\JclUsesExpert.res                     \
            d9\JclSIMDViewExpertDLL.res              \
-           d9\JclUsesExpertDLL.res                  \
            d9\JclThreadNameExpert.res               \
            d9\JclVcl.res                            \
            d9\JclVersionControlExpert.res           \


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: [1857] trunk/jcl

From: <ou...@us...> - 2006-12-30 09:08:28

Revision: 1857
          http://svn.sourceforge.net/jcl/?rev=1857&view=rev
Author:   outchy
Date:     2006-12-30 01:08:26 -0800 (Sat, 30 Dec 2006)

Log Message:
-----------
Mantis 3799 the uses expert won't work on BDS: it is not able to get compiler messages, the IDE message view control doesn't inherit from a TTreeView anymore.

Modified Paths:
--------------
    trunk/jcl/install/JclInstall.pas
    trunk/jcl/packages/xml/JclUsesExpert-D.xml
    trunk/jcl/packages/xml/JclUsesExpertDLL-L.xml

Removed Paths:
-------------
    trunk/jcl/packages/d10/JclUsesExpert.bdsproj
    trunk/jcl/packages/d10/JclUsesExpert.dpk
    trunk/jcl/packages/d10/JclUsesExpert.rc
    trunk/jcl/packages/d10/JclUsesExpert.res
    trunk/jcl/packages/d10/JclUsesExpertDLL.bdsproj
    trunk/jcl/packages/d10/JclUsesExpertDLL.dpr
    trunk/jcl/packages/d10/JclUsesExpertDLL.rc
    trunk/jcl/packages/d10/JclUsesExpertDLL.res
    trunk/jcl/packages/d9/JclUsesExpert.bdsproj
    trunk/jcl/packages/d9/JclUsesExpert.dpk
    trunk/jcl/packages/d9/JclUsesExpert.rc
    trunk/jcl/packages/d9/JclUsesExpert.res
    trunk/jcl/packages/d9/JclUsesExpertDLL.RES
    trunk/jcl/packages/d9/JclUsesExpertDLL.bdsproj
    trunk/jcl/packages/d9/JclUsesExpertDLL.dpr
    trunk/jcl/packages/d9/JclUsesExpertDLL.rc

Modified: trunk/jcl/install/JclInstall.pas
===================================================================
--- trunk/jcl/install/JclInstall.pas	2006-12-30 09:04:59 UTC (rev 1856)
+++ trunk/jcl/install/JclInstall.pas	2006-12-30 09:08:26 UTC (rev 1857)
@@ -987,7 +987,8 @@
     begin
       AddOption(joExpertDebug, ExpertOptions, joExperts);
       AddOption(joExpertAnalyzer, ExpertOptions, joExperts);
-      AddOption(joExpertUses, ExpertOptions, joExperts);
+      if Target.RadToolKind <> brBorlandDevStudio then
+        AddOption(joExpertUses, ExpertOptions, joExperts);
       AddOption(joExpertSimdView, ExpertOptions, joExperts);
       AddOption(joExpertRepository, ExpertOptions, joExperts);
     end;

Deleted: trunk/jcl/packages/d10/JclUsesExpert.bdsproj
===================================================================
--- trunk/jcl/packages/d10/JclUsesExpert.bdsproj	2006-12-30 09:04:59 UTC (rev 1856)
+++ trunk/jcl/packages/d10/JclUsesExpert.bdsproj	2006-12-30 09:08:26 UTC (rev 1857)
@@ -1,163 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<BorlandProject>
-  <PersonalityInfo>
-    <Option>
-      <Option Name="Personality">Delphi.Personality</Option>
-      <Option Name="ProjectType"></Option>
-      <Option Name="Version">1.0</Option>
-      <Option Name="GUID"></Option>
-    </Option>
-  </PersonalityInfo>
-  <Delphi.Personality>
-    <Source>
-      <Source Name="MainSource">JclUsesExpert.dpk</Source>
-    </Source>
-    <FileVersion>
-      <FileVersion Name="Version">7.0</FileVersion>
-    </FileVersion>
-    <Compiler>
-      <Compiler Name="A">8</Compiler>
-      <Compiler Name="B">0</Compiler>
-      <Compiler Name="C">0</Compiler>
-      <Compiler Name="D">0</Compiler>
-      <Compiler Name="E">0</Compiler>
-      <Compiler Name="F">0</Compiler>
-      <Compiler Name="G">1</Compiler>
-      <Compiler Name="H">1</Compiler>
-      <Compiler Name="I">1</Compiler>
-      <Compiler Name="J">1</Compiler>
-      <Compiler Name="K">0</Compiler>
-      <Compiler Name="L">0</Compiler>
-      <Compiler Name="M">0</Compiler>
-      <Compiler Name="N">1</Compiler>
-      <Compiler Name="O">1</Compiler>
-      <Compiler Name="P">1</Compiler>
-      <Compiler Name="Q">0</Compiler>
-      <Compiler Name="R">1</Compiler>
-      <Compiler Name="S">0</Compiler>
-      <Compiler Name="T">0</Compiler>
-      <Compiler Name="U">0</Compiler>
-      <Compiler Name="V">1</Compiler>
-      <Compiler Name="W">0</Compiler>
-      <Compiler Name="X">1</Compiler>
-      <Compiler Name="Y">0</Compiler>
-      <Compiler Name="Z">1</Compiler>
-      <Compiler Name="ShowHints">True</Compiler>
-      <Compiler Name="ShowWarnings">True</Compiler>
-      <Compiler Name="UnitAliases"></Compiler>
-      <Compiler Name="NamespacePrefix"></Compiler>
-      <Compiler Name="GenerateDocumentation">False</Compiler>
-      <Compiler Name="DefaultNamespace"></Compiler>
-      <Compiler Name="SymbolDeprecated">True</Compiler>
-      <Compiler Name="SymbolLibrary">True</Compiler>
-      <Compiler Name="SymbolPlatform">True</Compiler>
-      <Compiler Name="SymbolExperimental">True</Compiler>
-      <Compiler Name="UnitLibrary">True</Compiler>
-      <Compiler Name="UnitPlatform">True</Compiler>
-      <Compiler Name="UnitDeprecated">True</Compiler>
-      <Compiler Name="UnitExperimental">True</Compiler>
-      <Compiler Name="HResultCompat">True</Compiler>
-      <Compiler Name="HidingMember">True</Compiler>
-      <Compiler Name="HiddenVirtual">True</Compiler>
-      <Compiler Name="Garbage">True</Compiler>
-      <Compiler Name="BoundsError">True</Compiler>
-      <Compiler Name="ZeroNilCompat">True</Compiler>
-      <Compiler Name="StringConstTruncated">True</Compiler>
-      <Compiler Name="ForLoopVarVarPar">True</Compiler>
-      <Compiler Name="TypedConstVarPar">True</Compiler>
-      <Compiler Name="AsgToTypedConst">True</Compiler>
-      <Compiler Name="CaseLabelRange">True</Compiler>
-      <Compiler Name="ForVariable">True</Compiler>
-      <Compiler Name="ConstructingAbstract">True</Compiler>
-      <Compiler Name="ComparisonFalse">True</Compiler>
-      <Compiler Name="ComparisonTrue">True</Compiler>
-      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
-      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
-      <Compiler Name="UnsupportedConstruct">True</Compiler>
-      <Compiler Name="FileOpen">True</Compiler>
-      <Compiler Name="FileOpenUnitSrc">True</Compiler>
-      <Compiler Name="BadGlobalSymbol">True</Compiler>
-      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
-      <Compiler Name="InvalidDirective">True</Compiler>
-      <Compiler Name="PackageNoLink">True</Compiler>
-      <Compiler Name="PackageThreadVar">True</Compiler>
-      <Compiler Name="ImplicitImport">True</Compiler>
-      <Compiler Name="HPPEMITIgnored">True</Compiler>
-      <Compiler Name="NoRetVal">True</Compiler>
-      <Compiler Name="UseBeforeDef">True</Compiler>
-      <Compiler Name="ForLoopVarUndef">True</Compiler>
-      <Compiler Name="UnitNameMismatch">True</Compiler>
-      <Compiler Name="NoCFGFileFound">True</Compiler>
-      <Compiler Name="MessageDirective">True</Compiler>
-      <Compiler Name="ImplicitVariants">True</Compiler>
-      <Compiler Name="UnicodeToLocale">True</Compiler>
-      <Compiler Name="LocaleToUnicode">True</Compiler>
-      <Compiler Name="ImagebaseMultiple">True</Compiler>
-      <Compiler Name="SuspiciousTypecast">True</Compiler>
-      <Compiler Name="PrivatePropAccessor">True</Compiler>
-      <Compiler Name="UnsafeType">True</Compiler>
-      <Compiler Name="UnsafeCode">True</Compiler>
-      <Compiler Name="UnsafeCast">True</Compiler>
-      <Compiler Name="OptionTruncated">True</Compiler>
-      <Compiler Name="WideCharReduced">True</Compiler>
-      <Compiler Name="DuplicatesIgnored">True</Compiler>
-      <Compiler Name="UnitInitSeq">True</Compiler>
-      <Compiler Name="LocalPInvoke">True</Compiler>
-      <Compiler Name="CodePage"></Compiler>
-    </Compiler>
-    <Linker>
-      <Linker Name="MapFile">0</Linker>
-      <Linker Name="OutputObjs">44</Linker>
-      <Linker Name="ConsoleApp">1</Linker>
-      <Linker Name="DebugInfo">False</Linker>
-      <Linker Name="RemoteSymbols">False</Linker>
-      <Linker Name="GenerateDRC">False</Linker>
-      <Linker Name="MinStackSize">16384</Linker>
-      <Linker Name="MaxStackSize">1048576</Linker>
-      <Linker Name="ImageBase">$580C0000</Linker>
-      <Linker Name="ExeDescription">JCL Uses Wizard</Linker>
-      <Linker Name="GenerateHpps">True</Linker>
-    </Linker>
-    <Directories>
-      <Directories Name="UnitOutputDir">..\..\lib\d10</Directories>
-      <Directories Name="SearchPath">..\..\lib\d10;..\..\source</Directories>
-      <Directories Name="OutputDir"></Directories>
-      <Directories Name="PackageDLLOutputDir"></Directories>
-      <Directories Name="PackageDCPOutputDir">..\..\lib\d10</Directories>
-      <Directories Name="Packages">rtl;vcl;designide;Jcl;JclBaseExpert</Directories>
-      <Directories Name="Conditionals"></Directories>
-      <Directories Name="DebugSourceDirs"></Directories>
-      <Directories Name="UsePackages">True</Directories>
-    </Directories>
-    <Parameters>
-    </Parameters>
-    <Language>
-    </Language>
-    <VersionInfo>
-      <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
-      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
-      <VersionInfo Name="MajorVer">1</VersionInfo>
-      <VersionInfo Name="MinorVer">97</VersionInfo>
-      <VersionInfo Name="Release">1</VersionInfo>
-      <VersionInfo Name="Build">2172</VersionInfo>
-      <VersionInfo Name="Debug">False</VersionInfo>
-      <VersionInfo Name="PreRelease">False</VersionInfo>
-      <VersionInfo Name="Special">False</VersionInfo>
-      <VersionInfo Name="Private">False</VersionInfo>
-      <VersionInfo Name="DLL">False</VersionInfo>
-      <VersionInfo Name="Locale">1053</VersionInfo>
-      <VersionInfo Name="CodePage">1252</VersionInfo>
-    </VersionInfo>
-    <VersionInfoKeys>
-      <VersionInfoKeys Name="CompanyName">Project JEDI</VersionInfoKeys>
-      <VersionInfoKeys Name="FileDescription">JCL Uses Wizard</VersionInfoKeys>
-      <VersionInfoKeys Name="FileVersion">1.97.1.2172</VersionInfoKeys>
-      <VersionInfoKeys Name="InternalName">JclUsesExpert</VersionInfoKeys>
-      <VersionInfoKeys Name="LegalCopyright">Copyright (C) 1999, 2005 Project JEDI</VersionInfoKeys>
-      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
-      <VersionInfoKeys Name="OriginalFilename">JclUsesExpert100.bpl</VersionInfoKeys>
-      <VersionInfoKeys Name="ProductName">Jedi Code Library</VersionInfoKeys>
-      <VersionInfoKeys Name="ProductVersion">1.97 Build 2172</VersionInfoKeys>
-    </VersionInfoKeys>
-  </Delphi.Personality>
-</BorlandProject>

Deleted: trunk/jcl/packages/d10/JclUsesExpert.dpk
===================================================================
--- trunk/jcl/packages/d10/JclUsesExpert.dpk	2006-12-30 09:04:59 UTC (rev 1856)
+++ trunk/jcl/packages/d10/JclUsesExpert.dpk	2006-12-30 09:08:26 UTC (rev 1857)
@@ -1,53 +0,0 @@
-package JclUsesExpert;
-{
------------------------------------------------------------------------------
-     DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR
-            ALWAYS EDIT THE RELATED XML FILE (JclUsesExpert-D.xml)
-
-     Last generated: 27-02-2006  20:07:10 UTC
------------------------------------------------------------------------------
-}
-
-{$R *.res}
-{$ALIGN 8}
-{$ASSERTIONS ON}
-{$BOOLEVAL OFF}
-{$DEBUGINFO OFF}
-{$EXTENDEDSYNTAX ON}
-{$IMPORTEDDATA ON}
-{$IOCHECKS ON}
-{$LOCALSYMBOLS OFF}
-{$LONGSTRINGS ON}
-{$OPENSTRINGS ON}
-{$OPTIMIZATION ON}
-{$OVERFLOWCHECKS OFF}
-{$RANGECHECKS OFF}
-{$REFERENCEINFO OFF}
-{$SAFEDIVIDE OFF}
-{$STACKFRAMES OFF}
-{$TYPEDADDRESS OFF}
-{$VARSTRINGCHECKS ON}
-{$WRITEABLECONST ON}
-{$MINENUMSIZE 1}
-{$IMAGEBASE $580C0000}
-{$DESCRIPTION 'JCL Uses Wizard'}
-{$LIBSUFFIX '100'}
-{$DESIGNONLY}
-{$IMPLICITBUILD OFF}
-
-requires
-  rtl,
-  vcl,
-  designide,
-  Jcl,
-  JclBaseExpert
-  ;
-  
-contains
-  JCLUsesWizard in '..\..\experts\useswizard\JCLUsesWizard.pas' ,
-  JCLOptionsFrame in '..\..\experts\useswizard\JCLOptionsFrame.pas' {FrameJclOptions: TFrame},
-  JclUsesDialog in '..\..\experts\useswizard\JclUsesDialog.pas' {FormUsesConfirm},
-  JclParseUses in '..\..\experts\useswizard\JclParseUses.pas' 
-  ;
-
-end.

Deleted: trunk/jcl/packages/d10/JclUsesExpert.rc
===================================================================
--- trunk/jcl/packages/d10/JclUsesExpert.rc	2006-12-30 09:04:59 UTC (rev 1856)
+++ trunk/jcl/packages/d10/JclUsesExpert.rc	2006-12-30 09:08:26 UTC (rev 1857)
@@ -1,32 +0,0 @@
-VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,97,1,2172
-PRODUCTVERSION 1,97,1,2172
- FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
-#ifdef _DEBUG
- FILEFLAGS VS_FF_DEBUG
-#else
- FILEFLAGS 0x0L
-#endif
- FILEOS VOS__WINDOWS32
- FILETYPE VFT_DLL
- FILESUBTYPE 0x0L
-BEGIN
-    BLOCK "StringFileInfo"
-    BEGIN
-         BLOCK "040904E4"
-         BEGIN
-              VALUE "CompanyName", "Project JEDI\0"
-              VALUE "FileDescription", "JCL Uses Wizard\0"
-              VALUE "FileVersion", "1.97.1.2172\0"
-              VALUE "InternalName", "JclUsesExpert\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2005 Project JEDI\0"
-              VALUE "OriginalFilename", "JclUsesExpert100.bpl\0"
-              VALUE "ProductName", "Jedi Code Library\0"
-              VALUE "ProductVersion", "1.97 Build 2172\0"
-         END
-    END
-    BLOCK "VarFileInfo"
-    BEGIN
-         VALUE "Translation", 0x0409, 1252
-    END
-END

Deleted: trunk/jcl/packages/d10/JclUsesExpert.res
===================================================================
(Binary files differ)

Deleted: trunk/jcl/packages/d10/JclUsesExpertDLL.bdsproj
===================================================================
--- trunk/jcl/packages/d10/JclUsesExpertDLL.bdsproj	2006-12-30 09:04:59 UTC (rev 1856)
+++ trunk/jcl/packages/d10/JclUsesExpertDLL.bdsproj	2006-12-30 09:08:26 UTC (rev 1857)
@@ -1,163 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<BorlandProject>
-  <PersonalityInfo>
-    <Option>
-      <Option Name="Personality">Delphi.Personality</Option>
-      <Option Name="ProjectType"></Option>
-      <Option Name="Version">1.0</Option>
-      <Option Name="GUID"></Option>
-    </Option>
-  </PersonalityInfo>
-  <Delphi.Personality>
-    <Source>
-      <Source Name="MainSource">JclUsesExpertDLL.dpr</Source>
-    </Source>
-    <FileVersion>
-      <FileVersion Name="Version">7.0</FileVersion>
-    </FileVersion>
-    <Compiler>
-      <Compiler Name="A">8</Compiler>
-      <Compiler Name="B">0</Compiler>
-      <Compiler Name="C">0</Compiler>
-      <Compiler Name="D">0</Compiler>
-      <Compiler Name="E">0</Compiler>
-      <Compiler Name="F">0</Compiler>
-      <Compiler Name="G">1</Compiler>
-      <Compiler Name="H">1</Compiler>
-      <Compiler Name="I">1</Compiler>
-      <Compiler Name="J">1</Compiler>
-      <Compiler Name="K">0</Compiler>
-      <Compiler Name="L">0</Compiler>
-      <Compiler Name="M">0</Compiler>
-      <Compiler Name="N">1</Compiler>
-      <Compiler Name="O">1</Compiler>
-      <Compiler Name="P">1</Compiler>
-      <Compiler Name="Q">0</Compiler>
-      <Compiler Name="R">1</Compiler>
-      <Compiler Name="S">0</Compiler>
-      <Compiler Name="T">0</Compiler>
-      <Compiler Name="U">0</Compiler>
-      <Compiler Name="V">1</Compiler>
-      <Compiler Name="W">0</Compiler>
-      <Compiler Name="X">1</Compiler>
-      <Compiler Name="Y">0</Compiler>
-      <Compiler Name="Z">1</Compiler>
-      <Compiler Name="ShowHints">True</Compiler>
-      <Compiler Name="ShowWarnings">True</Compiler>
-      <Compiler Name="UnitAliases"></Compiler>
-      <Compiler Name="NamespacePrefix"></Compiler>
-      <Compiler Name="GenerateDocumentation">False</Compiler>
-      <Compiler Name="DefaultNamespace"></Compiler>
-      <Compiler Name="SymbolDeprecated">True</Compiler>
-      <Compiler Name="SymbolLibrary">True</Compiler>
-      <Compiler Name="SymbolPlatform">True</Compiler>
-      <Compiler Name="SymbolExperimental">True</Compiler>
-      <Compiler Name="UnitLibrary">True</Compiler>
-      <Compiler Name="UnitPlatform">True</Compiler>
-      <Compiler Name="UnitDeprecated">True</Compiler>
-      <Compiler Name="UnitExperimental">True</Compiler>
-      <Compiler Name="HResultCompat">True</Compiler>
-      <Compiler Name="HidingMember">True</Compiler>
-      <Compiler Name="HiddenVirtual">True</Compiler>
-      <Compiler Name="Garbage">True</Compiler>
-      <Compiler Name="BoundsError">True</Compiler>
-      <Compiler Name="ZeroNilCompat">True</Compiler>
-      <Compiler Name="StringConstTruncated">True</Compiler>
-      <Compiler Name="ForLoopVarVarPar">True</Compiler>
-      <Compiler Name="TypedConstVarPar">True</Compiler>
-      <Compiler Name="AsgToTypedConst">True</Compiler>
-      <Compiler Name="CaseLabelRange">True</Compiler>
-      <Compiler Name="ForVariable">True</Compiler>
-      <Compiler Name="ConstructingAbstract">True</Compiler>
-      <Compiler Name="ComparisonFalse">True</Compiler>
-      <Compiler Name="ComparisonTrue">True</Compiler>
-      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
-      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
-      <Compiler Name="UnsupportedConstruct">True</Compiler>
-      <Compiler Name="FileOpen">True</Compiler>
-      <Compiler Name="FileOpenUnitSrc">True</Compiler>
-      <Compiler Name="BadGlobalSymbol">True</Compiler>
-      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
-      <Compiler Name="InvalidDirective">True</Compiler>
-      <Compiler Name="PackageNoLink">True</Compiler>
-      <Compiler Name="PackageThreadVar">True</Compiler>
-      <Compiler Name="ImplicitImport">True</Compiler>
-      <Compiler Name="HPPEMITIgnored">True</Compiler>
-      <Compiler Name="NoRetVal">True</Compiler>
-      <Compiler Name="UseBeforeDef">True</Compiler>
-      <Compiler Name="ForLoopVarUndef">True</Compiler>
-      <Compiler Name="UnitNameMismatch">True</Compiler>
-      <Compiler Name="NoCFGFileFound">True</Compiler>
-      <Compiler Name="MessageDirective">True</Compiler>
-      <Compiler Name="ImplicitVariants">True</Compiler>
-      <Compiler Name="UnicodeToLocale">True</Compiler>
-      <Compiler Name="LocaleToUnicode">True</Compiler>
-      <Compiler Name="ImagebaseMultiple">True</Compiler>
-      <Compiler Name="SuspiciousTypecast">True</Compiler>
-      <Compiler Name="PrivatePropAccessor">True</Compiler>
-      <Compiler Name="UnsafeType">True</Compiler>
-      <Compiler Name="UnsafeCode">True</Compiler>
-      <Compiler Name="UnsafeCast">True</Compiler>
-      <Compiler Name="OptionTruncated">True</Compiler>
-      <Compiler Name="WideCharReduced">True</Compiler>
-      <Compiler Name="DuplicatesIgnored">True</Compiler>
-      <Compiler Name="UnitInitSeq">True</Compiler>
-      <Compiler Name="LocalPInvoke">True</Compiler>
-      <Compiler Name="CodePage"></Compiler>
-    </Compiler>
-    <Linker>
-      <Linker Name="MapFile">0</Linker>
-      <Linker Name="OutputObjs">44</Linker>
-      <Linker Name="ConsoleApp">1</Linker>
-      <Linker Name="DebugInfo">False</Linker>
-      <Linker Name="RemoteSymbols">False</Linker>
-      <Linker Name="GenerateDRC">False</Linker>
-      <Linker Name="MinStackSize">16384</Linker>
-      <Linker Name="MaxStackSize">1048576</Linker>
-      <Linker Name="ImageBase">$580C0000</Linker>
-      <Linker Name="ExeDescription">JCL Uses Wizard</Linker>
-      <Linker Name="GenerateHpps">False</Linker>
-    </Linker>
-    <Directories>
-      <Directories Name="UnitOutputDir">..\..\lib\d10</Directories>
-      <Directories Name="SearchPath">..\..\lib\d10;..\..\source</Directories>
-      <Directories Name="OutputDir"></Directories>
-      <Directories Name="PackageDLLOutputDir"></Directories>
-      <Directories Name="PackageDCPOutputDir">..\..\lib\d10</Directories>
-      <Directories Name="Packages">rtl;vcl;designide;Jcl;JclBaseExpert</Directories>
-      <Directories Name="Conditionals"></Directories>
-      <Directories Name="DebugSourceDirs"></Directories>
-      <Directories Name="UsePackages">True</Directories>
-    </Directories>
-    <Parameters>
-    </Parameters>
-    <Language>
-    </Language>
-    <VersionInfo>
-      <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
-      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
-      <VersionInfo Name="MajorVer">1</VersionInfo>
-      <VersionInfo Name="MinorVer">97</VersionInfo>
-      <VersionInfo Name="Release">1</VersionInfo>
-      <VersionInfo Name="Build">2172</VersionInfo>
-      <VersionInfo Name="Debug">False</VersionInfo>
-      <VersionInfo Name="PreRelease">False</VersionInfo>
-      <VersionInfo Name="Special">False</VersionInfo>
-      <VersionInfo Name="Private">False</VersionInfo>
-      <VersionInfo Name="DLL">True</VersionInfo>
-      <VersionInfo Name="Locale">1053</VersionInfo>
-      <VersionInfo Name="CodePage">1252</VersionInfo>
-    </VersionInfo>
-    <VersionInfoKeys>
-      <VersionInfoKeys Name="CompanyName">Project JEDI</VersionInfoKeys>
-      <VersionInfoKeys Name="FileDescription">JCL Uses Wizard</VersionInfoKeys>
-      <VersionInfoKeys Name="FileVersion">1.97.1.2172</VersionInfoKeys>
-      <VersionInfoKeys Name="InternalName">JclUsesExpertDLL</VersionInfoKeys>
-      <VersionInfoKeys Name="LegalCopyright">Copyright (C) 1999, 2005 Project JEDI</VersionInfoKeys>
-      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
-      <VersionInfoKeys Name="OriginalFilename">JclUsesExpertDLL100.dll</VersionInfoKeys>
-      <VersionInfoKeys Name="ProductName">Jedi Code Library</VersionInfoKeys>
-      <VersionInfoKeys Name="ProductVersion">1.97 Build 2172</VersionInfoKeys>
-    </VersionInfoKeys>
-  </Delphi.Personality>
-</BorlandProject>

Deleted: trunk/jcl/packages/d10/JclUsesExpertDLL.dpr
===================================================================
--- trunk/jcl/packages/d10/JclUsesExpertDLL.dpr	2006-12-30 09:04:59 UTC (rev 1856)
+++ trunk/jcl/packages/d10/JclUsesExpertDLL.dpr	2006-12-30 09:08:26 UTC (rev 1857)
@@ -1,48 +0,0 @@
-Library JclUsesExpertDLL;
-{
------------------------------------------------------------------------------
-     DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR
-            ALWAYS EDIT THE RELATED XML FILE (JclUsesExpertDLL-L.xml)
-
-     Last generated: 27-02-2006  20:07:10 UTC
------------------------------------------------------------------------------
-}
-
-{$R *.res}
-{$ALIGN 8}
-{$ASSERTIONS ON}
-{$BOOLEVAL OFF}
-{$DEBUGINFO OFF}
-{$EXTENDEDSYNTAX ON}
-{$IMPORTEDDATA ON}
-{$IOCHECKS ON}
-{$LOCALSYMBOLS OFF}
-{$LONGSTRINGS ON}
-{$OPENSTRINGS ON}
-{$OPTIMIZATION ON}
-{$OVERFLOWCHECKS OFF}
-{$RANGECHECKS OFF}
-{$REFERENCEINFO OFF}
-{$SAFEDIVIDE OFF}
-{$STACKFRAMES OFF}
-{$TYPEDADDRESS OFF}
-{$VARSTRINGCHECKS ON}
-{$WRITEABLECONST ON}
-{$MINENUMSIZE 1}
-{$IMAGEBASE $580C0000}
-{$DESCRIPTION 'JCL Uses Wizard'}
-{$LIBSUFFIX '100'}
-{$IMPLICITBUILD OFF}
-
-uses
-  ToolsAPI,
-  JCLUsesWizard in '..\..\experts\useswizard\JCLUsesWizard.pas' ,
-  JCLOptionsFrame in '..\..\experts\useswizard\JCLOptionsFrame.pas' {FrameJclOptions: TFrame},
-  JclUsesDialog in '..\..\experts\useswizard\JclUsesDialog.pas' {FormUsesConfirm},
-  JclParseUses in '..\..\experts\useswizard\JclParseUses.pas' 
-  ;
-
-exports
-  JCLWizardInit name WizardEntryPoint;
-
-end.

Deleted: trunk/jcl/packages/d10/JclUsesExpertDLL.rc
===================================================================
--- trunk/jcl/packages/d10/JclUsesExpertDLL.rc	2006-12-30 09:04:59 UTC (rev 1856)
+++ trunk/jcl/packages/d10/JclUsesExpertDLL.rc	2006-12-30 09:08:26 UTC (rev 1857)
@@ -1,32 +0,0 @@
-VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,97,1,2172
-PRODUCTVERSION 1,97,1,2172
- FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
-#ifdef _DEBUG
- FILEFLAGS VS_FF_DEBUG
-#else
- FILEFLAGS 0x0L
-#endif
- FILEOS VOS__WINDOWS32
- FILETYPE VFT_DLL
- FILESUBTYPE 0x0L
-BEGIN
-    BLOCK "StringFileInfo"
-    BEGIN
-         BLOCK "040904E4"
-         BEGIN
-              VALUE "CompanyName", "Project JEDI\0"
-              VALUE "FileDescription", "JCL Uses Wizard\0"
-              VALUE "FileVersion", "1.97.1.2172\0"
-              VALUE "InternalName", "JclUsesExpertDLL\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2005 Project JEDI\0"
-              VALUE "OriginalFilename", "JclUsesExpertDLL100.dll\0"
-              VALUE "ProductName", "Jedi Code Library\0"
-              VALUE "ProductVersion", "1.97 Build 2172\0"
-         END
-    END
-    BLOCK "VarFileInfo"
-    BEGIN
-         VALUE "Translation", 0x0409, 1252
-    END
-END

Deleted: trunk/jcl/packages/d10/JclUsesExpertDLL.res
===================================================================
(Binary files differ)

Deleted: trunk/jcl/packages/d9/JclUsesExpert.bdsproj
===================================================================
--- trunk/jcl/packages/d9/JclUsesExpert.bdsproj	2006-12-30 09:04:59 UTC (rev 1856)
+++ trunk/jcl/packages/d9/JclUsesExpert.bdsproj	2006-12-30 09:08:26 UTC (rev 1857)
@@ -1,174 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<BorlandProject>
-  <PersonalityInfo>
-    <Option>
-      <Option Name="Personality">Delphi.Personality</Option>
-      <Option Name="ProjectType"></Option>
-      <Option Name="Version">1.0</Option>
-      <Option Name="GUID"></Option>
-    </Option>
-  </PersonalityInfo>
-  <Delphi.Personality>
-    <Source>
-      <Source Name="MainSource">JclUsesExpert.dpk</Source>
-    </Source>
-    <FileVersion>
-      <FileVersion Name="Version">7.0</FileVersion>
-    </FileVersion>
-    <Compiler>
-      <Compiler Name="A">8</Compiler>
-      <Compiler Name="B">0</Compiler>
-      <Compiler Name="C">0</Compiler>
-      <Compiler Name="D">0</Compiler>
-      <Compiler Name="E">0</Compiler>
-      <Compiler Name="F">0</Compiler>
-      <Compiler Name="G">1</Compiler>
-      <Compiler Name="H">1</Compiler>
-      <Compiler Name="I">1</Compiler>
-      <Compiler Name="J">1</Compiler>
-      <Compiler Name="K">0</Compiler>
-      <Compiler Name="L">0</Compiler>
-      <Compiler Name="M">0</Compiler>
-      <Compiler Name="N">1</Compiler>
-      <Compiler Name="O">1</Compiler>
-      <Compiler Name="P">1</Compiler>
-      <Compiler Name="Q">0</Compiler>
-      <Compiler Name="R">1</Compiler>
-      <Compiler Name="S">0</Compiler>
-      <Compiler Name="T">0</Compiler>
-      <Compiler Name="U">0</Compiler>
-      <Compiler Name="V">1</Compiler>
-      <Compiler Name="W">0</Compiler>
-      <Compiler Name="X">1</Compiler>
-      <Compiler Name="Y">0</Compiler>
-      <Compiler Name="Z">1</Compiler>
-      <Compiler Name="ShowHints">True</Compiler>
-      <Compiler Name="ShowWarnings">True</Compiler>
-      <Compiler Name="UnitAliases"></Compiler>
-      <Compiler Name="NamespacePrefix"></Compiler>
-      <Compiler Name="GenerateDocumentation">False</Compiler>
-      <Compiler Name="DefaultNamespace"></Compiler>
-      <Compiler Name="SymbolDeprecated">True</Compiler>
-      <Compiler Name="SymbolLibrary">True</Compiler>
-      <Compiler Name="SymbolPlatform">True</Compiler>
-      <Compiler Name="SymbolExperimental">True</Compiler>
-      <Compiler Name="UnitLibrary">True</Compiler>
-      <Compiler Name="UnitPlatform">True</Compiler>
-      <Compiler Name="UnitDeprecated">True</Compiler>
-      <Compiler Name="UnitExperimental">True</Compiler>
-      <Compiler Name="HResultCompat">True</Compiler>
-      <Compiler Name="HidingMember">True</Compiler>
-      <Compiler Name="HiddenVirtual">True</Compiler>
-      <Compiler Name="Garbage">True</Compiler>
-      <Compiler Name="BoundsError">True</Compiler>
-      <Compiler Name="ZeroNilCompat">True</Compiler>
-      <Compiler Name="StringConstTruncated">True</Compiler>
-      <Compiler Name="ForLoopVarVarPar">True</Compiler>
-      <Compiler Name="TypedConstVarPar">True</Compiler>
-      <Compiler Name="AsgToTypedConst">True</Compiler>
-      <Compiler Name="CaseLabelRange">True</Compiler>
-      <Compiler Name="ForVariable">True</Compiler>
-      <Compiler Name="ConstructingAbstract">True</Compiler>
-      <Compiler Name="ComparisonFalse">True</Compiler>
-      <Compiler Name="ComparisonTrue">True</Compiler>
-      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
-      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
-      <Compiler Name="UnsupportedConstruct">True</Compiler>
-      <Compiler Name="FileOpen">True</Compiler>
-      <Compiler Name="FileOpenUnitSrc">True</Compiler>
-      <Compiler Name="BadGlobalSymbol">True</Compiler>
-      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
-      <Compiler Name="InvalidDirective">True</Compiler>
-      <Compiler Name="PackageNoLink">True</Compiler>
-      <Compiler Name="PackageThreadVar">True</Compiler>
-      <Compiler Name="ImplicitImport">True</Compiler>
-      <Compiler Name="HPPEMITIgnored">True</Compiler>
-      <Compiler Name="NoRetVal">True</Compiler>
-      <Compiler Name="UseBeforeDef">True</Compiler>
-      <Compiler Name="ForLoopVarUndef">True</Compiler>
-      <Compiler Name="UnitNameMismatch">True</Compiler>
-      <Compiler Name="NoCFGFileFound">True</Compiler>
-      <Compiler Name="MessageDirective">True</Compiler>
-      <Compiler Name="ImplicitVariants">True</Compiler>
-      <Compiler Name="UnicodeToLocale">True</Compiler>
-      <Compiler Name="LocaleToUnicode">True</Compiler>
-      <Compiler Name="ImagebaseMultiple">True</Compiler>
-      <Compiler Name="SuspiciousTypecast">True</Compiler>
-      <Compiler Name="PrivatePropAccessor">True</Compiler>
-      <Compiler Name="UnsafeType">True</Compiler>
-      <Compiler Name="UnsafeCode">True</Compiler>
-      <Compiler Name="UnsafeCast">True</Compiler>
-      <Compiler Name="OptionTruncated">True</Compiler>
-      <Compiler Name="WideCharReduced">True</Compiler>
-      <Compiler Name="DuplicatesIgnored">True</Compiler>
-      <Compiler Name="UnitInitSeq">True</Compiler>
-      <Compiler Name="LocalPInvoke">True</Compiler>
-    </Compiler>
-    <Linker>
-      <Linker Name="MapFile">0</Linker>
-      <Linker Name="OutputObjs">0</Linker>
-      <Linker Name="ConsoleApp">1</Linker>
-      <Linker Name="DebugInfo">False</Linker>
-      <Linker Name="RemoteSymbols">False</Linker>
-      <Linker Name="GenerateDRC">False</Linker>
-      <Linker Name="MinStackSize">16384</Linker>
-      <Linker Name="MaxStackSize">1048576</Linker>
-      <Linker Name="ImageBase">$580C0000</Linker>
-      <Linker Name="ExeDescription">JCL Uses Wizard</Linker>
-    </Linker>
-    <Directories>
-      <Directories Name="OutputDir"></Directories>
-      <Directories Name="UnitOutputDir">..\..\lib\d9</Directories>
-      <Directories Name="PackageDLLOutputDir"></Directories>
-      <Directories Name="PackageDCPOutputDir">..\..\lib\d9</Directories>
-      <Directories Name="SearchPath">..\..\lib\d9;..\..\source</Directories>
-      <Directories Name="Packages">rtl;vcl;designide;Jcl;JclBaseExpert</Directories>
-      <Directories Name="Conditionals"></Directories>
-      <Directories Name="DebugSourceDirs"></Directories>
-      <Directories Name="UsePackages">True</Directories>
-    </Directories>
-    <Parameters>
-      <Parameters Name="RunParams"></Parameters>
-      <Parameters Name="HostApplication"></Parameters>
-      <Parameters Name="Launcher"></Parameters>
-      <Parameters Name="UseLauncher">False</Parameters>
-      <Parameters Name="DebugCWD"></Parameters>
-      <Parameters Name="RemoteHost"></Parameters>
-      <Parameters Name="RemotePath"></Parameters>
-      <Parameters Name="RemoteLauncher"></Parameters>
-      <Parameters Name="RemoteCWD"></Parameters>
-      <Parameters Name="RemoteDebug">False</Parameters>
-    </Parameters>
-    <Language>
-      <Language Name="ActiveLang"></Language>
-      <Language Name="ProjectLang">$00000000</Language>
-      <Language Name="RootDir"></Language>
-    </Language>
-    <VersionInfo>
-      <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
-      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
-      <VersionInfo Name="MajorVer">1</VersionInfo>
-      <VersionInfo Name="MinorVer">97</VersionInfo>
-      <VersionInfo Name="Release">1</VersionInfo>
-      <VersionInfo Name="Build">2172</VersionInfo>
-      <VersionInfo Name="Debug">False</VersionInfo>
-      <VersionInfo Name="PreRelease">False</VersionInfo>
-      <VersionInfo Name="Special">False</VersionInfo>
-      <VersionInfo Name="Private">False</VersionInfo>
-      <VersionInfo Name="DLL">False</VersionInfo>
-      <VersionInfo Name="Locale">1053</VersionInfo>
-      <VersionInfo Name="CodePage">1252</VersionInfo>
-    </VersionInfo>
-    <VersionInfoKeys>
-      <VersionInfoKeys Name="CompanyName">Project JEDI</VersionInfoKeys>
-      <VersionInfoKeys Name="FileDescription">JCL Uses Wizard</VersionInfoKeys>
-      <VersionInfoKeys Name="FileVersion">1.97.1.2172</VersionInfoKeys>
-      <VersionInfoKeys Name="InternalName">JclUsesExpert</VersionInfoKeys>
-      <VersionInfoKeys Name="LegalCopyright">Copyright (C) 1999, 2005 Project JEDI</VersionInfoKeys>
-      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
-      <VersionInfoKeys Name="OriginalFilename">JclUsesExpert90.bpl</VersionInfoKeys>
-      <VersionInfoKeys Name="ProductName">Jedi Code Library</VersionInfoKeys>
-      <VersionInfoKeys Name="ProductVersion">1.97 Build 2172</VersionInfoKeys>
-    </VersionInfoKeys>
-  </Delphi.Personality>
-</BorlandProject>

Deleted: trunk/jcl/packages/d9/JclUsesExpert.dpk
===================================================================
--- trunk/jcl/packages/d9/JclUsesExpert.dpk	2006-12-30 09:04:59 UTC (rev 1856)
+++ trunk/jcl/packages/d9/JclUsesExpert.dpk	2006-12-30 09:08:26 UTC (rev 1857)
@@ -1,53 +0,0 @@
-package JclUsesExpert;
-{
------------------------------------------------------------------------------
-     DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR
-            ALWAYS EDIT THE RELATED XML FILE (JclUsesExpert-D.xml)
-
-     Last generated: 27-02-2006  20:07:09 UTC
------------------------------------------------------------------------------
-}
-
-{$R *.res}
-{$ALIGN 8}
-{$ASSERTIONS ON}
-{$BOOLEVAL OFF}
-{$DEBUGINFO OFF}
-{$EXTENDEDSYNTAX ON}
-{$IMPORTEDDATA ON}
-{$IOCHECKS ON}
-{$LOCALSYMBOLS OFF}
-{$LONGSTRINGS ON}
-{$OPENSTRINGS ON}
-{$OPTIMIZATION ON}
-{$OVERFLOWCHECKS OFF}
-{$RANGECHECKS OFF}
-{$REFERENCEINFO OFF}
-{$SAFEDIVIDE OFF}
-{$STACKFRAMES OFF}
-{$TYPEDADDRESS OFF}
-{$VARSTRINGCHECKS ON}
-{$WRITEABLECONST OFF}
-{$MINENUMSIZE 1}
-{$IMAGEBASE $580C0000}
-{$DESCRIPTION 'JCL Uses Wizard'}
-{$LIBSUFFIX '90'}
-{$DESIGNONLY}
-{$IMPLICITBUILD OFF}
-
-requires
-  rtl,
-  vcl,
-  designide,
-  Jcl,
-  JclBaseExpert
-  ;
-  
-contains
-  JCLUsesWizard in '..\..\experts\useswizard\JCLUsesWizard.pas' ,
-  JCLOptionsFrame in '..\..\experts\useswizard\JCLOptionsFrame.pas' {FrameJclOptions: TFrame},
-  JclUsesDialog in '..\..\experts\useswizard\JclUsesDialog.pas' {FormUsesConfirm},
-  JclParseUses in '..\..\experts\useswizard\JclParseUses.pas' 
-  ;
-
-end.

Deleted: trunk/jcl/packages/d9/JclUsesExpert.rc
===================================================================
--- trunk/jcl/packages/d9/JclUsesExpert.rc	2006-12-30 09:04:59 UTC (rev 1856)
+++ trunk/jcl/packages/d9/JclUsesExpert.rc	2006-12-30 09:08:26 UTC (rev 1857)
@@ -1,32 +0,0 @@
-VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,97,1,2172
-PRODUCTVERSION 1,97,1,2172
- FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
-#ifdef _DEBUG
- FILEFLAGS VS_FF_DEBUG
-#else
- FILEFLAGS 0x0L
-#endif
- FILEOS VOS__WINDOWS32
- FILETYPE VFT_DLL
- FILESUBTYPE 0x0L
-BEGIN
-    BLOCK "StringFileInfo"
-    BEGIN
-         BLOCK "040904E4"
-         BEGIN
-              VALUE "CompanyName", "Project JEDI\0"
-              VALUE "FileDescription", "JCL Uses Wizard\0"
-              VALUE "FileVersion", "1.97.1.2172\0"
-              VALUE "InternalName", "JclUsesExpert\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2005 Project JEDI\0"
-              VALUE "OriginalFilename", "JclUsesExpert90.bpl\0"
-              VALUE "ProductName", "Jedi Code Library\0"
-              VALUE "ProductVersion", "1.97 Build 2172\0"
-         END
-    END
-    BLOCK "VarFileInfo"
-    BEGIN
-         VALUE "Translation", 0x0409, 1252
-    END
-END

Deleted: trunk/jcl/packages/d9/JclUsesExpert.res
===================================================================
(Binary files differ)

Deleted: trunk/jcl/packages/d9/JclUsesExpertDLL.RES
===================================================================
(Binary files differ)

Deleted: trunk/jcl/packages/d9/JclUsesExpertDLL.bdsproj
===================================================================
--- trunk/jcl/packages/d9/JclUsesExpertDLL.bdsproj	2006-12-30 09:04:59 UTC (rev 1856)
+++ trunk/jcl/packages/d9/JclUsesExpertDLL.bdsproj	2006-12-30 09:08:26 UTC (rev 1857)
@@ -1,174 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<BorlandProject>
-  <PersonalityInfo>
-    <Option>
-      <Option Name="Personality">Delphi.Personality</Option>
-      <Option Name="ProjectType"></Option>
-      <Option Name="Version">1.0</Option>
-      <Option Name="GUID"></Option>
-    </Option>
-  </PersonalityInfo>
-  <Delphi.Personality>
-    <Source>
-      <Source Name="MainSource">JclUsesExpertDLL.dpr</Source>
-    </Source>
-    <FileVersion>
-      <FileVersion Name="Version">7.0</FileVersion>
-    </FileVersion>
-    <Compiler>
-      <Compiler Name="A">8</Compiler>
-      <Compiler Name="B">0</Compiler>
-      <Compiler Name="C">0</Compiler>
-      <Compiler Name="D">0</Compiler>
-      <Compiler Name="E">0</Compiler>
-      <Compiler Name="F">0</Compiler>
-      <Compiler Name="G">1</Compiler>
-      <Compiler Name="H">1</Compiler>
-      <Compiler Name="I">1</Compiler>
-      <Compiler Name="J">1</Compiler>
-      <Compiler Name="K">0</Compiler>
-      <Compiler Name="L">0</Compiler>
-      <Compiler Name="M">0</Compiler>
-      <Compiler Name="N">1</Compiler>
-      <Compiler Name="O">1</Compiler>
-      <Compiler Name="P">1</Compiler>
-      <Compiler Name="Q">0</Compiler>
-      <Compiler Name="R">1</Compiler>
-      <Compiler Name="S">0</Compiler>
-      <Compiler Name="T">0</Compiler>
-      <Compiler Name="U">0</Compiler>
-      <Compiler Name="V">1</Compiler>
-      <Compiler Name="W">0</Compiler>
-      <Compiler Name="X">1</Compiler>
-      <Compiler Name="Y">0</Compiler>
-      <Compiler Name="Z">1</Compiler>
-      <Compiler Name="ShowHints">True</Compiler>
-      <Compiler Name="ShowWarnings">True</Compiler>
-      <Compiler Name="UnitAliases"></Compiler>
-      <Compiler Name="NamespacePrefix"></Compiler>
-      <Compiler Name="GenerateDocumentation">False</Compiler>
-      <Compiler Name="DefaultNamespace"></Compiler>
-      <Compiler Name="SymbolDeprecated">True</Compiler>
-      <Compiler Name="SymbolLibrary">True</Compiler>
-      <Compiler Name="SymbolPlatform">True</Compiler>
-      <Compiler Name="SymbolExperimental">True</Compiler>
-      <Compiler Name="UnitLibrary">True</Compiler>
-      <Compiler Name="UnitPlatform">True</Compiler>
-      <Compiler Name="UnitDeprecated">True</Compiler>
-      <Compiler Name="UnitExperimental">True</Compiler>
-      <Compiler Name="HResultCompat">True</Compiler>
-      <Compiler Name="HidingMember">True</Compiler>
-      <Compiler Name="HiddenVirtual">True</Compiler>
-      <Compiler Name="Garbage">True</Compiler>
-      <Compiler Name="BoundsError">True</Compiler>
-      <Compiler Name="ZeroNilCompat">True</Compiler>
-      <Compiler Name="StringConstTruncated">True</Compiler>
-      <Compiler Name="ForLoopVarVarPar">True</Compiler>
-      <Compiler Name="TypedConstVarPar">True</Compiler>
-      <Compiler Name="AsgToTypedConst">True</Compiler>
-      <Compiler Name="CaseLabelRange">True</Compiler>
-      <Compiler Name="ForVariable">True</Compiler>
-      <Compiler Name="ConstructingAbstract">True</Compiler>
-      <Compiler Name="ComparisonFalse">True</Compiler>
-      <Compiler Name="ComparisonTrue">True</Compiler>
-      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
-      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
-      <Compiler Name="UnsupportedConstruct">True</Compiler>
-      <Compiler Name="FileOpen">True</Compiler>
-      <Compiler Name="FileOpenUnitSrc">True</Compiler>
-      <Compiler Name="BadGlobalSymbol">True</Compiler>
-      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
-      <Compiler Name="InvalidDirective">True</Compiler>
-      <Compiler Name="PackageNoLink">True</Compiler>
-      <Compiler Name="PackageThreadVar">True</Compiler>
-      <Compiler Name="ImplicitImport">True</Compiler>
-      <Compiler Name="HPPEMITIgnored">True</Compiler>
-      <Compiler Name="NoRetVal">True</Compiler>
-      <Compiler Name="UseBeforeDef">True</Compiler>
-      <Compiler Name="ForLoopVarUndef">True</Compiler>
-      <Compiler Name="UnitNameMismatch">True</Compiler>
-      <Compiler Name="NoCFGFileFound">True</Compiler>
-      <Compiler Name="MessageDirective">True</Compiler>
-      <Compiler Name="ImplicitVariants">True</Compiler>
-      <Compiler Name="UnicodeToLocale">True</Compiler>
-      <Compiler Name="LocaleToUnicode">True</Compiler>
-      <Compiler Name="ImagebaseMultiple">True</Compiler>
-      <Compiler Name="SuspiciousTypecast">True</Compiler>
-      <Compiler Name="PrivatePropAccessor">True</Compiler>
-      <Compiler Name="UnsafeType">True</Compiler>
-      <Compiler Name="UnsafeCode">True</Compiler>
-      <Compiler Name="UnsafeCast">True</Compiler>
-      <Compiler Name="OptionTruncated">True</Compiler>
-      <Compiler Name="WideCharReduced">True</Compiler>
-      <Compiler Name="DuplicatesIgnored">True</Compiler>
-      <Compiler Name="UnitInitSeq">True</Compiler>
-      <Compiler Name="LocalPInvoke">True</Compiler>
-    </Compiler>
-    <Linker>
-      <Linker Name="MapFile">0</Linker>
-      <Linker Name="OutputObjs">0</Linker>
-      <Linker Name="ConsoleApp">1</Linker>
-      <Linker Name="DebugInfo">False</Linker>
-      <Linker Name="RemoteSymbols">False</Linker>
-      <Linker Name="GenerateDRC">False</Linker>
-      <Linker Name="MinStackSize">16384</Linker>
-      <Linker Name="MaxStackSize">1048576</Linker>
-      <Linker Name="ImageBase">$580C0000</Linker>
-      <Linker Name="ExeDescription">JCL Uses Wizard</Linker>
-    </Linker>
-    <Directories>
-      <Directories Name="OutputDir"></Directories>
-      <Directories Name="UnitOutputDir">..\..\lib\d9</Directories>
-      <Directories Name="PackageDLLOutputDir"></Directories>
-      <Directories Name="PackageDCPOutputDir">..\..\lib\d9</Directories>
-      <Directories Name="SearchPath">..\..\lib\d9;..\..\source</Directories>
-      <Directories Name="Packages">rtl;vcl;designide;Jcl;JclBaseExpert</Directories>
-      <Directories Name="Conditionals"></Directories>
-      <Directories Name="DebugSourceDirs"></Directories>
-      <Directories Name="UsePackages">True</Directories>
-    </Directories>
-    <Parameters>
-      <Parameters Name="RunParams"></Parameters>
-      <Parameters Name="HostApplication"></Parameters>
-      <Parameters Name="Launcher"></Parameters>
-      <Parameters Name="UseLauncher">False</Parameters>
-      <Parameters Name="DebugCWD"></Parameters>
-      <Parameters Name="RemoteHost"></Parameters>
-      <Parameters Name="RemotePath"></Parameters>
-      <Parameters Name="RemoteLauncher"></Parameters>
-      <Parameters Name="RemoteCWD"></Parameters>
-      <Parameters Name="RemoteDebug">False</Parameters>
-    </Parameters>
-    <Language>
-      <Language Name="ActiveLang"></Language>
-      <Language Name="ProjectLang">$00000000</Language>
-      <Language Name="RootDir"></Language>
-    </Language>
-    <VersionInfo>
-      <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
-      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
-      <VersionInfo Name="MajorVer">1</VersionInfo>
-      <VersionInfo Name="MinorVer">97</VersionInfo>
-      <VersionInfo Name="Release">1</VersionInfo>
-      <VersionInfo Name="Build">2172</VersionInfo>
-      <VersionInfo Name="Debug">False</VersionInfo>
-      <VersionInfo Name="PreRelease">False</VersionInfo>
-      <VersionInfo Name="Special">False</VersionInfo>
-      <VersionInfo Name="Private">False</VersionInfo>
-      <VersionInfo Name="DLL">True</VersionInfo>
-      <VersionInfo Name="Locale">1053</VersionInfo>
-      <VersionInfo Name="CodePage">1252</VersionInfo>
-    </VersionInfo>
-    <VersionInfoKeys>
-      <VersionInfoKeys Name="CompanyName">Project JEDI</VersionInfoKeys>
-      <VersionInfoKeys Name="FileDescription">JCL Uses Wizard</VersionInfoKeys>
-      <VersionInfoKeys Name="FileVersion">1.97.1.2172</VersionInfoKeys>
-      <VersionInfoKeys Name="InternalName">JclUsesExpertDLL</VersionInfoKeys>
-      <VersionInfoKeys Name="LegalCopyright">Copyright (C) 1999, 2005 Project JEDI</VersionInfoKeys>
-      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
-      <VersionInfoKeys Name="OriginalFilename">JclUsesExpertDLL90.dll</VersionInfoKeys>
-      <VersionInfoKeys Name="ProductName">Jedi Code Library</VersionInfoKeys>
-      <VersionInfoKeys Name="ProductVersion">1.97 Build 2172</VersionInfoKeys>
-    </VersionInfoKeys>
-  </Delphi.Personality>
-</BorlandProject>

Deleted: trunk/jcl/packages/d9/JclUsesExpertDLL.dpr
===================================================================
--- trunk/jcl/packages/d9/JclUsesExpertDLL.dpr	2006-12-30 09:04:59 UTC (rev 1856)
+++ trunk/jcl/packages/d9/JclUsesExpertDLL.dpr	2006-12-30 09:08:26 UTC (rev 1857)
@@ -1,48 +0,0 @@
-Library JclUsesExpertDLL;
-{
------------------------------------------------------------------------------
-     DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR
-            ALWAYS EDIT THE RELATED XML FILE (JclUsesExpertDLL-L.xml)
-
-     Last generated: 27-02-2006  20:07:09 UTC
------------------------------------------------------------------------------
-}
-
-{$R *.res}
-{$ALIGN 8}
-{$ASSERTIONS ON}
-{$BOOLEVAL OFF}
-{$DEBUGINFO OFF}
-{$EXTENDEDSYNTAX ON}
-{$IMPORTEDDATA ON}
-{$IOCHECKS ON}
-{$LOCALSYMBOLS OFF}
-{$LONGSTRINGS ON}
-{$OPENSTRINGS ON}
-{$OPTIMIZATION ON}
-{$OVERFLOWCHECKS OFF}
-{$RANGECHECKS OFF}
-{$REFERENCEINFO OFF}
-{$SAFEDIVIDE OFF}
-{$STACKFRAMES OFF}
-{$TYPEDADDRESS OFF}
-{$VARSTRINGCHECKS ON}
-{$WRITEABLECONST OFF}
-{$MINENUMSIZE 1}
-{$IMAGEBASE $580C0000}
-{$DESCRIPTION 'JCL Uses Wizard'}
-{$LIBSUFFIX '90'}
-{$IMPLICITBUILD OFF}
-
-uses
-  ToolsAPI,
-  JCLUsesWizard in '..\..\experts\useswizard\JCLUsesWizard.pas' ,
-  JCLOptionsFrame in '..\..\experts\useswizard\JCLOptionsFrame.pas' {FrameJclOptions: TFrame},
-  JclUsesDialog in '..\..\experts\useswizard\JclUsesDialog.pas' {FormUsesConfirm},
-  JclParseUses in '..\..\experts\useswizard\JclParseUses.pas' 
-  ;
-
-exports
-  JCLWizardInit name WizardEntryPoint;
-
-end.

Deleted: trunk/jcl/packages/d9/JclUsesExpertDLL.rc
===================================================================
--- trunk/jcl/packages/d9/JclUsesExpertDLL.rc	2006-12-30 09:04:59 UTC (rev 1856)
+++ trunk/jcl/packages/d9/JclUsesExpertDLL.rc	2006-12-30 09:08:26 UTC (rev 1857)
@@ -1,32 +0,0 @@
-VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,97,1,2172
-PRODUCTVERSION 1,97,1,2172
- FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
-#ifdef _DEBUG
- FILEFLAGS VS_FF_DEBUG
-#else
- FILEFLAGS 0x0L
-#endif
- FILEOS VOS__WINDOWS32
- FILETYPE VFT_DLL
- FILESUBTYPE 0x0L
-BEGIN
-    BLOCK "StringFileInfo"
-    BEGIN
-         BLOCK "040904E4"
-         BEGIN
-              VALUE "CompanyName", "Project JEDI\0"
-              VALUE "FileDescription", "JCL Uses Wizard\0"
-              VALUE "FileVersion", "1.97.1.2172\0"
-              VALUE "InternalName", "JclUsesExpertDLL\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2005 Project JEDI\0"
-              VALUE "OriginalFilename", "JclUsesExpertDLL90.dll\0"
-              VALUE "ProductName", "Jedi Code Library\0"
-              VALUE "ProductVersion", "1.97 Build 2172\0"
-         END
-    END
-    BLOCK "VarFileInfo"
-    BEGIN
-         VALUE "Translation", 0x0409, 1252
-    END
-END

Modified: trunk/jcl/packages/xml/JclUsesExpert-D.xml
===================================================================
--- trunk/jcl/packages/xml/JclUsesExpert-D.xml	2006-12-30 09:04:59 UTC (rev 1856)
+++ trunk/jcl/packages/xml/JclUsesExpert-D.xml	2006-12-30 09:08:26 UTC (rev 1857)
@@ -22,9 +22,9 @@
     <Package Name="JclBaseExpert-D" Targets="Windows" Condition=""/>
   </Requires>
   <Contains>
-    <File Name="..\..\experts\useswizard\JCLUsesWizard.pas" Targets="Windows" Formname="" Condition=""/>
-    <File Name="..\..\experts\useswizard\JCLOptionsFrame.pas" Targets="Windows" Formname="FrameJclOptions: TFrame" Condition=""/>
-    <File Name="..\..\experts\useswizard\JclUsesDialog.pas" Targets="Windows" Formname="FormUsesConfirm" Condition=""/>
-    <File Name="..\..\experts\useswizard\JclParseUses.pas" Targets="Windows" Formname="" Condition=""/>
+    <File Name="..\..\experts\useswizard\JCLUsesWizard.pas" Targets="c5,d5,c6,d6,d7" Formname="" Condition=""/>
+    <File Name="..\..\experts\useswizard\JCLOptionsFrame.pas" Targets="c5,d5,c6,d6,d7" Formname="FrameJclOptions: TFrame" Condition=""/>
+    <File Name="..\..\experts\useswizard\JclUsesDialog.pas" Targets="c5,d5,c6,d6,d7" Formname="FormUsesConfirm" Condition=""/>
+    <File Name="..\..\experts\useswizard\JclParseUses.pas" Targets="c5,d5,c6,d6,d7" Formname="" Condition=""/>
   </Contains>
 </Package>

Modified: trunk/jcl/packages/xml/JclUsesExpertDLL-L.xml
===================================================================
--- trunk/jcl/packages/xml/JclUsesExpertDLL-L.xml	2006-12-30 09:04:59 UTC (rev 1856)
+++ trunk/jcl/packages/xml/JclUsesExpertDLL-L.xml	2006-12-30 09:08:26 UTC (rev 1857)
@@ -22,9 +22,9 @@
     <Package Name="JclBaseExpert-D" Targets="Windows" Condition=""/>
   </Requires>
   <Contains>
-    <File Name="..\..\experts\useswizard\JCLUsesWizard.pas" Targets="Windows" Formname="" Condition=""/>
-    <File Name="..\..\experts\useswizard\JCLOptionsFrame.pas" Targets="Windows" Formname="FrameJclOptions: TFrame" Condition=""/>
-    <File Name="..\..\experts\useswizard\JclUsesDialog.pas" Targets="Windows" Formname="FormUsesConfirm" Condition=""/>
-    <File Name="..\..\experts\useswizard\JclParseUses.pas" Targets="Windows" Formname="" Condition=""/>
+    <File Name="..\..\experts\useswizard\JCLUsesWizard.pas" Targets="c5,d5,c6,d6,d7" Formname="" Condition=""/>
+    <File Name="..\..\experts\useswizard\JCLOptionsFrame.pas" Targets="c5,d5,c6,d6,d7" Formname="FrameJclOptions: TFrame" Condition=""/>
+    <File Name="..\..\experts\useswizard\JclUsesDialog.pas" Targets="c5,d5,c6,d6,d7" Formname="FormUsesConfirm" Condition=""/>
+    <File Name="..\..\experts\useswizard\JclParseUses.pas" Targets="c5,d5,c6,d6,d7" Formname="" Condition=""/>
   </Contains>
 </Package>


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: [1856] trunk/jcl/source/common

From: <ou...@us...> - 2006-12-30 09:05:02

Revision: 1856
          http://svn.sourceforge.net/jcl/?rev=1856&view=rev
Author:   outchy
Date:     2006-12-30 01:04:59 -0800 (Sat, 30 Dec 2006)

Log Message:
-----------
Changed ancestors of exception classes of the JCL to EJclError: making the debugger ignoring all JCL exceptions will be easier.

Modified Paths:
--------------
    trunk/jcl/source/common/JclBorlandTools.pas
    trunk/jcl/source/common/JclPCRE.pas
    trunk/jcl/source/common/JclSimpleXml.pas
    trunk/jcl/source/common/JclStreams.pas
    trunk/jcl/source/common/JclStrings.pas
    trunk/jcl/source/common/JclSysUtils.pas
    trunk/jcl/source/common/JclUnitConv.pas

Modified: trunk/jcl/source/common/JclBorlandTools.pas
===================================================================
--- trunk/jcl/source/common/JclBorlandTools.pas	2006-12-29 12:38:12 UTC (rev 1855)
+++ trunk/jcl/source/common/JclBorlandTools.pas	2006-12-30 09:04:59 UTC (rev 1856)
@@ -73,7 +73,7 @@
 
 // Various definitions
 type
-  EJclBorRADException = class(Exception);
+  EJclBorRADException = class(EJclError);
 
   TJclBorRADToolKind = (brDelphi, brCppBuilder, brBorlandDevStudio);
   {$IFDEF KYLIX}

Modified: trunk/jcl/source/common/JclPCRE.pas
===================================================================
--- trunk/jcl/source/common/JclPCRE.pas	2006-12-29 12:38:12 UTC (rev 1855)
+++ trunk/jcl/source/common/JclPCRE.pas	2006-12-30 09:04:59 UTC (rev 1856)
@@ -45,13 +45,13 @@
   {$IFDEF HAS_UNIT_LIBC}
   Libc,
   {$ENDIF HAS_UNIT_LIBC}
-  Classes, SysUtils;
+  Classes, SysUtils, JclBase;
 
 const
   JCL_PCRE_ERROR_STUDYFAILED = -999;
 
 type
-  EPCREError = class(Exception)
+  EPCREError = class(EJclError)
   private
     FErrorCode: Integer;
   public

Modified: trunk/jcl/source/common/JclSimpleXml.pas
===================================================================
--- trunk/jcl/source/common/JclSimpleXml.pas	2006-12-29 12:38:12 UTC (rev 1855)
+++ trunk/jcl/source/common/JclSimpleXml.pas	2006-12-30 09:04:59 UTC (rev 1856)
@@ -44,7 +44,8 @@
   {$IFDEF HAS_UNIT_VARIANTS}
   Variants,
   {$ENDIF HAS_UNIT_VARIANTS}
-  IniFiles;
+  IniFiles,
+  JclBase;
 
 type
   {$IFDEF COMPILER5}
@@ -52,7 +53,7 @@
   THandle = Longword;
   {$ENDIF COMPILER5}
   TJclSimpleXML = class;
-  EJclSimpleXMLError = class(Exception);
+  EJclSimpleXMLError = class(EJclError);
   {$M+} // generate RTTI for published properties
   TJclSimpleXMLElem = class;
   {$M-}

Modified: trunk/jcl/source/common/JclStreams.pas
===================================================================
--- trunk/jcl/source/common/JclStreams.pas	2006-12-29 12:38:12 UTC (rev 1855)
+++ trunk/jcl/source/common/JclStreams.pas	2006-12-30 09:04:59 UTC (rev 1856)
@@ -40,14 +40,15 @@
   {$IFDEF LINUX}
   Libc,
   {$ENDIF LINUX}
-  SysUtils, Classes;
+  SysUtils, Classes,
+  JclBase;
 
 type
   {$IFDEF COMPILER5}
   TSeekOrigin = (soBeginning, soCurrent, soEnd);
   {$ENDIF COMPILER5}
 
-  EJclStreamError = class(Exception);
+  EJclStreamError = class(EJclError);
   
   // abstraction layer to support Delphi 5 and C++Builder 5 streams
   // 64 bit version of overloaded functions are introduced
@@ -329,7 +330,7 @@
 implementation
 
 uses
-  JclBase, JclResources;
+  JclResources;
 
 {$IFDEF KYLIX}
 function __open(PathName: PChar; Flags: Integer; Mode: Integer): Integer; cdecl;

Modified: trunk/jcl/source/common/JclStrings.pas
===================================================================
--- trunk/jcl/source/common/JclStrings.pas	2006-12-29 12:38:12 UTC (rev 1855)
+++ trunk/jcl/source/common/JclStrings.pas	2006-12-30 09:04:59 UTC (rev 1856)
@@ -389,10 +389,10 @@
 {$ELSE}
 
 type
-  FormatException = class(Exception);
-  ArgumentException = class(Exception);
-  ArgumentNullException = class(Exception);
-  ArgumentOutOfRangeException = class(Exception);
+  FormatException = class(EJclError);
+  ArgumentException = class(EJclError);
+  ArgumentNullException = class(EJclError);
+  ArgumentOutOfRangeException = class(EJclError);
 
   IToString = interface
     ['{C4ABABB4-1029-46E7-B5FA-99800F130C05}']

Modified: trunk/jcl/source/common/JclSysUtils.pas
===================================================================
--- trunk/jcl/source/common/JclSysUtils.pas	2006-12-29 12:38:12 UTC (rev 1855)
+++ trunk/jcl/source/common/JclSysUtils.pas	2006-12-30 09:04:59 UTC (rev 1856)
@@ -109,7 +109,7 @@
 
 // Functions for the shared memory owner
 type
-  ESharedMemError = class(Exception);
+  ESharedMemError = class(EJclError);
 
 {$IFDEF MSWINDOWS}
 

Modified: trunk/jcl/source/common/JclUnitConv.pas
===================================================================
--- trunk/jcl/source/common/JclUnitConv.pas	2006-12-29 12:38:12 UTC (rev 1855)
+++ trunk/jcl/source/common/JclUnitConv.pas	2006-12-30 09:04:59 UTC (rev 1856)
@@ -94,7 +94,7 @@
 
 type
   { Exception classes }
-  EUnitConversionError = class(Exception);
+  EUnitConversionError = class(EJclError);
 
   ETemperatureConversionError = class(EUnitConversionError);
 


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: [1855] trunk/jcl/packages/d10.net

From: <ou...@us...> - 2006-12-29 12:38:16

Revision: 1855
          http://svn.sourceforge.net/jcl/?rev=1855&view=rev
Author:   outchy
Date:     2006-12-29 04:38:12 -0800 (Fri, 29 Dec 2006)

Log Message:
-----------
Fixed version number

Modified Paths:
--------------
    trunk/jcl/packages/d10.net/Jedi.Jcl.bdsproj
    trunk/jcl/packages/d10.net/template.bdsproj

Modified: trunk/jcl/packages/d10.net/Jedi.Jcl.bdsproj
===================================================================
--- trunk/jcl/packages/d10.net/Jedi.Jcl.bdsproj	2006-12-29 11:27:07 UTC (rev 1854)
+++ trunk/jcl/packages/d10.net/Jedi.Jcl.bdsproj	2006-12-29 12:38:12 UTC (rev 1855)
@@ -171,7 +171,7 @@
       <VersionInfoKeys Name="InternalName">Jedi.Jcl</VersionInfoKeys>
       <VersionInfoKeys Name="LegalCopyright">Copyright (C) 1999, 2005 Project JEDI</VersionInfoKeys>
       <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
-      <VersionInfoKeys Name="OriginalFilename">Jedi.Jcl110.dll</VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename">Jedi.Jcl100.dll</VersionInfoKeys>
       <VersionInfoKeys Name="ProductName">Jedi Code Library</VersionInfoKeys>
       <VersionInfoKeys Name="ProductVersion">1.97 Build 2172</VersionInfoKeys>
       <VersionInfoKeys Name="Comments"></VersionInfoKeys>

Modified: trunk/jcl/packages/d10.net/template.bdsproj
===================================================================
--- trunk/jcl/packages/d10.net/template.bdsproj	2006-12-29 11:27:07 UTC (rev 1854)
+++ trunk/jcl/packages/d10.net/template.bdsproj	2006-12-29 12:38:12 UTC (rev 1855)
@@ -171,7 +171,7 @@
       <VersionInfoKeys Name="InternalName">%NAME%</VersionInfoKeys>
       <VersionInfoKeys Name="LegalCopyright">Copyright (C) 1999, 2005 Project JEDI</VersionInfoKeys>
       <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
-      <VersionInfoKeys Name="OriginalFilename">%NAME%110%BINEXTENSION%</VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename">%NAME%100%BINEXTENSION%</VersionInfoKeys>
       <VersionInfoKeys Name="ProductName">Jedi Code Library</VersionInfoKeys>
       <VersionInfoKeys Name="ProductVersion">%VERSION_MAJOR_NUMBER%.%VERSION_MINOR_NUMBER% Build %BUILD_NUMBER%</VersionInfoKeys>
       <VersionInfoKeys Name="Comments"></VersionInfoKeys>


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: [1854] trunk/jcl/packages/d10.net

From: <ob...@us...> - 2006-12-29 11:27:10

Revision: 1854
          http://svn.sourceforge.net/jcl/?rev=1854&view=rev
Author:   obones
Date:     2006-12-29 03:27:07 -0800 (Fri, 29 Dec 2006)

Log Message:
-----------
Fixed version number

Modified Paths:
--------------
    trunk/jcl/packages/d10.net/Jedi.Jcl.bdsproj
    trunk/jcl/packages/d10.net/template.bdsproj

Modified: trunk/jcl/packages/d10.net/Jedi.Jcl.bdsproj
===================================================================
--- trunk/jcl/packages/d10.net/Jedi.Jcl.bdsproj	2006-12-27 16:12:00 UTC (rev 1853)
+++ trunk/jcl/packages/d10.net/Jedi.Jcl.bdsproj	2006-12-29 11:27:07 UTC (rev 1854)
@@ -1,4 +1,4 @@
-<?xml version="1.0" encoding="utf-8"?>
+<?xml version="1.0" encoding="utf-8"?>
 <BorlandProject>
   <PersonalityInfo>
     <Option>
@@ -171,7 +171,7 @@
       <VersionInfoKeys Name="InternalName">Jedi.Jcl</VersionInfoKeys>
       <VersionInfoKeys Name="LegalCopyright">Copyright (C) 1999, 2005 Project JEDI</VersionInfoKeys>
       <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
-      <VersionInfoKeys Name="OriginalFilename">Jedi.Jcl90.dll</VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename">Jedi.Jcl110.dll</VersionInfoKeys>
       <VersionInfoKeys Name="ProductName">Jedi Code Library</VersionInfoKeys>
       <VersionInfoKeys Name="ProductVersion">1.97 Build 2172</VersionInfoKeys>
       <VersionInfoKeys Name="Comments"></VersionInfoKeys>

Modified: trunk/jcl/packages/d10.net/template.bdsproj
===================================================================
--- trunk/jcl/packages/d10.net/template.bdsproj	2006-12-27 16:12:00 UTC (rev 1853)
+++ trunk/jcl/packages/d10.net/template.bdsproj	2006-12-29 11:27:07 UTC (rev 1854)
@@ -1,4 +1,4 @@
-<?xml version="1.0" encoding="utf-8"?>
+<?xml version="1.0" encoding="utf-8"?>
 <BorlandProject>
   <PersonalityInfo>
     <Option>
@@ -171,7 +171,7 @@
       <VersionInfoKeys Name="InternalName">%NAME%</VersionInfoKeys>
       <VersionInfoKeys Name="LegalCopyright">Copyright (C) 1999, 2005 Project JEDI</VersionInfoKeys>
       <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
-      <VersionInfoKeys Name="OriginalFilename">%NAME%90%BINEXTENSION%</VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename">%NAME%110%BINEXTENSION%</VersionInfoKeys>
       <VersionInfoKeys Name="ProductName">Jedi Code Library</VersionInfoKeys>
       <VersionInfoKeys Name="ProductVersion">%VERSION_MAJOR_NUMBER%.%VERSION_MINOR_NUMBER% Build %BUILD_NUMBER%</VersionInfoKeys>
       <VersionInfoKeys Name="Comments"></VersionInfoKeys>


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: [1853] trunk/jcl/source/common/JclWideStrings.pas

From: <ou...@us...> - 2006-12-27 16:12:05

Revision: 1853
          http://svn.sourceforge.net/jcl/?rev=1853&view=rev
Author:   outchy
Date:     2006-12-27 08:12:00 -0800 (Wed, 27 Dec 2006)

Log Message:
-----------
Mantis 3889 Donation from ZENsan adapted to WideReverse and WideReverseInPlace

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

Modified: trunk/jcl/source/common/JclWideStrings.pas
===================================================================
--- trunk/jcl/source/common/JclWideStrings.pas	2006-12-27 12:26:22 UTC (rev 1852)
+++ trunk/jcl/source/common/JclWideStrings.pas	2006-12-27 16:12:00 UTC (rev 1853)
@@ -18,6 +18,8 @@
 Contributors:
   Robert Marquardt (marquardt)
   Robert Rossmair (rrossmair)
+  ZENsan
+  Florent Ouchet (outchy)
 
 You may retrieve the latest version of this file at the Project JEDI's JCL home page,
 located at http://jcl.sourceforge.net
@@ -280,6 +282,8 @@
 function TrimW(const S: WideString): WideString;
 function TrimLeftW(const S: WideString): WideString;
 function TrimRightW(const S: WideString): WideString;
+function WideReverse(const AText: Widestring): Widestring;
+procedure WideReverseInPlace(var S: WideString);
 
 function TrimLeftLengthW(const S: WideString): Integer;
 function TrimRightLengthW(const S: WideString): Integer;
@@ -935,6 +939,33 @@
 end;
 {$ENDIF ~RTL150_UP}
 
+function WideReverse(const AText: Widestring): Widestring;
+begin
+  Result := AText;
+  WideReverseInPlace(Result);
+end;
+
+procedure WideReverseInPlace(var S: WideString);
+var
+  P1, P2: PWideChar;
+  C: WideChar;
+begin
+  // WideString are ref counted starting from COMPILER6_UP (Linux only)
+  {$IFDEF COMPILER6_UP}
+  UniqueString(S);
+  {$ENDIF COMPILER6_UP}
+  P1 := PWideChar(S);
+  P2 := PWideChar(S) + Length(S) - 1;
+  while P1 < P2 do
+  begin
+    C := P1^;
+    P1^ := P2^;
+    P2^ := C;
+    Inc(P1);
+    Dec(P2);
+  end;
+end;
+
 // functions missing in Delphi 5 / FPC
 {$IFNDEF RTL140_UP}
 


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: [1852] trunk/jcl/experts/debug/dialog/ExceptDlg.Delphi32. pas

From: <ou...@us...> - 2006-12-27 12:26:24

Revision: 1852
          http://svn.sourceforge.net/jcl/?rev=1852&view=rev
Author:   outchy
Date:     2006-12-27 04:26:22 -0800 (Wed, 27 Dec 2006)

Log Message:
-----------
Fixed compilation problem

Modified Paths:
--------------
    trunk/jcl/experts/debug/dialog/ExceptDlg.Delphi32.pas

Modified: trunk/jcl/experts/debug/dialog/ExceptDlg.Delphi32.pas
===================================================================
--- trunk/jcl/experts/debug/dialog/ExceptDlg.Delphi32.pas	2006-12-27 11:00:34 UTC (rev 1851)
+++ trunk/jcl/experts/debug/dialog/ExceptDlg.Delphi32.pas	2006-12-27 12:26:22 UTC (rev 1852)
@@ -326,7 +326,7 @@
         ProcessorDetails := ProcessorDetails + ' 3DNow!';
       if Is64Bits then
         ProcessorDetails := ProcessorDetails + ' 64 bits';
-      if DEPEnabled then
+      if DEPCapable then
         ProcessorDetails := ProcessorDetails + ' DEP';
     end;
     DetailsMemo.Lines.Add(ProcessorDetails);
@@ -506,14 +506,11 @@
 
 procedure T%FORMNAME%.ReportToLog;
 begin
-  if JclExcDlgReportToLog then
-  begin
-    FSimpleLog.WriteStamp(ReportMaxColumns);
-    try
-      FSimpleLog.Write(ReportAsText);
-    finally
-      FSimpleLog.CloseLog;
-    end;
+  FSimpleLog.WriteStamp(ReportMaxColumns);
+  try
+    FSimpleLog.Write(ReportAsText);
+  finally
+    FSimpleLog.CloseLog;
   end;
 end;
 %endif


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: [1851] trunk/jcl/install/JclInstall.pas

From: <ou...@us...> - 2006-12-27 11:00:38

Revision: 1851
          http://svn.sourceforge.net/jcl/?rev=1851&view=rev
Author:   outchy
Date:     2006-12-27 03:00:34 -0800 (Wed, 27 Dec 2006)

Log Message:
-----------
Mantis 4028 The installer displays %s instead of directories

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

Modified: trunk/jcl/install/JclInstall.pas
===================================================================
--- trunk/jcl/install/JclInstall.pas	2006-12-27 09:11:22 UTC (rev 1850)
+++ trunk/jcl/install/JclInstall.pas	2006-12-27 11:00:34 UTC (rev 1851)
@@ -865,7 +865,9 @@
       end;
 
       if bpBCBuilder32 in Target.Personalities then
-        AddOption(joCopyHppFiles, [goChecked], joMake);
+        AddOption(joCopyHppFiles, [goChecked], OptionData[joMake].Id,
+          Format(OptionData[joCopyHppFiles].Caption, [Target.VclIncludeDir]),
+          OptionData[joCopyHppFiles].Hint);
     end;
   end;
 
@@ -920,11 +922,15 @@
     begin
       if (Target.RadToolKind = brBorlandDevStudio) and (Target.VersionNumber >= 4) then
       begin
-        AddOption(joDualPackages, [goStandAloneParent, goChecked], Parent);
+        AddOption(joDualPackages, [goStandAloneParent, goChecked], OptionData[Parent].Id,
+          Format(OptionData[joCopyPackagesHppFiles].Caption, [Target.VclIncludeDir]),
+          OptionData[joCopyPackagesHppFiles].Hint);
         AddOption(joCopyPackagesHppFiles, [goChecked], joDualPackages);
       end
       else
-        AddOption(joCopyPackagesHppFiles, [goChecked], Parent);
+        AddOption(joCopyPackagesHppFiles, [goChecked], OptionData[Parent].Id,
+          Format(OptionData[joCopyPackagesHppFiles].Caption, [Target.VclIncludeDir]),
+          OptionData[joCopyPackagesHppFiles].Hint);
     end;
 
     if CLRVersion = '' 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: [1850] trunk/jcl

From: <ou...@us...> - 2006-12-27 09:11:24

Revision: 1850
          http://svn.sourceforge.net/jcl/?rev=1850&view=rev
Author:   outchy
Date:     2006-12-27 01:11:22 -0800 (Wed, 27 Dec 2006)

Log Message:
-----------
Loads project options from the .bdsproj file if present rather than from the .dof file.

Modified Paths:
--------------
    trunk/jcl/packages/cs1/Jcl.bdsproj
    trunk/jcl/packages/cs1/JclBaseExpert.bdsproj
    trunk/jcl/packages/cs1/JclFavoriteFoldersExpertDLL.bdsproj
    trunk/jcl/packages/cs1/JclVersionControlExpertDLL.bdsproj
    trunk/jcl/packages/cs1/template.bdsproj
    trunk/jcl/packages/d10/Jcl.bdsproj
    trunk/jcl/packages/d10/JclBaseExpert.bdsproj
    trunk/jcl/packages/d10/JclDebugExpert.bdsproj
    trunk/jcl/packages/d10/JclDebugExpertDLL.bdsproj
    trunk/jcl/packages/d10/JclFavoriteFoldersExpert.bdsproj
    trunk/jcl/packages/d10/JclFavoriteFoldersExpertDLL.bdsproj
    trunk/jcl/packages/d10/JclProjectAnalysisExpert.bdsproj
    trunk/jcl/packages/d10/JclProjectAnalysisExpertDLL.bdsproj
    trunk/jcl/packages/d10/JclRepositoryExpert.bdsproj
    trunk/jcl/packages/d10/JclRepositoryExpertDLL.bdsproj
    trunk/jcl/packages/d10/JclSIMDViewExpert.bdsproj
    trunk/jcl/packages/d10/JclSIMDViewExpertDLL.bdsproj
    trunk/jcl/packages/d10/JclThreadNameExpert.bdsproj
    trunk/jcl/packages/d10/JclThreadNameExpertDLL.bdsproj
    trunk/jcl/packages/d10/JclUsesExpert.bdsproj
    trunk/jcl/packages/d10/JclUsesExpertDLL.bdsproj
    trunk/jcl/packages/d10/JclVcl.bdsproj
    trunk/jcl/packages/d10/JclVersionControlExpert.bdsproj
    trunk/jcl/packages/d10/JclVersionControlExpertDLL.bdsproj
    trunk/jcl/packages/d10/template.bdsproj
    trunk/jcl/packages/d10.net/Jedi.Jcl.bdsproj
    trunk/jcl/packages/d10.net/template.bdsproj
    trunk/jcl/packages/d8/Jcl.bdsproj
    trunk/jcl/packages/d8/JclBaseExpert.bdsproj
    trunk/jcl/packages/d8/JclFavoriteFoldersExpertDLL.bdsproj
    trunk/jcl/packages/d8/JclVersionControlExpertDLL.bdsproj
    trunk/jcl/packages/d8/template.bdsproj
    trunk/jcl/packages/d9/Jcl.bdsproj
    trunk/jcl/packages/d9/JclBaseExpert.bdsproj
    trunk/jcl/packages/d9/JclDebugExpert.bdsproj
    trunk/jcl/packages/d9/JclDebugExpertDLL.bdsproj
    trunk/jcl/packages/d9/JclFavoriteFoldersExpert.bdsproj
    trunk/jcl/packages/d9/JclFavoriteFoldersExpertDLL.bdsproj
    trunk/jcl/packages/d9/JclProjectAnalysisExpert.bdsproj
    trunk/jcl/packages/d9/JclProjectAnalysisExpertDLL.bdsproj
    trunk/jcl/packages/d9/JclRepositoryExpert.bdsproj
    trunk/jcl/packages/d9/JclRepositoryExpertDLL.bdsproj
    trunk/jcl/packages/d9/JclSIMDViewExpert.bdsproj
    trunk/jcl/packages/d9/JclSIMDViewExpertDLL.bdsproj
    trunk/jcl/packages/d9/JclThreadNameExpert.bdsproj
    trunk/jcl/packages/d9/JclThreadNameExpertDLL.bdsproj
    trunk/jcl/packages/d9/JclUsesExpert.bdsproj
    trunk/jcl/packages/d9/JclUsesExpertDLL.bdsproj
    trunk/jcl/packages/d9/JclVcl.bdsproj
    trunk/jcl/packages/d9/JclVersionControlExpert.bdsproj
    trunk/jcl/packages/d9/JclVersionControlExpertDLL.bdsproj
    trunk/jcl/packages/d9/template.bdsproj
    trunk/jcl/packages/d9.net/Jedi.Jcl.bdsproj
    trunk/jcl/packages/d9.net/template.bdsproj
    trunk/jcl/packages/k3/Jcl.kof
    trunk/jcl/packages/k3/JclVClx.kof
    trunk/jcl/source/common/JclBorlandTools.pas

Removed Paths:
-------------
    trunk/jcl/packages/cs1/Jcl.dof
    trunk/jcl/packages/cs1/JclBaseExpert.dof
    trunk/jcl/packages/cs1/JclFavoriteFoldersExpertDLL.dof
    trunk/jcl/packages/cs1/JclVersionControlExpertDLL.dof
    trunk/jcl/packages/cs1/template.dof
    trunk/jcl/packages/d10/Jcl.dof
    trunk/jcl/packages/d10/JclBaseExpert.dof
    trunk/jcl/packages/d10/JclDebugExpert.dof
    trunk/jcl/packages/d10/JclDebugExpertDLL.dof
    trunk/jcl/packages/d10/JclFavoriteFoldersExpert.dof
    trunk/jcl/packages/d10/JclFavoriteFoldersExpertDLL.dof
    trunk/jcl/packages/d10/JclProjectAnalysisExpert.dof
    trunk/jcl/packages/d10/JclProjectAnalysisExpertDLL.dof
    trunk/jcl/packages/d10/JclRepositoryExpert.dof
    trunk/jcl/packages/d10/JclRepositoryExpertDLL.dof
    trunk/jcl/packages/d10/JclSIMDViewExpert.dof
    trunk/jcl/packages/d10/JclSIMDViewExpertDLL.dof
    trunk/jcl/packages/d10/JclThreadNameExpert.dof
    trunk/jcl/packages/d10/JclThreadNameExpertDLL.dof
    trunk/jcl/packages/d10/JclUsesExpert.dof
    trunk/jcl/packages/d10/JclUsesExpertDLL.dof
    trunk/jcl/packages/d10/JclVcl.dof
    trunk/jcl/packages/d10/JclVersionControlExpert.dof
    trunk/jcl/packages/d10/JclVersionControlExpertDLL.dof
    trunk/jcl/packages/d10/template.dof
    trunk/jcl/packages/d8/Jcl.dof
    trunk/jcl/packages/d8/JclBaseExpert.dof
    trunk/jcl/packages/d8/JclFavoriteFoldersExpertDLL.dof
    trunk/jcl/packages/d8/JclVersionControlExpertDLL.dof
    trunk/jcl/packages/d8/template.dof
    trunk/jcl/packages/d9/Jcl.dof
    trunk/jcl/packages/d9/JclBaseExpert.dof
    trunk/jcl/packages/d9/JclDebugExpert.dof
    trunk/jcl/packages/d9/JclDebugExpertDLL.dof
    trunk/jcl/packages/d9/JclFavoriteFoldersExpert.dof
    trunk/jcl/packages/d9/JclFavoriteFoldersExpertDLL.dof
    trunk/jcl/packages/d9/JclProjectAnalysisExpert.dof
    trunk/jcl/packages/d9/JclProjectAnalysisExpertDLL.dof
    trunk/jcl/packages/d9/JclRepositoryExpert.dof
    trunk/jcl/packages/d9/JclRepositoryExpertDLL.dof
    trunk/jcl/packages/d9/JclSIMDViewExpert.dof
    trunk/jcl/packages/d9/JclSIMDViewExpertDLL.dof
    trunk/jcl/packages/d9/JclThreadNameExpert.dof
    trunk/jcl/packages/d9/JclThreadNameExpertDLL.dof
    trunk/jcl/packages/d9/JclUsesExpert.dof
    trunk/jcl/packages/d9/JclUsesExpertDLL.dof
    trunk/jcl/packages/d9/JclVcl.dof
    trunk/jcl/packages/d9/JclVersionControlExpert.dof
    trunk/jcl/packages/d9/JclVersionControlExpertDLL.dof
    trunk/jcl/packages/d9/template.dof

Modified: trunk/jcl/packages/cs1/Jcl.bdsproj
===================================================================
--- trunk/jcl/packages/cs1/Jcl.bdsproj	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/cs1/Jcl.bdsproj	2006-12-27 09:11:22 UTC (rev 1850)
@@ -121,8 +121,8 @@
       <Directories Name="UnitOutputDir">..\..\lib\cs1</Directories>
       <Directories Name="PackageDLLOutputDir"></Directories>
       <Directories Name="PackageDCPOutputDir">..\..\lib\cs1</Directories>
-      <Directories Name="SearchPath">..\..\common</Directories>
-      <Directories Name="Packages"></Directories>
+      <Directories Name="SearchPath">..\..\lib\cs1;..\..\source</Directories>
+      <Directories Name="Packages">rtl</Directories>
       <Directories Name="Conditionals"></Directories>
       <Directories Name="DebugSourceDirs"></Directories>
       <Directories Name="UsePackages">True</Directories>

Deleted: trunk/jcl/packages/cs1/Jcl.dof
===================================================================
--- trunk/jcl/packages/cs1/Jcl.dof	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/cs1/Jcl.dof	2006-12-27 09:11:22 UTC (rev 1850)
@@ -1,7 +0,0 @@
-[Directories]
-UnitOutputDir=..\..\lib\cs1
-SearchPath=..\..\source;..\..\experts\common
-[Compiler]
-PackageNoLink=1
-[Linker]
-Packages=rtl

Modified: trunk/jcl/packages/cs1/JclBaseExpert.bdsproj
===================================================================
--- trunk/jcl/packages/cs1/JclBaseExpert.bdsproj	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/cs1/JclBaseExpert.bdsproj	2006-12-27 09:11:22 UTC (rev 1850)
@@ -121,8 +121,8 @@
       <Directories Name="UnitOutputDir">..\..\lib\cs1</Directories>
       <Directories Name="PackageDLLOutputDir"></Directories>
       <Directories Name="PackageDCPOutputDir">..\..\lib\cs1</Directories>
-      <Directories Name="SearchPath">..\..\common</Directories>
-      <Directories Name="Packages"></Directories>
+      <Directories Name="SearchPath">..\..\lib\cs1;..\..\source</Directories>
+      <Directories Name="Packages">rtl;vcl;designide;Jcl</Directories>
       <Directories Name="Conditionals"></Directories>
       <Directories Name="DebugSourceDirs"></Directories>
       <Directories Name="UsePackages">True</Directories>

Deleted: trunk/jcl/packages/cs1/JclBaseExpert.dof
===================================================================
--- trunk/jcl/packages/cs1/JclBaseExpert.dof	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/cs1/JclBaseExpert.dof	2006-12-27 09:11:22 UTC (rev 1850)
@@ -1,7 +0,0 @@
-[Directories]
-UnitOutputDir=..\..\lib\cs1
-SearchPath=..\..\source;..\..\experts\common
-[Compiler]
-PackageNoLink=1
-[Linker]
-Packages=rtl;vcl;designide;Jcl

Modified: trunk/jcl/packages/cs1/JclFavoriteFoldersExpertDLL.bdsproj
===================================================================
--- trunk/jcl/packages/cs1/JclFavoriteFoldersExpertDLL.bdsproj	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/cs1/JclFavoriteFoldersExpertDLL.bdsproj	2006-12-27 09:11:22 UTC (rev 1850)
@@ -121,8 +121,8 @@
       <Directories Name="UnitOutputDir">..\..\lib\cs1</Directories>
       <Directories Name="PackageDLLOutputDir"></Directories>
       <Directories Name="PackageDCPOutputDir">..\..\lib\cs1</Directories>
-      <Directories Name="SearchPath">..\..\common</Directories>
-      <Directories Name="Packages"></Directories>
+      <Directories Name="SearchPath">..\..\lib\cs1;..\..\source</Directories>
+      <Directories Name="Packages">rtl;vcl;designide;Jcl;JclBaseExpert</Directories>
       <Directories Name="Conditionals"></Directories>
       <Directories Name="DebugSourceDirs"></Directories>
       <Directories Name="UsePackages">True</Directories>

Deleted: trunk/jcl/packages/cs1/JclFavoriteFoldersExpertDLL.dof
===================================================================
--- trunk/jcl/packages/cs1/JclFavoriteFoldersExpertDLL.dof	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/cs1/JclFavoriteFoldersExpertDLL.dof	2006-12-27 09:11:22 UTC (rev 1850)
@@ -1,7 +0,0 @@
-[Directories]
-UnitOutputDir=..\..\lib\cs1
-SearchPath=..\..\source;..\..\experts\common
-[Compiler]
-PackageNoLink=1
-[Linker]
-Packages=rtl;vcl;designide;Jcl;JclBaseExpert

Modified: trunk/jcl/packages/cs1/JclVersionControlExpertDLL.bdsproj
===================================================================
--- trunk/jcl/packages/cs1/JclVersionControlExpertDLL.bdsproj	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/cs1/JclVersionControlExpertDLL.bdsproj	2006-12-27 09:11:22 UTC (rev 1850)
@@ -121,8 +121,8 @@
       <Directories Name="UnitOutputDir">..\..\lib\cs1</Directories>
       <Directories Name="PackageDLLOutputDir"></Directories>
       <Directories Name="PackageDCPOutputDir">..\..\lib\cs1</Directories>
-      <Directories Name="SearchPath">..\..\common</Directories>
-      <Directories Name="Packages"></Directories>
+      <Directories Name="SearchPath">..\..\lib\cs1;..\..\source</Directories>
+      <Directories Name="Packages">rtl;vcl;designide;Jcl;JclBaseExpert</Directories>
       <Directories Name="Conditionals"></Directories>
       <Directories Name="DebugSourceDirs"></Directories>
       <Directories Name="UsePackages">True</Directories>

Deleted: trunk/jcl/packages/cs1/JclVersionControlExpertDLL.dof
===================================================================
--- trunk/jcl/packages/cs1/JclVersionControlExpertDLL.dof	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/cs1/JclVersionControlExpertDLL.dof	2006-12-27 09:11:22 UTC (rev 1850)
@@ -1,7 +0,0 @@
-[Directories]
-UnitOutputDir=..\..\lib\cs1
-SearchPath=..\..\source;..\..\experts\common
-[Compiler]
-PackageNoLink=1
-[Linker]
-Packages=rtl;vcl;designide;Jcl;JclBaseExpert

Modified: trunk/jcl/packages/cs1/template.bdsproj
===================================================================
--- trunk/jcl/packages/cs1/template.bdsproj	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/cs1/template.bdsproj	2006-12-27 09:11:22 UTC (rev 1850)
@@ -121,8 +121,8 @@
       <Directories Name="UnitOutputDir">..\..\lib\cs1</Directories>
       <Directories Name="PackageDLLOutputDir"></Directories>
       <Directories Name="PackageDCPOutputDir">..\..\lib\cs1</Directories>
-      <Directories Name="SearchPath">..\..\common</Directories>
-      <Directories Name="Packages"></Directories>
+      <Directories Name="SearchPath">..\..\lib\cs1;..\..\source</Directories>
+      <Directories Name="Packages">%NOLINKPACKAGELIST%</Directories>
       <Directories Name="Conditionals"></Directories>
       <Directories Name="DebugSourceDirs"></Directories>
       <Directories Name="UsePackages">True</Directories>

Deleted: trunk/jcl/packages/cs1/template.dof
===================================================================
--- trunk/jcl/packages/cs1/template.dof	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/cs1/template.dof	2006-12-27 09:11:22 UTC (rev 1850)
@@ -1,9 +0,0 @@
-[Directories]
-UnitOutputDir=..\..\lib\cs1
-SearchPath=..\..\source;..\..\experts\common
-<%%% BEGIN EXPERTONLY %%%>
-[Compiler]
-PackageNoLink=1
-[Linker]
-Packages=%NOLINKPACKAGELIST%
-<%%% END EXPERTONLY %%%>
\ No newline at end of file

Modified: trunk/jcl/packages/d10/Jcl.bdsproj
===================================================================
--- trunk/jcl/packages/d10/Jcl.bdsproj	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d10/Jcl.bdsproj	2006-12-27 09:11:22 UTC (rev 1850)
@@ -120,7 +120,7 @@
     </Linker>
     <Directories>
       <Directories Name="UnitOutputDir">..\..\lib\d10</Directories>
-      <Directories Name="SearchPath">..\..\source</Directories>
+      <Directories Name="SearchPath">..\..\lib\d10;..\..\source</Directories>
       <Directories Name="OutputDir"></Directories>
       <Directories Name="PackageDLLOutputDir"></Directories>
       <Directories Name="PackageDCPOutputDir">..\..\lib\d10</Directories>

Deleted: trunk/jcl/packages/d10/Jcl.dof
===================================================================
--- trunk/jcl/packages/d10/Jcl.dof	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d10/Jcl.dof	2006-12-27 09:11:22 UTC (rev 1850)
@@ -1,4 +0,0 @@
-[Directories]
-UnitOutputDir=..\..\lib\d10
-SearchPath=..\..\source
-

Modified: trunk/jcl/packages/d10/JclBaseExpert.bdsproj
===================================================================
--- trunk/jcl/packages/d10/JclBaseExpert.bdsproj	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d10/JclBaseExpert.bdsproj	2006-12-27 09:11:22 UTC (rev 1850)
@@ -120,7 +120,7 @@
     </Linker>
     <Directories>
       <Directories Name="UnitOutputDir">..\..\lib\d10</Directories>
-      <Directories Name="SearchPath">..\..\source</Directories>
+      <Directories Name="SearchPath">..\..\lib\d10;..\..\source</Directories>
       <Directories Name="OutputDir"></Directories>
       <Directories Name="PackageDLLOutputDir"></Directories>
       <Directories Name="PackageDCPOutputDir">..\..\lib\d10</Directories>

Deleted: trunk/jcl/packages/d10/JclBaseExpert.dof
===================================================================
--- trunk/jcl/packages/d10/JclBaseExpert.dof	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d10/JclBaseExpert.dof	2006-12-27 09:11:22 UTC (rev 1850)
@@ -1,4 +0,0 @@
-[Directories]
-UnitOutputDir=..\..\lib\d10
-SearchPath=..\..\source
-

Modified: trunk/jcl/packages/d10/JclDebugExpert.bdsproj
===================================================================
--- trunk/jcl/packages/d10/JclDebugExpert.bdsproj	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d10/JclDebugExpert.bdsproj	2006-12-27 09:11:22 UTC (rev 1850)
@@ -120,7 +120,7 @@
     </Linker>
     <Directories>
       <Directories Name="UnitOutputDir">..\..\lib\d10</Directories>
-      <Directories Name="SearchPath">..\..\source</Directories>
+      <Directories Name="SearchPath">..\..\lib\d10;..\..\source</Directories>
       <Directories Name="OutputDir"></Directories>
       <Directories Name="PackageDLLOutputDir"></Directories>
       <Directories Name="PackageDCPOutputDir">..\..\lib\d10</Directories>

Deleted: trunk/jcl/packages/d10/JclDebugExpert.dof
===================================================================
--- trunk/jcl/packages/d10/JclDebugExpert.dof	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d10/JclDebugExpert.dof	2006-12-27 09:11:22 UTC (rev 1850)
@@ -1,4 +0,0 @@
-[Directories]
-UnitOutputDir=..\..\lib\d10
-SearchPath=..\..\source
-

Modified: trunk/jcl/packages/d10/JclDebugExpertDLL.bdsproj
===================================================================
--- trunk/jcl/packages/d10/JclDebugExpertDLL.bdsproj	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d10/JclDebugExpertDLL.bdsproj	2006-12-27 09:11:22 UTC (rev 1850)
@@ -120,7 +120,7 @@
     </Linker>
     <Directories>
       <Directories Name="UnitOutputDir">..\..\lib\d10</Directories>
-      <Directories Name="SearchPath">..\..\source</Directories>
+      <Directories Name="SearchPath">..\..\lib\d10;..\..\source</Directories>
       <Directories Name="OutputDir"></Directories>
       <Directories Name="PackageDLLOutputDir"></Directories>
       <Directories Name="PackageDCPOutputDir">..\..\lib\d10</Directories>

Deleted: trunk/jcl/packages/d10/JclDebugExpertDLL.dof
===================================================================
--- trunk/jcl/packages/d10/JclDebugExpertDLL.dof	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d10/JclDebugExpertDLL.dof	2006-12-27 09:11:22 UTC (rev 1850)
@@ -1,8 +0,0 @@
-[Directories]
-UnitOutputDir=..\..\lib\d10
-SearchPath=..\..\source
-[Compiler]
-PackageNoLink=1
-[Linker]
-Packages=rtl;vcl;designide;Jcl;JclBaseExpert
-

Modified: trunk/jcl/packages/d10/JclFavoriteFoldersExpert.bdsproj
===================================================================
--- trunk/jcl/packages/d10/JclFavoriteFoldersExpert.bdsproj	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d10/JclFavoriteFoldersExpert.bdsproj	2006-12-27 09:11:22 UTC (rev 1850)
@@ -120,7 +120,7 @@
     </Linker>
     <Directories>
       <Directories Name="UnitOutputDir">..\..\lib\d10</Directories>
-      <Directories Name="SearchPath">..\..\source</Directories>
+      <Directories Name="SearchPath">..\..\lib\d10;..\..\source</Directories>
       <Directories Name="OutputDir"></Directories>
       <Directories Name="PackageDLLOutputDir"></Directories>
       <Directories Name="PackageDCPOutputDir">..\..\lib\d10</Directories>

Deleted: trunk/jcl/packages/d10/JclFavoriteFoldersExpert.dof
===================================================================
--- trunk/jcl/packages/d10/JclFavoriteFoldersExpert.dof	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d10/JclFavoriteFoldersExpert.dof	2006-12-27 09:11:22 UTC (rev 1850)
@@ -1,4 +0,0 @@
-[Directories]
-UnitOutputDir=..\..\lib\d10
-SearchPath=..\..\source
-

Modified: trunk/jcl/packages/d10/JclFavoriteFoldersExpertDLL.bdsproj
===================================================================
--- trunk/jcl/packages/d10/JclFavoriteFoldersExpertDLL.bdsproj	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d10/JclFavoriteFoldersExpertDLL.bdsproj	2006-12-27 09:11:22 UTC (rev 1850)
@@ -120,7 +120,7 @@
     </Linker>
     <Directories>
       <Directories Name="UnitOutputDir">..\..\lib\d10</Directories>
-      <Directories Name="SearchPath">..\..\source</Directories>
+      <Directories Name="SearchPath">..\..\lib\d10;..\..\source</Directories>
       <Directories Name="OutputDir"></Directories>
       <Directories Name="PackageDLLOutputDir"></Directories>
       <Directories Name="PackageDCPOutputDir">..\..\lib\d10</Directories>

Deleted: trunk/jcl/packages/d10/JclFavoriteFoldersExpertDLL.dof
===================================================================
--- trunk/jcl/packages/d10/JclFavoriteFoldersExpertDLL.dof	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d10/JclFavoriteFoldersExpertDLL.dof	2006-12-27 09:11:22 UTC (rev 1850)
@@ -1,8 +0,0 @@
-[Directories]
-UnitOutputDir=..\..\lib\d10
-SearchPath=..\..\source
-[Compiler]
-PackageNoLink=1
-[Linker]
-Packages=rtl;vcl;designide;Jcl;JclBaseExpert
-

Modified: trunk/jcl/packages/d10/JclProjectAnalysisExpert.bdsproj
===================================================================
--- trunk/jcl/packages/d10/JclProjectAnalysisExpert.bdsproj	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d10/JclProjectAnalysisExpert.bdsproj	2006-12-27 09:11:22 UTC (rev 1850)
@@ -120,7 +120,7 @@
     </Linker>
     <Directories>
       <Directories Name="UnitOutputDir">..\..\lib\d10</Directories>
-      <Directories Name="SearchPath">..\..\source</Directories>
+      <Directories Name="SearchPath">..\..\lib\d10;..\..\source</Directories>
       <Directories Name="OutputDir"></Directories>
       <Directories Name="PackageDLLOutputDir"></Directories>
       <Directories Name="PackageDCPOutputDir">..\..\lib\d10</Directories>

Deleted: trunk/jcl/packages/d10/JclProjectAnalysisExpert.dof
===================================================================
--- trunk/jcl/packages/d10/JclProjectAnalysisExpert.dof	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d10/JclProjectAnalysisExpert.dof	2006-12-27 09:11:22 UTC (rev 1850)
@@ -1,4 +0,0 @@
-[Directories]
-UnitOutputDir=..\..\lib\d10
-SearchPath=..\..\source
-

Modified: trunk/jcl/packages/d10/JclProjectAnalysisExpertDLL.bdsproj
===================================================================
--- trunk/jcl/packages/d10/JclProjectAnalysisExpertDLL.bdsproj	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d10/JclProjectAnalysisExpertDLL.bdsproj	2006-12-27 09:11:22 UTC (rev 1850)
@@ -120,7 +120,7 @@
     </Linker>
     <Directories>
       <Directories Name="UnitOutputDir">..\..\lib\d10</Directories>
-      <Directories Name="SearchPath">..\..\source</Directories>
+      <Directories Name="SearchPath">..\..\lib\d10;..\..\source</Directories>
       <Directories Name="OutputDir"></Directories>
       <Directories Name="PackageDLLOutputDir"></Directories>
       <Directories Name="PackageDCPOutputDir">..\..\lib\d10</Directories>

Deleted: trunk/jcl/packages/d10/JclProjectAnalysisExpertDLL.dof
===================================================================
--- trunk/jcl/packages/d10/JclProjectAnalysisExpertDLL.dof	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d10/JclProjectAnalysisExpertDLL.dof	2006-12-27 09:11:22 UTC (rev 1850)
@@ -1,8 +0,0 @@
-[Directories]
-UnitOutputDir=..\..\lib\d10
-SearchPath=..\..\source
-[Compiler]
-PackageNoLink=1
-[Linker]
-Packages=rtl;vcl;designide;Jcl;JclBaseExpert
-

Modified: trunk/jcl/packages/d10/JclRepositoryExpert.bdsproj
===================================================================
--- trunk/jcl/packages/d10/JclRepositoryExpert.bdsproj	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d10/JclRepositoryExpert.bdsproj	2006-12-27 09:11:22 UTC (rev 1850)
@@ -120,7 +120,7 @@
     </Linker>
     <Directories>
       <Directories Name="UnitOutputDir">..\..\lib\d10</Directories>
-      <Directories Name="SearchPath">..\..\source</Directories>
+      <Directories Name="SearchPath">..\..\lib\d10;..\..\source</Directories>
       <Directories Name="OutputDir"></Directories>
       <Directories Name="PackageDLLOutputDir"></Directories>
       <Directories Name="PackageDCPOutputDir">..\..\lib\d10</Directories>

Deleted: trunk/jcl/packages/d10/JclRepositoryExpert.dof
===================================================================
--- trunk/jcl/packages/d10/JclRepositoryExpert.dof	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d10/JclRepositoryExpert.dof	2006-12-27 09:11:22 UTC (rev 1850)
@@ -1,4 +0,0 @@
-[Directories]
-UnitOutputDir=..\..\lib\d10
-SearchPath=..\..\source
-

Modified: trunk/jcl/packages/d10/JclRepositoryExpertDLL.bdsproj
===================================================================
--- trunk/jcl/packages/d10/JclRepositoryExpertDLL.bdsproj	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d10/JclRepositoryExpertDLL.bdsproj	2006-12-27 09:11:22 UTC (rev 1850)
@@ -120,7 +120,7 @@
     </Linker>
     <Directories>
       <Directories Name="UnitOutputDir">..\..\lib\d10</Directories>
-      <Directories Name="SearchPath">..\..\source</Directories>
+      <Directories Name="SearchPath">..\..\lib\d10;..\..\source</Directories>
       <Directories Name="OutputDir"></Directories>
       <Directories Name="PackageDLLOutputDir"></Directories>
       <Directories Name="PackageDCPOutputDir">..\..\lib\d10</Directories>

Deleted: trunk/jcl/packages/d10/JclRepositoryExpertDLL.dof
===================================================================
--- trunk/jcl/packages/d10/JclRepositoryExpertDLL.dof	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d10/JclRepositoryExpertDLL.dof	2006-12-27 09:11:22 UTC (rev 1850)
@@ -1,8 +0,0 @@
-[Directories]
-UnitOutputDir=..\..\lib\d10
-SearchPath=..\..\source
-[Compiler]
-PackageNoLink=1
-[Linker]
-Packages=rtl;vcl;designide;Jcl;JclBaseExpert
-

Modified: trunk/jcl/packages/d10/JclSIMDViewExpert.bdsproj
===================================================================
--- trunk/jcl/packages/d10/JclSIMDViewExpert.bdsproj	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d10/JclSIMDViewExpert.bdsproj	2006-12-27 09:11:22 UTC (rev 1850)
@@ -120,7 +120,7 @@
     </Linker>
     <Directories>
       <Directories Name="UnitOutputDir">..\..\lib\d10</Directories>
-      <Directories Name="SearchPath">..\..\source</Directories>
+      <Directories Name="SearchPath">..\..\lib\d10;..\..\source</Directories>
       <Directories Name="OutputDir"></Directories>
       <Directories Name="PackageDLLOutputDir"></Directories>
       <Directories Name="PackageDCPOutputDir">..\..\lib\d10</Directories>

Deleted: trunk/jcl/packages/d10/JclSIMDViewExpert.dof
===================================================================
--- trunk/jcl/packages/d10/JclSIMDViewExpert.dof	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d10/JclSIMDViewExpert.dof	2006-12-27 09:11:22 UTC (rev 1850)
@@ -1,4 +0,0 @@
-[Directories]
-UnitOutputDir=..\..\lib\d10
-SearchPath=..\..\source
-

Modified: trunk/jcl/packages/d10/JclSIMDViewExpertDLL.bdsproj
===================================================================
--- trunk/jcl/packages/d10/JclSIMDViewExpertDLL.bdsproj	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d10/JclSIMDViewExpertDLL.bdsproj	2006-12-27 09:11:22 UTC (rev 1850)
@@ -120,7 +120,7 @@
     </Linker>
     <Directories>
       <Directories Name="UnitOutputDir">..\..\lib\d10</Directories>
-      <Directories Name="SearchPath">..\..\source</Directories>
+      <Directories Name="SearchPath">..\..\lib\d10;..\..\source</Directories>
       <Directories Name="OutputDir"></Directories>
       <Directories Name="PackageDLLOutputDir"></Directories>
       <Directories Name="PackageDCPOutputDir">..\..\lib\d10</Directories>

Deleted: trunk/jcl/packages/d10/JclSIMDViewExpertDLL.dof
===================================================================
--- trunk/jcl/packages/d10/JclSIMDViewExpertDLL.dof	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d10/JclSIMDViewExpertDLL.dof	2006-12-27 09:11:22 UTC (rev 1850)
@@ -1,8 +0,0 @@
-[Directories]
-UnitOutputDir=..\..\lib\d10
-SearchPath=..\..\source
-[Compiler]
-PackageNoLink=1
-[Linker]
-Packages=rtl;vcl;designide;Jcl;JclBaseExpert
-

Modified: trunk/jcl/packages/d10/JclThreadNameExpert.bdsproj
===================================================================
--- trunk/jcl/packages/d10/JclThreadNameExpert.bdsproj	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d10/JclThreadNameExpert.bdsproj	2006-12-27 09:11:22 UTC (rev 1850)
@@ -120,7 +120,7 @@
     </Linker>
     <Directories>
       <Directories Name="UnitOutputDir">..\..\lib\d10</Directories>
-      <Directories Name="SearchPath">..\..\source</Directories>
+      <Directories Name="SearchPath">..\..\lib\d10;..\..\source</Directories>
       <Directories Name="OutputDir"></Directories>
       <Directories Name="PackageDLLOutputDir"></Directories>
       <Directories Name="PackageDCPOutputDir">..\..\lib\d10</Directories>

Deleted: trunk/jcl/packages/d10/JclThreadNameExpert.dof
===================================================================
--- trunk/jcl/packages/d10/JclThreadNameExpert.dof	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d10/JclThreadNameExpert.dof	2006-12-27 09:11:22 UTC (rev 1850)
@@ -1,4 +0,0 @@
-[Directories]
-UnitOutputDir=..\..\lib\d10
-SearchPath=..\..\source
-

Modified: trunk/jcl/packages/d10/JclThreadNameExpertDLL.bdsproj
===================================================================
--- trunk/jcl/packages/d10/JclThreadNameExpertDLL.bdsproj	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d10/JclThreadNameExpertDLL.bdsproj	2006-12-27 09:11:22 UTC (rev 1850)
@@ -120,7 +120,7 @@
     </Linker>
     <Directories>
       <Directories Name="UnitOutputDir">..\..\lib\d10</Directories>
-      <Directories Name="SearchPath">..\..\source</Directories>
+      <Directories Name="SearchPath">..\..\lib\d10;..\..\source</Directories>
       <Directories Name="OutputDir"></Directories>
       <Directories Name="PackageDLLOutputDir"></Directories>
       <Directories Name="PackageDCPOutputDir">..\..\lib\d10</Directories>

Deleted: trunk/jcl/packages/d10/JclThreadNameExpertDLL.dof
===================================================================
--- trunk/jcl/packages/d10/JclThreadNameExpertDLL.dof	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d10/JclThreadNameExpertDLL.dof	2006-12-27 09:11:22 UTC (rev 1850)
@@ -1,8 +0,0 @@
-[Directories]
-UnitOutputDir=..\..\lib\d10
-SearchPath=..\..\source
-[Compiler]
-PackageNoLink=1
-[Linker]
-Packages=rtl;vcl;designide;Jcl;JclBaseExpert
-

Modified: trunk/jcl/packages/d10/JclUsesExpert.bdsproj
===================================================================
--- trunk/jcl/packages/d10/JclUsesExpert.bdsproj	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d10/JclUsesExpert.bdsproj	2006-12-27 09:11:22 UTC (rev 1850)
@@ -120,7 +120,7 @@
     </Linker>
     <Directories>
       <Directories Name="UnitOutputDir">..\..\lib\d10</Directories>
-      <Directories Name="SearchPath">..\..\source</Directories>
+      <Directories Name="SearchPath">..\..\lib\d10;..\..\source</Directories>
       <Directories Name="OutputDir"></Directories>
       <Directories Name="PackageDLLOutputDir"></Directories>
       <Directories Name="PackageDCPOutputDir">..\..\lib\d10</Directories>

Deleted: trunk/jcl/packages/d10/JclUsesExpert.dof
===================================================================
--- trunk/jcl/packages/d10/JclUsesExpert.dof	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d10/JclUsesExpert.dof	2006-12-27 09:11:22 UTC (rev 1850)
@@ -1,4 +0,0 @@
-[Directories]
-UnitOutputDir=..\..\lib\d10
-SearchPath=..\..\source
-

Modified: trunk/jcl/packages/d10/JclUsesExpertDLL.bdsproj
===================================================================
--- trunk/jcl/packages/d10/JclUsesExpertDLL.bdsproj	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d10/JclUsesExpertDLL.bdsproj	2006-12-27 09:11:22 UTC (rev 1850)
@@ -120,7 +120,7 @@
     </Linker>
     <Directories>
       <Directories Name="UnitOutputDir">..\..\lib\d10</Directories>
-      <Directories Name="SearchPath">..\..\source</Directories>
+      <Directories Name="SearchPath">..\..\lib\d10;..\..\source</Directories>
       <Directories Name="OutputDir"></Directories>
       <Directories Name="PackageDLLOutputDir"></Directories>
       <Directories Name="PackageDCPOutputDir">..\..\lib\d10</Directories>

Deleted: trunk/jcl/packages/d10/JclUsesExpertDLL.dof
===================================================================
--- trunk/jcl/packages/d10/JclUsesExpertDLL.dof	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d10/JclUsesExpertDLL.dof	2006-12-27 09:11:22 UTC (rev 1850)
@@ -1,8 +0,0 @@
-[Directories]
-UnitOutputDir=..\..\lib\d10
-SearchPath=..\..\source
-[Compiler]
-PackageNoLink=1
-[Linker]
-Packages=rtl;vcl;designide;Jcl;JclBaseExpert
-

Modified: trunk/jcl/packages/d10/JclVcl.bdsproj
===================================================================
--- trunk/jcl/packages/d10/JclVcl.bdsproj	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d10/JclVcl.bdsproj	2006-12-27 09:11:22 UTC (rev 1850)
@@ -120,7 +120,7 @@
     </Linker>
     <Directories>
       <Directories Name="UnitOutputDir">..\..\lib\d10</Directories>
-      <Directories Name="SearchPath">..\..\source</Directories>
+      <Directories Name="SearchPath">..\..\lib\d10;..\..\source</Directories>
       <Directories Name="OutputDir"></Directories>
       <Directories Name="PackageDLLOutputDir"></Directories>
       <Directories Name="PackageDCPOutputDir">..\..\lib\d10</Directories>

Deleted: trunk/jcl/packages/d10/JclVcl.dof
===================================================================
--- trunk/jcl/packages/d10/JclVcl.dof	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d10/JclVcl.dof	2006-12-27 09:11:22 UTC (rev 1850)
@@ -1,4 +0,0 @@
-[Directories]
-UnitOutputDir=..\..\lib\d10
-SearchPath=..\..\source
-

Modified: trunk/jcl/packages/d10/JclVersionControlExpert.bdsproj
===================================================================
--- trunk/jcl/packages/d10/JclVersionControlExpert.bdsproj	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d10/JclVersionControlExpert.bdsproj	2006-12-27 09:11:22 UTC (rev 1850)
@@ -120,7 +120,7 @@
     </Linker>
     <Directories>
       <Directories Name="UnitOutputDir">..\..\lib\d10</Directories>
-      <Directories Name="SearchPath">..\..\source</Directories>
+      <Directories Name="SearchPath">..\..\lib\d10;..\..\source</Directories>
       <Directories Name="OutputDir"></Directories>
       <Directories Name="PackageDLLOutputDir"></Directories>
       <Directories Name="PackageDCPOutputDir">..\..\lib\d10</Directories>

Deleted: trunk/jcl/packages/d10/JclVersionControlExpert.dof
===================================================================
--- trunk/jcl/packages/d10/JclVersionControlExpert.dof	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d10/JclVersionControlExpert.dof	2006-12-27 09:11:22 UTC (rev 1850)
@@ -1,4 +0,0 @@
-[Directories]
-UnitOutputDir=..\..\lib\d10
-SearchPath=..\..\source
-

Modified: trunk/jcl/packages/d10/JclVersionControlExpertDLL.bdsproj
===================================================================
--- trunk/jcl/packages/d10/JclVersionControlExpertDLL.bdsproj	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d10/JclVersionControlExpertDLL.bdsproj	2006-12-27 09:11:22 UTC (rev 1850)
@@ -120,7 +120,7 @@
     </Linker>
     <Directories>
       <Directories Name="UnitOutputDir">..\..\lib\d10</Directories>
-      <Directories Name="SearchPath">..\..\source</Directories>
+      <Directories Name="SearchPath">..\..\lib\d10;..\..\source</Directories>
       <Directories Name="OutputDir"></Directories>
       <Directories Name="PackageDLLOutputDir"></Directories>
       <Directories Name="PackageDCPOutputDir">..\..\lib\d10</Directories>

Deleted: trunk/jcl/packages/d10/JclVersionControlExpertDLL.dof
===================================================================
--- trunk/jcl/packages/d10/JclVersionControlExpertDLL.dof	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d10/JclVersionControlExpertDLL.dof	2006-12-27 09:11:22 UTC (rev 1850)
@@ -1,8 +0,0 @@
-[Directories]
-UnitOutputDir=..\..\lib\d10
-SearchPath=..\..\source
-[Compiler]
-PackageNoLink=1
-[Linker]
-Packages=rtl;vcl;designide;Jcl;JclBaseExpert
-

Modified: trunk/jcl/packages/d10/template.bdsproj
===================================================================
--- trunk/jcl/packages/d10/template.bdsproj	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d10/template.bdsproj	2006-12-27 09:11:22 UTC (rev 1850)
@@ -120,7 +120,7 @@
     </Linker>
     <Directories>
       <Directories Name="UnitOutputDir">..\..\lib\d10</Directories>
-      <Directories Name="SearchPath">..\..\source</Directories>
+      <Directories Name="SearchPath">..\..\lib\d10;..\..\source</Directories>
       <Directories Name="OutputDir"></Directories>
       <Directories Name="PackageDLLOutputDir"></Directories>
       <Directories Name="PackageDCPOutputDir">..\..\lib\d10</Directories>

Deleted: trunk/jcl/packages/d10/template.dof
===================================================================
--- trunk/jcl/packages/d10/template.dof	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d10/template.dof	2006-12-27 09:11:22 UTC (rev 1850)
@@ -1,10 +0,0 @@
-[Directories]
-UnitOutputDir=..\..\lib\d10
-SearchPath=..\..\source
-<%%% BEGIN LIBRARYONLY %%%>
-[Compiler]
-PackageNoLink=1
-[Linker]
-Packages=%NOLINKPACKAGELIST%
-<%%% END LIBRARYONLY %%%>
-

Modified: trunk/jcl/packages/d10.net/Jedi.Jcl.bdsproj
===================================================================
--- trunk/jcl/packages/d10.net/Jedi.Jcl.bdsproj	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d10.net/Jedi.Jcl.bdsproj	2006-12-27 09:11:22 UTC (rev 1850)
@@ -120,10 +120,10 @@
     </Linker>
     <Directories>
       <Directories Name="OutputDir">..\..\bin</Directories>
-      <Directories Name="UnitOutputDir">..\..\lib\d9.net</Directories>
+      <Directories Name="UnitOutputDir">..\..\lib\d10.net</Directories>
       <Directories Name="PackageDLLOutputDir"></Directories>
-      <Directories Name="PackageDCPOutputDir"></Directories>
-      <Directories Name="SearchPath"></Directories>
+      <Directories Name="PackageDCPOutputDir">..\..\lib\d10.net</Directories>
+      <Directories Name="SearchPath">..\..\lib\d10.net;..\..\source</Directories>
       <Directories Name="Packages"></Directories>
       <Directories Name="Conditionals"></Directories>
       <Directories Name="DebugSourceDirs"></Directories>
@@ -167,7 +167,7 @@
     <VersionInfoKeys>
       <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
       <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
-      <VersionInfoKeys Name="FileVersion">1.96.1.2070</VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.97.1.2172</VersionInfoKeys>
       <VersionInfoKeys Name="InternalName">Jedi.Jcl</VersionInfoKeys>
       <VersionInfoKeys Name="LegalCopyright">Copyright (C) 1999, 2005 Project JEDI</VersionInfoKeys>
       <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>

Modified: trunk/jcl/packages/d10.net/template.bdsproj
===================================================================
--- trunk/jcl/packages/d10.net/template.bdsproj	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d10.net/template.bdsproj	2006-12-27 09:11:22 UTC (rev 1850)
@@ -120,10 +120,10 @@
     </Linker>
     <Directories>
       <Directories Name="OutputDir">..\..\bin</Directories>
-      <Directories Name="UnitOutputDir">..\..\lib\d9.net</Directories>
+      <Directories Name="UnitOutputDir">..\..\lib\d10.net</Directories>
       <Directories Name="PackageDLLOutputDir"></Directories>
-      <Directories Name="PackageDCPOutputDir"></Directories>
-      <Directories Name="SearchPath"></Directories>
+      <Directories Name="PackageDCPOutputDir">..\..\lib\d10.net</Directories>
+      <Directories Name="SearchPath">..\..\lib\d10.net;..\..\source</Directories>
       <Directories Name="Packages"></Directories>
       <Directories Name="Conditionals"></Directories>
       <Directories Name="DebugSourceDirs"></Directories>
@@ -167,7 +167,7 @@
     <VersionInfoKeys>
       <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
       <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
-      <VersionInfoKeys Name="FileVersion">1.96.1.2070</VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">%VERSION_MAJOR_NUMBER%.%VERSION_MINOR_NUMBER%.%RELEASE_NUMBER%.%BUILD_NUMBER%</VersionInfoKeys>
       <VersionInfoKeys Name="InternalName">%NAME%</VersionInfoKeys>
       <VersionInfoKeys Name="LegalCopyright">Copyright (C) 1999, 2005 Project JEDI</VersionInfoKeys>
       <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>

Modified: trunk/jcl/packages/d8/Jcl.bdsproj
===================================================================
--- trunk/jcl/packages/d8/Jcl.bdsproj	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d8/Jcl.bdsproj	2006-12-27 09:11:22 UTC (rev 1850)
@@ -121,11 +121,11 @@
       <Directories Name="UnitOutputDir">..\..\lib\d8</Directories>
       <Directories Name="PackageDLLOutputDir"></Directories>
       <Directories Name="PackageDCPOutputDir">..\..\lib\d8</Directories>
-      <Directories Name="SearchPath">..\..\common</Directories>
-      <Directories Name="Packages"></Directories>
+      <Directories Name="SearchPath">..\..\lib\d8;..\..\source</Directories>
+      <Directories Name="Packages">rtl</Directories>
       <Directories Name="Conditionals"></Directories>
       <Directories Name="DebugSourceDirs"></Directories>
-      <Directories Name="UsePackages">False</Directories>
+      <Directories Name="UsePackages">True</Directories>
     </Directories>
     <Parameters>
       <Parameters Name="RunParams"></Parameters>

Deleted: trunk/jcl/packages/d8/Jcl.dof
===================================================================
--- trunk/jcl/packages/d8/Jcl.dof	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d8/Jcl.dof	2006-12-27 09:11:22 UTC (rev 1850)
@@ -1,7 +0,0 @@
-[Directories]
-UnitOutputDir=..\..\lib\d8
-SearchPath=..\..\source;..\..\experts\common
-[Compiler]
-PackageNoLink=1
-[Linker]
-Packages=rtl

Modified: trunk/jcl/packages/d8/JclBaseExpert.bdsproj
===================================================================
--- trunk/jcl/packages/d8/JclBaseExpert.bdsproj	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d8/JclBaseExpert.bdsproj	2006-12-27 09:11:22 UTC (rev 1850)
@@ -121,11 +121,11 @@
       <Directories Name="UnitOutputDir">..\..\lib\d8</Directories>
       <Directories Name="PackageDLLOutputDir"></Directories>
       <Directories Name="PackageDCPOutputDir">..\..\lib\d8</Directories>
-      <Directories Name="SearchPath">..\..\common</Directories>
-      <Directories Name="Packages"></Directories>
+      <Directories Name="SearchPath">..\..\lib\d8;..\..\source</Directories>
+      <Directories Name="Packages">rtl;vcl;designide;Jcl</Directories>
       <Directories Name="Conditionals"></Directories>
       <Directories Name="DebugSourceDirs"></Directories>
-      <Directories Name="UsePackages">False</Directories>
+      <Directories Name="UsePackages">True</Directories>
     </Directories>
     <Parameters>
       <Parameters Name="RunParams"></Parameters>

Deleted: trunk/jcl/packages/d8/JclBaseExpert.dof
===================================================================
--- trunk/jcl/packages/d8/JclBaseExpert.dof	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d8/JclBaseExpert.dof	2006-12-27 09:11:22 UTC (rev 1850)
@@ -1,7 +0,0 @@
-[Directories]
-UnitOutputDir=..\..\lib\d8
-SearchPath=..\..\source;..\..\experts\common
-[Compiler]
-PackageNoLink=1
-[Linker]
-Packages=rtl;vcl;designide;Jcl

Modified: trunk/jcl/packages/d8/JclFavoriteFoldersExpertDLL.bdsproj
===================================================================
--- trunk/jcl/packages/d8/JclFavoriteFoldersExpertDLL.bdsproj	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d8/JclFavoriteFoldersExpertDLL.bdsproj	2006-12-27 09:11:22 UTC (rev 1850)
@@ -121,11 +121,11 @@
       <Directories Name="UnitOutputDir">..\..\lib\d8</Directories>
       <Directories Name="PackageDLLOutputDir"></Directories>
       <Directories Name="PackageDCPOutputDir">..\..\lib\d8</Directories>
-      <Directories Name="SearchPath">..\..\common</Directories>
-      <Directories Name="Packages"></Directories>
+      <Directories Name="SearchPath">..\..\lib\d8;..\..\source</Directories>
+      <Directories Name="Packages">rtl;vcl;designide;Jcl;JclBaseExpert</Directories>
       <Directories Name="Conditionals"></Directories>
       <Directories Name="DebugSourceDirs"></Directories>
-      <Directories Name="UsePackages">False</Directories>
+      <Directories Name="UsePackages">True</Directories>
     </Directories>
     <Parameters>
       <Parameters Name="RunParams"></Parameters>

Deleted: trunk/jcl/packages/d8/JclFavoriteFoldersExpertDLL.dof
===================================================================
--- trunk/jcl/packages/d8/JclFavoriteFoldersExpertDLL.dof	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d8/JclFavoriteFoldersExpertDLL.dof	2006-12-27 09:11:22 UTC (rev 1850)
@@ -1,7 +0,0 @@
-[Directories]
-UnitOutputDir=..\..\lib\d8
-SearchPath=..\..\source;..\..\experts\common
-[Compiler]
-PackageNoLink=1
-[Linker]
-Packages=rtl;vcl;designide;Jcl;JclBaseExpert

Modified: trunk/jcl/packages/d8/JclVersionControlExpertDLL.bdsproj
===================================================================
--- trunk/jcl/packages/d8/JclVersionControlExpertDLL.bdsproj	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d8/JclVersionControlExpertDLL.bdsproj	2006-12-27 09:11:22 UTC (rev 1850)
@@ -121,11 +121,11 @@
       <Directories Name="UnitOutputDir">..\..\lib\d8</Directories>
       <Directories Name="PackageDLLOutputDir"></Directories>
       <Directories Name="PackageDCPOutputDir">..\..\lib\d8</Directories>
-      <Directories Name="SearchPath">..\..\common</Directories>
-      <Directories Name="Packages"></Directories>
+      <Directories Name="SearchPath">..\..\lib\d8;..\..\source</Directories>
+      <Directories Name="Packages">rtl;vcl;designide;Jcl;JclBaseExpert</Directories>
       <Directories Name="Conditionals"></Directories>
       <Directories Name="DebugSourceDirs"></Directories>
-      <Directories Name="UsePackages">False</Directories>
+      <Directories Name="UsePackages">True</Directories>
     </Directories>
     <Parameters>
       <Parameters Name="RunParams"></Parameters>

Deleted: trunk/jcl/packages/d8/JclVersionControlExpertDLL.dof
===================================================================
--- trunk/jcl/packages/d8/JclVersionControlExpertDLL.dof	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d8/JclVersionControlExpertDLL.dof	2006-12-27 09:11:22 UTC (rev 1850)
@@ -1,7 +0,0 @@
-[Directories]
-UnitOutputDir=..\..\lib\d8
-SearchPath=..\..\source;..\..\experts\common
-[Compiler]
-PackageNoLink=1
-[Linker]
-Packages=rtl;vcl;designide;Jcl;JclBaseExpert

Modified: trunk/jcl/packages/d8/template.bdsproj
===================================================================
--- trunk/jcl/packages/d8/template.bdsproj	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d8/template.bdsproj	2006-12-27 09:11:22 UTC (rev 1850)
@@ -121,11 +121,11 @@
       <Directories Name="UnitOutputDir">..\..\lib\d8</Directories>
       <Directories Name="PackageDLLOutputDir"></Directories>
       <Directories Name="PackageDCPOutputDir">..\..\lib\d8</Directories>
-      <Directories Name="SearchPath">..\..\common</Directories>
-      <Directories Name="Packages"></Directories>
+      <Directories Name="SearchPath">..\..\lib\d8;..\..\source</Directories>
+      <Directories Name="Packages">%NOLINKPACKAGELIST%</Directories>
       <Directories Name="Conditionals"></Directories>
       <Directories Name="DebugSourceDirs"></Directories>
-      <Directories Name="UsePackages">False</Directories>
+      <Directories Name="UsePackages">True</Directories>
     </Directories>
     <Parameters>
       <Parameters Name="RunParams"></Parameters>

Deleted: trunk/jcl/packages/d8/template.dof
===================================================================
--- trunk/jcl/packages/d8/template.dof	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d8/template.dof	2006-12-27 09:11:22 UTC (rev 1850)
@@ -1,9 +0,0 @@
-[Directories]
-UnitOutputDir=..\..\lib\d8
-SearchPath=..\..\source;..\..\experts\common
-<%%% BEGIN EXPERTONLY %%%>
-[Compiler]
-PackageNoLink=1
-[Linker]
-Packages=%NOLINKPACKAGELIST%
-<%%% END EXPERTONLY %%%>
\ No newline at end of file

Modified: trunk/jcl/packages/d9/Jcl.bdsproj
===================================================================
--- trunk/jcl/packages/d9/Jcl.bdsproj	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d9/Jcl.bdsproj	2006-12-27 09:11:22 UTC (rev 1850)
@@ -121,11 +121,11 @@
       <Directories Name="UnitOutputDir">..\..\lib\d9</Directories>
       <Directories Name="PackageDLLOutputDir"></Directories>
       <Directories Name="PackageDCPOutputDir">..\..\lib\d9</Directories>
-      <Directories Name="SearchPath">..\..\common</Directories>
+      <Directories Name="SearchPath">..\..\lib\d9;..\..\source</Directories>
       <Directories Name="Packages">rtl</Directories>
       <Directories Name="Conditionals"></Directories>
       <Directories Name="DebugSourceDirs"></Directories>
-      <Directories Name="UsePackages">False</Directories>
+      <Directories Name="UsePackages">True</Directories>
     </Directories>
     <Parameters>
       <Parameters Name="RunParams"></Parameters>

Deleted: trunk/jcl/packages/d9/Jcl.dof
===================================================================
--- trunk/jcl/packages/d9/Jcl.dof	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d9/Jcl.dof	2006-12-27 09:11:22 UTC (rev 1850)
@@ -1,4 +0,0 @@
-[Directories]
-UnitOutputDir=..\..\lib\d9
-SearchPath=..\..\source;..\..\experts\common
-

Modified: trunk/jcl/packages/d9/JclBaseExpert.bdsproj
===================================================================
--- trunk/jcl/packages/d9/JclBaseExpert.bdsproj	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d9/JclBaseExpert.bdsproj	2006-12-27 09:11:22 UTC (rev 1850)
@@ -121,11 +121,11 @@
       <Directories Name="UnitOutputDir">..\..\lib\d9</Directories>
       <Directories Name="PackageDLLOutputDir"></Directories>
       <Directories Name="PackageDCPOutputDir">..\..\lib\d9</Directories>
-      <Directories Name="SearchPath">..\..\common</Directories>
+      <Directories Name="SearchPath">..\..\lib\d9;..\..\source</Directories>
       <Directories Name="Packages">rtl;vcl;designide;Jcl</Directories>
       <Directories Name="Conditionals"></Directories>
       <Directories Name="DebugSourceDirs"></Directories>
-      <Directories Name="UsePackages">False</Directories>
+      <Directories Name="UsePackages">True</Directories>
     </Directories>
     <Parameters>
       <Parameters Name="RunParams"></Parameters>

Deleted: trunk/jcl/packages/d9/JclBaseExpert.dof
===================================================================
--- trunk/jcl/packages/d9/JclBaseExpert.dof	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d9/JclBaseExpert.dof	2006-12-27 09:11:22 UTC (rev 1850)
@@ -1,4 +0,0 @@
-[Directories]
-UnitOutputDir=..\..\lib\d9
-SearchPath=..\..\source;..\..\experts\common
-

Modified: trunk/jcl/packages/d9/JclDebugExpert.bdsproj
===================================================================
--- trunk/jcl/packages/d9/JclDebugExpert.bdsproj	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d9/JclDebugExpert.bdsproj	2006-12-27 09:11:22 UTC (rev 1850)
@@ -121,11 +121,11 @@
       <Directories Name="UnitOutputDir">..\..\lib\d9</Directories>
       <Directories Name="PackageDLLOutputDir"></Directories>
       <Directories Name="PackageDCPOutputDir">..\..\lib\d9</Directories>
-      <Directories Name="SearchPath">..\..\common</Directories>
+      <Directories Name="SearchPath">..\..\lib\d9;..\..\source</Directories>
       <Directories Name="Packages">rtl;vcl;designide;Jcl;JclBaseExpert</Directories>
       <Directories Name="Conditionals"></Directories>
       <Directories Name="DebugSourceDirs"></Directories>
-      <Directories Name="UsePackages">False</Directories>
+      <Directories Name="UsePackages">True</Directories>
     </Directories>
     <Parameters>
       <Parameters Name="RunParams"></Parameters>

Deleted: trunk/jcl/packages/d9/JclDebugExpert.dof
===================================================================
--- trunk/jcl/packages/d9/JclDebugExpert.dof	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d9/JclDebugExpert.dof	2006-12-27 09:11:22 UTC (rev 1850)
@@ -1,4 +0,0 @@
-[Directories]
-UnitOutputDir=..\..\lib\d9
-SearchPath=..\..\source;..\..\experts\common
-

Modified: trunk/jcl/packages/d9/JclDebugExpertDLL.bdsproj
===================================================================
--- trunk/jcl/packages/d9/JclDebugExpertDLL.bdsproj	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d9/JclDebugExpertDLL.bdsproj	2006-12-27 09:11:22 UTC (rev 1850)
@@ -121,11 +121,11 @@
       <Directories Name="UnitOutputDir">..\..\lib\d9</Directories>
       <Directories Name="PackageDLLOutputDir"></Directories>
       <Directories Name="PackageDCPOutputDir">..\..\lib\d9</Directories>
-      <Directories Name="SearchPath">..\..\common</Directories>
+      <Directories Name="SearchPath">..\..\lib\d9;..\..\source</Directories>
       <Directories Name="Packages">rtl;vcl;designide;Jcl;JclBaseExpert</Directories>
       <Directories Name="Conditionals"></Directories>
       <Directories Name="DebugSourceDirs"></Directories>
-      <Directories Name="UsePackages">False</Directories>
+      <Directories Name="UsePackages">True</Directories>
     </Directories>
     <Parameters>
       <Parameters Name="RunParams"></Parameters>

Deleted: trunk/jcl/packages/d9/JclDebugExpertDLL.dof
===================================================================
--- trunk/jcl/packages/d9/JclDebugExpertDLL.dof	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d9/JclDebugExpertDLL.dof	2006-12-27 09:11:22 UTC (rev 1850)
@@ -1,8 +0,0 @@
-[Directories]
-UnitOutputDir=..\..\lib\d9
-SearchPath=..\..\source;..\..\experts\common
-[Compiler]
-PackageNoLink=1
-[Linker]
-Packages=rtl;vcl;designide;Jcl;JclBaseExpert
-

Modified: trunk/jcl/packages/d9/JclFavoriteFoldersExpert.bdsproj
===================================================================
--- trunk/jcl/packages/d9/JclFavoriteFoldersExpert.bdsproj	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d9/JclFavoriteFoldersExpert.bdsproj	2006-12-27 09:11:22 UTC (rev 1850)
@@ -121,11 +121,11 @@
       <Directories Name="UnitOutputDir">..\..\lib\d9</Directories>
       <Directories Name="PackageDLLOutputDir"></Directories>
       <Directories Name="PackageDCPOutputDir">..\..\lib\d9</Directories>
-      <Directories Name="SearchPath">..\..\common</Directories>
+      <Directories Name="SearchPath">..\..\lib\d9;..\..\source</Directories>
       <Directories Name="Packages">rtl;vcl;designide;Jcl;JclBaseExpert</Directories>
       <Directories Name="Conditionals"></Directories>
       <Directories Name="DebugSourceDirs"></Directories>
-      <Directories Name="UsePackages">False</Directories>
+      <Directories Name="UsePackages">True</Directories>
     </Directories>
     <Parameters>
       <Parameters Name="RunParams"></Parameters>

Deleted: trunk/jcl/packages/d9/JclFavoriteFoldersExpert.dof
===================================================================
--- trunk/jcl/packages/d9/JclFavoriteFoldersExpert.dof	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d9/JclFavoriteFoldersExpert.dof	2006-12-27 09:11:22 UTC (rev 1850)
@@ -1,4 +0,0 @@
-[Directories]
-UnitOutputDir=..\..\lib\d9
-SearchPath=..\..\source;..\..\experts\common
-

Modified: trunk/jcl/packages/d9/JclFavoriteFoldersExpertDLL.bdsproj
===================================================================
--- trunk/jcl/packages/d9/JclFavoriteFoldersExpertDLL.bdsproj	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d9/JclFavoriteFoldersExpertDLL.bdsproj	2006-12-27 09:11:22 UTC (rev 1850)
@@ -121,11 +121,11 @@
       <Directories Name="UnitOutputDir">..\..\lib\d9</Directories>
       <Directories Name="PackageDLLOutputDir"></Directories>
       <Directories Name="PackageDCPOutputDir">..\..\lib\d9</Directories>
-      <Directories Name="SearchPath">..\..\common</Directories>
+      <Directories Name="SearchPath">..\..\lib\d9;..\..\source</Directories>
       <Directories Name="Packages">rtl;vcl;designide;Jcl;JclBaseExpert</Directories>
       <Directories Name="Conditionals"></Directories>
       <Directories Name="DebugSourceDirs"></Directories>
-      <Directories Name="UsePackages">False</Directories>
+      <Directories Name="UsePackages">True</Directories>
     </Directories>
     <Parameters>
       <Parameters Name="RunParams"></Parameters>

Deleted: trunk/jcl/packages/d9/JclFavoriteFoldersExpertDLL.dof
===================================================================
--- trunk/jcl/packages/d9/JclFavoriteFoldersExpertDLL.dof	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d9/JclFavoriteFoldersExpertDLL.dof	2006-12-27 09:11:22 UTC (rev 1850)
@@ -1,8 +0,0 @@
-[Directories]
-UnitOutputDir=..\..\lib\d9
-SearchPath=..\..\source;..\..\experts\common
-[Compiler]
-PackageNoLink=1
-[Linker]
-Packages=rtl;vcl;designide;Jcl;JclBaseExpert
-

Modified: trunk/jcl/packages/d9/JclProjectAnalysisExpert.bdsproj
===================================================================
--- trunk/jcl/packages/d9/JclProjectAnalysisExpert.bdsproj	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d9/JclProjectAnalysisExpert.bdsproj	2006-12-27 09:11:22 UTC (rev 1850)
@@ -121,11 +121,11 @@
       <Directories Name="UnitOutputDir">..\..\lib\d9</Directories>
       <Directories Name="PackageDLLOutputDir"></Directories>
       <Directories Name="PackageDCPOutputDir">..\..\lib\d9</Directories>
-      <Directories Name="SearchPath">..\..\common</Directories>
+      <Directories Name="SearchPath">..\..\lib\d9;..\..\source</Directories>
       <Directories Name="Packages">rtl;vcl;designide;Jcl;JclBaseExpert</Directories>
       <Directories Name="Conditionals"></Directories>
       <Directories Name="DebugSourceDirs"></Directories>
-      <Directories Name="UsePackages">False</Directories>
+      <Directories Name="UsePackages">True</Directories>
     </Directories>
     <Parameters>
       <Parameters Name="RunParams"></Parameters>

Deleted: trunk/jcl/packages/d9/JclProjectAnalysisExpert.dof
===================================================================
--- trunk/jcl/packages/d9/JclProjectAnalysisExpert.dof	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d9/JclProjectAnalysisExpert.dof	2006-12-27 09:11:22 UTC (rev 1850)
@@ -1,4 +0,0 @@
-[Directories]
-UnitOutputDir=..\..\lib\d9
-SearchPath=..\..\source;..\..\experts\common
-

Modified: trunk/jcl/packages/d9/JclProjectAnalysisExpertDLL.bdsproj
===================================================================
--- trunk/jcl/packages/d9/JclProjectAnalysisExpertDLL.bdsproj	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d9/JclProjectAnalysisExpertDLL.bdsproj	2006-12-27 09:11:22 UTC (rev 1850)
@@ -121,11 +121,11 @@
       <Directories Name="UnitOutputDir">..\..\lib\d9</Directories>
       <Directories Name="PackageDLLOutputDir"></Directories>
       <Directories Name="PackageDCPOutputDir">..\..\lib\d9</Directories>
-      <Directories Name="SearchPath">..\..\common</Directories>
+      <Directories Name="SearchPath">..\..\lib\d9;..\..\source</Directories>
       <Directories Name="Packages">rtl;vcl;designide;Jcl;JclBaseExpert</Directories>
       <Directories Name="Conditionals"></Directories>
       <Directories Name="DebugSourceDirs"></Directories>
-      <Directories Name="UsePackages">False</Directories>
+      <Directories Name="UsePackages">True</Directories>
     </Directories>
     <Parameters>
       <Parameters Name="RunParams"></Parameters>

Deleted: trunk/jcl/packages/d9/JclProjectAnalysisExpertDLL.dof
===================================================================
--- trunk/jcl/packages/d9/JclProjectAnalysisExpertDLL.dof	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d9/JclProjectAnalysisExpertDLL.dof	2006-12-27 09:11:22 UTC (rev 1850)
@@ -1,8 +0,0 @@
-[Directories]
-UnitOutputDir=..\..\lib\d9
-SearchPath=..\..\source;..\..\experts\common
-[Compiler]
-PackageNoLink=1
-[Linker]
-Packages=rtl;vcl;designide;Jcl;JclBaseExpert
-

Modified: trunk/jcl/packages/d9/JclRepositoryExpert.bdsproj
===================================================================
--- trunk/jcl/packages/d9/JclRepositoryExpert.bdsproj	2006-12-27 09:08:06 UTC (rev 1849)
+++ trunk/jcl/packages/d9/JclRepositoryExpert.bdsproj	2006-12-27 09:11:22 UTC (rev 1850)
@@ -121,11 +121,11 @@
       <Directories Name="UnitOutputDir">..\..\lib\d9</Directories>
       <Directories Name="PackageDLLOutputDir"></Directories>
       <Directories Name="PackageDCPOutputDir">..\..\lib\d9</Directories>
-      <Directories Name="SearchPath">..\..\common</Directories>
+      <Directories Name="SearchPath">..\..\lib\d9;..\..\source</Directories>
       <Directories Name="Packages">rtl;vcl;designide;Jcl;JclBaseExpert</Directories>
       <Directories Name="Conditionals"></Directories>
       <...
 
[truncated message content]

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

From: <ou...@us...> - 2006-12-27 09:08:08

Revision: 1849
          http://svn.sourceforge.net/jcl/?rev=1849&view=rev
Author:   outchy
Date:     2006-12-27 01:08:06 -0800 (Wed, 27 Dec 2006)

Log Message:
-----------
Set ignore mask only on useful extensions.

Property Changed:
----------------
    trunk/jcl/lib/d10.net/
    trunk/jcl/lib/d10.net/debug/
    trunk/jcl/lib/d9.net/
    trunk/jcl/lib/d9.net/debug/


Property changes on: trunk/jcl/lib/d10.net
___________________________________________________________________
Name: svn:ignore
   - *.dcuil
*.dcu
*.ddp
*.bpl
*.dcp
*.res

   + *.dcuil
*.dll
*.pdb



Property changes on: trunk/jcl/lib/d10.net/debug
___________________________________________________________________
Name: svn:ignore
   - *.dcuil
*.dcu
*.ddp
*.bpl
*.dcp
*.res

   + *.dcuil



Property changes on: trunk/jcl/lib/d9.net
___________________________________________________________________
Name: svn:ignore
   - *.dcuil
*.dcu
*.ddp
*.bpl
*.dcp
*.res

   + *.dcuil
*.dll
*.pdb



Property changes on: trunk/jcl/lib/d9.net/debug
___________________________________________________________________
Name: svn:ignore
   - *.dcuil
*.dcu
*.ddp
*.bpl
*.dcp
*.res

   + *.dcuil



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: [1848] trunk/jcl/examples/common/containers/lists/ ListExampleMain.pas

From: <ou...@us...> - 2006-12-27 09:06:01

Revision: 1848
          http://svn.sourceforge.net/jcl/?rev=1848&view=rev
Author:   outchy
Date:     2006-12-27 01:05:59 -0800 (Wed, 27 Dec 2006)

Log Message:
-----------
Changed to compile with the new visibility of functions of TJclVector and TJclStrVector.

Modified Paths:
--------------
    trunk/jcl/examples/common/containers/lists/ListExampleMain.pas

Modified: trunk/jcl/examples/common/containers/lists/ListExampleMain.pas
===================================================================
--- trunk/jcl/examples/common/containers/lists/ListExampleMain.pas	2006-12-26 19:36:34 UTC (rev 1847)
+++ trunk/jcl/examples/common/containers/lists/ListExampleMain.pas	2006-12-27 09:05:59 UTC (rev 1848)
@@ -293,7 +293,7 @@
 
 procedure TMainForm.btnVectorClick(Sender: TObject);
 var
-  List: TJclVector;
+  List: IJclList;
   MyObject: TMyObject;
   It: IJclIterator;
   I: Integer;
@@ -328,7 +328,7 @@
     List.Clear;
   finally
     It := nil; // Force release Iterator before free list !
-    List.Free; // No ref count
+    List := nil;
   end;
 end;
 
@@ -438,7 +438,7 @@
 
 procedure TMainForm.btnStrVectorClick(Sender: TObject);
 var
-  List: TJclStrVector;
+  List: IJclStrList;
   S: string;
   It: IJclStrIterator;
   I: Integer;
@@ -467,7 +467,7 @@
     List.Clear;
   finally
     It := nil; // Force release Iterator before free list !
-    List.Free; // No Ref Count
+    List := nil;
   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: [1847] trunk/jcl/docs

From: <ou...@us...> - 2006-12-26 19:36:38

Revision: 1847
          http://svn.sourceforge.net/jcl/?rev=1847&view=rev
Author:   outchy
Date:     2006-12-26 11:36:34 -0800 (Tue, 26 Dec 2006)

Log Message:
-----------
Added a note about manual installation.
Regenerated Readme.txt

Modified Paths:
--------------
    trunk/jcl/docs/Readme.html
    trunk/jcl/docs/Readme.txt

Modified: trunk/jcl/docs/Readme.html
===================================================================
--- trunk/jcl/docs/Readme.html	2006-12-26 16:32:00 UTC (rev 1846)
+++ trunk/jcl/docs/Readme.html	2006-12-26 19:36:34 UTC (rev 1847)
@@ -18,6 +18,7 @@
   <li><a href="#about">About this release</a></li>
   <li><a href="#targets">Supported tools</a></li>
   <li><a href="#notes">Installation notes</a></li>
+  <li><a href="#manual">Manual installation</a></li>
   <li><a href="#files">Distribution content</a></li>
   <li><a href="#feedback">Giving your feedback</a></li>
   <li><a href="#issues">Reporting bugs</a></li>
@@ -29,30 +30,28 @@
 <h3><a name="about">About this release</a></h3>
 <p>JCL release 1.98 provide an updated support for all targets (including Borland 
 Developer Studio 2006 and Turbo Delphi) and an installation of some experts in C#Builder 1 and Delphi 8.</p>
-<p>As always, multiple bugs have been fixed; for detailed change logs,
-use the facilities of our Subversion repository at Sourceforge.net&nbsp
+<p>As always, multiple bugs have been fixed; for detailed change logs, 
+use the facilities of our Subversion repository at Sourceforge.net&nbsp;
 <a href="http://sourceforge.net/projects/jcl/">http://sourceforge.net/projects/jcl/</a>
 , see below.</p>
 <p><span style="FONT-WEIGHT: bold">Important:</span>
 </p>
 <ul>
-  <li><p>Note that the package naming has changed: the same package name is used by
+  <li><p>Note that the package naming has changed: the same package name is used by 
 all versions of the compiler supporting suffixes (C++Builder 6, Delphi 6, 
 Delphi 7, C#Builder 1, Delphi 8, Delphi 2005 and BDS 2006); a different suffix 
-is added for each target to the BPL file name (for BDS 2006, the library file is named jcl100.bpl).
-The installer tries to remove old packages. 3rd party packages requiring old DJcl* resp. CJcl* packages need to be changed
-to accomodate the new naming scheme or they will cause conflicts in the IDE at load time.
-</p></li>
+is added for each target to the BPL file name (for BDS 2006, the library file is named jcl100.bpl). 
+The installer tries to remove old packages. 3rd party packages requiring old DJcl* resp. CJcl* packages need to be changed 
+to accomodate the new naming scheme or they will cause conflicts in the IDE at load time.</p></li>
   <li><p>DCP files are now created in the lib\target subdirectory of the JCL
 installation. 3rd party packages requiring JCL packages need to have this path
-in their "browse path" option to compile.
-</p></li>
+in their "browse path" option to compile.</p></li>
 </ul>
 <p><span style="FONT-WEIGHT: bold">(Windows only)&nbsp;Installation&nbsp;options:</span></p>
 <p>Packages compiled by the JCL installer don't contain any debug
 informations to keep their size as small as possible.</p>
-<p>The Jedi Code Library packages are required by some 3rd party packages 
-(including the Jedi Visual Component Library - JVCL), the installer generates 
+<p>The Jedi Code Library packages are required by some 3rd party packages
+(including the Jedi Visual Component Library - JVCL), the installer generates
 them if the "Packages" node is checked.</p>
 <p>The installer can generate MAP informations for each package. These informations
 can be linked into binaries to become JCL debug data or be converted to .jdbg files.
@@ -80,20 +79,20 @@
 </ul>
 <p><span style="FONT-WEIGHT: bold">Both supports (run time and design time):</span></p>
 <ul>
-  <li>Delphi version 5, 6, 7</li>
-  <li>C++Builder version 5 &amp; 6</li>
-  <li>Delphi 2005 (Delphi Win32 and Delphi.net personalities)</li>
-  <li>Borland Developer Studio 2006 (Delphi Win32, C++ Builder Win32, Delphi.net and C#Builder personalities)</li>
-  <li>Turbo Delphi (explorer and professional - cf <a href="#notes">Installation notes</a>)</li>
+  <li>Delphi version 5, 6, 7.</li>
+  <li>C++Builder version 5 &amp; 6.</li>
+  <li>Delphi 2005 (Delphi Win32 and Delphi.net personalities).</li>
+  <li>Borland Developer Studio 2006 (Delphi Win32, C++ Builder Win32, Delphi.net and C#Builder personalities).</li>
+  <li>Turbo Delphi (explorer and professional - cf <a href="#notes">Installation notes</a>).</li>
 </ul>
 <hr><br>
 <h3><a name="notes">Installation notes</a></h3>
 <ul>
   <li>Not every unit supports all tools. Look out for <tt>*.exc</tt>
-  files in the tool-specific <tt>lib/</tt>subdirectories for a list of units
-  excluded from compilation.</li>
+	files in the tool-specific <tt>lib/</tt>subdirectories for a list of units
+	excluded from compilation.</li>
   <li>Kylix 3 Delphi/C++ installation is back but specific code has not been tested with the latest
-  versions of the kernel. Please ensure you use the flavor of the JCL with Unix EOL.</li>
+	versions of the kernel. Please ensure you use the flavor of the JCL with Unix EOL.</li>
   <li>Free Pascal (<a href="http://www.freepascal.org/">http://www.freepascal.org/</a>)
   support has not been updated for this release; most units from
   source/common should work with FP 2.0, as tests with a 2.0 beta (1.9.8)
@@ -103,37 +102,69 @@
 <p><span style="FONT-WEIGHT: bold">Installation for Turbo Delphi</span></p>
 <p>The Jedi Code Library can be compiled targetting Turbo Delphi Explorer and Turbo Delphi Professional.
 Turbo Delphi Professional is recognized as BDS 2006, you have to download its command line compiler from
-CodeGear website at&nbsp<a href="http://www.codegear.com/Default.aspx?tabid=160">http://www.codegear.com/Default.aspx?tabid=160</a>&nbsp;
-to install the full JCL on this tool</p>
+CodeGear website at&nbsp;<a href="http://www.codegear.com/Default.aspx?tabid=160">http://www.codegear.com/Default.aspx?tabid=160</a>&nbsp;
+to install the full JCL on this tool.</p>
 <p>To install the JCL targetting Turbo Delphi Explorer, consider the following checks:</p>
-<ol>
+<ul>
   <li>If you have an other supported version of Delphi/C++Builder on this computer, it should automatically be
-  detected and the installer will process as usual.</li>
+	detected and the installer will process as usual.</li>
   <li>If you only have Turbo Delphi Explorer (and no other tools) on the computer, the installer cannot be
   compiled. You have to use the Turbo Explorer flavor of the JCL that contains a precompiled installer. However,
-  you will not be able to install any experts.</li>
-</ol>
+	you will not be able to install any experts.</li>
+</ul>
 <p><span style="FONT-WEIGHT: bold">Installation on C#Builder 1 and Delphi 8:</span></p>
-<ol>
+<ul>
   <li>These products cannot be used to build the JCL installer, you need an
-      other supported product to install JCL experts on these products.
-</li>
+  other supported product to install JCL experts on these products.</li>
   <li>These products are not able to use the JCL library as a runtime library.
-     You cannot write managed applications and managed packages based on the JCL.
-</li>
+  You cannot write managed applications and managed packages based on the JCL.</li>
   <li>These products are not shipped with their native compilers, you have to
-	  download it from codecentral (<a href="http://cc.codegear.com/">http://cc.codegear.com/</a>).
-	  The item (<a href="http://codecentral.codegear.com/Download.aspx?id=21333">http://codecentral.codegear.com/Download.aspx?id=21333</a>)
-  &nbsp;the native compiler to be installed in Delphi 8.
-	  The item (<a href="http://codecentral.codegear.com/Download.aspx?id=21334">http://codecentral.codegear.com/Download.aspx?id=21334</a>)
-  &nbsp;the native compiler to be installed in C#Builder 1.
-	  These zip files have to be extracted in the products directory using the standard pattern:</li>
-</ol>
+		download it from codecentral (<a href="http://cc.codegear.com/">http://cc.codegear.com/</a>).
+		The item (<a href="http://codecentral.codegear.com/Download.aspx?id=21333">http://codecentral.codegear.com/Download.aspx?id=21333</a>)
+  &nbsp;contains the native compiler to be installed in Delphi 8.
+		The item (<a href="http://codecentral.codegear.com/Download.aspx?id=21334">http://codecentral.codegear.com/Download.aspx?id=21334</a>)
+  &nbsp;contains the native compiler to be installed in C#Builder 1.
+		These zip files have to be extracted in the products directory using the standard pattern:</li>
+</ul>
 <pre>		   Executable files (exe and dll)      - BDS\X.0\bin
 		   Compiler files (dcp and dcu)        - BDS\X.0\lib
 		   Toolsapi source files               - BDS\X.0\source\ToolsAPI
 </pre>
+<p><span style="FONT-WEIGHT: bold">Default installation</span></p>
+<p>For all others versions of Delphi, C++Builder and BDS, simply launch Install.bat
+and the installer window will let you configure options and install the library.</p>
 <hr><br>
+<h3><a name="manual">Manual Installation</a></h3>
+<p>Although it is not recommended, a manual installation is possible. You will have
+to manually configure options for the library. That is done by modifying an included
+file.
+<p>
+<p>For each tool you want to install the JCL in, repeat the following steps:</p>
+<ol>
+  <li>Copy source\jcl.template.inc to a fixed file name:
+  <ul>
+	<li>For Kylix 3 (Delphi): source\jclkd3.inc</li>
+	<li>For Kylix 3 (C++Builder): source\jclkc3.inc</li>
+	<li>For C++Builder 5: source\jclc5.inc</li>
+	<li>For C++Builder 6: source\jclc6.inc</li>
+	<li>For Delphi 5: source\jcld5.inc</li>
+	<li>For Delphi 6: source\jcld6.inc</li>
+	<li>For Delphi 7: source\jcld7.inc</li>
+	<li>For Delphi 2005: source\jcld9.inc</li>
+	<li>For Delphi.net 2005: source\jcld9.net.inc</li>
+	<li>For BDS 2006 (Delphi and C++Builder): source\jcld10.inc</li>
+	<li>For Delphi.net 2006: source\jcld10.net.inc</li>
+  </ul></li>
+  <li>Open and edit that file to customize options.</li>
+  <li>In the IDE, open and compile package Jcl.dpk (or Jcl.bpk for C++Builder)
+  located in a subdirectory of the "packages" directory matching your version of
+  the IDE. This package doesn't have to be installed since it doesn't provide
+  any components.</li>
+  <li>If you want to install experts, open package JclBaseExpert.dpk and compile it,
+   then you can install all the experts you want (packages are located in the same
+   directory).</li>
+</ol>
+<hr><br>
 <h3><a name="files">Distribution content</a></h3>
 <pre>Install.bat                   - Compile and run VCL version of the JCL Installer (Win32)
 QInstall.bat                  - Compile and run CLX version of JCL Installer (Win32)
@@ -172,11 +203,10 @@
 drop us a note. There are several ways to get in contact with us:
 <ul>
   <li>Newsgroup is the recommended way to contact other JCL users and the team itself. 
-They are hosted at&nbsp;<a href="news://forums.talkto.net/jedi.jcl">news://forums.talkto.net/jedi.jcl</a>.
-</li>
-  <li>Write to&nbsp;<a href="mailto:jc...@de...">jc...@de...</a>&nbsp; 
-or to&nbsp;<a href="mailto:jcl...@de...">jcl...@de...</a>&nbsp; 
-This email account should not be used for support requests. If you need 
+They are hosted at&nbsp;<a href="news://forums.talkto.net/jedi.jcl">news://forums.talkto.net/jedi.jcl</a>.</li>
+  <li>Write to&nbsp;<a href="mailto:jc...@de...">jc...@de...</a>&nbsp;
+or to&nbsp;<a href="mailto:jcl...@de...">jcl...@de...</a>&nbsp;
+This email account should not be used for support requests. If you need
 support please use either the newsgroups or the mailing list.</li>
   <li>If you want to keep up to date about JCL then you can join the
 JCL mailing list by going to <a href="http://tech.groups.yahoo.com/group/JEDI-JCL/">http://tech.groups.yahoo.com/group/JEDI-JCL/</a>
@@ -189,7 +219,7 @@
 <p>An issue tracking tool can be accessed via ('Code Library' category):
 <a href="http://homepages.codegear.com/jedi/issuetracker/">http://homepages.codegear.com/jedi/issuetracker/</a></p>
 <p>Please be aware that you are allowed there to enter feature request and code donations as well.</p>
-<p>The JEDI issue tracker is based up on the Mantis BugTracker Open 
+<p>The JEDI issue tracker is based up on the Mantis BugTracker Open
 Source project. More background information about it is available on its homepage&nbsp;
 <a href="http://mantisbt.sourceforge.net/">http://mantisbt.sourceforge.net</a></p>
 <hr><br>
@@ -217,34 +247,29 @@
 You can also view the repository online via the web interface at <a href="http://jcl.svn.sourceforge.net/">http://jcl.svn.sourceforge.net/</a></p>
 <hr><br>
 <h3><a name="contribute">Getting involved in JCL development</a></h3>
-If you want to help out making JCL better or bigger or just plain 
-cooler, there are several ways in which you can help out. Here are some of the 
+If you want to help out making JCL better or bigger or just plain
+cooler, there are several ways in which you can help out. Here are some of the
 things we need your help on:
 <ul>
-  <li>Donate source code
-</li>
-  <li>Donate time writing help
-</li>
-  <li>Donate time writing demos
-</li>
-  <li>Donate time fixing bugs
-</li>
+  <li>Donate source code</li>
+  <li>Donate time writing help</li>
+  <li>Donate time writing demos</li>
+  <li>Donate time fixing bugs</li>
   <li>Share your experience by helping users in newsgroups and mailing lists</li>
 </ul>
-<p>JCL accepts donations from developers as long as the source fullfills the 
-requirements set up by the JEDI and JCL teams. To read more about these 
+<p>JCL accepts donations from developers as long as the source fullfills the
+requirements set up by the JEDI and JCL teams. To read more about these
 requirements, visit the page http://homepages.codegear.com/jedi/jcl</p>
-<p>You can also donate your time by writing help for the source already 
-in JCL. We currently use Doc-o-Matic to create the finished help files but 
+<p>You can also donate your time by writing help for the source already
+in JCL. We currently use Doc-o-Matic to create the finished help files but
 the actual help sources are plain text files in a simple to understand format. 
 We can provide you with auto-generated templates with all classes, properties, 
 types etc already inserted. The "only" thing left to do is fill in the actual 
 help text for the help items. If you are interested in writing help, contact us.</p>
 <p>If you want to help fix bugs in JCL, go to Mantis and check the bug report 
 there. You can post replies as well as fixes directly in the bug report. One of the 
-JCL developers will pick up the report/fix and update the Subversion repository if the fi
+JCL developers will pick up the report/fix and update the Subversion repository if the fi 
 is satisfactory. If you report and fix a lot of bugs, you might even get developer 
 access to SVN so you can update the JCL files directly.</p>
 </body>
 </html>
-

Modified: trunk/jcl/docs/Readme.txt
===================================================================
--- trunk/jcl/docs/Readme.txt	2006-12-26 16:32:00 UTC (rev 1846)
+++ trunk/jcl/docs/Readme.txt	2006-12-26 19:36:34 UTC (rev 1847)
@@ -1,26 +1,41 @@
 --------------------------------------------------------------------------------
 
 Jedi Code Library
-Release 1.97
+Release 1.98
 Build 2172
 10-February-2006
 
 --------------------------------------------------------------------------------
 
-News
-JCL release 1.97 provide an updated support for all targets (including Borland
-Developer Studio 2006) and an installation of some experts in C#Builder 1 and
-Delphi 8.
+Content of this file
+ - About this release
+ - Supported tools
+ - Installation notes
+ - Manual installation
+ - Distribution content
+ - Giving your feedback
+ - Reporting bugs
+ - Downloads of stable sources
+ - Development sources
+ - Getting involved in JCL development
 
-As always, multiple bugs have been fixed; for detailed change logs, use the
-facilities of our CVS repository at SourceForge.net , see below.
+--------------------------------------------------------------------------------
 
-Important: 
+About this release
 
+JCL release 1.98 provide an updated support for all targets (including Borland
+Developer Studio 2006 and Turbo Delphi) and an installation of some experts in
+C#Builder 1 and Delphi 8.
+As always, multiple bugs have been fixed; for detailed change logs, use the
+facilities of our Subversion repository at Sourceforge.net
+http://sourceforge.net/projects/jcl/ , see below.
+
+Important:
 Note that the package naming has changed: the same package name is used by all
 versions of the compiler supporting suffixes (C++Builder 6, Delphi 6, Delphi 7,
 C#Builder 1, Delphi 8, Delphi 2005 and BDS 2006); a different suffix is added
-for each target. The installer tries to remove old packages. 3rd party packages
+for each target to the BPL file name (for BDS 2006, the library file is named
+jcl100.bpl). The installer tries to remove old packages. 3rd party packages
 requiring old DJcl* resp. CJcl* packages need to be changed to accomodate the
 new naming scheme or they will cause conflicts in the IDE at load time.
 
@@ -29,93 +44,149 @@
 in their "browse path" option to compile.
 
 (Windows only) Installation options:
+Packages compiled by the JCL installer don't contain any debug informations to
+keep their size as small as possible.
 
- - Packages compiled by the JCL installer don't contain any debug informations
-to keep their size as small as possible.
-
- - The Jedi Code Library packages are required by some 3rd party packages
+The Jedi Code Library packages are required by some 3rd party packages
 (including the Jedi Visual Component Library - JVCL), the installer generates
 them if the "Packages" node is checked.
 
- - The installer can generate MAP informations for each package. These
-informations can be linked into binaries to become JCL debug data. Once linked
-MAP files could be deleted. These options are subnodes of the "Packages" node.
+The installer can generate MAP informations for each package. These informations
+can be linked into binaries to become JCL debug data or be converted to .jdbg
+files. Once linked MAP files could be deleted. These options are subnodes of the
+"Packages" node.
 
-Experts:
+For BDS 2006, the compiler introduced a new option to make the same packages
+available in C++, by checking the "Dual packages" option of the "Packages" node,
+you will be able to call functions of the JCL from C++ code.
 
- - For Delphi 5, Delphi 6, Delphi 7, C++Builder 5 and C++Builder 6, experts can
-be installed as design time packages or dll experts. For C#Builder 1 and
-Delphi 8, experts are installed as dll experts (those products don't load
-design time packages). For Delphi 2005 and Borland Developer Studio 2006,
-experts are installed as design time packages.
-
- - A new expert integrating version control systems in the IDE was added. It
-provides an integration of TortoiseCVS and TortoiseSVN inside the IDE, items are
-added in the IDE menu and buttons can be placed in IDE toolbars via the
-customize dialog, see below.
-
- - A dialog-box provides configuration options for JCL experts in the Tools menu.
-
 .net Framework support:
-
 A subset of JCL units was worked over to support Delphi.Net (Delphi 2005 & BDS
-2006). The packages belong to the Jedi.Jcl namespace.
+2006). The packages belong to the Jedi.Jcl namespace. The installer can generate
+these packages for Delphi 2005 and BDS 2006, it displays an other tab to
+configure options and directory. The installation process is similar to the
+native targets.
 
 --------------------------------------------------------------------------------
 
 Supported Tools
-Run time support:
- - Kylix 3
 
-Design time support (only experts):
- - C#Builder 1 (refer to installation notes below).
- - Delphi 8.net (refer to installation notes below).
+The Jedi Code Library can be compiled and installed in the following
+environments
 
+Only runtime support:
+ - Kylix 3 (cf Installation notes)
+
+Only design-time support (only experts):
+ - C#Builder 1 (cf Installation notes).
+ - Delphi 8.net (cf Installation notes).
+
 Both supports (run time and design time):
- - Delphi version 5, 6, 7
- - C++Builder version 5 & 6
- - Delphi 2005 (Delphi Win32 and Delphi.net personalities)
+ - Delphi version 5, 6, 7.
+ - C++Builder version 5 & 6.
+ - Delphi 2005 (Delphi Win32 and Delphi.net personalities).
  - Borland Developer Studio 2006 (Delphi Win32, C++ Builder Win32, Delphi.net
-   and C#Builder personalities)
+   and C#Builder personalities).
+ - Turbo Delphi (explorer and professional - cf Installation notes).
 
 --------------------------------------------------------------------------------
 
-Notes
-Not every unit supports all tools. Look out for *.exc files in the tool-specific
-lib/subdirectories for a list of units excluded from compilation.
-Kylix 3/C++ installation is broken; the installer will fail when it attempts to
-build the packages. Since the dreaded file open/save dialog Kylix bug is
-haunting us again (wasn't it considered to be defeated as of Kernel 2.4.21?),
-we are at present not investigating this further.
-Free Pascal (FP) support has not been updated for this release; most units from
-source/common should work with FP 2.0, as tests with a 2.0 beta (1.9.8)
-indicated, but this has not been verified. Note that there are no plans to
-support FP versions from the 1.0 branch.
+Installation notes
+
+ - Not every unit supports all tools. Look out for *.exc files in the
+   tool-specific lib/subdirectories for a list of units excluded from
+   compilation.
+ - Kylix 3 Delphi/C++ installation is back but specific code has not been tested
+   with the latest versions of the kernel. Please ensure you use the flavor of
+   the JCL with Unix EOL.
+ - Free Pascal (http://www.freepascal.org/) support has not been updated for
+   this release; most units from source/common should work with FP 2.0, as tests
+   with a 2.0 beta (1.9.8) indicated, but this has not been verified. Note that
+   there are no plans to support FP versions from the 1.0 branch.
+
+Installation for Turbo Delphi
+
+The Jedi Code Library can be compiled targetting Turbo Delphi Explorer and Turbo
+Delphi Professional. Turbo Delphi Professional is recognized as BDS 2006, you
+have to download its command line compiler from CodeGear website at
+http://www.codegear.com/Default.aspx?tabid=160  to install the full JCL on this
+tool.
+
+To install the JCL targetting Turbo Delphi Explorer, consider the following
+checks:
+ - If you have an other supported version of Delphi/C++Builder on this computer,
+   it should automatically be detected and the installer will process as usual.
+ - If you only have Turbo Delphi Explorer (and no other tools) on the computer,
+   the installer cannot be compiled. You have to use the Turbo Explorer flavor
+   of the JCL that contains a precompiled installer. However, you will not be
+   able to install any experts.
+
 Installation on C#Builder 1 and Delphi 8:
+ - These products cannot be used to build the JCL installer, you need an other
+   supported product to install JCL experts on these products.
+ - These products are not able to use the JCL library as a runtime library. You
+   cannot write managed applications and managed packages based on the JCL.
+ - These products are not shipped with their native compilers, you have to
+   download it from codecentral (http://cc.codegear.com/).
+   The item (http://codecentral.codegear.com/Download.aspx?id=21333) contains
+   the native compiler to be installed in Delphi 8.
+   The item (http://codecentral.codegear.com/Download.aspx?id=21334) contains
+   the native compiler to be installed in C#Builder 1. These zip files have to
+   be extracted in the products directory using the standard pattern:
+		   Executable files (exe and dll)      - BDS\X.0\bin
+		   Compiler files (dcp and dcu)        - BDS\X.0\lib
+		   Toolsapi source files               - BDS\X.0\source\ToolsAPI
 
-These products cannot be used to build the JCL installer, you need an other
-supported product to install JCL experts on these products.
-These products are not able to use the JCL library as a runtime library. You
-cannot write managed applications and managed packages based on the JCL.
-These products are not shipped with their native compilers, you have to download
-it from codecentral (http://cc.borland.com). The item (21333)  the native
-compiler to be installed in Delphi 8. The item (21334)  the native compiler to
-be installed in C#Builder 1. These zip files have to be extracted in the
-products director using the standard pattern:
-      Executable files (exe and dll)   - BDS\X.0\bin
-      Compiler files (dcp and dcu)     - BDS\X.0\lib
-      Toolsapi source files            - BDS\X.0\source\ToolsAPI.
+Default installation
 
+For all others versions of Delphi, C++Builder and BDS, simply launch Install.bat
+and the installer window will let you configure options and install the library.
+
 --------------------------------------------------------------------------------
 
-JCL Distribution content
-Install.bat                   - Compile and run JCL Installer (Win32)
+Manual Installation
+
+Although it is not recommended, a manual installation is possible. You will have
+to manually configure options for the library. That is done by modifying an
+included file.
+
+For each tool you want to install the JCL in, repeat the following steps:
+ 1 Copy source\jcl.template.inc to a fixed file name:
+    - For Kylix 3 (Delphi): source\jclkd3.inc
+    - For Kylix 3 (C++Builder): source\jclkc3.inc
+    - For C++Builder 5: source\jclc5.inc 
+    - For C++Builder 6: source\jclc6.inc 
+    - For Delphi 5: source\jcld5.inc 
+    - For Delphi 6: source\jcld6.inc 
+    - For Delphi 7: source\jcld7.inc 
+    - For Delphi 2005: source\jcld9.inc 
+    - For Delphi.net 2005: source\jcld9.net.inc 
+    - For BDS 2006 (Delphi and C++Builder): source\jcld10.inc 
+    - For Delphi.net 2006: source\jcld10.net.inc
+ 2 Open and edit that file to customize options.
+ 3 In the IDE, open and compile package Jcl.dpk (or Jcl.bpk for C++Builder)
+   located in the subdirectory of the "packages" directory matching your version
+   of the IDE. This package doesn't have to be installed since it doesn't
+   provide any components.
+ 4 If you want to install experts, open package JclBaseExpert.dpk and compile
+   it, then you can install all the experts you want (packages are located in
+   the same directory).
+
+--------------------------------------------------------------------------------
+
+Distribution content
+
+Install.bat                   - Compile and run VCL version of the JCL Installer (Win32)
 QInstall.bat                  - Compile and run CLX version of JCL Installer (Win32)
 install.sh                    - Compile and run JCL Installer (Linux)
 bin                           - Common place for sample application EXE files
 lib                           - Common place for compiled units.
 docs                          - Readme (this file) and other documents
-examples                      - JCL example applications
+docs\Readme.html              - This file
+docs\Experts.html             - Readme file about the experts
+docs\MPL-1.1.txt              - The Mozilla Public Licence (MPL) version 1.1
+docs\MPL FAQ.html             - Frequently Asked Questions about the MPL
+docs\cps.html                 - Cross Platform Strategy
 experts                       - JCL IDE experts source code
 experts\debug                 - JCL Debug IDE expert for using JclDebug unit
 experts\debug\dialog          - Application exception dialog replacement
@@ -126,143 +197,48 @@
 experts\projectanalyzer       - Project Analyzer IDE expert
 experts\useswizard            - JCL uses wizard
 experts\versioncontrol        - Integration of TortoiseCVS and TortoiseSVN in the IDE
+examples                      - JCL example applications
 examples\common               - CLX and Win32 example applications in Delphi
 examples\dotnet               - JCL example applications for Delphi.net
 examples\windows              - JCL example applications for Delphi.Win32
 examples\windows\delphitools  - Collection of system tools using JCL
-help                          - Help file
+help                          - Help file (distributed in a separate archive)
 install                       - Installer source code
 packages                      - JCL package sources
 source                        - JCL source code
 
 --------------------------------------------------------------------------------
 
-Feedback
+Giving your feedback
+
 If you have any comments or suggestions we would appreciate it if you drop us a
 note. There are several ways to get in contact with us:
-
  - Newsgroup is the recommended way to contact other JCL users and the team
-itself. They are hosted at news://forums.talkto.net/jedi.jcl.
-
+   itself. They are hosted at news://forums.talkto.net/jedi.jcl.
  - Write to jc...@de...  or to jcl...@de...  This email
-account should not be used for support requests. If you need support please use
-either the newsgroups or the mailing list.
+   account should not be used for support requests. If you need support please
+   use either the newsgroups or the mailing list.
+ - If you want to keep up to date about JCL then you can join the JCL mailing
+   list by going to http://tech.groups.yahoo.com/group/JEDI-JCL/ You can also
+   use this list to voice your opinion, comments or suggestions.
 
- - If you want to keep up to date about JCL then you can join the JCL mailing list
-by going to http://www.egroups.com/group/JEDI-JCL You can also use this list to
-voice your opinion, comments or suggestions.
-
 --------------------------------------------------------------------------------
 
-Issue Tracking
-An issue tracking tool can be accessed via ('Code Library' category):
-http://homepages.borland.com/jedi/issuetracker/
+Reporting bugs
 
-The general rule is: IF YOU WANT TO GET A BUG FIXED YOU NEED TO LOG IT!
+The general rule is: If you want to get a bug fixed you need to log it!
 
+An issue tracking tool can be accessed via ('Code Library' category):
+http://homepages.codegear.com/jedi/issuetracker/
+Please be aware that you are allowed there to enter feature request and code
+donations as well.
+
 The JEDI issue tracker is based up on the Mantis BugTracker Open Source project.
 More background information about it is available on its homepage
 http://mantisbt.sourceforge.net
 
-Please be aware that you are allowed there to enter feature request and code
-donations as well.
-
 --------------------------------------------------------------------------------
 
-Debug Extension for JclDebug unit
-The experts\debug folder contains an IDE expert which assists to insert JCL
-Debug information into executable files. This can be useful when use source
-location routines from JclDebug unit. These routines need some kind of special
-information to be able provide source location for given address in the process.
-Currently there are four options to get it work:
-
-Generate and deploy MAP file with your executable file. The file is generated
-by the linker. It needs to be set in Project|Options dialog -> Linker page,
-Detailed checkbox.
-Generate and deploy JDBG file file with your executable file. This is binary
-file based on MAP file but its size is typically about 12% of original MAP file.
-You can generate it by MapToJdbg tool in jcl\examples\windows\tools folder.
-The advantage over MAP file is smaller size and better security of the file
-content because it is not a plain text file and it also contains a checksum.
-Generate Borland TD32 debug symbols. These symbols are stored directly in the
-executable file but usually adds several megabytes so the file is very large.
-The advantage is you don't have to deploy any other file and it is easy to
-generate it by checking Include TD32 debug info in Linker option page.
-Insert JCL Debug info into executable file by the IDE expert. The size of added
-data is similar to JDBG file but it will be inserted directly into the
-executable file. This is probably best option because it combines small size of
-included data and no requirement of deploying additional files. In case you use
-this option you need install the JclDebugIde expert.
-The IDE expert will add new item to IDE Project menu. For Delphi 5, 6 and 7 it
-adds 'Insert JCL Debug data' check item at the end of the Project menu. When the
-item is checked, everytime the project is compiled by one of following commands:
-Compile, Build, Compile All Projects, Build All Projects or Run necessary JCL
-debug data are automatically inserted into the executable. Moreover, for Build
-and Build All commands dialog with detailed information of size of these data
-will be displayed.
-
-You can generate those debug data for packages and libraries as well using the
-expert. Each executable file in the project can use different option from those
-listed above. It is not necessary to generate any debug data for Borland runtime
-packages because the source location code can use names of exported functions to
-get procedure or method name. To get line number information for Borland RTL and
-VCL/CLX units you have to check Use Debug DCUs checkbox in
-Project|Options dialog -> Compiler tab. Unfortunately it is not possible to get
-line number information for Borland runtime packages because Borland does not
-provide detailed MAP files for them so you get procedure or method name only.
-
-In case you have more than one data source for an executable file by an accident
-the best one is chosen in following order:
- - JCL Debug data in the executable file
- - JDBG file
- - Borland TD32 symbols
- - MAP file
-
-Library or Borland package exports 
-It is also possible to insert JCL debug data programmatically to the executable
-file by using MakeJclDbg command line tool in jcl\examples\windows\delphitools
-folder. You can study included makefiles which uses this tool for building
-delphitools examples.
-
-To help using JclDebug exceptional stack tracking in application simple dialog
-is provided in jcl\experts\debug\dialogfolder. The dialog replaces standard
-dialog displayed by VCL or CLX application when an unhandled exception occurs.
-It has additional Detailed button showing the stack, list of loaded modules and
-other system information. By adding the dialog to the application exceptional
-stack tracking code is automatically initialized so you don't have to care about
-it. You can also turn on logging to text file by setting the Tag property of the
-dialog to '1'. There is also version for CLX (ClxExceptDlg) but it works on
-Windows only. These dialogs are intended to be added to Object Repository.
-
-Short description of getting the JclDebug functionality in your project:
-
- - Close all running instances of Delphi
- - Install JCL and IDE experts by the JCL Installer
- - Run Delphi IDE and open your project
- - Remove any TApplication.OnException handlers from your project(if any).
- - Add new Exception Dialog by selecting File | New | Other ... | Dialogs tab,
- - Select 'Exception Dialog' or 'Exception Dialog with Send' icon, Click OK button,
- - Save the form (use ExceptionDialog.pas name, for example)
- - Check Project | Insert JCL Debug data menu item
- - Do Project | Build
-
---------------------------------------------------------------------------------
-
-Version control expert
-
-The JCL team is proud to release a new expert integrating version control
-actions inside the Delphi/BCB/BDS IDE. It wraps TortoiseCVS  and TortoiseSVN
-commands in actions that can be placed on IDE toolbars and in IDE menu.
-
-This expert requires TortoiseCVS  or/and TortoiseSVN installed on the system to
-work properly. Please refer to these products documentations for help about
-using version control systems.
-
-The structure of the "Jcl Version" menu can be customized in the JCL options
-dialog (in the "Tools" menu).
-
---------------------------------------------------------------------------------
-
 Downloads of stable sources
 
 These sources are official JCL releases and file status can be considered as
@@ -281,20 +257,20 @@
 applications. The JCL development team provides these files for testing and
 feedback from users.
 
-You can download snapshots of the CVS repository updated every day in the  JCL
-daily page
+You can download snapshots of the Subversion repository updated every day in the
+JCL daily page  http://jcl.sourceforge.net/daily/
 
 To always have access to the most recent changes in the JCL, you should install
-a CVS client (we recommend TortoiseCVS and WinCVS) and download the CVS
-repository files to your computer. With the CVS client, you can update your
-local repository at any time. For more instructions on how to set up CVS and use
-it with JCL, see the CVS instruction page. You can also access the CVS
-repository via the web interface.
+a Subversion client (we recommend TortoiseSVN http://tortoisesvn.tigris.org/ and
+RapidSVN http://rapidsvn.tigris.org/) and download the SVN repository files to
+your computer as explained in the repository page of the JEDI Wiki at
+http://homepages.codegear.com/jedi/wiki/index.php?title=Repository With the SVN
+client, you can update your local repository at any time. You can also view the
+repository online via the web interface at http://jcl.svn.sourceforge.net/
 
 --------------------------------------------------------------------------------
 
 Getting involved in JCL development
-
 If you want to help out making JCL better or bigger or just plain cooler, there
 are several ways in which you can help out. Here are some of the things we need
 your help on:
@@ -302,21 +278,21 @@
  - Donate time writing help
  - Donate time writing demos
  - Donate time fixing bugs
- - Share your experience by helping users in newsgroups and mailing lists
 
+Share your experience by helping users in newsgroups and mailing lists
 JCL accepts donations from developers as long as the source fullfills the
 requirements set up by the JEDI and JCL teams. To read more about these
-requirements, visit the page http://homepages.borland.com/jedi/jcl
+requirements, visit the page http://homepages.codegear.com/jedi/jcl
 
-You can also donate your time by writing help for the source already in JCL. We
-currently use Doc-o-Matic to create the finished help files but the actual help
-sources are plain text files in a simple to understand format. We can provide
-you with auto-generated templates with all classes, properties, types etc
+You can also donate your time by writing help for the source already in JCL.
+We currently use Doc-o-Matic to create the finished help files but the actual
+help sources are plain text files in a simple to understand format. We can
+provide you with auto-generated templates with all classes, properties, types etc
 already inserted. The "only" thing left to do is fill in the actual help text
 for the help items. If you are interested in writing help, contact us.
 
 If you want to help fix bugs in JCL, go to Mantis and check the bug report
 there. You can post replies as well as fixes directly in the bug report. One of
-the JCL developers will pick up the report/fix and update the CVS repository if
-the fix is satisfactory. If you report and fix a lot of bugs, you might even get
-developer access to CVS so you can update the JCL files directly.
+the JCL developers will pick up the report/fix and update the Subversion
+repository if the fi is satisfactory. If you report and fix a lot of bugs, you
+might even get developer access to SVN so you can update the JCL files directly.


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: [1846] trunk/jcl

From: <ou...@us...> - 2006-12-26 16:32:03

Revision: 1846
          http://svn.sourceforge.net/jcl/?rev=1846&view=rev
Author:   outchy
Date:     2006-12-26 08:32:00 -0800 (Tue, 26 Dec 2006)

Log Message:
-----------
Reducing amount of hints/warnings while compiling units for the .net framework.
TODO: fix errors while compiling library for the .net framework.

Modified Paths:
--------------
    trunk/jcl/install/JediInstall.pas
    trunk/jcl/source/common/JclAnsiStrings.pas
    trunk/jcl/source/common/JclFileUtils.pas
    trunk/jcl/source/common/JclRTTI.pas
    trunk/jcl/source/common/JclSimpleXml.pas
    trunk/jcl/source/common/JclStrings.pas
    trunk/jcl/source/common/JclSysInfo.pas
    trunk/jcl/source/common/JclSysUtils.pas
    trunk/jcl/source/common/JclValidation.pas
    trunk/jcl/source/common/JclVectors.pas

Modified: trunk/jcl/install/JediInstall.pas
===================================================================
--- trunk/jcl/install/JediInstall.pas	2006-12-26 13:41:07 UTC (rev 1845)
+++ trunk/jcl/install/JediInstall.pas	2006-12-26 16:32:00 UTC (rev 1846)
@@ -409,7 +409,7 @@
   begin
     Result := True;
     Text := AnsiLowerCase(Text);
-    for i := 0 to High(Values) do
+    for i := Low(Values) to High(Values) do
       if Pos(Values[i], Text) > 0 then
         Exit;
     Result := False;
@@ -462,17 +462,29 @@
     LineType:= clFileProgress;
     Result := '';
   end
-  else if HasText(Line, ['hint: ', 'hinweis: ', 'suggestion: ']) then // do not localize
+  else if HasText(Line, ['hint: ', 'hinweis: ', 'suggestion: ', 'conseil: ']) then // do not localize
   begin
-    LineType := clHint;
-    if Assigned(Page) then
-      Page.AddHint(Line);
+    // hide hint about getter/setter names
+    if (Pos(' H2369 ', Line) = 0) then
+    begin
+      LineType := clHint;
+      if Assigned(Page) then
+        Page.AddHint(Line);
+    end
+    else
+      Result := '';
   end
   else if HasText(Line, ['warning: ', 'warnung: ', 'avertissement: ']) then // do not localize
   begin
-    LineType := clWarning;
-    if Assigned(Page) then
-      Page.AddWarning(Line);
+    // hide platform warnings
+    if (Pos(' W1002 ', Line) = 0) then
+    begin
+      LineType := clWarning;
+      if Assigned(Page) then
+        Page.AddWarning(Line);
+    end
+    else
+      Result := '';
   end
   else if HasText(Line, ['error: ', 'fehler: ', 'erreur: ']) then // do not localize
   begin

Modified: trunk/jcl/source/common/JclAnsiStrings.pas
===================================================================
--- trunk/jcl/source/common/JclAnsiStrings.pas	2006-12-26 13:41:07 UTC (rev 1845)
+++ trunk/jcl/source/common/JclAnsiStrings.pas	2006-12-26 16:32:00 UTC (rev 1846)
@@ -237,10 +237,10 @@
 function StrCompareRange(const S1, S2: AnsiString; const Index, Count: Integer): Integer;
 function StrFillChar(const C: AnsiChar; Count: Integer): AnsiString; overload;
 {$IFDEF CLR}
-function StrFillChar(const C: Char; Count: Integer): string; overload;
+function StrFillChar(const C: Char; Count: Integer): AnsiString; overload;
 {$ENDIF CLR}
 function StrFind(const Substr, S: AnsiString; const Index: Integer = 1): Integer;
-function StrHasPrefix(const S: AnsiString; const Prefixes: array of string): Boolean;
+function StrHasPrefix(const S: AnsiString; const Prefixes: array of AnsiString): Boolean;
 function StrIndex(const S: AnsiString; const List: array of AnsiString): Integer;
 function StrILastPos(const SubStr, S: AnsiString): Integer;
 function StrIPos(const SubStr, S: AnsiString): Integer;
@@ -252,7 +252,7 @@
 {$ENDIF ~CLR}
 function StrNIPos(const S, SubStr: AnsiString; N: Integer): Integer;
 function StrNPos(const S, SubStr: AnsiString; N: Integer): Integer;
-function StrPrefixIndex(const S: AnsiString; const Prefixes: array of string): Integer;
+function StrPrefixIndex(const S: AnsiString; const Prefixes: array of AnsiString): Integer;
 function StrSearch(const Substr, S: AnsiString; const Index: Integer = 1): Integer;
 
 // String Extraction
@@ -332,7 +332,7 @@
 procedure TrimStrings(const List: TStrings; DeleteIfEmpty: Boolean = True);
 procedure TrimStringsRight(const List: TStrings; DeleteIfEmpty: Boolean = True);
 procedure TrimStringsLeft(const List: TStrings; DeleteIfEmpty: Boolean = True);
-function AddStringToStrings(const S: string; Strings: TStrings; const Unique: Boolean): Boolean;
+function AddStringToStrings(const S: AnsiString; Strings: TStrings; const Unique: Boolean): Boolean;
 
 // Miscellaneous
 {$IFDEF KEEP_DEPRECATED}
@@ -2266,7 +2266,7 @@
 end;
 
 {$IFDEF CLR}
-function StrFillChar(const C: Char; Count: Integer): string;
+function StrFillChar(const C: Char; Count: Integer): AnsiString;
 var
   SB: System.Text.StringBuilder;
 begin
@@ -2459,7 +2459,7 @@
 end;
 {$ENDIF CLR}
 
-function StrHasPrefix(const S: AnsiString; const Prefixes: array of string): Boolean;
+function StrHasPrefix(const S: AnsiString; const Prefixes: array of AnsiString): Boolean;
 begin
   Result := StrPrefixIndex(S, Prefixes) > -1;
 end;
@@ -2867,10 +2867,10 @@
   end;
 end;
 
-function StrPrefixIndex(const S: AnsiString; const Prefixes: array of string): Integer;
+function StrPrefixIndex(const S: AnsiString; const Prefixes: array of AnsiString): Integer;
 var
   I: Integer;
-  Test: string;
+  Test: AnsiString;
 begin
   Result := -1;
   for I := Low(Prefixes) to High(Prefixes) do
@@ -3597,7 +3597,7 @@
 procedure StrIToStrings(S, Sep: AnsiString; const List: TStrings; const AllowEmptyString: Boolean = True);
 var
   I, L: Integer;
-  LowerCaseStr: string;
+  LowerCaseStr: AnsiString;
   Left: AnsiString;
 begin
   Assert(List <> nil);
@@ -3701,7 +3701,7 @@
   end;
 end;
 
-function AddStringToStrings(const S: string; Strings: TStrings; const Unique: Boolean): Boolean;
+function AddStringToStrings(const S: AnsiString; Strings: TStrings; const Unique: Boolean): Boolean;
 begin
   Assert(Strings <> nil);
   Result := Unique and (Strings.IndexOf(S) <> -1);

Modified: trunk/jcl/source/common/JclFileUtils.pas
===================================================================
--- trunk/jcl/source/common/JclFileUtils.pas	2006-12-26 13:41:07 UTC (rev 1845)
+++ trunk/jcl/source/common/JclFileUtils.pas	2006-12-26 16:32:00 UTC (rev 1846)
@@ -380,7 +380,7 @@
   TJclFileAttributeMask = class(TJclCustomFileAttrMask)
   private
     procedure ReadVolumeID(Reader: TReader);
-  public
+  protected
     procedure DefineProperties(Filer: TFiler); override;
   published
     property ReadOnly;
@@ -983,7 +983,11 @@
   {$ENDIF ~FPC}
   JclSysInfo, JclWin32, JclSecurity,
   {$ENDIF Win32API}
-  JclSysUtils, JclDateTime, JclResources, JclStrings;
+  JclSysUtils, JclDateTime, JclResources,
+  {$IFDEF CLR}
+  JclAnsiStrings,
+  {$ENDIF CLR}
+  JclStrings;
 
 { Some general notes:
 
@@ -1931,7 +1935,7 @@
     while (S1[Index1] = S2[Index2]) and (Index1 <= LenS1) do
     begin
       Inc(Result);
-      if S1[Index1] in [DirDelimiter, ':'] then
+      if (S1[Index1] = DirDelimiter) or (S1[Index1] = ':') then
         LastSeparator := Result;
       Inc(Index1);
       Inc(Index2);
@@ -2241,7 +2245,7 @@
   end;
   {$ENDIF ~MSWINDOWS}
 
-  function Equal(const Path1, Path2: string): Boolean;
+  function Equal(const Path1, Path2: AnsiString): Boolean;
   begin
     {$IFDEF MSWINDOWS}  // case insensitive
     Result := AnsiSameText(Path1, Path2);
@@ -4151,7 +4155,11 @@
           FillByteArray(ContentPtr, BUFSIZE, EVEN_FILL)
         else
           FillByteArray(ContentPtr, BUFSIZE, ODD_FILL);
+        {$IFDEF COMPILER6_UP}
+        Fs.Seek(0, soBeginning);
+        {$ELSE ~COMPILER6_UP}
         Fs.Seek(0, soFromBeginning);
+        {$ENDIF ~COMPILER6_UP}
         N := Size div BUFSIZE;
         while N > 0 do
         begin
@@ -6047,7 +6055,11 @@
 function SamePath(const Path1, Path2: string): Boolean;
 begin
   {$IFDEF MSWINDOWS}
+  {$IFDEF CLR}
+  Result := WideSameText(PathGetLongName(Path1), PathGetLongName(Path2));
+  {$ELSE ~CLR}
   Result := AnsiSameText(PathGetLongName(Path1), PathGetLongName(Path2));
+  {$ENDIF ~CLR}
   {$ELSE}
   Result := Path1 = Path2;
   {$ENDIF}

Modified: trunk/jcl/source/common/JclRTTI.pas
===================================================================
--- trunk/jcl/source/common/JclRTTI.pas	2006-12-26 13:41:07 UTC (rev 1845)
+++ trunk/jcl/source/common/JclRTTI.pas	2006-12-26 16:32:00 UTC (rev 1846)
@@ -119,13 +119,13 @@
   IJclTypeInfo = interface(IJclBaseInfo)
     ['{7DAD5220-46EA-11D5-B0C0-4854E825F345}']
     function GetName: string;
-    function GetTypeData: PTypeData;
-    function GetTypeInfo: PTypeInfo;
+    function GetTypeData: {$IFDEF CLR}TTypeData{$ELSE ~CLR}PTypeData{$ENDIF ~CLR};
+    function GetTypeInfo: {$IFDEF CLR}TTypeInfo{$ELSE ~CLR}PTypeInfo{$ENDIF ~CLR};
     function GetTypeKind: TTypeKind;
 
     property Name: string read GetName;
-    property TypeData: PTypeData read GetTypeData;
-    property TypeInfo: PTypeInfo read GetTypeInfo;
+    property TypeData: {$IFDEF CLR}TTypeData{$ELSE ~CLR}PTypeData{$ENDIF ~CLR} read GetTypeData;
+    property TypeInfo: {$IFDEF CLR}TTypeInfo{$ELSE ~CLR}PTypeInfo{$ENDIF ~CLR} read GetTypeInfo;
     property TypeKind: TTypeKind read GetTypeKind;
   end;
 
@@ -334,7 +334,7 @@
 
   EJclRTTIError = class(EJclError);
 
-function JclTypeInfo(ATypeInfo: PTypeInfo): IJclTypeInfo;
+function JclTypeInfo(ATypeInfo: {$IFDEF CLR}TTypeInfo{$ELSE ~CLR}PTypeInfo{$ENDIF ~CLR}): IJclTypeInfo;
 
 // Enumeration types
 const
@@ -343,7 +343,8 @@
 
   MaxPrefixCut = 250;
 
-function JclEnumValueToIdent(TypeInfo: PTypeInfo; const Value): string;
+function JclEnumValueToIdent(TypeInfo: {$IFDEF CLR}TTypeInfo{$ELSE ~CLR}PTypeInfo{$ENDIF ~CLR};
+  const Value): string;
 {$IFNDEF CLR}
 function JclGenerateEnumType(const TypeName: ShortString;
   const Literals: array of string): PTypeInfo;
@@ -354,17 +355,20 @@
 {$ENDIF ~CLR}
 
 // Integer types
-function JclStrToTypedInt(Value: string; TypeInfo: PTypeInfo): Integer;
-function JclTypedIntToStr(Value: Integer; TypeInfo: PTypeInfo): string;
+function JclStrToTypedInt(Value: string; TypeInfo: {$IFDEF CLR}TTypeInfo{$ELSE ~CLR}PTypeInfo{$ENDIF ~CLR}): Integer;
+function JclTypedIntToStr(Value: Integer; TypeInfo: {$IFDEF CLR}TTypeInfo{$ELSE ~CLR}PTypeInfo{$ENDIF ~CLR}): string;
 
 // Sets
-function JclSetToList(TypeInfo: PTypeInfo; const Value; const WantBrackets: Boolean;
-  const WantRanges: Boolean; const Strings: TStrings): string;
-function JclSetToStr(TypeInfo: PTypeInfo; const Value;
-  const WantBrackets: Boolean = False; const WantRanges: Boolean = False): string;
-procedure JclStrToSet(TypeInfo: PTypeInfo; var SetVar; const Value: string);
-procedure JclIntToSet(TypeInfo: PTypeInfo; var SetVar; const Value: Integer);
-function JclSetToInt(TypeInfo: PTypeInfo; const SetVar): Integer;
+function JclSetToList(TypeInfo: {$IFDEF CLR}TTypeInfo{$ELSE ~CLR}PTypeInfo{$ENDIF ~CLR};
+  const Value; const WantBrackets: Boolean; const WantRanges: Boolean; const Strings: TStrings): string;
+function JclSetToStr(TypeInfo: {$IFDEF CLR}TTypeInfo{$ELSE ~CLR}PTypeInfo{$ENDIF ~CLR};
+  const Value; const WantBrackets: Boolean = False; const WantRanges: Boolean = False): string;
+procedure JclStrToSet(TypeInfo: {$IFDEF CLR}TTypeInfo{$ELSE ~CLR}PTypeInfo{$ENDIF ~CLR};
+  var SetVar; const Value: string);
+procedure JclIntToSet(TypeInfo: {$IFDEF CLR}TTypeInfo{$ELSE ~CLR}PTypeInfo{$ENDIF ~CLR};
+  var SetVar; const Value: Integer);
+function JclSetToInt(TypeInfo: {$IFDEF CLR}TTypeInfo{$ELSE ~CLR}PTypeInfo{$ENDIF ~CLR};
+  const SetVar): Integer;
 {$IFNDEF CLR}
 function JclGenerateSetType(BaseType: PTypeInfo; const TypeName: ShortString): PTypeInfo;
 {$ENDIF ~CLR}
@@ -529,24 +533,24 @@
 type
   TJclTypeInfo = class(TInterfacedObject, IJclTypeInfo)
   private
-    FTypeData: PTypeData;
-    FTypeInfo: PTypeInfo;
+    FTypeData: {$IFDEF CLR}TTypeData{$ELSE ~CLR}PTypeData{$ENDIF ~CLR};
+    FTypeInfo: {$IFDEF CLR}TTypeInfo{$ELSE ~CLR}PTypeInfo{$ENDIF ~CLR};
   protected
     function GetName: string;
-    function GetTypeData: PTypeData;
-    function GetTypeInfo: PTypeInfo;
+    function GetTypeData: {$IFDEF CLR}TTypeData{$ELSE ~CLR}PTypeData{$ENDIF ~CLR};
+    function GetTypeInfo: {$IFDEF CLR}TTypeInfo{$ELSE ~CLR}PTypeInfo{$ENDIF ~CLR};
     function GetTypeKind: TTypeKind;
     procedure WriteTo(const Dest: IJclInfoWriter); virtual;
     procedure DeclarationTo(const Dest: IJclInfoWriter); virtual;
   public
-    constructor Create(ATypeInfo: PTypeInfo);
+    constructor Create(ATypeInfo: {$IFDEF CLR}TTypeInfo{$ELSE ~CLR}PTypeInfo{$ENDIF ~CLR});
     property Name: string read GetName;
-    property TypeData: PTypeData read GetTypeData;
-    property TypeInfo: PTypeInfo read GetTypeInfo;
+    property TypeData: {$IFDEF CLR}TTypeData{$ELSE ~CLR}PTypeData{$ENDIF ~CLR} read GetTypeData;
+    property TypeInfo: {$IFDEF CLR}TTypeInfo{$ELSE ~CLR}PTypeInfo{$ENDIF ~CLR} read GetTypeInfo;
     property TypeKind: TTypeKind read GetTypeKind;
   end;
 
-constructor TJclTypeInfo.Create(ATypeInfo: PTypeInfo);
+constructor TJclTypeInfo.Create(ATypeInfo: {$IFDEF CLR}TTypeInfo{$ELSE ~CLR}PTypeInfo{$ENDIF ~CLR});
 begin
   inherited Create;
   FTypeInfo := ATypeInfo;
@@ -558,19 +562,19 @@
   Result := TypeInfo.Name;
 end;
 
-function TJclTypeInfo.GetTypeData: PTypeData;
+function TJclTypeInfo.GetTypeData: {$IFDEF CLR}TTypeData{$ELSE ~CLR}PTypeData{$ENDIF ~CLR};
 begin
   Result := FTypeData;
 end;
 
-function TJclTypeInfo.GetTypeInfo: PTypeInfo;
+function TJclTypeInfo.GetTypeInfo: {$IFDEF CLR}TTypeInfo{$ELSE ~CLR}PTypeInfo{$ENDIF ~CLR};
 begin
   Result := FTypeInfo;
 end;
 
 function TJclTypeInfo.GetTypeKind: TTypeKind;
 begin
-  Result := TypeInfo.Kind
+  Result := {$IFDEF CLR}TypeInfo.TypeKind{$ELSE ~CLR}TypeInfo.Kind{$ENDIF ~CLR};
 end;
 
 procedure TJclTypeInfo.WriteTo(const Dest: IJclInfoWriter);
@@ -578,7 +582,7 @@
   {$IFDEF CLR}
   Dest.Writeln(RsRTTIName + Name);
   Dest.Writeln(RsRTTITypeKind + JclEnumValueToIdent(Borland.Delphi.System.TypeInfo(TTypeKind),
-    TypeInfo.Kind));
+    TypeInfo.TypeKind));
   Dest.Writeln(Format(RsRTTITypeInfoAt, [TypeInfo]));
   {$ELSE}
   Dest.Writeln(LoadResString(@RsRTTIName) + Name);
@@ -672,7 +676,11 @@
   cRange = '..';
 begin
   Dest.Write(Name + ' = ');
+  {$IFDEF CLR}
+  if TypeInfo.TypeKind in [tkChar, tkWChar] then
+  {$ELSE ~CLR}
   if TypeInfo.Kind in [tkChar, tkWChar] then
+  {$ENDIF ~CLR}
   begin
     if (MinValue < Ord(' ')) or (MinValue > Ord('~')) then
       Dest.Write('#' + IntToStr(MinValue) + cRange)
@@ -1165,9 +1173,9 @@
 type
   TJclPropInfo = class(TInterfacedObject, IJclPropInfo)
   private
-    FPropInfo: PPropInfo;
+    FPropInfo: {$IFDEF CLR}TPropInfo{$ELSE ~CLR}PPropInfo{$ENDIF ~CLR};
   protected
-    function GetPropInfo: PPropInfo;
+    function GetPropInfo: {$IFDEF CLR}TPropInfo{$ELSE ~CLR}PPropInfo{$ENDIF ~CLR};
     function GetPropType: IJclTypeInfo;
     function GetReader: {$IFDEF CLR}MethodInfo{$ELSE}Pointer{$ENDIF};
     function GetWriter: {$IFDEF CLR}MethodInfo{$ELSE}Pointer{$ENDIF};
@@ -1188,12 +1196,12 @@
     function GetWriterValue: Integer;
     function GetStoredValue: Integer;
   public
-    constructor Create(const APropInfo: PPropInfo);
+    constructor Create(const APropInfo: {$IFDEF CLR}TPropInfo{$ELSE ~CLR}PPropInfo{$ENDIF ~CLR});
     function IsStored(const AInstance: TObject): Boolean;
     function HasDefault: Boolean;
     function HasIndex: Boolean;
 
-    property PropInfo: PPropInfo read GetPropInfo;
+    property PropInfo: {$IFDEF CLR}TPropInfo{$ELSE ~CLR}PPropInfo{$ENDIF ~CLR} read GetPropInfo;
     property PropType: IJclTypeInfo read GetPropType;
     property Reader: {$IFDEF CLR}MethodInfo{$ELSE}Pointer{$ENDIF} read GetReader;
     property Writer: {$IFDEF CLR}MethodInfo{$ELSE}Pointer{$ENDIF} read GetWriter;
@@ -1210,13 +1218,13 @@
     property Name: string read GetName;
   end;
 
-constructor TJclPropInfo.Create(const APropInfo: PPropInfo);
+constructor TJclPropInfo.Create(const APropInfo: {$IFDEF CLR}TPropInfo{$ELSE ~CLR}PPropInfo{$ENDIF ~CLR});
 begin
   inherited Create;
   FPropInfo := APropInfo;
 end;
 
-function TJclPropInfo.GetPropInfo: PPropInfo;
+function TJclPropInfo.GetPropInfo: {$IFDEF CLR}TPropInfo{$ELSE ~CLR}PPropInfo{$ENDIF ~CLR};
 begin
   Result := FPropInfo;
 end;
@@ -1224,7 +1232,7 @@
 function TJclPropInfo.GetPropType: IJclTypeInfo;
 begin
   {$IFDEF CLR}
-  Result := JclTypeInfo(PropInfo.PropType);
+  Result := JclTypeInfo(PropInfo.TypeInfo);
   {$ELSE}
   Result := JclTypeInfo(PropInfo.PropType^);
   {$ENDIF CLR}
@@ -1547,7 +1555,7 @@
 
 function TJclClassTypeInfo.GetPropNames(const Name: string): IJclPropInfo;
 var
-  PropInfo: PPropInfo;
+  PropInfo: {$IFDEF CLR}TPropInfo{$ELSE ~CLR}PPropInfo{$ENDIF ~CLR};
 begin
   PropInfo := GetPropInfo(TypeInfo, Name);
   if PropInfo <> nil then
@@ -2062,7 +2070,7 @@
       {$IFDEF CLR}
       if pfArray in Param.Flags then
         Dest.Write(RsRTTIArrayOf);
-      if AnsiSameText(Param.TypeName, 'TVarRec') and (pfArray in Param.Flags) then
+      if WideSameText(Param.TypeName, 'TVarRec') and (pfArray in Param.Flags) then
         Dest.Write(TrimRight(RsRTTIConst))
       {$ELSE}
       if pfArray in Param.Flags then
@@ -2196,9 +2204,15 @@
     Dest.Write('dispinterface')
   else
     Dest.Write('interface');
+  {$IFDEF CLR}
   if (Parent <> nil) and not (ifDispInterface in Flags) and not
+      WideSameText(Parent.Name, 'IUnknown') then
+    Dest.Write('(' + Parent.Name + ')');
+  {$ELSE ~CLR}
+  if (Parent <> nil) and not (ifDispInterface in Flags) and not
       AnsiSameText(Parent.Name, 'IUnknown') then
     Dest.Write('(' + Parent.Name + ')');
+  {$ENDIF ~CLR}
   Dest.Writeln(' // unit ' + UnitName);
   Dest.Indent;
   try
@@ -2371,9 +2385,13 @@
 
 //=== Typeinfo retrieval =====================================================
 
-function JclTypeInfo(ATypeInfo: PTypeInfo): IJclTypeInfo;
+function JclTypeInfo(ATypeInfo: {$IFDEF CLR}TTypeInfo{$ELSE ~CLR}PTypeInfo{$ENDIF ~CLR}): IJclTypeInfo;
 begin
+  {$IFDEF CLR}
+  case ATypeInfo.TypeKind of
+  {$ELSE ~CLR}
   case ATypeInfo.Kind of
+  {$ENDIF ~CLR}
     tkInteger, tkChar, tkWChar:
       Result := TJclOrdinalRangeTypeInfo.Create(ATypeInfo);
     tkEnumeration:
@@ -2523,7 +2541,8 @@
 
 //=== Enumerations ===========================================================
 
-function JclEnumValueToIdent(TypeInfo: PTypeInfo; const Value): string;
+function JclEnumValueToIdent(TypeInfo: {$IFDEF CLR}TTypeInfo{$ELSE ~CLR}PTypeInfo{$ENDIF ~CLR};
+  const Value): string;
 var
   MinEnum: Integer;
   MaxEnum: Integer;
@@ -2701,7 +2720,7 @@
 
 //=== Integers ===============================================================
 
-function JclStrToTypedInt(Value: string; TypeInfo: PTypeInfo): Integer;
+function JclStrToTypedInt(Value: string; TypeInfo: {$IFDEF CLR}TTypeInfo{$ELSE ~CLR}PTypeInfo{$ENDIF ~CLR}): Integer;
 var
   Conv: TIdentToInt;
   HaveConversion: Boolean;
@@ -2740,7 +2759,7 @@
   end;
 end;
 
-function JclTypedIntToStr(Value: Integer; TypeInfo: PTypeInfo): string;
+function JclTypedIntToStr(Value: Integer; TypeInfo: {$IFDEF CLR}TTypeInfo{$ELSE ~CLR}PTypeInfo{$ENDIF ~CLR}): string;
 var
   Conv: TIntToIdent;
   HaveConversion: Boolean;
@@ -2761,8 +2780,8 @@
 
 //=== Sets ===================================================================
 
-function JclSetToList(TypeInfo: PTypeInfo; const Value;
-  const WantBrackets: Boolean; const WantRanges: Boolean;
+function JclSetToList(TypeInfo: {$IFDEF CLR}TTypeInfo{$ELSE ~CLR}PTypeInfo{$ENDIF ~CLR};
+  const Value; const WantBrackets: Boolean; const WantRanges: Boolean;
   const Strings: TStrings): string;
 var
   SetType: IJclSetTypeInfo;
@@ -2783,8 +2802,8 @@
     Result := '[' + Result + ']';
 end;
 
-function JclSetToStr(TypeInfo: PTypeInfo; const Value;
-  const WantBrackets: Boolean; const WantRanges: Boolean): string;
+function JclSetToStr(TypeInfo: {$IFDEF CLR}TTypeInfo{$ELSE ~CLR}PTypeInfo{$ENDIF ~CLR};
+  const Value; const WantBrackets: Boolean; const WantRanges: Boolean): string;
 var
   Dummy: TStringList;
 begin
@@ -2796,7 +2815,8 @@
   end;
 end;
 
-procedure JclStrToSet(TypeInfo: PTypeInfo; var SetVar; const Value: string);
+procedure JclStrToSet(TypeInfo: {$IFDEF CLR}TTypeInfo{$ELSE ~CLR}PTypeInfo{$ENDIF ~CLR};
+  var SetVar; const Value: string);
 var
   SetInfo: IJclSetTypeInfo;
   S: TStringList;
@@ -2820,36 +2840,42 @@
   end;
 end;
 
-procedure JclIntToSet(TypeInfo: PTypeInfo; var SetVar; const Value: Integer);
+procedure JclIntToSet(TypeInfo: {$IFDEF CLR}TTypeInfo{$ELSE ~CLR}PTypeInfo{$ENDIF ~CLR};
+  var SetVar; const Value: Integer);
 var
   BitShift: Integer;
   TmpInt64: Int64;
   EnumMin: Integer;
+  {$IFDEF CLR}
+  CompType: TTypeInfo;
+  {$ELSE ~CLR}
   EnumMax: Integer;
   ResBytes: Integer;
   CompType: PTypeInfo;
+  {$ENDIF ~CLR}
 begin
   CompType := GetTypeData(TypeInfo).CompType{$IFNDEF CLR}^{$ENDIF};
   EnumMin := GetTypeData(CompType).MinValue;
-  EnumMax := GetTypeData(CompType).MaxValue;
-  ResBytes := (EnumMax div 8) - (EnumMin div 8) + 1;
   BitShift := EnumMin mod 8;
   TmpInt64 := Longword(Value) shl BitShift;
   {$IFDEF CLR}
   SetVar := BitConverter.GetBytes(TmpInt64);
   {$ELSE}
+  EnumMax := GetTypeData(CompType).MaxValue;
+  ResBytes := (EnumMax div 8) - (EnumMin div 8) + 1;
   Move(TmpInt64, SetVar, ResBytes);
   {$ENDIF CLR}
 end;
 
-function JclSetToInt(TypeInfo: PTypeInfo; const SetVar): Integer;
+function JclSetToInt(TypeInfo: {$IFDEF CLR}TTypeInfo{$ELSE ~CLR}PTypeInfo{$ENDIF ~CLR};
+  const SetVar): Integer;
 var
   BitShift: Integer;
   TmpInt64: Int64;
   EnumMin: Integer;
   EnumMax: Integer;
   ResBytes: Integer;
-  CompType: PTypeInfo;
+  CompType: {$IFDEF CLR}TTypeInfo{$ELSE ~CLR}PTypeInfo{$ENDIF ~CLR};
 begin
   CompType := GetTypeData(TypeInfo).CompType{$IFNDEF CLR}^{$ENDIF};
   EnumMin := GetTypeData(CompType).MinValue;

Modified: trunk/jcl/source/common/JclSimpleXml.pas
===================================================================
--- trunk/jcl/source/common/JclSimpleXml.pas	2006-12-26 13:41:07 UTC (rev 1845)
+++ trunk/jcl/source/common/JclSimpleXml.pas	2006-12-26 16:32:00 UTC (rev 1846)
@@ -602,35 +602,35 @@
   begin
     if Result[I] = '&' then
     begin
-      if AnsiSameText(Copy(Result, I, 5), '&amp;') then
+      if AnsiSameText(AnsiString(Copy(Result, I, 5)), AnsiString('&amp;')) then
       begin
         Result[J] := '&';
         Inc(J);
         Inc(I, 4);
       end
       else
-      if AnsiSameText(Copy(Result, I, 4), '&lt;') then
+      if AnsiSameText(AnsiString(Copy(Result, I, 4)), AnsiString('&lt;')) then
       begin
         Result[J] := '<';
         Inc(J);
         Inc(I, 3);
       end
       else
-      if AnsiSameText(Copy(Result, I, 4), '&gt;') then
+      if AnsiSameText(AnsiString(Copy(Result, I, 4)), AnsiString('&gt;')) then
       begin
         Result[J] := '>';
         Inc(J);
         Inc(I, 3);
       end
       else
-      if AnsiSameText(Copy(Result, I, 6), '&apos;') then
+      if AnsiSameText(AnsiString(Copy(Result, I, 6)), AnsiString('&apos;')) then
       begin
         Result[J] := #39;
         Inc(J);
         Inc(I, 5);
       end
       else
-      if AnsiSameText(Copy(Result, I, 6), '&quot;') then
+      if AnsiSameText(AnsiString(Copy(Result, I, 6)), AnsiString('&quot;')) then
       begin
         Result[J] := '"';
         Inc(J);
@@ -695,18 +695,6 @@
   end;
 end;
 
-function TryStrToFloat(const S: string; out Value: Extended): Boolean;
-begin
-  Result := TextToFloat(PChar(S), Value, fvExtended);
-end;
-
-(*  make Delphi 5 compiler happy // andreas
-procedure ConvertErrorFmt(ResString: PResStringRec; const Args: array of const);
-begin
-  raise EConvertError.CreateResFmt(ResString, Args);
-end;
-*)
-
 function TryStrToBool(const S: string; out Value: Boolean): Boolean;
 var
   lResult: Extended;
@@ -775,6 +763,19 @@
 
 {$ENDIF COMPILER5}
 
+{$IFDEF CLR}
+function TryStrToFloat(const S: string; out Value: Extended): Boolean;
+var
+  Temp: Double;
+begin
+  Result := SysUtils.TryStrToFloat(S, Temp);
+  if Result then
+    Value := Temp
+  else
+    Value := 0;
+end;
+{$ENDIF CLR}
+
 function SimpleXMLEncode(const S: string): string;
 const
   NoConversion = [#0..#127] - ['"', '&', #39, '<', '>'];
@@ -786,7 +787,7 @@
   J := 1;
   for I := 1 to Length(S) do
   begin
-    if S[I] in NoConversion then
+    if AnsiChar(S[I]) in NoConversion then
       Result[J] := S[I]
     else
     begin
@@ -833,7 +834,7 @@
     IsHex: Boolean;
   begin
     Inc(ReadIndex, 2);
-    IsHex := (ReadIndex <= StringLength) and (S[ReadIndex] in ['x', 'X']);
+    IsHex := (ReadIndex <= StringLength) and (AnsiChar(S[ReadIndex]) in ['x', 'X']);
     Inc(ReadIndex, Ord(IsHex));
     I := ReadIndex;
     while ReadIndex <= StringLength do
@@ -890,35 +891,35 @@
         Inc(WriteIndex);
       end
       else
-      if AnsiSameText(Copy(S, ReadIndex, 5), '&amp;') then
+      if AnsiSameText(AnsiString(Copy(S, ReadIndex, 5)), AnsiString('&amp;')) then
       begin
         S[WriteIndex] := '&';
         Inc(WriteIndex);
         Inc(ReadIndex, 4);
       end
       else
-      if AnsiSameText(Copy(S, ReadIndex, 4), '&lt;') then
+      if AnsiSameText(AnsiString(Copy(S, ReadIndex, 4)), AnsiString('&lt;')) then
       begin
         S[WriteIndex] := '<';
         Inc(WriteIndex);
         Inc(ReadIndex, 3);
       end
       else
-      if AnsiSameText(Copy(S, ReadIndex, 4), '&gt;') then
+      if AnsiSameText(AnsiString(Copy(S, ReadIndex, 4)), AnsiString('&gt;')) then
       begin
         S[WriteIndex] := '>';
         Inc(WriteIndex);
         Inc(ReadIndex, 3);
       end
       else
-      if AnsiSameText(Copy(S, ReadIndex, 6), '&apos;') then
+      if AnsiSameText(AnsiString(Copy(S, ReadIndex, 6)), AnsiString('&apos;')) then
       begin
         S[WriteIndex] := #39;
         Inc(WriteIndex);
         Inc(ReadIndex, 5);
       end
       else
-      if AnsiSameText(Copy(S, ReadIndex, 6), '&quot;') then
+      if AnsiSameText(AnsiString(Copy(S, ReadIndex, 6)), AnsiString('&quot;')) then
       begin
         S[WriteIndex] := '"';
         Inc(WriteIndex);
@@ -1069,7 +1070,7 @@
       AOutStream := TMemoryStream.Create;
       DoFree := True;
       FOnDecodeStream(Self, Stream, AOutStream);
-      AOutStream.Seek(0, soFromBeginning);
+      AOutStream.Seek(0, {$IFDEF COMPILER6_UP}soBeginning{$ELSE ~COMPILER6_UP}soFromBeginning{$ENDIF ~COMPILER6_UP});
     end
     else
       AOutStream := Stream;
@@ -1109,7 +1110,7 @@
 var
   Stream: TFileStream;
 begin
-  if FileExists(FileName) then
+  if SysUtils.FileExists(FileName) then
   begin
     Stream := TFileStream.Create(FileName, fmOpenWrite);
     Stream.Size := 0;
@@ -1159,7 +1160,7 @@
     end;
     if Assigned(FOnEncodeStream) then
     begin
-      AOutStream.Seek(0, soFromBeginning);
+      AOutStream.Seek(0, {$IFDEF COMPILER6_UP}soBeginning{$ELSE ~COMPILER6_UP}soFromBeginning{$ENDIF ~COMPILER6_UP});
       FOnEncodeStream(Self, AOutStream, Stream);
     end;
   finally
@@ -1740,9 +1741,9 @@
                   //This is a text
                 lElem := TJclSimpleXMLElemText.Create(Parent);
                 if lTrimWhiteSpace then
-                  Stream.Seek(lStreamPos - 1, soFromBeginning)
+                  Stream.Seek(lStreamPos - 1, {$IFDEF COMPILER6_UP}soBeginning{$ELSE ~COMPILER6_UP}soFromBeginning{$ENDIF ~COMPILER6_UP})
                 else
-                  Stream.Seek(lStartOfContentPos, soFromBeginning);
+                  Stream.Seek(lStartOfContentPos, {$IFDEF COMPILER6_UP}soBeginning{$ELSE ~COMPILER6_UP}soFromBeginning{$ENDIF ~COMPILER6_UP});
                 lElem.LoadFromStream(Stream, AParent);
                 lStreamPos := Stream.Position;
                 CreateElems;
@@ -1775,7 +1776,7 @@
                 end;
             else
               begin
-                if (St <> '<![CDATA') or not (Ch in [' ', AnsiTab, AnsiCarriageReturn, AnsiLineFeed]) then
+                if (St <> '<![CDATA') or not (Ansichar(Ch) in [' ', AnsiTab, AnsiCarriageReturn, AnsiLineFeed]) then
                   St := St + Ch;
                 if St = '<![CDATA[' then
                   lElem := TJclSimpleXMLElemCData.Create(Parent)
@@ -1789,7 +1790,7 @@
             if lElem <> nil then
             begin
               CreateElems;
-              Stream.Seek(lStreamPos - (Length(St)), soFromBeginning);
+              Stream.Seek(lStreamPos - (Length(St)), {$IFDEF COMPILER6_UP}soBeginning{$ELSE ~COMPILER6_UP}soFromBeginning{$ENDIF ~COMPILER6_UP});
               lElem.LoadFromStream(Stream, AParent);
               lStreamPos := Stream.Position;
               FElems.AddObject(lElem.Name, lElem);
@@ -1822,11 +1823,11 @@
                 begin
                   lTempStreamPos := Stream.Position;
                   lElem := TJclSimpleXMLElemText.Create(Parent);
-                  Stream.Seek(lStartOfContentPos, soFromBeginning);
+                  Stream.Seek(lStartOfContentPos, {$IFDEF COMPILER6_UP}soBeginning{$ELSE ~COMPILER6_UP}soFromBeginning{$ENDIF ~COMPILER6_UP});
                   lElem.LoadFromStream(Stream, AParent);
                   CreateElems;
                   FElems.AddObject(lElem.Name, lElem);
-                  Stream.Seek(lTempStreamPos, soFromBeginning);
+                  Stream.Seek(lTempStreamPos, {$IFDEF COMPILER6_UP}soBeginning{$ELSE ~COMPILER6_UP}soFromBeginning{$ENDIF ~COMPILER6_UP});
                 end;
 
                 Break;
@@ -1843,7 +1844,7 @@
     end;
   until Count = 0;
 
-  Stream.Seek(lStreamPos, soFromBeginning);
+  Stream.Seek(lStreamPos, {$IFDEF COMPILER6_UP}soBeginning{$ELSE ~COMPILER6_UP}soFromBeginning{$ENDIF ~COMPILER6_UP});
 end;
 
 procedure TJclSimpleXMLElems.Notify(Value: TJclSimpleXMLElem;
@@ -2273,7 +2274,7 @@
     end;
   until Count = 0;
 
-  Stream.Seek(lStreamPos, soFromBeginning);
+  Stream.Seek(lStreamPos, {$IFDEF COMPILER6_UP}soBeginning{$ELSE ~COMPILER6_UP}soFromBeginning{$ENDIF ~COMPILER6_UP});
 end;
 
 procedure TJclSimpleXMLProps.SaveToStream(const Stream: TStream);
@@ -2424,11 +2425,11 @@
             FmtError(RsEInvalidXMLElementExpectedEndOfTagBu, [Ch]);
       else
         begin
-          if Ch in [AnsiTab, AnsiLineFeed, AnsiCarriageReturn, ' ' {, '.'}] then
+          if AnsiChar(Ch) in [AnsiTab, AnsiLineFeed, AnsiCarriageReturn, ' ' {, '.'}] then
           begin
             if lPos = 2 then
               Error(RsEInvalidXMLElementMalformedTagFoundn);
-            Stream.Seek(lStreamPos, soFromBeginning);
+            Stream.Seek(lStreamPos, {$IFDEF COMPILER6_UP}soBeginning{$ELSE ~COMPILER6_UP}soFromBeginning{$ENDIF ~COMPILER6_UP});
             Properties.LoadFromStream(Stream);
             lStreamPos := Stream.Position;
             Break; //Re read buffer
@@ -2440,15 +2441,15 @@
                 begin
                   lName := St;
                   //Load elements
-                  Stream.Seek(lStreamPos, soFromBeginning);
+                  Stream.Seek(lStreamPos, {$IFDEF COMPILER6_UP}soBeginning{$ELSE ~COMPILER6_UP}soFromBeginning{$ENDIF ~COMPILER6_UP});
                   St := Items.LoadFromStream(Stream, AParent);
                   if lNameSpace <> '' then
                   begin
-                    if not AnsiSameText(lNameSpace + ':' + lName, St) then
+                    if not AnsiSameText(AnsiString(lNameSpace + ':' + lName), AnsiString(St)) then
                       FmtError(RsEInvalidXMLElementErroneousEndOfTagE, [lName, St]);
                   end
                   else
-                    if not AnsiSameText(lName, St) then
+                    if not AnsiSameText(AnsiString(lName), AnsiString(St)) then
                       FmtError(RsEInvalidXMLElementErroneousEndOfTagE, [lName, St]);
                   lStreamPos := Stream.Position;
 
@@ -2497,7 +2498,7 @@
     AParent.DoValueParsed(lName, lValue);
   end;
 
-  Stream.Seek(lStreamPos, soFromBeginning);
+  Stream.Seek(lStreamPos, {$IFDEF COMPILER6_UP}soBeginning{$ELSE ~COMPILER6_UP}soFromBeginning{$ENDIF ~COMPILER6_UP});
 end;
 
 procedure TJclSimpleXMLElemClassic.SaveToStream(const Stream: TStream; const Level: string; AParent: TJclSimpleXML);
@@ -2636,7 +2637,7 @@
   if AParent <> nil then
     AParent.DoValueParsed('', St);
 
-  Stream.Seek(lStreamPos, soFromBeginning);
+  Stream.Seek(lStreamPos, {$IFDEF COMPILER6_UP}soBeginning{$ELSE ~COMPILER6_UP}soFromBeginning{$ENDIF ~COMPILER6_UP});
 end;
 
 procedure TJclSimpleXMLElemComment.SaveToStream(const Stream: TStream; const Level: string; AParent: TJclSimpleXML);
@@ -2724,7 +2725,7 @@
   if AParent <> nil then
     AParent.DoValueParsed('', St);
 
-  Stream.Seek(lStreamPos, soFromBeginning);
+  Stream.Seek(lStreamPos, {$IFDEF COMPILER6_UP}soBeginning{$ELSE ~COMPILER6_UP}soFromBeginning{$ENDIF ~COMPILER6_UP});
 end;
 
 procedure TJclSimpleXMLElemCData.SaveToStream(const Stream: TStream; const Level: string; AParent: TJclSimpleXML);
@@ -2789,7 +2790,7 @@
   if AParent <> nil then
     AParent.DoValueParsed('', St);
 
-  Stream.Seek(lStreamPos, soFromBeginning);
+  Stream.Seek(lStreamPos, {$IFDEF COMPILER6_UP}soBeginning{$ELSE ~COMPILER6_UP}soFromBeginning{$ENDIF ~COMPILER6_UP});
 end;
 
 procedure TJclSimpleXMLElemText.SaveToStream(const Stream: TStream; const Level: string; AParent: TJclSimpleXML);
@@ -2861,7 +2862,7 @@
         5: //L
           if lBuf[I] = CS_START_HEADER[lPos] then
           begin
-            Stream.Seek(lStreamPos, soFromBeginning);
+            Stream.Seek(lStreamPos, {$IFDEF COMPILER6_UP}soBeginning{$ELSE ~COMPILER6_UP}soFromBeginning{$ENDIF ~COMPILER6_UP});
             Properties.LoadFromStream(Stream);
             lStreamPos := Stream.Position;
             Inc(lPos);
@@ -2899,7 +2900,7 @@
 
   Name := '';
 
-  Stream.Seek(lStreamPos, soFromBeginning);
+  Stream.Seek(lStreamPos, {$IFDEF COMPILER6_UP}soBeginning{$ELSE ~COMPILER6_UP}soFromBeginning{$ENDIF ~COMPILER6_UP});
 end;
 
 procedure TJclSimpleXMLElemHeader.SaveToStream(const Stream: TStream;
@@ -2995,7 +2996,7 @@
   if AParent <> nil then
     AParent.DoValueParsed('', St);
 
-  Stream.Seek(lStreamPos, soFromBeginning);
+  Stream.Seek(lStreamPos, {$IFDEF COMPILER6_UP}soBeginning{$ELSE ~COMPILER6_UP}soFromBeginning{$ENDIF ~COMPILER6_UP});
 end;
 
 procedure TJclSimpleXMLElemDocType.SaveToStream(const Stream: TStream;
@@ -3044,7 +3045,7 @@
         16: //L
           if lBuf[I] = CS_START_PI[lPos] then
           begin
-            Stream.Seek(lStreamPos, soFromBeginning);
+            Stream.Seek(lStreamPos, {$IFDEF COMPILER6_UP}soBeginning{$ELSE ~COMPILER6_UP}soFromBeginning{$ENDIF ~COMPILER6_UP});
             Properties.LoadFromStream(Stream);
             lStreamPos := Stream.Position;
             Inc(lPos);
@@ -3075,7 +3076,7 @@
 
   Name := '';
 
-  Stream.Seek(lStreamPos, soFromBeginning);
+  Stream.Seek(lStreamPos, {$IFDEF COMPILER6_UP}soBeginning{$ELSE ~COMPILER6_UP}soFromBeginning{$ENDIF ~COMPILER6_UP});
 end;
 
 procedure TJclSimpleXMLElemSheet.SaveToStream(const Stream: TStream;
@@ -3183,7 +3184,7 @@
             lElem := nil;
             lEnd := False;
 
-            if (St <> '<![CDATA') or not (lBuf[i] in [' ', AnsiTab, AnsiCarriageReturn, AnsiLineFeed]) then
+            if (St <> '<![CDATA') or not (AnsiChar(lBuf[i]) in [' ', AnsiTab, AnsiCarriageReturn, AnsiLineFeed]) then
               St := St + lBuf[I];
             if St = '<![CDATA[' then
               lEnd := True
@@ -3200,7 +3201,7 @@
             if St = '<!DOCTYPE' then
               lElem := TJclSimpleXMLElemDocType.Create(nil)
             else
-            if (Length(St) > 1) and not (St[2] in ['!', '?']) then
+            if (Length(St) > 1) and not (AnsiChar(St[2]) in ['!', '?']) then
               lEnd := True;
 
             if lEnd then
@@ -3212,7 +3213,7 @@
             else
             if lElem <> nil then
             begin
-              Stream.Seek(lStreamPos - (Length(St)), soFromBeginning);
+              Stream.Seek(lStreamPos - (Length(St)), {$IFDEF COMPILER6_UP}soBeginning{$ELSE ~COMPILER6_UP}soFromBeginning{$ENDIF ~COMPILER6_UP});
               lElem.LoadFromStream(Stream, AParent);
               lStreamPos := Stream.Position;
               FElems.AddObject(lElem.Name, lElem);
@@ -3225,7 +3226,7 @@
     end;
   until Count = 0;
 
-  Stream.Seek(lStreamPos, soFromBeginning);
+  Stream.Seek(lStreamPos, {$IFDEF COMPILER6_UP}soBeginning{$ELSE ~COMPILER6_UP}soFromBeginning{$ENDIF ~COMPILER6_UP});
 end;
 
 procedure TJclSimpleXMLElemsProlog.SaveToStream(const Stream: TStream; AParent: TJclSimpleXML);
@@ -3468,7 +3469,7 @@
 begin
   // test if the new value is only made of spaces or tabs
   for I := 1 to Length(Value) do
-    if not (Value[I] in [AnsiTab, ' ']) then
+    if not (AnsiChar(Value[I]) in [AnsiTab, ' ']) then
       Exit;
   FIndentString := Value;
 end;

Modified: trunk/jcl/source/common/JclStrings.pas
===================================================================
--- trunk/jcl/source/common/JclStrings.pas	2006-12-26 13:41:07 UTC (rev 1845)
+++ trunk/jcl/source/common/JclStrings.pas	2006-12-26 16:32:00 UTC (rev 1846)
@@ -159,10 +159,14 @@
 function StrIsAlpha(const S: string): Boolean;
 function StrIsAlphaNum(const S: string): Boolean;
 function StrIsAlphaNumUnderscore(const S: string): Boolean;
+{$IFNDEF CLR}
 function StrContainsChars(const S: string; Chars: TSysCharSet; CheckAll: Boolean): Boolean;
+{$ENDIF ~CLR}
 function StrConsistsOfNumberChars(const S: string): Boolean;
 function StrIsDigit(const S: string): Boolean;
+{$IFNDEF CLR}
 function StrIsSubset(const S: string; const ValidChars: TSysCharSet): Boolean;
+{$ENDIF ~CLR}
 function StrSame(const S1, S2: string): Boolean;
 
 // String Transformation Routines
@@ -205,9 +209,13 @@
 function StrStripNonNumberChars(const S: string): string;
 function StrToHex(const Source: string): string;
 function StrTrimCharLeft(const S: string; C: Char): string;
+{$IFNDEF CLR}
 function StrTrimCharsLeft(const S: string; const Chars: TSysCharSet): string;
+{$ENDIF ~CLR}
 function StrTrimCharRight(const S: string; C: Char): string;
+{$IFNDEF CLR}
 function StrTrimCharsRight(const S: string; const Chars: TSysCharSet): string;
+{$ENDIF ~CLR}
 function StrTrimQuotes(const S: string): string;
 function StrUpper(const S: string): string;
 procedure StrUpperInPlace(var S: string);
@@ -235,7 +243,9 @@
 
 // String Search and Replace Routines
 function StrCharCount(const S: string; C: Char): Integer;
+{$IFNDEF CLR}
 function StrCharsCount(const S: string; Chars: TSysCharSet): Integer;
+{$ENDIF ~CLR}
 function StrStrCount(const S, SubS: string): Integer;
 function StrCompare(const S1, S2: string): Integer;
 function StrCompareRange(const S1, S2: string; const Index, Count: Integer): Integer;
@@ -848,6 +858,7 @@
  end;
 end;
 
+{$IFNDEF CLR}
 function StrContainsChars(const S: string; Chars: TSysCharSet; CheckAll: Boolean): Boolean;
 var
   I: Integer;
@@ -881,6 +892,7 @@
     end;
   end;
 end;
+{$ENDIF ~CLR}
 
 function StrIsAlphaNumUnderscore(const S: string): Boolean;
 var
@@ -916,6 +928,7 @@
   end;
 end;
 
+{$IFNDEF CLR}
 function StrIsSubset(const S: string; const ValidChars: TSysCharSet): Boolean;
 var
   I: Integer;
@@ -931,6 +944,7 @@
 
   Result := True and (Length(S) > 0);
 end;
+{$ENDIF ~CLR}
 
 function StrSame(const S1, S2: string): Boolean;
 begin
@@ -1834,6 +1848,7 @@
   Result := Copy(S, I, L - I + 1);
 end;
 
+{$IFNDEF CLR}
 function StrTrimCharsLeft(const S: string; const Chars: TSysCharSet): string;
 var
   I, L: Integer;
@@ -1852,6 +1867,7 @@
   while (I >= 1) and (S[I] in Chars) do Dec(I);
   Result := Copy(S, 1, I);
 end;
+{$ENDIF ~CLR}
 
 function StrTrimCharRight(const S: string; C: Char): string;
 var
@@ -2078,6 +2094,7 @@
       Inc(Result);
 end;
 
+{$IFNDEF CLR}
 function StrCharsCount(const S: string; Chars: TSysCharSet): Integer;
 var
   I: Integer;
@@ -2087,6 +2104,7 @@
     if S[I] in Chars then
       Inc(Result);
 end;
+{$ENDIF ~CLR}
 
 function StrStrCount(const S, SubS: string): Integer;
 var
@@ -3323,11 +3341,10 @@
 function CharIsNumberChar(const C: Char): Boolean;
 begin
   {$IFDEF CLR}
-  Result := System.Char.IsDigit(C) or
+  Result := System.Char.IsDigit(C) or (C = '+') or (C = '-') or (C = DecimalSeparator);
   {$ELSE}
-  Result := ((AnsiCharTypes[C] and C1_DIGIT) <> 0) or
+  Result := ((AnsiCharTypes[C] and C1_DIGIT) <> 0) or (C in AnsiSigns) or (C = DecimalSeparator);
   {$ENDIF CLR}
-    (C in AnsiSigns) or (C = DecimalSeparator);
 end;
 
 function CharIsPrintable(const C: Char): Boolean;
@@ -3465,11 +3482,19 @@
 function CharHex(const C: Char): Byte;
 begin
   Result := $FF;
+  {$IFDEF CLR}
+  if System.Char.IsDigit(C) then
+  {$ELSE ~CLR}
   if C in AnsiDecDigits then
+  {$ENDIF ~CLR}
     Result := Ord(CharUpper(C)) - Ord('0')
   else
   begin
+    {$IFDEF CLR}
+    if (C >= 'A') and (C <= 'F') then
+    {$ELSE ~CLR}
     if C in AnsiHexDigits then
+    {$ENDIF ~CLR}
       Result := Ord(CharUpper(C)) - (Ord('A')) + 10;
   end;
 end;
@@ -4014,6 +4039,7 @@
 function StrWord(const S: string; var Index: Integer; out Word: string): Boolean;
 var
   Start: Integer;
+  C: Char;
 begin
   Word := '';
   if (S = nil) or (S = '') then
@@ -4041,8 +4067,15 @@
             Exit;
           end
           else
-            while (S[Index] in [AnsiSpace, AnsiLineFeed, AnsiCarriageReturn]) do
+          begin
+            C := S[Index];
+            while (C = AnsiSpace) or (C = AnsiLineFeed) or (C = AnsiCarriageReturn) do
+            begin
               Inc(Index);
+              C := S[Index];
+            end;
+          end;
+
         end;
     else
       if Start = 0 then
@@ -4147,8 +4180,7 @@
   Temp: string;
   I, J, K: Integer;
   SwapSeparators, IsNegative: Boolean;
-  DecSep: Char;
-  ThouSep: Char;
+  DecSep, ThouSep, C: Char;
   {$IFDEF CLR}
   sb: StringBuilder;
   {$ENDIF CLR}
@@ -4167,10 +4199,11 @@
   J := 0;
   for I := 1 to Length(Temp) do
   begin
-    if Temp[I] = '-' then
+    C := Temp[I];
+    if C = '-' then
       IsNegative := not IsNegative
     else
-      if not (Temp[I] in [' ', '(', '+']) then
+      if (C <> ' ') and (C <> '(') and (C <> '+') then
       begin
         // if it appears prior to any digit, it has to be a decimal separator
         SwapSeparators := Temp[I] = ThouSep;

Modified: trunk/jcl/source/common/JclSysInfo.pas
===================================================================
--- trunk/jcl/source/common/JclSysInfo.pas	2006-12-26 13:41:07 UTC (rev 1845)
+++ trunk/jcl/source/common/JclSysInfo.pas	2006-12-26 16:32:00 UTC (rev 1846)
@@ -2462,6 +2462,7 @@
   HasModules: Boolean;
 begin
   Result := True;
+  HasModules := False;
   Processes := Process.GetProcesses;
   for I := 0 to High(Processes) do
   begin

Modified: trunk/jcl/source/common/JclSysUtils.pas
===================================================================
--- trunk/jcl/source/common/JclSysUtils.pas	2006-12-26 13:41:07 UTC (rev 1845)
+++ trunk/jcl/source/common/JclSysUtils.pas	2006-12-26 16:32:00 UTC (rev 1846)
@@ -1919,12 +1919,20 @@
 function TJclNumericFormat.GetDigitValue(Digit: Char): Integer;
 begin
   Result := -1;
+  {$IFDEF CLR}
+  if System.Char.IsDigit(Digit) then
+  {$ELSE ~CLR}
   if Digit in AnsiDecDigits then
+  {$ENDIF ~CLR}
     Result := Ord(Digit) - Ord('0')
   else
   begin
     Digit := UpCase(Digit);
+    {$IFDEF CLR}
+    if (Digit >= 'A') and (Digit <= 'Z') then
+    {$ELSE ~CLR}
     if Digit in AnsiUppercaseLetters then
+    {$ENDIF ~CLR}
       Result := Ord(Digit) - Ord('A') + 10;
   end;
   if Result >= Base then
@@ -2274,17 +2282,30 @@
   Result := 0;
   N := 0;
   I := 1;
-  if Value[I] in AnsiSigns then
+  if (Length(Value) >= I)
+  {$IFDEF CLR}
+    and ((Value[I] = '+') or (Value[I] = '-')) then
+  {$ELSE ~CLR}
+    and (Value[I] in AnsiSigns) then
+  {$ENDIF ~CLR}
     Inc(I);
   for I := I to Length(Value) do
   begin
     C := Value[I];
+    {$IFDEF CLR}
+    if System.Char.IsDigit(C) then
+    {$ELSE ~CLR}
     if C in AnsiDecDigits then
+    {$ENDIF ~CLR}
       N := Ord(C) - Ord('0')
     else
     begin
       C := UpCase(C);
+      {$IFDEF CLR}
+      if (C >= 'A') and (C <= 'Z') then
+      {$ELSE ~CLR}
       if C in AnsiUppercaseLetters then
+      {$ENDIF ~CLR}
       begin
         N := Ord(C) - Ord('A') + 10;
         if N >= Base then

Modified: trunk/jcl/source/common/JclValidation.pas
===================================================================
--- trunk/jcl/source/common/JclValidation.pas	2006-12-26 13:41:07 UTC (rev 1845)
+++ trunk/jcl/source/common/JclValidation.pas	2006-12-26 16:32:00 UTC (rev 1846)
@@ -33,7 +33,7 @@
 {$ENDIF UNITVERSIONING}
 
 // ISBN: International Standard Book Number
-function IsValidISBN(const ISBN: string): Boolean;
+function IsValidISBN(const ISBN: AnsiString): Boolean;
 
 {$IFDEF UNITVERSIONING}
 const
@@ -48,7 +48,7 @@
 implementation
 
 { TODO -cDoc : Donator: Ivo Bauer }
-function IsValidISBN(const ISBN: string): Boolean;
+function IsValidISBN(const ISBN: AnsiString): Boolean;
 //
 // References:
 // ===========

Modified: trunk/jcl/source/common/JclVectors.pas
===================================================================
--- trunk/jcl/source/common/JclVectors.pas	2006-12-26 13:41:07 UTC (rev 1845)
+++ trunk/jcl/source/common/JclVectors.pas	2006-12-26 16:32:00 UTC (rev 1846)
@@ -98,7 +98,6 @@
     procedure Grow; virtual;
     { IJclCloneable }
     function Clone: TObject;
-  public
     { IJclStrCollection }
     function Add(const AString: string): Boolean; overload; override;
     function AddAll(ACollection: IJclStrCollection): Boolean; overload; override;
@@ -122,7 +121,7 @@
     function Remove(Index: Integer): string; overload;
     procedure SetString(Index: Integer; const AString: string);
     function SubList(First, Count: Integer): IJclStrList;
-
+  public
     constructor Create(ACapacity: Integer = DefaultContainerCapacity);
     destructor Destroy; override;
     {$IFNDEF CLR}
@@ -143,7 +142,6 @@
   protected
     procedure Grow; virtual;
     procedure FreeObject(var AObject: TObject);
-  public
     { IJclCollection }
     function Add(AObject: TObject): Boolean; overload;
     function AddAll(ACollection: IJclCollection): Boolean; overload;
@@ -169,7 +167,7 @@
     function SubList(First, Count: Integer): IJclList;
     { IJclCloneable }
     function Clone: TObject;
-
+  public
     constructor Create(ACapacity: Integer = DefaultContainerCapacity; AOwnsObjects: Boolean = True);
     destructor Destroy; override;
     {$IFNDEF CLR}


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: [1845] trunk/jcl/docs

From: <ou...@us...> - 2006-12-26 13:41:10

Revision: 1845
          http://svn.sourceforge.net/jcl/?rev=1845&view=rev
Author:   outchy
Date:     2006-12-26 05:41:07 -0800 (Tue, 26 Dec 2006)

Log Message:
-----------
Changing file extensions to .html

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

Removed Paths:
-------------
    trunk/jcl/docs/Contacting authors.htm
    trunk/jcl/docs/Contributors.htm
    trunk/jcl/docs/MPL FAQ.htm

Deleted: trunk/jcl/docs/Contacting authors.htm
===================================================================
--- trunk/jcl/docs/Contacting authors.htm	2006-12-26 13:31:36 UTC (rev 1844)
+++ trunk/jcl/docs/Contacting authors.htm	2006-12-26 13:41:07 UTC (rev 1845)
@@ -1,35 +0,0 @@
-<HTML>
-<HEAD>
-<LINK REL="stylesheet" HREF="..\DclStyle.css">
-<TITLE>Contacting authors</TITLE>
-</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,
-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
-different things in different context. Usually "author" means that the described
-code was donated to the JCL by that individual and included after reformatting and
-only minor modifications. However, sometimes code was significantly altered,
-rewritten several times or 'merely' based upon or inspired by code from that
-individual. Consequently there exist several routines which in no way resemble
-the original code as it was donated by the "author". Nevertheless, the individual
-that orginally donated the code is still documented as the author.
-<P>
-In general, if you like some routine very much and it has proven to work correctly:
-be grateful to the author (in thought, not by sending him or her an e-mail). On
-the other hand, if some routine turns out to be buggy, incorrect or for whatever
-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>.
-
-<DIV CLASS="footer">Built on Friday, May 14, 2004</DIV>
-</BODY>
-</HTML>
\ No newline at end of file

Added: trunk/jcl/docs/Contacting authors.html
===================================================================
--- trunk/jcl/docs/Contacting authors.html	                        (rev 0)
+++ trunk/jcl/docs/Contacting authors.html	2006-12-26 13:41:07 UTC (rev 1845)
@@ -0,0 +1,35 @@
+<HTML>
+<HEAD>
+<LINK REL="stylesheet" HREF="..\DclStyle.css">
+<TITLE>Contacting authors</TITLE>
+</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,
+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
+different things in different context. Usually "author" means that the described
+code was donated to the JCL by that individual and included after reformatting and
+only minor modifications. However, sometimes code was significantly altered,
+rewritten several times or 'merely' based upon or inspired by code from that
+individual. Consequently there exist several routines which in no way resemble
+the original code as it was donated by the "author". Nevertheless, the individual
+that orginally donated the code is still documented as the author.
+<P>
+In general, if you like some routine very much and it has proven to work correctly:
+be grateful to the author (in thought, not by sending him or her an e-mail). On
+the other hand, if some routine turns out to be buggy, incorrect or for whatever
+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>.
+
+<DIV CLASS="footer">Built on Friday, May 14, 2004</DIV>
+</BODY>
+</HTML>
\ No newline at end of file


Property changes on: trunk/jcl/docs/Contacting authors.html
___________________________________________________________________
Name: svn:keywords
   + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id
Name: svn:eol-style
   + native

Deleted: trunk/jcl/docs/Contributors.htm
===================================================================
--- trunk/jcl/docs/Contributors.htm	2006-12-26 13:31:36 UTC (rev 1844)
+++ trunk/jcl/docs/Contributors.htm	2006-12-26 13:41:07 UTC (rev 1845)
@@ -1,199 +0,0 @@
-<html>
-<head>
-  <link rel="stylesheet" href="..\DclStyle.css">
-  <title>JCL Contributors (code donators)</title>
-</head>
-<body>
-  <h2>Contributors</h2>
-  <p>
-  Following is a list of all people that donated, or gave permission to use their,
-  code in the JEDI Code Library. Be sure that you read the Contacting Authors page
-  in the JCL helpfile before contacting these people. Note that JCL is continously
-  in development and by far not all donations have been processed yet. We're not
-  even half way! Therefore it is very well possible that you donated code but it's
-  not in the JCL yet. However, if you're name is not in the list below then it's
-  likely that something has gone wrong. In that event, please
-  <a href="mailto:jc...@de...?subject=JCL Donations">contact us</a>.
-  </p>
-  <p>
-  <table>
-  <tr valign="top">
-    <td width=25%><a href="mailto:aa...@bi...">aa</a></td>
-    <td width=25%><a href="mailto:ala...@ao...">Alan Lloyd</a></td>
-    <td width=25%>Alex Denissov</td>
-    <td width=25%><a href="mailto:al...@mt...">Alex Konshin</a></td>
-  </tr>
-  <tr valign="top">
-    <td width=25%><a href="mailto:ra...@ch...">Alexander Radchenko</a></td>
-    <td width=25%>Alexei Koudinov</td>
-    <td width=25%>Allan Lyons</td>
-    <td width=25%>Anders Melander</td>
-  </tr>
-  <tr valign="top">
-    <td width=25%><a href="mailto:asn...@us...">Andr\xE9 Snepvangers</a></td>
-    <td width=25%><a href="mailto:ah...@us...">Andreas Hausladen</a></td>
-    <td width=25%><a href="mailto:Jak...@ad...">Andreas Jakobsche</a></td>
-    <td width=25%><a href="mailto:ajo...@rp...">Angus Johnson</a></td>
-  </tr>
-  <tr valign="top">
-    <td width=25%><a href="mailto:as...@ia...">Anthony Steele</a></td>
-    <td width=25%><a href="mailto:az...@at...">Azret Botash</a></td>
-    <td width=25%>Barry Kelly</td>
-    <td width=25%><a href="mailto:HB...@Er...">Bender Heri</a></td>
-  </tr>
-  <tr valign="top">
-    <td width=25%><a href="mailto:ber...@ya...">Bernhard Berger</a></td>
-    <td width=25%><a href="mailto:or...@bm...">Bryan Coutch</a></td>
-    <td width=25%><a href="mailto:ca...@ca...">Carl Clark</a></td>
-    <td width=25%><a href="mailto:ce...@ma...">Cenon Del Rosario</a></td>
-  </tr>
-  <tr valign="top">
-    <td width=25%><a href="mailto:cca...@in...">Charlie Calvert</a></td>
-    <td width=25%>Chris Morris</td>
-    <td width=25%>Clayton Collie</td>
-    <td width=25%><a href="mailto:sa...@ia...">Corrie Engelbrecht</a></td>
-  </tr>
-  <tr valign="top">
-    <td width=25%><a href="mailto:Cyb...@ya...">Cybertron_549672</a></td>
-    <td width=25%><a href="mailto:dj...@sg...">Daniel M\xF8ller</a></td>
-    <td width=25%><a href="mailto:david@e.co.za">David Butler</a></td>
-    <td width=25%><a href="mailto:dhe...@Pi...">David Hervieux</a></td>
-  </tr>
-  <tr valign="top">
-    <td width=25%><a href="mailto:de...@da...">Deian Ivanov</a></td>
-    <td width=25%><a href="mailto:de...@em...">Dewald Hess</a></td>
-    <td width=25%><a href="mailto:rm...@fe...">Dick Maley (Advanced Delphi Systems)</a></td>
-    <td width=25%><a href="mailto:dy...@in...">Dylan Thomas</a></td>
-  </tr>
-  <tr valign="top">
-    <td width=25%><a href="mailto:Ear...@at...">Earl F. Glynn</a></td>
-    <td width=25%>Eric S. Fisher</td>
-    <td width=25%>Ernesto Benestante</td>
-    <td width=25%>ESB Consultancy</td>
-  </tr>
-  <tr valign="top">
-    <td width=25%><a href="mailto:ftf...@di...">Felipe de Toledo Farias</a></td>
-    <td width=25%><a href="mailto:fl...@us...">Flier Lu</a></td>
-    <td width=25%><a href="mailto:ouc...@la...">Florent Ouchet</a></td>
-    <td width=25%><a href="mailto:hal...@c2...">Hallvard Vassbotn</a></td>
-  </tr>
-  <tr valign="top">
-    <td width=25%><a href="mailto:he...@us...">Heinz Zastrau</a></td>
-    <td width=25%><a href="mailto:he...@wr...">Helen Borrie</a></td>
-    <td width=25%>Heri Bender</td>
-    <td width=25%>Huanlin Tsai</td>
-  </tr>
-  <tr valign="top">
-    <td width=25%><a href="mailto:ba...@oz...">Ivo Bauer</a></td>
-    <td width=25%><a href="mailto:Jac...@On...">Jack Bombeeck</a></td>
-    <td width=25%><a href="mailto:ja...@eu...">Jack N.A. Bakker</a></td>
-    <td width=25%><a href="mailto:su...@ja...">James Azarja</a></td>
-  </tr>
-  <tr valign="top">
-    <td width=25%>Jean Debord</td>
-    <td width=25%>Jean-Fabien Connault</td>
-    <td width=25%><a href="mailto:rd...@us...">Jean-Philippe BEMPEL</a></td>
-    <td width=25%>Jeroen Speldekamp</td>
-  </tr>
-  <tr valign="top">
-    <td width=25%><a href="mailto:joh...@gm...">Johannes Berg</a></td>
-    <td width=25%><a href="mailto:ja...@ho...">John C Molyneux</a></td>
-    <td width=25%><a href="mailto:jud...@mi...">Jud McCranie</a></td>
-    <td width=25%><a href="mailto:j.f...@ne...">Julien Ferraro</a></td>
-  </tr>
-  <tr valign="top">
-    <td width=25%><a href="mailto:gal...@te...">Kevin S. Gallagher</a></td>
-    <td width=25%><a href="mailto:la...@ci...">Lasse V\xE5gs\xE6ther Karlsen</a></td>
-    <td width=25%>Leonard Wennekers</td>
-    <td width=25%><a href="mailto:lir...@ho...">Liran Shahar</a></td>
-  </tr>
-  <tr valign="top">
-    <td width=25%><a href="mailto:ll...@in...">Lloyd Kinsella</a></td>
-    <td width=25%><a href="mailto:lu...@us...">Lucjan Lukasik</a></td>
-    <td width=25%><a href="mailto:mav...@cs...">M.H. Avegaart</a></td>
-    <td width=25%><a href="mailto:ed...@cc...">Malcolm Edgar</a></td>
-  </tr>
-  <tr valign="top">
-    <td width=25%><a href="mailto:ma...@us...">Manlio Laschena</a></td>
-    <td width=25%>Marc Convents</td>
-    <td width=25%><a href="mailto:ma...@ze...">Marcel Bestebroer</a></td>
-    <td width=25%><a href="mailto:br...@ba...">Marcel van Brakel</a></td>
-  </tr>
-  <tr valign="top">
-    <td width=25%><a href="mailto:wi...@po...">Marcin Wieczorek</a></td>
-    <td width=25%><a href="mailto:Don...@gm...">Marco Klemm</a></td>
-    <td width=25%><a href="mailto:oc...@ya...">Mario R. Carro</a></td>
-    <td width=25%><a href="mailto:ma...@ca...">Marius le Roux</a></td>
-  </tr>
-  <tr valign="top">
-    <td width=25%>Mark Vaughan</td>
-    <td width=25%>Martin Kimmings</td>
-    <td width=25%>Martin Kubecka</td>
-    <td width=25%><a href="mailto:ni...@da...">Massimo Maria Ghisalberti</a></td>
-  </tr>
-  <tr valign="top">
-    <td width=25%><a href="mailto:MHa...@bu...">Matt Hamilton</a></td>
-    <td width=25%><a href="mailto:mt...@us...">Matthias Thoma</a></td>
-    <td width=25%><a href="mailto:mic...@oz...">Michael Rynn</a></td>
-    <td width=25%><a href="mailto:msc...@bs...">Michael Schnell</a></td>
-  </tr>
-  <tr valign="top">
-    <td width=25%><a href="mailto:ea...@ms...">Michael Tsai</a></td>
-    <td width=25%>Michael Winter</td>
-    <td width=25%><a href="mailto:pu...@li...">Mike Lischke</a></td>
-    <td width=25%><a href="mailto:nh...@ic...">Nick Hodges</a></td>
-  </tr>
-  <tr valign="top">
-    <td width=25%><a href="mailto:n....@si...">Nils Haeck</a></td>
-    <td width=25%><a href="mailto:ass...@us...">Oliver Schneider</a></td>
-    <td width=25%><a href="mailto:ob...@us...">Olivier Sannier</a></td>
-    <td width=25%><a href="mailto:pat...@ie...">Patrick van Laake</a></td>
-  </tr>
-  <tr valign="top">
-    <td width=25%><a href="mailto:pc...@at...">Pavel Cisar</a></td>
-    <td width=25%><a href="mailto:pel...@fi...">Pelle Liljendal</a></td>
-    <td width=25%><a href="mailto:fr...@gm...">Peter Friese</a></td>
-    <td width=25%><a href="mailto:fm...@kc...">Peter McMahon</a></td>
-  </tr>
-  <tr valign="top">
-    <td width=25%><a href="mailto:pet...@ao...">Peter Panino</a></td>
-    <td width=25%><a href="mailto:pe...@us...">Peter Th\xF6rnquist</a></td>
-    <td width=25%><a href="mailto:pv...@us...">Petr Vones</a></td>
-    <td width=25%>Python</td>
-  </tr>
-  <tr valign="top">
-    <td width=25%><a href="mailto:ral...@gm...">Ralf Junker</a></td>
-    <td width=25%><a href="mailto:ray...@us...">Raymond Alexander</a></td>
-    <td width=25%><a href="mailto:rik...@us...">Rik Barker</a></td>
-    <td width=25%><a href="mailto:rh...@nw...">Robert Lee</a></td>
-  </tr>
-  <tr valign="top">
-    <td width=25%><a href="mailto:mar...@us...">Robert Marquardt</a></td>
-    <td width=25%><a href="mailto:rob...@ko...">Robert R. Marsh</a></td>
-    <td width=25%><a href="mailto:Rob...@us...">Robert Rossmair</a></td>
-    <td width=25%><a href="mailto:rve...@gm...">Rudy Velthuis</a></td>
-  </tr>
-  <tr valign="top">
-    <td width=25%><a href="mailto:sco...@us...">Scott Price</a></td>
-    <td width=25%><a href="mailto:an...@so...">SouthEaster</a></td>
-    <td width=25%><a href="mailto:ste...@01...">Stefan Kirschner</a></td>
-    <td width=25%><a href="mailto:sf...@if...">Stephane Fillon</a></td>
-  </tr>
-  <tr valign="top">
-    <td width=25%><a href="mailto:Ste...@Bi...">Sterling Butts</a></td>
-    <td width=25%><a href="mailto:be...@ot...">Theo Bebekis</a></td>
-    <td width=25%><a href="mailto:ti...@th...">Tim Yates</a></td>
-    <td width=25%><a href="mailto:to...@us...">Tom Hahn</a></td>
-  </tr>
-  <tr valign="top">
-    <td width=25%><a href="mailto:usc...@us...">Uwe Schuster</a></td>
-    <td width=25%><a href="mailto:jon...@sk...">Wim De Cleen</a></td>
-    <td width=25%><a href="mailto:yg...@ne...">Yaniv Golan</a></td>
-    <td width=25%><a href="mailto:">Your name here?</a></td>
-  </table>
-  </p>
-  <p>
-  <div class="footer">Built on 2005-03-14</div>
-  </p>
-</body>
-</html>

Added: trunk/jcl/docs/Contributors.html
===================================================================
--- trunk/jcl/docs/Contributors.html	                        (rev 0)
+++ trunk/jcl/docs/Contributors.html	2006-12-26 13:41:07 UTC (rev 1845)
@@ -0,0 +1,199 @@
+<html>
+<head>
+  <link rel="stylesheet" href="..\DclStyle.css">
+  <title>JCL Contributors (code donators)</title>
+</head>
+<body>
+  <h2>Contributors</h2>
+  <p>
+  Following is a list of all people that donated, or gave permission to use their,
+  code in the JEDI Code Library. Be sure that you read the Contacting Authors page
+  in the JCL helpfile before contacting these people. Note that JCL is continously
+  in development and by far not all donations have been processed yet. We're not
+  even half way! Therefore it is very well possible that you donated code but it's
+  not in the JCL yet. However, if you're name is not in the list below then it's
+  likely that something has gone wrong. In that event, please
+  <a href="mailto:jc...@de...?subject=JCL Donations">contact us</a>.
+  </p>
+  <p>
+  <table>
+  <tr valign="top">
+    <td width=25%><a href="mailto:aa...@bi...">aa</a></td>
+    <td width=25%><a href="mailto:ala...@ao...">Alan Lloyd</a></td>
+    <td width=25%>Alex Denissov</td>
+    <td width=25%><a href="mailto:al...@mt...">Alex Konshin</a></td>
+  </tr>
+  <tr valign="top">
+    <td width=25%><a href="mailto:ra...@ch...">Alexander Radchenko</a></td>
+    <td width=25%>Alexei Koudinov</td>
+    <td width=25%>Allan Lyons</td>
+    <td width=25%>Anders Melander</td>
+  </tr>
+  <tr valign="top">
+    <td width=25%><a href="mailto:asn...@us...">Andr\xE9 Snepvangers</a></td>
+    <td width=25%><a href="mailto:ah...@us...">Andreas Hausladen</a></td>
+    <td width=25%><a href="mailto:Jak...@ad...">Andreas Jakobsche</a></td>
+    <td width=25%><a href="mailto:ajo...@rp...">Angus Johnson</a></td>
+  </tr>
+  <tr valign="top">
+    <td width=25%><a href="mailto:as...@ia...">Anthony Steele</a></td>
+    <td width=25%><a href="mailto:az...@at...">Azret Botash</a></td>
+    <td width=25%>Barry Kelly</td>
+    <td width=25%><a href="mailto:HB...@Er...">Bender Heri</a></td>
+  </tr>
+  <tr valign="top">
+    <td width=25%><a href="mailto:ber...@ya...">Bernhard Berger</a></td>
+    <td width=25%><a href="mailto:or...@bm...">Bryan Coutch</a></td>
+    <td width=25%><a href="mailto:ca...@ca...">Carl Clark</a></td>
+    <td width=25%><a href="mailto:ce...@ma...">Cenon Del Rosario</a></td>
+  </tr>
+  <tr valign="top">
+    <td width=25%><a href="mailto:cca...@in...">Charlie Calvert</a></td>
+    <td width=25%>Chris Morris</td>
+    <td width=25%>Clayton Collie</td>
+    <td width=25%><a href="mailto:sa...@ia...">Corrie Engelbrecht</a></td>
+  </tr>
+  <tr valign="top">
+    <td width=25%><a href="mailto:Cyb...@ya...">Cybertron_549672</a></td>
+    <td width=25%><a href="mailto:dj...@sg...">Daniel M\xF8ller</a></td>
+    <td width=25%><a href="mailto:david@e.co.za">David Butler</a></td>
+    <td width=25%><a href="mailto:dhe...@Pi...">David Hervieux</a></td>
+  </tr>
+  <tr valign="top">
+    <td width=25%><a href="mailto:de...@da...">Deian Ivanov</a></td>
+    <td width=25%><a href="mailto:de...@em...">Dewald Hess</a></td>
+    <td width=25%><a href="mailto:rm...@fe...">Dick Maley (Advanced Delphi Systems)</a></td>
+    <td width=25%><a href="mailto:dy...@in...">Dylan Thomas</a></td>
+  </tr>
+  <tr valign="top">
+    <td width=25%><a href="mailto:Ear...@at...">Earl F. Glynn</a></td>
+    <td width=25%>Eric S. Fisher</td>
+    <td width=25%>Ernesto Benestante</td>
+    <td width=25%>ESB Consultancy</td>
+  </tr>
+  <tr valign="top">
+    <td width=25%><a href="mailto:ftf...@di...">Felipe de Toledo Farias</a></td>
+    <td width=25%><a href="mailto:fl...@us...">Flier Lu</a></td>
+    <td width=25%><a href="mailto:ouc...@la...">Florent Ouchet</a></td>
+    <td width=25%><a href="mailto:hal...@c2...">Hallvard Vassbotn</a></td>
+  </tr>
+  <tr valign="top">
+    <td width=25%><a href="mailto:he...@us...">Heinz Zastrau</a></td>
+    <td width=25%><a href="mailto:he...@wr...">Helen Borrie</a></td>
+    <td width=25%>Heri Bender</td>
+    <td width=25%>Huanlin Tsai</td>
+  </tr>
+  <tr valign="top">
+    <td width=25%><a href="mailto:ba...@oz...">Ivo Bauer</a></td>
+    <td width=25%><a href="mailto:Jac...@On...">Jack Bombeeck</a></td>
+    <td width=25%><a href="mailto:ja...@eu...">Jack N.A. Bakker</a></td>
+    <td width=25%><a href="mailto:su...@ja...">James Azarja</a></td>
+  </tr>
+  <tr valign="top">
+    <td width=25%>Jean Debord</td>
+    <td width=25%>Jean-Fabien Connault</td>
+    <td width=25%><a href="mailto:rd...@us...">Jean-Philippe BEMPEL</a></td>
+    <td width=25%>Jeroen Speldekamp</td>
+  </tr>
+  <tr valign="top">
+    <td width=25%><a href="mailto:joh...@gm...">Johannes Berg</a></td>
+    <td width=25%><a href="mailto:ja...@ho...">John C Molyneux</a></td>
+    <td width=25%><a href="mailto:jud...@mi...">Jud McCranie</a></td>
+    <td width=25%><a href="mailto:j.f...@ne...">Julien Ferraro</a></td>
+  </tr>
+  <tr valign="top">
+    <td width=25%><a href="mailto:gal...@te...">Kevin S. Gallagher</a></td>
+    <td width=25%><a href="mailto:la...@ci...">Lasse V\xE5gs\xE6ther Karlsen</a></td>
+    <td width=25%>Leonard Wennekers</td>
+    <td width=25%><a href="mailto:lir...@ho...">Liran Shahar</a></td>
+  </tr>
+  <tr valign="top">
+    <td width=25%><a href="mailto:ll...@in...">Lloyd Kinsella</a></td>
+    <td width=25%><a href="mailto:lu...@us...">Lucjan Lukasik</a></td>
+    <td width=25%><a href="mailto:mav...@cs...">M.H. Avegaart</a></td>
+    <td width=25%><a href="mailto:ed...@cc...">Malcolm Edgar</a></td>
+  </tr>
+  <tr valign="top">
+    <td width=25%><a href="mailto:ma...@us...">Manlio Laschena</a></td>
+    <td width=25%>Marc Convents</td>
+    <td width=25%><a href="mailto:ma...@ze...">Marcel Bestebroer</a></td>
+    <td width=25%><a href="mailto:br...@ba...">Marcel van Brakel</a></td>
+  </tr>
+  <tr valign="top">
+    <td width=25%><a href="mailto:wi...@po...">Marcin Wieczorek</a></td>
+    <td width=25%><a href="mailto:Don...@gm...">Marco Klemm</a></td>
+    <td width=25%><a href="mailto:oc...@ya...">Mario R. Carro</a></td>
+    <td width=25%><a href="mailto:ma...@ca...">Marius le Roux</a></td>
+  </tr>
+  <tr valign="top">
+    <td width=25%>Mark Vaughan</td>
+    <td width=25%>Martin Kimmings</td>
+    <td width=25%>Martin Kubecka</td>
+    <td width=25%><a href="mailto:ni...@da...">Massimo Maria Ghisalberti</a></td>
+  </tr>
+  <tr valign="top">
+    <td width=25%><a href="mailto:MHa...@bu...">Matt Hamilton</a></td>
+    <td width=25%><a href="mailto:mt...@us...">Matthias Thoma</a></td>
+    <td width=25%><a href="mailto:mic...@oz...">Michael Rynn</a></td>
+    <td width=25%><a href="mailto:msc...@bs...">Michael Schnell</a></td>
+  </tr>
+  <tr valign="top">
+    <td width=25%><a href="mailto:ea...@ms...">Michael Tsai</a></td>
+    <td width=25%>Michael Winter</td>
+    <td width=25%><a href="mailto:pu...@li...">Mike Lischke</a></td>
+    <td width=25%><a href="mailto:nh...@ic...">Nick Hodges</a></td>
+  </tr>
+  <tr valign="top">
+    <td width=25%><a href="mailto:n....@si...">Nils Haeck</a></td>
+    <td width=25%><a href="mailto:ass...@us...">Oliver Schneider</a></td>
+    <td width=25%><a href="mailto:ob...@us...">Olivier Sannier</a></td>
+    <td width=25%><a href="mailto:pat...@ie...">Patrick van Laake</a></td>
+  </tr>
+  <tr valign="top">
+    <td width=25%><a href="mailto:pc...@at...">Pavel Cisar</a></td>
+    <td width=25%><a href="mailto:pel...@fi...">Pelle Liljendal</a></td>
+    <td width=25%><a href="mailto:fr...@gm...">Peter Friese</a></td>
+    <td width=25%><a href="mailto:fm...@kc...">Peter McMahon</a></td>
+  </tr>
+  <tr valign="top">
+    <td width=25%><a href="mailto:pet...@ao...">Peter Panino</a></td>
+    <td width=25%><a href="mailto:pe...@us...">Peter Th\xF6rnquist</a></td>
+    <td width=25%><a href="mailto:pv...@us...">Petr Vones</a></td>
+    <td width=25%>Python</td>
+  </tr>
+  <tr valign="top">
+    <td width=25%><a href="mailto:ral...@gm...">Ralf Junker</a></td>
+    <td width=25%><a href="mailto:ray...@us...">Raymond Alexander</a></td>
+    <td width=25%><a href="mailto:rik...@us...">Rik Barker</a></td>
+    <td width=25%><a href="mailto:rh...@nw...">Robert Lee</a></td>
+  </tr>
+  <tr valign="top">
+    <td width=25%><a href="mailto:mar...@us...">Robert Marquardt</a></td>
+    <td width=25%><a href="mailto:rob...@ko...">Robert R. Marsh</a></td>
+    <td width=25%><a href="mailto:Rob...@us...">Robert Rossmair</a></td>
+    <td width=25%><a href="mailto:rve...@gm...">Rudy Velthuis</a></td>
+  </tr>
+  <tr valign="top">
+    <td width=25%><a href="mailto:sco...@us...">Scott Price</a></td>
+    <td width=25%><a href="mailto:an...@so...">SouthEaster</a></td>
+    <td width=25%><a href="mailto:ste...@01...">Stefan Kirschner</a></td>
+    <td width=25%><a href="mailto:sf...@if...">Stephane Fillon</a></td>
+  </tr>
+  <tr valign="top">
+    <td width=25%><a href="mailto:Ste...@Bi...">Sterling Butts</a></td>
+    <td width=25%><a href="mailto:be...@ot...">Theo Bebekis</a></td>
+    <td width=25%><a href="mailto:ti...@th...">Tim Yates</a></td>
+    <td width=25%><a href="mailto:to...@us...">Tom Hahn</a></td>
+  </tr>
+  <tr valign="top">
+    <td width=25%><a href="mailto:usc...@us...">Uwe Schuster</a></td>
+    <td width=25%><a href="mailto:jon...@sk...">Wim De Cleen</a></td>
+    <td width=25%><a href="mailto:yg...@ne...">Yaniv Golan</a></td>
+    <td width=25%><a href="mailto:">Your name here?</a></td>
+  </table>
+  </p>
+  <p>
+  <div class="footer">Built on 2005-03-14</div>
+  </p>
+</body>
+</html>


Property changes on: trunk/jcl/docs/Contributors.html
___________________________________________________________________
Name: svn:keywords
   + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id
Name: svn:eol-style
   + native

Deleted: trunk/jcl/docs/MPL FAQ.htm
===================================================================
--- trunk/jcl/docs/MPL FAQ.htm	2006-12-26 13:31:36 UTC (rev 1844)
+++ trunk/jcl/docs/MPL FAQ.htm	2006-12-26 13:41:07 UTC (rev 1845)
@@ -1,131 +0,0 @@
-<HTML>
-<HEAD>
-<LINK REL="stylesheet" HREF="..\DclStyle.css">
-<TITLE>MPL FAQ</TITLE>
-</HEAD>
-<BODY>
-<P ALIGN=CENTER>
-  <FONT SIZE="+2"><B>Mozilla Public License FAQ</B></FONT><BR>
-  <B>Draft 1.0, 4/10/2000</B>
-</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>
-
-<H3>Author perspective</H3>
-<OL>
-  <LI><B>Q:</B> Do I retain copyright once I publish source under the MPL?<BR>
-      <B>A:</B> Absolutely. You still retain all your copyrights.
-  <LI><B>Q:</B> Can I release the code under a different (possibly commercial type) license?<BR>
-      <B>A:</B> Yes. Since you have the original copyright, you can do it, but you can do
-         it only for your own code, and not for any contributions from others.
-  <LI><B>Q:</B> In two years Acme, Inc. comes with a great new license, which I would love
-         to use. Am I always bound to MPL for my released code?<BR>
-      <B>A:</B> You can use a Dual License approach, i.e. you keep the code under MPL, and
-         you add another license, e.g. GPL. The user will have then the option to use
-         the one s/he prefers.<BR>
-         Or, as the Initial Contributor, with the original copyright, you can release
-         it under the other license. Please note: even if you release the code under
-         new license, users of your original MPL-released code can continue to use
-         under MPL as before.
-  <LI><B>Q:</B> I think, JEDI could benefit from having cryptographic functions. I would
-         like to donate some (DES, Tripple DES etc.), which are covered by patent
-         rights (RSA, for example)? How should I do it?<BR>
-      <B>A:</B> All contributions are "Subject to third party intellectual property (IP)
-         claims." Thus, if you are aware of any patents infringements, before
-         submitting make sure that you:
-         <UL>
-           <LI> secure the rights to use the IP in your contribution (e.g. by paying
-                a fee)
-           <LI> modify the code so it doesn't infringe (in our case, provide other,
-                non-patented cryptographic functions)
-           <LI> in a worst case scenario, if the two above are not possible, do not
-                submit the code
-         </UL>
-         Please note: different countries may have different patents laws. Therefore
-         in some countries it could be legal to use patented IP (e.g. because the
-         patent expired), while in others not. Check with your local Patent Office.
-</OL>
-
-<H3>User perspective</H3>
-<OL>
-  <LI><B>Q:</B> Can I use the MPL code in commercial software? If yes, am I obligated to
-         credit the author?<BR>
-      <B>A:</B> Yes, you can use the MPL code in any commercial software. Since you have
-         to include the MPL code, the credit is included in the license header.
-         While not required, it is also customary to credit the author in "AboutBox".
-  <LI><B>Q:</B> Must I release the source code of used components?<BR>
-      <B>A:</B> Only of those covered by MPL, together with any modifications to them.
-  <LI><B>Q:</B> Must I publish my apps under MPL if I used MPL licensed code (the viral aspect) ?<BR>
-      <B>A:</B> No. That's the big advantage over GPL - you can use different code, mix MPL
-         and commercial code, but you don't have to release either the application,
-         nor the non-MPL code under MPL.  Basically, what is MPL, will stay MPL,
-         but it doesn't have any impact on the non-MPL code.
-  <LI><B>Q:</B> If a bug in MPL licensed code renders my clients machine unbootable, who
-         can I hold responsible for that?<BR>
-      <B>A:</B> Nobody. You use MPL licensed code at your own risk. Since it is provided
-         to you in a source code form, you can inspect it, test it, making sure that
-         it does, what you want it to do.
-  <LI><B>Q:</B> Must I publish modifications to MPL licensed code?<BR>
-      <B>A:</B> Yes. This is one of the MPL requirements. You are getting a free source
-         code, but you have to publish all modifications to the code, unless you
-         have done the changes for your internal use.
-  <LI><B>Q:</B> Must I publish code based on MPL licensed code under MPL?<BR>
-      <B>A:</B> Yes. You cannot change the license terms. Only the Initial Developer can
-         add an additional license (see dual license)
-  <LI><B>Q:</B> If I subclass the MPL code, do I still have to publish the new code? After
-         all I didn't modify the code at all!<BR>
-      <B>A:</B> That's a tricky one. By the letter of the law, since you didn't touch the
-         original code, you might claim that it is a "new" code, therefore no need
-         for MPL. However, by the 'spirit of the law', Inheritance (or subclassing)
-         is a modification of the functionality of a given class, and as such a
-         "derived work", so even if you didn't touch the original code, you are
-         still making changes.
-  <LI><B>Q:</B> I am proposing a modification to a JEDI-VCL component, which has a dual
-         license (MPL and GPL). This new file also needs to include a new class.
-         Should the source files for the new class be put in JEDI-VCL using MPL
-         with GPL dual-license or can it be put in another location and use only
-         the MPL?<BR>
-      <B>A:</B> The license of a file can't be changed without the consent of the copyright
-         owner. And a new file derived from an existing file inherits the licensing
-         from the existing file.  In the case of this component, it has to stay MPL/GPL.
-  <LI>   I am considering using an XML parser that has being covered by the MPL v1.1
-         (or alternatively the GPL) in a commercial product. I will simply use the
-         DLL libraries without modification, including the necessary header files
-         in my own code. When I distribute (sell) my own product I would, of course,
-         need to distribute the DLL libraries as well. My questions are:
-         <OL>
-           <LI><B>Q1:</B> Am I correct in assuming that simply including unmodified header
-                   files and linking with a library covered by the MPL does not
-                   place any legal restrictions or obligations on my commercial
-                   product and its source code?<BR>
-               <B>A1:</B> It places no obligations on the code YOU wrote, but there are
-                   still obligations for the code you included. These include
-                   source distribution (for included MPL code, not YOUR code),
-                   and some notification requirements.
-           <LI><B>Q2:</B> Am I obligated to distribute the (unmodified) source code that
-                   produced the libraries with which I link?<BR>
-               <B>A2:</B> Yes. Since you are shipping the DLL libraries with your product,
-                   you have to make source available for the MPL code you ship.<BR>
-                   <I>Note that the license also allows you to meet the distribution requirement
-                   by making the source available via electronic means rather than having to
-                   physically ship them with your product (as long as you tell your users
-                   where to get it). If you are using unmodified source code you could probably
-                   just point at the code author's server. If you did that you'd have to
-                   specify how users could get the exact version of the source you used,
-                   such as a CVS date stamp or something.<BR>
-                   This might be tricky -- you are responsible to make sure the source is
-                   available for 12 months after you ship, and there's no way of knowing
-                   how long the author will keep old versions around. The CVS repository
-                   is more of a sure bet. You could, of course, host the source on your
-                   own servers to be sure it'll stick around.</I>
-
-           <LI><B>Q3:</B> Am I obligated to make my use of the particular libraries known
-                   to users of my product?<BR>
-               <B>A3:</B> Yes, it's spelled out in the license. You need to credit the
-                    source of copyrighted code that is not yours in both the product
-                    and its documentation.
-         </OL>
-</OL>
-</BODY>
-</HTML>

Added: trunk/jcl/docs/MPL FAQ.html
===================================================================
--- trunk/jcl/docs/MPL FAQ.html	                        (rev 0)
+++ trunk/jcl/docs/MPL FAQ.html	2006-12-26 13:41:07 UTC (rev 1845)
@@ -0,0 +1,131 @@
+<HTML>
+<HEAD>
+<LINK REL="stylesheet" HREF="..\DclStyle.css">
+<TITLE>MPL FAQ</TITLE>
+</HEAD>
+<BODY>
+<P ALIGN=CENTER>
+  <FONT SIZE="+2"><B>Mozilla Public License FAQ</B></FONT><BR>
+  <B>Draft 1.0, 4/10/2000</B>
+</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>
+
+<H3>Author perspective</H3>
+<OL>
+  <LI><B>Q:</B> Do I retain copyright once I publish source under the MPL?<BR>
+      <B>A:</B> Absolutely. You still retain all your copyrights.
+  <LI><B>Q:</B> Can I release the code under a different (possibly commercial type) license?<BR>
+      <B>A:</B> Yes. Since you have the original copyright, you can do it, but you can do
+         it only for your own code, and not for any contributions from others.
+  <LI><B>Q:</B> In two years Acme, Inc. comes with a great new license, which I would love
+         to use. Am I always bound to MPL for my released code?<BR>
+      <B>A:</B> You can use a Dual License approach, i.e. you keep the code under MPL, and
+         you add another license, e.g. GPL. The user will have then the option to use
+         the one s/he prefers.<BR>
+         Or, as the Initial Contributor, with the original copyright, you can release
+         it under the other license. Please note: even if you release the code under
+         new license, users of your original MPL-released code can continue to use
+         under MPL as before.
+  <LI><B>Q:</B> I think, JEDI could benefit from having cryptographic functions. I would
+         like to donate some (DES, Tripple DES etc.), which are covered by patent
+         rights (RSA, for example)? How should I do it?<BR>
+      <B>A:</B> All contributions are "Subject to third party intellectual property (IP)
+         claims." Thus, if you are aware of any patents infringements, before
+         submitting make sure that you:
+         <UL>
+           <LI> secure the rights to use the IP in your contribution (e.g. by paying
+                a fee)
+           <LI> modify the code so it doesn't infringe (in our case, provide other,
+                non-patented cryptographic functions)
+           <LI> in a worst case scenario, if the two above are not possible, do not
+                submit the code
+         </UL>
+         Please note: different countries may have different patents laws. Therefore
+         in some countries it could be legal to use patented IP (e.g. because the
+         patent expired), while in others not. Check with your local Patent Office.
+</OL>
+
+<H3>User perspective</H3>
+<OL>
+  <LI><B>Q:</B> Can I use the MPL code in commercial software? If yes, am I obligated to
+         credit the author?<BR>
+      <B>A:</B> Yes, you can use the MPL code in any commercial software. Since you have
+         to include the MPL code, the credit is included in the license header.
+         While not required, it is also customary to credit the author in "AboutBox".
+  <LI><B>Q:</B> Must I release the source code of used components?<BR>
+      <B>A:</B> Only of those covered by MPL, together with any modifications to them.
+  <LI><B>Q:</B> Must I publish my apps under MPL if I used MPL licensed code (the viral aspect) ?<BR>
+      <B>A:</B> No. That's the big advantage over GPL - you can use different code, mix MPL
+         and commercial code, but you don't have to release either the application,
+         nor the non-MPL code under MPL.  Basically, what is MPL, will stay MPL,
+         but it doesn't have any impact on the non-MPL code.
+  <LI><B>Q:</B> If a bug in MPL licensed code renders my clients machine unbootable, who
+         can I hold responsible for that?<BR>
+      <B>A:</B> Nobody. You use MPL licensed code at your own risk. Since it is provided
+         to you in a source code form, you can inspect it, test it, making sure that
+         it does, what you want it to do.
+  <LI><B>Q:</B> Must I publish modifications to MPL licensed code?<BR>
+      <B>A:</B> Yes. This is one of the MPL requirements. You are getting a free source
+         code, but you have to publish all modifications to the code, unless you
+         have done the changes for your internal use.
+  <LI><B>Q:</B> Must I publish code based on MPL licensed code under MPL?<BR>
+      <B>A:</B> Yes. You cannot change the license terms. Only the Initial Developer can
+         add an additional license (see dual license)
+  <LI><B>Q:</B> If I subclass the MPL code, do I still have to publish the new code? After
+         all I didn't modify the code at all!<BR>
+      <B>A:</B> That's a tricky one. By the letter of the law, since you didn't touch the
+         original code, you might claim that it is a "new" code, therefore no need
+         for MPL. However, by the 'spirit of the law', Inheritance (or subclassing)
+         is a modification of the functionality of a given class, and as such a
+         "derived work", so even if you didn't touch the original code, you are
+         still making changes.
+  <LI><B>Q:</B> I am proposing a modification to a JEDI-VCL component, which has a dual
+         license (MPL and GPL). This new file also needs to include a new class.
+         Should the source files for the new class be put in JEDI-VCL using MPL
+         with GPL dual-license or can it be put in another location and use only
+         the MPL?<BR>
+      <B>A:</B> The license of a file can't be changed without the consent of the copyright
+         owner. And a new file derived from an existing file inherits the licensing
+         from the existing file.  In the case of this component, it has to stay MPL/GPL.
+  <LI>   I am considering using an XML parser that has being covered by the MPL v1.1
+         (or alternatively the GPL) in a commercial product. I will simply use the
+         DLL libraries without modification, including the necessary header files
+         in my own code. When I distribute (sell) my own product I would, of course,
+         need to distribute the DLL libraries as well. My questions are:
+         <OL>
+           <LI><B>Q1:</B> Am I correct in assuming that simply including unmodified header
+                   files and linking with a library covered by the MPL does not
+                   place any legal restrictions or obligations on my commercial
+                   product and its source code?<BR>
+               <B>A1:</B> It places no obligations on the code YOU wrote, but there are
+                   still obligations for the code you included. These include
+                   source distribution (for included MPL code, not YOUR code),
+                   and some notification requirements.
+           <LI><B>Q2:</B> Am I obligated to distribute the (unmodified) source code that
+                   produced the libraries with which I link?<BR>
+               <B>A2:</B> Yes. Since you are shipping the DLL libraries with your product,
+                   you have to make source available for the MPL code you ship.<BR>
+                   <I>Note that the license also allows you to meet the distribution requirement
+                   by making the source available via electronic means rather than having to
+                   physically ship them with your product (as long as you tell your users
+                   where to get it). If you are using unmodified source code you could probably
+                   just point at the code author's server. If you did that you'd have to
+                   specify how users could get the exact version of the source you used,
+                   such as a CVS date stamp or something.<BR>
+                   This might be tricky -- you are responsible to make sure the source is
+                   available for 12 months after you ship, and there's no way of knowing
+                   how long the author will keep old versions around. The CVS repository
+                   is more of a sure bet. You could, of course, host the source on your
+                   own servers to be sure it'll stick around.</I>
+
+           <LI><B>Q3:</B> Am I obligated to make my use of the particular libraries known
+                   to users of my product?<BR>
+               <B>A3:</B> Yes, it's spelled out in the license. You need to credit the
+                    source of copyrighted code that is not yours in both the product
+                    and its documentation.
+         </OL>
+</OL>
+</BODY>
+</HTML>


Property changes on: trunk/jcl/docs/MPL FAQ.html
___________________________________________________________________
Name: svn:keywords
   + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id
Name: svn:eol-style
   + native


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: [1844] trunk/jcl/docs

From: <ou...@us...> - 2006-12-26 13:31:42

Revision: 1844
          http://svn.sourceforge.net/jcl/?rev=1844&view=rev
Author:   outchy
Date:     2006-12-26 05:31:36 -0800 (Tue, 26 Dec 2006)

Log Message:
-----------
Updating Readme.html.
Splitting informations about experts out of general readme.

Modified Paths:
--------------
    trunk/jcl/docs/Readme.html

Added Paths:
-----------
    trunk/jcl/docs/Experts.html

Added: trunk/jcl/docs/Experts.html
===================================================================
--- trunk/jcl/docs/Experts.html	                        (rev 0)
+++ trunk/jcl/docs/Experts.html	2006-12-26 13:31:36 UTC (rev 1844)
@@ -0,0 +1,160 @@
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
+<html lang="en-us">
+<head>
+  <title>Jedi Code Library Release 1.98</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">
+</head>
+
+<body>
+<hr><br>
+<h1>Jedi Code Library</h1>
+<p>Release 1.98<br>
+Build 2172<br>
+10-February-2006</p>
+<hr><br>
+<h3>Content of this file</h3>
+<ul>
+  <li><a href="#about">About experts</a></li>
+  <li><a href="#debug">Debug Extension for JclDebug unit</a></li>
+  <li><a href="#version">Version control expert</a></li>
+  <li><a href="#xmm">XMM debug window</a></li>
+  <li><a href="#favorites">Favorite combobox in Open/Save dialogs</a></li>
+</ul>
+<hr><br>
+<h3><a name="about">About experts</a></h3>
+<p>For Delphi 5, Delphi 6, Delphi 7, C++Builder 5 and C++Builder 6, experts can
+be installed as design time packages or dll experts. For C#Builder 1 and Delphi 8,
+experts are installed as dll experts (those products don't load design time
+packages). For Delphi 2005, Borland Developer Studio 2006 and Turbo Delphi Professional,
+experts are installed as design time packages.</p>
+<h3><a name="debug">Debug Extension for JclDebug unit</a></h3>
+<p>The <tt>experts\debug </tt>folder contains an IDE expert which
+assists to insert JCL Debug information into executable files. This can be 
+useful when use source location routines from JclDebug unit. These routines 
+need some kind of special information to be able provide source location for 
+given address in the process. Currently there are four options to get it work:</p>
+<ol>
+  <li>Generate and deploy MAP file with your executable file. The file
+is generated by the linker. It needs to be set in Project|Options
+dialog -&gt; Linker page, Detailed checkbox.</li>
+  <li>Generate and deploy JDBG file file with your executable file.
+This is binary file based on MAP file but its size is typically about
+12% of original MAP file. You can generate it by MapToJdbg tool in <tt>jcl\examples\windows\tools</tt>
+folder. The advantage over MAP file is smaller size and better security
+of the file content because it is not a plain text file and it also
+contains a checksum. The IDE expert can automatically create this file
+when the project is compiled (see below).</li>
+  <li>Insert JCL Debug info into executable file. The
+size of added data is similar to JDBG file but it will be inserted
+directly into the executable file. This is probably best option because
+it combines small size of included data and no requirement of deploying
+additional files. The IDE expert can automatically insert these informations
+when the project is compiled (see below).</li>
+  <li>Generate Borland TD32 debug symbols. These symbols are stored
+directly in the executable file but usually adds several megabytes so
+the file is very large. The advantage is you don't have to deploy any
+other file and it is easy to generate it by checking Include TD32 debug
+info in Linker option page.</li>
+</ol>
+<p>
+The IDE expert will add new item to IDE Project menu. For 
+Delphi 5, 6 and 7 it adds 'Insert JCL Debug data' check item at the end 
+of the Project menu. When the item is checked, everytime the project is 
+compiled by one of following commands: Compile, Build, Compile All Projects,
+Build All Projects or Run necessary JCL debug data are automatically created
+from the detailled MAP file. The behavior of this conversion can be customized in
+the JCL options dialog (in the Tools menu of the IDE): the debug informations can
+be exported as .jdbg files or inserted in the binary file. The expert outputs a
+message in the IDE message view to display details about the data being generated.</p>
+<p>
+You can generate those debug data for packages and libraries as well 
+using the expert. Each executable file in the project can use different option
+from those listed above. It is not necessary to generate any debug data for 
+Borland runtime packages because the source location code can use names of exported 
+functions to get procedure or method name. To get line number information for 
+Borland RTL and VCL/CLX units you have to check Use Debug DCUs checkbox in 
+Project|Options dialog -&gt; Compiler tab. Unfortunately it is not 
+possible to get line number information for Borland runtime packages 
+because Borland does not provide detailed MAP files for them so you get 
+procedure or method name only.</p>
+<p>In case you have more than one data source for an executable file by 
+an accident the best one is chosen in following order:</p>
+<ol>
+  <li>JCL Debug data in the executable file</li>
+  <li>JDBG file</li>
+  <li>Borland TD32 symbols</li>
+  <li>MAP file</li>
+  <li>DBG and PDB debug informations (for system DLLs)</li>
+  <li>Library or Borland package export tables</li>
+</ol>
+<p>It is also possible to create JCL debug data programmatically from a MAP file
+by using MakeJclDbg command line tool in jcl\examples\windows\delphitools folder.
+This utility can either export data as a separate .jdbg file or insert them in the
+executable. You can study included makefiles which uses this tool for building
+delphitools examples.</p>
+<p>To help using JclDebug exceptional stack tracking in application
+simple dialog is provided in <tt>jcl\experts\debug\dialog</tt>folder. The dialog
+replaces standard dialog displayed by VCL or CLX application when an unhandled
+exception occurs. It has additional Detailed button showing the stack, list of 
+loaded modules and other system information. By adding the dialog to the 
+application exceptional stack tracking code is automatically initialized so you 
+don't have to care about it. You can also turn on logging to text file by setting 
+the Tag property of the dialog to '1'. There is also version for CLX 
+(ClxExceptDlg) but it works on Windows only. These dialogs are intended to be added to 
+Object Repository.</p>
+<p><b>Short description of getting the JclDebug functionality in your 
+project:</b></p>
+<ol>
+  <li>Close all running instances of Delphi
+</li>
+  <li>Install JCL and IDE experts by the JCL Installer
+</li>
+  <li>Run Delphi IDE and open your project
+</li>
+  <li>Remove any TApplication.OnException handlers from your project(if any).
+</li>
+  <li>Add new Exception Dialog by selecting File | New | Other ... | 
+Delphi Projects | Delphi Files, Select 'JCL Exception Dialog for XXX' (where XXX is
+either Delphi or C++Builder depending on your project). A wizard will appear to
+configure the options for this dialog.
+</li>
+  <li>Check "Project" | "Insert JCL Debug data" menu item
+</li>
+  <li>Do Project | Build</li>
+</ol>
+<hr><br>
+<h3><a name="version">Version control expert</a></h3>
+<p>A new expert integrating version control systems in the IDE was added.
+It provides an integration of TortoiseCVS and TortoiseSVN inside the IDE, items
+are added in the IDE menu and buttons can be placed in IDE toolbars via the
+customize dialog, see below.</p>
+<p>A dialog-box provides configuration options for JCL experts in the Tools menu.</p>
+<p>It wraps <a href="http://tortoisecvs.sourceforge.net/">TortoiseCVS</a>&nbsp;
+and&nbsp;<a href="http://tortoisesvn.sourceforge.net/">TortoiseSVN</a>&nbsp;commands in
+actions that can be placed on IDE toolbars and in IDE menu.</p>
+<p>This expert requires <a href="http://tortoisecvs.sourceforge.net/">TortoiseCVS</a>&nbsp;
+or/and&nbsp;<a href="http://tortoisesvn.sourceforge.net/">TortoiseSVN</a>&nbsp;installed on the
+system to properly work. Please refer to these products documentations for help
+about using version control systems.</p>
+<p>The structure of the "Jcl Version" menu can be customized in the JCL options
+dialog (in the "Tools" menu).</p>
+<hr><br>
+<h3><a name="xmm">XMM debug window</a></h3>
+<p>This dialog provides enhancement to the debugger of Delphi and C++Builder regarding
+XMM registers. These registers were introduced in SSE instructions (and are still
+used in SSE2, SSE3 and SSSE3 instructions). This dialog can be displayed by clicking
+on menu View | Debug Windows | SIMD (keyboard shortcut Ctrl+Alt+D).
+It is divided in to panes following the style of the FPU window: the left pane
+displays content of registers and the right pane displays MXCSR flags. The format
+of the registers can be modified from the context. All registers and flags can be
+modified and changes will be applied to the debugged process.</p>
+<hr><br>
+<h3><a name="favorites">Favorite combobox in Open/Save dialogs</a></h3>
+<p>This expert modifies the IDE Open/Save dialogs and add a combobox to store your
+favorite directories. Items can be added and deleted using the button at the right
+of the combobox.</p>
+</body>
+</html>
+


Property changes on: trunk/jcl/docs/Experts.html
___________________________________________________________________
Name: svn:keywords
   + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id
Name: svn:eol-style
   + native

Modified: trunk/jcl/docs/Readme.html
===================================================================
--- trunk/jcl/docs/Readme.html	2006-12-26 13:20:20 UTC (rev 1843)
+++ trunk/jcl/docs/Readme.html	2006-12-26 13:31:36 UTC (rev 1844)
@@ -1,131 +1,151 @@
 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
 <html lang="en-us">
 <head>
-  <title>Jedi Code Library Release 1.97</title>
+  <title>Jedi Code Library Release 1.98</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">
 </head>
 <body>
-<hr>
+<hr><br>
 <h1>Jedi Code Library</h1>
-<p>Release 1.97<br>
+<p>Release 1.98<br>
 Build 2172<br>
 10-February-2006</p>
 <hr><br>
-<h3>News</h3>
-<p>JCL release 1.97 provide an updated support for all targets (including Borland 
-Developer Studio 2006) and an installation of some experts in C#Builder 1 and Delphi 8.</p>
-<p>As always, multiple bugs have been fixed; for detailed change logs, 
-use the facilities of our CVS repository at <a href="http://sourceforge.net/projects/jcl/">SourceForge.net</a>
+<h3>Content of this file</h3>
+<ul>
+  <li><a href="#about">About this release</a></li>
+  <li><a href="#targets">Supported tools</a></li>
+  <li><a href="#notes">Installation notes</a></li>
+  <li><a href="#files">Distribution content</a></li>
+  <li><a href="#feedback">Giving your feedback</a></li>
+  <li><a href="#issues">Reporting bugs</a></li>
+  <li><a href="#releases">Downloads of stable sources</a></li>
+  <li><a href="#development">Development sources</a></li>
+  <li><a href="#contribute">Getting involved in JCL development</a></li>
+</ul>
+<hr><br>
+<h3><a name="about">About this release</a></h3>
+<p>JCL release 1.98 provide an updated support for all targets (including Borland 
+Developer Studio 2006 and Turbo Delphi) and an installation of some experts in C#Builder 1 and Delphi 8.</p>
+<p>As always, multiple bugs have been fixed; for detailed change logs,
+use the facilities of our Subversion repository at Sourceforge.net&nbsp
+<a href="http://sourceforge.net/projects/jcl/">http://sourceforge.net/projects/jcl/</a>
 , see below.</p>
 <p><span style="FONT-WEIGHT: bold">Important:</span>
 </p>
 <ul>
-  <li><p>Note that the package naming has changed: the same package name is used by 
+  <li><p>Note that the package naming has changed: the same package name is used by
 all versions of the compiler supporting suffixes (C++Builder 6, Delphi 6, 
 Delphi 7, C#Builder 1, Delphi 8, Delphi 2005 and BDS 2006); a different suffix 
-is added for each target. The installer tries to remove old packages. 
-3rd party packages requiring old DJcl* resp. CJcl* packages need to be changed 
+is added for each target to the BPL file name (for BDS 2006, the library file is named jcl100.bpl).
+The installer tries to remove old packages. 3rd party packages requiring old DJcl* resp. CJcl* packages need to be changed
 to accomodate the new naming scheme or they will cause conflicts in the IDE at load time.
 </p></li>
-  <li><p>DCP files are now created in the lib\target subdirectory of the JCL 
-installation. 3rd party packages requiring JCL packages need to have this path 
+  <li><p>DCP files are now created in the lib\target subdirectory of the JCL
+installation. 3rd party packages requiring JCL packages need to have this path
 in their "browse path" option to compile.
 </p></li>
 </ul>
 <p><span style="FONT-WEIGHT: bold">(Windows only)&nbsp;Installation&nbsp;options:</span></p>
-<p>Packages compiled by the JCL installer don't contain any debug 
+<p>Packages compiled by the JCL installer don't contain any debug
 informations to keep their size as small as possible.</p>
 <p>The Jedi Code Library packages are required by some 3rd party packages 
 (including the Jedi Visual Component Library - JVCL), the installer generates 
 them if the "Packages" node is checked.</p>
-<p>The installer can generate MAP informations for each package. These informations 
-can be linked into binaries to become JCL debug data. Once linked MAP files could 
-be deleted. These options are subnodes of the "Packages" node.</p>
-<p><span style="FONT-WEIGHT: bold">Experts:</span></p>
-<p>For Delphi 5, Delphi 6, Delphi 7, C++Builder 5 and C++Builder 6, experts can 
-be installed as design time packages or dll experts. For C#Builder 1 and Delphi 8, 
-experts are installed as dll experts (those products don't load design time 
-packages). For Delphi 2005 and Borland Developer Studio 2006, experts are 
-installed as design time packages.</p>
-<p>A new expert integrating version control systems in the IDE was added. 
-It provides an integration of TortoiseCVS and TortoiseSVN inside the IDE, items 
-are added in the IDE menu and buttons can be placed in IDE toolbars via the 
-customize dialog, see below.</p>
-<p>A dialog-box provides configuration options for JCL experts in the Tools menu.</p>
+<p>The installer can generate MAP informations for each package. These informations
+can be linked into binaries to become JCL debug data or be converted to .jdbg files.
+Once linked MAP files could be deleted. These options are subnodes of the "Packages" node.</p>
+<p>For BDS 2006, the compiler introduced a new option to make the same packages available in C++,
+by checking the "Dual packages" option of the "Packages" node, you will be able to call functions
+of the JCL from C++ code.</p>
 <p><span style="FONT-WEIGHT: bold">.net Framework support:</span></p>
-<p>A subset of JCL units was worked over to support Delphi.Net (Delphi 2005 
-&amp; BDS 2006). The packages belong to the Jedi.Jcl namespace.</p>
-<hr>
-<h3>Supported Tools</h3>
-<p><span style="FONT-WEIGHT: bold">Run time support:</span></p>
+<p>A subset of JCL units was worked over to support Delphi.Net (Delphi 2005
+&amp; BDS 2006). The packages belong to the Jedi.Jcl namespace. The installer can generate these
+packages for Delphi 2005 and BDS 2006, it displays an other tab to configure options and directory.
+The installation process is similar to the native targets.</p>
+<hr><br>
+<h3><a name="targets">Supported Tools</a></h3>
+<p>The Jedi Code Library can be compiled and installed in the following environments</p>
+<p><span style="FONT-WEIGHT: bold">Only runtime support:</span></p>
 <ul>
-  <li>Kylix 3</li>
+  <li>Kylix 3 (cf <a href="#notes">Installation notes</a>)</li>
 </ul>
 
-<p><span style="FONT-WEIGHT: bold">Design&nbsp;time support (only experts):</span></p>
+<p><span style="FONT-WEIGHT: bold">Only design-time support (only experts):</span></p>
 <ul>
-  <li>C#Builder 1 (refer to&nbsp;installation notes below).
-</li>
-  <li>Delphi 8.net (refer to installation notes below).</li>
+  <li>C#Builder 1 (cf <a href="#notes">Installation notes</a>).</li>
+  <li>Delphi 8.net (cf <a href="#notes">Installation notes</a>).</li>
 </ul>
 <p><span style="FONT-WEIGHT: bold">Both supports (run time and design time):</span></p>
 <ul>
-  <li>Delphi version 5, 6, 7
-</li>
-  <li>C++Builder version 5 &amp; 6
-</li>
-  <li>Delphi 2005 (Delphi Win32 and Delphi.net personalities)
-</li>
+  <li>Delphi version 5, 6, 7</li>
+  <li>C++Builder version 5 &amp; 6</li>
+  <li>Delphi 2005 (Delphi Win32 and Delphi.net personalities)</li>
   <li>Borland Developer Studio 2006 (Delphi Win32, C++ Builder Win32, Delphi.net and C#Builder personalities)</li>
+  <li>Turbo Delphi (explorer and professional - cf <a href="#notes">Installation notes</a>)</li>
 </ul>
-<hr>
-<h3>Notes</h3>
+<hr><br>
+<h3><a name="notes">Installation notes</a></h3>
 <ul>
   <li>Not every unit supports all tools. Look out for <tt>*.exc</tt>
-files in the tool-specific <tt>lib/</tt>subdirectories for a list of units 
-excluded from compilation.
-</li>
-  <li>Kylix 3/C++ installation is broken; the installer will fail when 
-it attempts to build the packages. Since the dreaded file open/save dialog Kylix 
-bug is haunting us again (wasn't it considered to be defeated as of Kernel 2.4.21?), 
-we are at present not investigating this further.
-</li>
-  <li><a href="http://www.freepascal.org/"><b>Free Pascal</b></a>&nbsp;(FP) 
-support has not been updated for this release; most units from 
-source/common should work with FP 2.0, as tests with a 2.0 beta (1.9.8) 
-indicated, but this has not been verified. Note that there are no plans 
-to&nbsp;support FP versions from the 1.0 branch.</li>
+  files in the tool-specific <tt>lib/</tt>subdirectories for a list of units
+  excluded from compilation.</li>
+  <li>Kylix 3 Delphi/C++ installation is back but specific code has not been tested with the latest
+  versions of the kernel. Please ensure you use the flavor of the JCL with Unix EOL.</li>
+  <li>Free Pascal (<a href="http://www.freepascal.org/">http://www.freepascal.org/</a>)
+  support has not been updated for this release; most units from
+  source/common should work with FP 2.0, as tests with a 2.0 beta (1.9.8)
+  indicated, but this has not been verified. Note that there are no plans
+  to&nbsp;support FP versions from the 1.0 branch.</li>
 </ul>
+<p><span style="FONT-WEIGHT: bold">Installation for Turbo Delphi</span></p>
+<p>The Jedi Code Library can be compiled targetting Turbo Delphi Explorer and Turbo Delphi Professional.
+Turbo Delphi Professional is recognized as BDS 2006, you have to download its command line compiler from
+CodeGear website at&nbsp<a href="http://www.codegear.com/Default.aspx?tabid=160">http://www.codegear.com/Default.aspx?tabid=160</a>&nbsp;
+to install the full JCL on this tool</p>
+<p>To install the JCL targetting Turbo Delphi Explorer, consider the following checks:</p>
+<ol>
+  <li>If you have an other supported version of Delphi/C++Builder on this computer, it should automatically be
+  detected and the installer will process as usual.</li>
+  <li>If you only have Turbo Delphi Explorer (and no other tools) on the computer, the installer cannot be
+  compiled. You have to use the Turbo Explorer flavor of the JCL that contains a precompiled installer. However,
+  you will not be able to install any experts.</li>
+</ol>
 <p><span style="FONT-WEIGHT: bold">Installation on C#Builder 1 and Delphi 8:</span></p>
 <ol>
   <li>These products cannot be used to build the JCL installer, you need an
-    other supported product to install JCL experts on these products.</li>
+      other supported product to install JCL experts on these products.
+</li>
   <li>These products are not able to use the JCL library as a runtime library.
-   You cannot write managed applications and managed packages based on the JCL.
+     You cannot write managed applications and managed packages based on the JCL.
 </li>
   <li>These products are not shipped with their native compilers, you have to
-    download it from codecentral (<a href="http://cc.borland.com/">http://cc.borland.com</a>).
-    The item (<a href="http://codecentral.borland.com/Download.aspx?id=21333">21333</a>)
+	  download it from codecentral (<a href="http://cc.codegear.com/">http://cc.codegear.com/</a>).
+	  The item (<a href="http://codecentral.codegear.com/Download.aspx?id=21333">http://codecentral.codegear.com/Download.aspx?id=21333</a>)
   &nbsp;the native compiler to be installed in Delphi 8.
-    The item (<a href="http://codecentral.borland.com/Download.aspx?id=21334">21334</a>)
+	  The item (<a href="http://codecentral.codegear.com/Download.aspx?id=21334">http://codecentral.codegear.com/Download.aspx?id=21334</a>)
   &nbsp;the native compiler to be installed in C#Builder 1.
-    These zip files have to be extracted in the products director using the standard pattern:</li>
+	  These zip files have to be extracted in the products directory using the standard pattern:</li>
 </ol>
 <pre>		   Executable files (exe and dll)      - BDS\X.0\bin
 		   Compiler files (dcp and dcu)        - BDS\X.0\lib
-		   Toolsapi source files               - BDS\X.0\source\ToolsAPI.
+		   Toolsapi source files               - BDS\X.0\source\ToolsAPI
 </pre>
-<hr>
-<h3>JCL Distribution content</h3>
-<pre>Install.bat                   - Compile and run JCL Installer (Win32)
+<hr><br>
+<h3><a name="files">Distribution content</a></h3>
+<pre>Install.bat                   - Compile and run VCL version of the JCL Installer (Win32)
 QInstall.bat                  - Compile and run CLX version of JCL Installer (Win32)
 install.sh                    - Compile and run JCL Installer (Linux)
 bin                           - Common place for sample application EXE files
 lib                           - Common place for compiled units.
 docs                          - Readme (this file) and other documents
-examples                      - JCL example applications
+docs\Readme.html              - This file
+docs\Experts.html             - Readme file about the experts
+docs\MPL-1.1.txt              - The Mozilla Public Licence (MPL) version 1.1
+docs\MPL FAQ.html             - Frequently Asked Questions about the MPL
+docs\cps.html                 - Cross Platform Strategy
 experts                       - JCL IDE experts source code
 experts\debug                 - JCL Debug IDE expert for using JclDebug unit
 experts\debug\dialog          - Application exception dialog replacement
@@ -136,17 +156,18 @@
 experts\projectanalyzer       - Project Analyzer IDE expert
 experts\useswizard            - JCL uses wizard
 experts\versioncontrol        - Integration of TortoiseCVS and TortoiseSVN in the IDE
+examples                      - JCL example applications
 examples\common               - CLX and Win32 example applications in Delphi
 examples\dotnet               - JCL example applications for Delphi.net
 examples\windows              - JCL example applications for Delphi.Win32
 examples\windows\delphitools  - Collection of system tools using JCL
-help                          - Help file
+help                          - Help file (distributed in a separate archive)
 install                       - Installer source code
 packages                      - JCL package sources
 source                        - JCL source code
 </pre>
-<hr>
-<h3>Feedback</h3>
+<hr><br>
+<h3><a name="feedback">Giving your feedback</a></h3>
 If you have any comments or suggestions we would appreciate it if you 
 drop us a note. There are several ways to get in contact with us:
 <ul>
@@ -157,164 +178,45 @@
 or to&nbsp;<a href="mailto:jcl...@de...">jcl...@de...</a>&nbsp; 
 This email account should not be used for support requests. If you need 
 support please use either the newsgroups or the mailing list.</li>
-  <li>If you want to keep up to date about JCL then you can join the 
-JCL mailing list by going to <a href="http://www.egroups.com/group/JEDI-JCL">http://www.egroups.com/group/JEDI-JCL</a>
-You can also use this list to voice your opinion, comments or suggestions.
-</li>
+  <li>If you want to keep up to date about JCL then you can join the
+JCL mailing list by going to <a href="http://tech.groups.yahoo.com/group/JEDI-JCL/">http://tech.groups.yahoo.com/group/JEDI-JCL/</a>
+You can also use this list to voice your opinion, comments or suggestions.</li>
 </ul>
 <hr>
-<h3>Issue Tracking</h3>
-<p>An issue tracking tool can be accessed via ('Code Library' category):</p>
-<p><a href="http://homepages.borland.com/jedi/issuetracker/">http://homepages.borland.com/jedi/issuetracker/</a></p>
-<p>The general rule is: <b><font color="#ff0000">If you want to get a 
+<h3><a name="issues">Reporting bugs</a></h3>
+<p>The general rule is: <b><font color="#ff0000">If you want to get a
 bug fixed you need to log it!</font></b></p>
+<p>An issue tracking tool can be accessed via ('Code Library' category):
+<a href="http://homepages.codegear.com/jedi/issuetracker/">http://homepages.codegear.com/jedi/issuetracker/</a></p>
+<p>Please be aware that you are allowed there to enter feature request and code donations as well.</p>
 <p>The JEDI issue tracker is based up on the Mantis BugTracker Open 
 Source project. More background information about it is available on its homepage&nbsp;
 <a href="http://mantisbt.sourceforge.net/">http://mantisbt.sourceforge.net</a></p>
-<p>Please be aware that you are allowed there to enter feature request 
-and code donations as well.</p>
-<hr>
-<h3>Debug Extension for JclDebug unit</h3>
-<p>The <tt>experts\debug </tt>folder contains an IDE expert which 
-assists to insert JCL Debug information into executable files. This can be 
-useful when use source location routines from JclDebug unit. These routines 
-need some kind of special information to be able provide source location for 
-given address in the process. Currently there are four options to get it work:</p>
-<ol>
-  <li>Generate and deploy MAP file with your executable file. The file 
-is generated by the linker. It needs to be set in Project|Options 
-dialog -&gt; Linker page, Detailed checkbox.
-</li>
-  <li>Generate and deploy JDBG file file with your executable file. 
-This is binary file based on MAP file but its size is typically about 
-12% of original MAP file. You can generate it by MapToJdbg tool in <tt>jcl\examples\windows\tools</tt>
-folder. The advantage over MAP file is smaller size and better security 
-of the file content because it is not a plain text file and it also 
-contains a checksum.
-</li>
-  <li>Generate Borland TD32 debug symbols. These symbols are stored 
-directly in the executable file but usually adds several megabytes so 
-the file is very large. The advantage is you don't have to deploy any 
-other file and it is easy to generate it by checking Include TD32 debug 
-info in Linker option page.
-</li>
-  <li>Insert JCL Debug info into executable file by the IDE expert. The 
-size of added data is similar to JDBG file but it will be inserted 
-directly into the executable file. This is probably best option because 
-it combines small size of included data and no requirement of deploying 
-additional files. In case you use this option you need install the 
-JclDebugIde expert.</li>
-</ol>
-<p>
-The IDE expert will add new item to IDE Project menu. For 
-Delphi 5, 6 and 7 it adds 'Insert JCL Debug data' check item at the end 
-of the Project menu. When the item is checked, everytime the project is 
-compiled by one of following commands: Compile, Build, Compile All Projects, Build All 
-Projects or Run necessary JCL debug data are automatically inserted into the 
-executable. Moreover, for Build and Build All commands dialog with detailed 
-information of size of these data will be displayed.</p>
-<p>
-You can generate those debug data for packages and libraries as well 
-using the expert. Each executable file in the project can use different option 
-from those listed above. It is not necessary to generate any debug data for 
-Borland runtime packages because the source location code can use names of exported 
-functions to get procedure or method name. To get line number information for 
-Borland RTL and VCL/CLX units you have to check Use Debug DCUs checkbox in 
-Project|Options dialog -&gt; Compiler tab. Unfortunately it is not 
-possible to get line number information for Borland runtime packages 
-because Borland does not provide detailed MAP files for them so you get 
-procedure or method name only.</p>
-<p>In case you have more than one data source for an executable file by 
-an accident the best one is chosen in following order:</p>
-<ol>
-  <li>JCL Debug data in the executable file
-</li>
-  <li>JDBG file
-</li>
-  <li>Borland TD32 symbols
-</li>
-  <li>MAP file
-</li>
-  <li>Library or Borland package exports</li>
-</ol>
-<p>It is also possible to insert JCL debug data programmatically to the 
-executable file by using MakeJclDbg command line tool in 
-jcl\examples\windows\delphitools folder. You can study included makefiles 
-which uses this tool for building delphitools examples.</p>
-<p>To help using JclDebug exceptional stack tracking in application 
-simple dialog is provided in <tt>jcl\experts\debug\dialog</tt>folder. The dialog 
-replaces standard dialog displayed by VCL or CLX application when an unhandled 
-exception occurs. It has additional Detailed button showing the stack, list of 
-loaded modules and other system information. By adding the dialog to the 
-application exceptional stack tracking code is automatically initialized so you 
-don't have to care about it. You can also turn on logging to text file by setting 
-the Tag property of the dialog to '1'. There is also version for CLX 
-(ClxExceptDlg) but it works on Windows only. These dialogs are intended to be added to 
-Object Repository.</p>
-<p><b>Short description of getting the JclDebug functionality in your 
-project:</b></p>
-<ol>
-  <li>Close all running instances of Delphi
-</li>
-  <li>Install JCL and IDE experts by the JCL Installer
-</li>
-  <li>Run Delphi IDE and open your project
-</li>
-  <li>Remove any TApplication.OnException handlers from your project(if any).
-</li>
-  <li>Add new Exception Dialog by selecting File | New | Other ... | 
-Dialogs tab, Select 'Exception Dialog' or 'Exception Dialog with Send' 
-icon, Click OK button, Save the form (use ExceptionDialog.pas name, for 
-example)
-</li>
-  <li>Check Project | Insert JCL Debug data menu item
-</li>
-  <li>Do Project | Build</li>
-</ol>
-<hr>
-<h3>Version control expert</h3>
-<p>The JCL team is proud to release a new expert integrating version control actions 
-inside the Delphi/BCB/BDS IDE. It wraps <a href="http://tortoisecvs.sourceforge.net/">TortoiseCVS</a>&nbsp; 
-and&nbsp;<a href="http://tortoisesvn.sourceforge.net/">TortoiseSVN</a>&nbsp;commands in 
-actions that can be placed on IDE toolbars and in IDE menu.</p>
-<p>This expert requires <a href="http://tortoisecvs.sourceforge.net/">TortoiseCVS</a>&nbsp; 
-or/and&nbsp;<a href="http://tortoisesvn.sourceforge.net/">TortoiseSVN</a>&nbsp;installed on the 
-system to work properly. Please refer to these products documentations for help 
-about using version control systems.</p>
-<p>The structure of the "Jcl Version" menu can be customized in the JCL options 
-dialog (in the "Tools" menu).</p>
-<hr>
-<h3>Downloads of stable sources</h3>
-<p>These sources are official JCL releases and file status can be considered as 
-stable for use in final applications. During the past years, there have been around 2 
+<hr><br>
+<h3><a name="releases">Downloads of stable sources</a></h3>
+<p>These sources are official JCL releases and file status can be considered as
+stable for use in final applications. During the past years, there have been around 2
 or 3 releases per year.</p>
 <p>Jedi Code Library: File List on SourceForge:&nbsp;
 <a href="http://sourceforge.net/project/showfiles.php?group_id=47514">http://sourceforge.net/project/showfiles.php?group_id=47514</a>
 </p>
-<hr>
-<h3>Development sources</h3>
-<p>These files are under active development and may cause some incompatibilities 
-and some conflicts with existing code. You should not use these files in final 
-applications. The JCL development team provides these files for testing and 
+<hr><br>
+<h3><a name="development">Development sources</a></h3>
+<p>These files are under active development and may cause some incompatibilities
+and some conflicts with existing code. You should not use these files in final
+applications. The JCL development team provides these files for testing and
 feedback from users.</p>
-
-    <html>
-      <head></head>
-      <body>
-<p>You can download snapshots of the CVS repository updated every day in the 
-&nbsp;<a href="http://jcl.sourceforge.net/daily">JCL daily page</a>
-</p>
-      </body>
-    </html>
-<p>To always have access to the most recent changes in the JCL, you 
-should install a CVS client (we recommend TortoiseCVS and WinCVS) and download 
-the CVS repository files to your computer. With the CVS client, you can update 
-your local repository at any time. For more instructions on how to set up CVS 
-and use it with JCL, see the&nbsp;<a href="http://sourceforge.net/docs/E04/">CVS instruction page</a>. 
-You can also access the CVS repository via the&nbsp;<a href="http://cvs.sourceforge.net/viewcvs.py/jcl/">web interface</a>.
-</p>
-<hr>
-<h3>Getting involved in JCL development</h3>
+<p>You can download snapshots of the Subversion repository updated every day in the JCL daily page
+&nbsp;<a href="http://jcl.sourceforge.net/daily/">http://jcl.sourceforge.net/daily/</a></p>
+<p>To always have access to the most recent changes in the JCL, you
+should install a Subversion client (we recommend TortoiseSVN <a href="http://tortoisesvn.tigris.org/">http://tortoisesvn.tigris.org/</a>
+and RapidSVN <a href="http://rapidsvn.tigris.org/">http://rapidsvn.tigris.org/</a>) and download the
+SVN repository files to your computer as explained in the repository page of the JEDI Wiki at
+<a href="http://homepages.codegear.com/jedi/wiki/index.php?title=Repository">http://homepages.codegear.com/jedi/wiki/index.php?title=Repository</a>
+With the SVN client, you can update your local repository at any time.
+You can also view the repository online via the web interface at <a href="http://jcl.svn.sourceforge.net/">http://jcl.svn.sourceforge.net/</a></p>
+<hr><br>
+<h3><a name="contribute">Getting involved in JCL development</a></h3>
 If you want to help out making JCL better or bigger or just plain 
 cooler, there are several ways in which you can help out. Here are some of the 
 things we need your help on:
@@ -331,7 +233,7 @@
 </ul>
 <p>JCL accepts donations from developers as long as the source fullfills the 
 requirements set up by the JEDI and JCL teams. To read more about these 
-requirements, visit the page http://homepages.borland.com/jedi/jcl</p>
+requirements, visit the page http://homepages.codegear.com/jedi/jcl</p>
 <p>You can also donate your time by writing help for the source already 
 in JCL. We currently use Doc-o-Matic to create the finished help files but 
 the actual help sources are plain text files in a simple to understand format. 
@@ -340,8 +242,9 @@
 help text for the help items. If you are interested in writing help, contact us.</p>
 <p>If you want to help fix bugs in JCL, go to Mantis and check the bug report 
 there. You can post replies as well as fixes directly in the bug report. One of the 
-JCL developers will pick up the report/fix and update the CVS repository if the fix is 
-satisfactory. If you report and fix a lot of bugs, you might even get developer 
-access to CVS so you can update the JCL files directly.</p>
+JCL developers will pick up the report/fix and update the Subversion repository if the fi
+is satisfactory. If you report and fix a lot of bugs, you might even get developer 
+access to SVN so you can update the JCL files directly.</p>
 </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: [1843] trunk/jcl/source/windows/JclDebug.pas

From: <ou...@us...> - 2006-12-26 13:20:23

Revision: 1843
          http://svn.sourceforge.net/jcl/?rev=1843&view=rev
Author:   outchy
Date:     2006-12-26 05:20:20 -0800 (Tue, 26 Dec 2006)

Log Message:
-----------
Reworking default order of debug sources: exports has the lowest priority but will be used if the symbol source is based on exports.

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

Modified: trunk/jcl/source/windows/JclDebug.pas
===================================================================
--- trunk/jcl/source/windows/JclDebug.pas	2006-12-23 10:31:33 UTC (rev 1842)
+++ trunk/jcl/source/windows/JclDebug.pas	2006-12-26 13:20:20 UTC (rev 1843)
@@ -2536,12 +2536,12 @@
     {$IFNDEF DEBUG_NO_MAP}
     InfoSourceClassList.Add(Pointer(TJclDebugInfoMap));
     {$ENDIF !DEBUG_NO_MAP}
+    {$IFNDEF DEBUG_NO_SYMBOLS}
+    InfoSourceClassList.Add(Pointer(TJclDebugInfoSymbols));
+    {$ENDIF !DEBUG_NO_SYMBOLS}
     {$IFNDEF DEBUG_NO_EXPORTS}
     InfoSourceClassList.Add(Pointer(TJclDebugInfoExports));
     {$ENDIF !DEBUG_NO_EXPORTS}
-    {$IFNDEF DEBUG_NO_SYMBOLS}
-    InfoSourceClassList.Add(Pointer(TJclDebugInfoSymbols));
-    {$ENDIF !DEBUG_NO_SYMBOLS}
   end;
 end;
 
@@ -2951,7 +2951,7 @@
       Result := Result and SymGetModuleInfoFunc(ProcessHandle, Module, ModuleInfo);
     end;
 
-    Result := Result and (ModuleInfo.SymType <> SymNone);
+    Result := Result and not (ModuleInfo.SymType in [SymNone, SymExport]);
   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: [1842] trunk/jcl/source/windows/JclDebug.pas

From: <ou...@us...> - 2006-12-23 10:31:35

Revision: 1842
          http://svn.sourceforge.net/jcl/?rev=1842&view=rev
Author:   outchy
Date:     2006-12-23 02:31:33 -0800 (Sat, 23 Dec 2006)

Log Message:
-----------
Mantis 4011 fixed freeing of freed instances

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

Modified: trunk/jcl/source/windows/JclDebug.pas
===================================================================
--- trunk/jcl/source/windows/JclDebug.pas	2006-12-20 17:24:47 UTC (rev 1841)
+++ trunk/jcl/source/windows/JclDebug.pas	2006-12-23 10:31:33 UTC (rev 1842)
@@ -470,8 +470,11 @@
   private
     FThreadID: DWORD;
     FTimeStamp: TDateTime;
+  protected
+    FOnDestroy: TNotifyEvent;
   public
     constructor Create;
+    destructor Destroy; override;
     property ThreadID: DWORD read FThreadID;
     property TimeStamp: TDateTime read FTimeStamp;
   end;
@@ -3289,6 +3292,13 @@
   FTimeStamp := Now;
 end;
 
+destructor TJclStackBaseList.Destroy;
+begin
+  if Assigned(FOnDestroy) then
+    FOnDestroy(Self);
+  inherited Destroy;
+end;
+
 //=== { TJclGlobalStackList } ================================================
 
 type
@@ -3300,6 +3310,7 @@
     FTIDLocked: Boolean;
     function GetExceptStackInfo: TJclStackInfoList;
     function GetLastExceptFrameList: TJclExceptFrameList;
+    procedure ItemDestroyed(Sender: TObject);
   public
     destructor Destroy; override;
     procedure AddObject(AObject: TJclStackBaseList);
@@ -3314,13 +3325,11 @@
   GlobalStackList: TJclGlobalStackList;
 
 destructor TJclGlobalStackList.Destroy;
-var
-  I: Integer;
 begin
   with LockList do
   try
-    for I := 0 to Count - 1 do
-      TObject(Items[I]).Free;
+    while Count > 0 do
+      TObject(Items[0]).Free;
   finally
     UnlockList;
   end;
@@ -3331,6 +3340,7 @@
 var
   ReplacedObj: TObject;
 begin
+  AObject.FOnDestroy := ItemDestroyed;
   with LockList do
   try
     ReplacedObj := FindObject(AObject.ThreadID, TJclStackBaseListClass(AObject.ClassType));
@@ -3379,6 +3389,16 @@
   Result := TJclExceptFrameList(FindObject(GetCurrentThreadId, TJclExceptFrameList));
 end;
 
+procedure TJclGlobalStackList.ItemDestroyed(Sender: TObject);
+begin
+  with LockList do
+  try
+    Remove(Sender);
+  finally
+    UnlockList;
+  end;
+end;
+
 procedure TJclGlobalStackList.LockThreadID(TID: DWORD);
 begin
   with LockList do


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: [1841] trunk/jcl

From: <ou...@us...> - 2006-12-20 17:24:49

Revision: 1841
          http://svn.sourceforge.net/jcl/?rev=1841&view=rev
Author:   outchy
Date:     2006-12-20 09:24:47 -0800 (Wed, 20 Dec 2006)

Log Message:
-----------
Introducing version 1.98.
Identification of testing versions.
Log file cleared before the installation starts.

Modified Paths:
--------------
    trunk/jcl/install/JclInstall.pas
    trunk/jcl/install/prototypes/JediGUIInstall.pas
    trunk/jcl/source/common/JclBase.pas

Modified: trunk/jcl/install/JclInstall.pas
===================================================================
--- trunk/jcl/install/JclInstall.pas	2006-12-19 23:12:14 UTC (rev 1840)
+++ trunk/jcl/install/JclInstall.pas	2006-12-20 17:24:47 UTC (rev 1841)
@@ -1,4 +1,3 @@
-
 {**************************************************************************************************}
 {                                                                                                  }
 { Project JEDI Code Library (JCL) extension                                                        }
@@ -621,6 +620,16 @@
   ReadmeFileName = 'Readme.txt';
   {$ENDIF}
 
+  DailyRevisionFileName = 'daily_revision.log';
+  EntriesFileName1      = '.svn' + DirDelimiter + 'entries';
+  EntriesFileName2      = '_svn' + DirDelimiter + 'entries';
+
+  RsJclVersionMask     = 'JCL %d.%d %s %s %d';
+  RsJclVersionBuild    = 'Build';
+  RsJclVersionRevision = 'Revision';
+  RsJclVersionTesting  = 'Testing';
+  RsJclVersionRelease  = 'Release';
+
   {$IFDEF MSWINDOWS}
   Bcb2MakTemplate = 'packages\BCB.bmk';
   {$ENDIF MSWINDOWS}
@@ -1123,6 +1132,8 @@
   var
     Personality: TJclBorPersonality;
   begin
+    WriteLog(Distribution.Version);
+    WriteLog('');
     WriteLog(StrPadRight(TargetName, 44, '='));
     WriteLog('');
     WriteLog('Installed personalities :');
@@ -1775,6 +1786,9 @@
       GUIPage.Show;
       GUIPage.BeginInstall;
     end;
+
+    FLogLines.Clear;
+
     WriteIntroduction;
     Result := CheckDirectories and SetStaticOptions and SetEnvironment
       and MakeUnits and CompilePackages
@@ -2937,8 +2951,68 @@
 end;
 
 function TJclDistribution.GetVersion: string;
+var
+  DailyFileName, SvnEntriesFileName, RevisionText, StableText, Source: string;
+  TextFile: TJclMappedTextReader;
+  Revision, Index: Integer;
 begin
-  Result := Format('JCL %d.%d Build %d', [JclVersionMajor, JclVersionMinor, JclVersionBuild]);
+  Revision := 0;
+
+  if JclVersionRelease = 0 then
+  begin
+    DailyFileName := FJclPath + DailyRevisionFileName;
+    if FileExists(DailyFileName) then
+    begin
+      // directory from a daily zip
+      TextFile := TJclMappedTextReader.Create(DailyFileName);
+      try
+        RevisionText := TextFile.ReadLn;
+        if RevisionText <> '' then
+        begin
+          Index := Length(RevisionText) - 1; // skip the '.'
+          while (Index > 1) and (RevisionText[Index] in AnsiDecDigits) do
+            Dec(Index);
+          Revision := StrToIntDef(Copy(RevisionText, Index + 1, Length(RevisionText) - Index - 1), 0);
+        end;
+      finally
+        TextFile.Free;
+      end;
+    end;
+
+    if Revision = 0 then
+    begin
+      SvnEntriesFileName := FJclPath + EntriesFileName1;
+      if not FileExists(SvnEntriesFileName) then
+        SvnEntriesFileName := FJclPath + EntriesFileName2;
+      if FileExists(SvnEntriesFileName) then
+      begin
+        // directory from subversion
+        TextFile := TJclMappedTextReader.Create(SvnEntriesFileName);
+        try
+          TextFile.ReadLn;
+          TextFile.ReadLn;
+          TextFile.ReadLn;
+          RevisionText := TextFile.ReadLn;
+          Revision := StrToIntDef(RevisionText, 0);
+        finally
+          TextFile.Free;
+        end;
+      end;
+    end;
+    StableText := RsJclVersionTesting;
+  end
+  else
+    StableText := RsJclVersionRelease;
+
+  if Revision = 0 then
+  begin
+    Source := RsJclVersionBuild;
+    Revision := JclVersionBuild;
+  end
+  else
+    Source := RsJclVersionRevision;
+
+  Result := Format(RsJclVersionMask, [JclVersionMajor, JclVersionMinor, StableText, Source, Revision])
 end;
 
 procedure TJclDistribution.Init;

Modified: trunk/jcl/install/prototypes/JediGUIInstall.pas
===================================================================
--- trunk/jcl/install/prototypes/JediGUIInstall.pas	2006-12-19 23:12:14 UTC (rev 1840)
+++ trunk/jcl/install/prototypes/JediGUIInstall.pas	2006-12-20 17:24:47 UTC (rev 1841)
@@ -672,6 +672,8 @@
 begin
   ProgressBar.Visible := True;
 
+  InfoDisplay.Lines.Clear;
+
   FCheckedCount := 0;
   FInstallCount := 0;
   ANode := TreeView.Items.GetFirstNode;

Modified: trunk/jcl/source/common/JclBase.pas
===================================================================
--- trunk/jcl/source/common/JclBase.pas	2006-12-19 23:12:14 UTC (rev 1840)
+++ trunk/jcl/source/common/JclBase.pas	2006-12-20 17:24:47 UTC (rev 1841)
@@ -53,9 +53,9 @@
 // Version
 const
   JclVersionMajor   = 1;    // 0=pre-release|beta/1, 2, ...=final
-  JclVersionMinor   = 97;   // Fifth minor release since JCL 1.90
-  JclVersionRelease = 1;    // 0: pre-release|beta/>=1: release
-  JclVersionBuild   = 2172; // build number, days since march 1, 2000
+  JclVersionMinor   = 98;   // Fifth minor release since JCL 1.90
+  JclVersionRelease = 0;    // 0: pre-release|beta/>=1: release
+  JclVersionBuild   = 2485; // build number, days since march 1, 2000
   JclVersion = (JclVersionMajor shl 24) or (JclVersionMinor shl 16) or
     (JclVersionRelease shl 15) or (JclVersionBuild shl 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: [1840] trunk/jcl/source/common/JclFileUtils.pas

From: <ou...@us...> - 2006-12-19 23:12:20

Revision: 1840
          http://svn.sourceforge.net/jcl/?rev=1840&view=rev
Author:   outchy
Date:     2006-12-19 15:12:14 -0800 (Tue, 19 Dec 2006)

Log Message:
-----------
TJclMappedTextReader now works without trailing EOL.
EOL chars can be LF, CR, CR+LF, LF+CR.

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

Modified: trunk/jcl/source/common/JclFileUtils.pas
===================================================================
--- trunk/jcl/source/common/JclFileUtils.pas	2006-12-17 11:38:02 UTC (rev 1839)
+++ trunk/jcl/source/common/JclFileUtils.pas	2006-12-19 23:12:14 UTC (rev 1840)
@@ -1305,7 +1305,7 @@
 //=== { TJclFileMapping } ====================================================
 
 constructor TJclFileMapping.Create(const FileName: string; FileMode: Cardinal;
-  const Name: string; Protect: Cardinal; const MaximumSize: Int64; 
+  const Name: string; Protect: Cardinal; const MaximumSize: Int64;
   SecAttr: PSecurityAttributes);
 begin
   FFileHandle := INVALID_HANDLE_VALUE;
@@ -1485,15 +1485,31 @@
   LastLineStart := P;
   while P < FEnd do
   begin
-    if P^ = AnsiLineFeed then
+    // CRLF, CR, LF and LFCR are seen as valid sets of chars for EOL marker
+    if P^ in [AnsiLineFeed, AnsiCarriageReturn] then
     begin
       if I and $FFFF = 0 then
         ReallocMem(FIndex, (I + $10000) * SizeOf(Pointer));
       FIndex[I] := LastLineStart;
       Inc(I);
-      LastLineStart := P + 1;
-    end;
-    Inc(P);
+
+      if P^ = AnsiLineFeed then
+      begin
+        Inc(P);
+        if (P < FEnd) and (P^ = AnsiCarriageReturn) then
+          Inc(P);
+      end
+      else
+      if P^ = AnsiCarriageReturn then
+      begin
+        Inc(P);
+        if (P < FEnd) and (P^ = AnsiLineFeed) then
+          Inc(P);
+      end;
+      LastLineStart := P;
+    end
+    else
+      Inc(P);
   end;
   if P > LastLineStart then
   begin
@@ -1527,39 +1543,41 @@
 end;
 
 function TJclMappedTextReader.GetLineCount: Integer;
-
-  function CountLines(P: PChar; Len: Integer): Integer;
-  {$IFDEF PUREPASCAL}
-  var
-    I: Integer;
+var
+  P: PChar;
+begin
+  if FLineCount = -1 then
   begin
-    Result := 0;
-    for I := 0 to Len-1 do
+    FLineCount := 0;
+    if FContent < FEnd then
     begin
-      if P^ = AnsiLineFeed then
-        Inc(Result);
-      Inc(P);
+      P := FContent;
+      while P < FEnd do
+      begin
+        case P^ of
+          AnsiLineFeed :
+            begin
+              Inc(FLineCount);
+              Inc(P);
+              if (P < FEnd) and (P^ = AnsiCarriageReturn) then
+                Inc(P);
+            end;
+          AnsiCarriageReturn :
+            begin
+              Inc(FLineCount);
+              Inc(P);
+              if (P < FEnd) and (P^ = AnsiLineFeed) then
+                Inc(P);
+            end;
+        else
+          Inc(P);
+        end;
+      end;
+      if (P = FEnd) and (P > FContent) and not ((P-1)^ in [AnsiCarriageReturn, AnsiLineFeed]) then
+        Inc(FLineCount);
     end;
   end;
-  {$ELSE ~PUREPASCAL}
-  asm
-       PUSH    EDI
-       MOV     EDI, EAX
-       MOV     ECX, EDX
-       MOV     EAX, AnsiLineFeed
-       XOR     EDX, EDX
-  @@1: REPNZ   SCASB
-       INC     EDX
-       OR      ECX, ECX
-       JNZ     @@1
-       MOV     EAX, EDX
-       POP     EDI
-  end;
-  {$ENDIF ~PUREPASCAL}
 
-begin
-  if FLineCount = -1 then
-    FLineCount := CountLines(FContent, FSize);
   Result := FLineCount;
 end;
 
@@ -1646,22 +1664,54 @@
       Result := FLastPosition;
       while (Result < FEnd) and (LineOffset > 0) do
       begin
-        if Result^ = AnsiLineFeed then
-          Dec(LineOffset);
-        Inc(Result);
+        case Result^ of
+          AnsiLineFeed :
+            begin
+              Dec(LineOffset);
+              Inc(Result);
+              if (Result < FEnd) and (Result^ = AnsiCarriageReturn) then
+                Inc(Result);
+            end;
+          AnsiCarriageReturn :
+            begin
+              Dec(LineOffset);
+              Inc(Result);
+              if (Result < FEnd) and (Result^ = AnsiLineFeed) then
+                Inc(Result);
+            end;
+        else
+          Inc(Result);  
+        end;
       end;
     end
     else
     if LineOffset < 0 then
     begin
       Result := FLastPosition;
-      while (Result >= FContent) and (LineOffset < 1) do
+      while (Result > FContent) and (LineOffset < 1) do
       begin
-        if Result^ = AnsiLineFeed then
-          Inc(LineOffset);
         Dec(Result);
+        case Result^ of
+          AnsiLineFeed :
+            begin
+              Inc(LineOffset);
+              if LineOffset >= 1 then
+                Inc(Result)
+              else
+              if (Result > FContent) and ((Result-1)^ = AnsiCarriageReturn) then
+                Dec(Result);
+            end;
+          AnsiCarriageReturn :
+            begin
+              Inc(LineOffset);
+              if LineOffset >= 1 then
+                Inc(Result)
+              else
+              if (Result > FContent) and ((Result-1)^ = AnsiLineFeed) then
+                Dec(Result);
+            end;
+        end;
       end;
-      Inc(Result, 2);
     end;
     FLastLineNumber := LineNumber;
     FLastPosition := Result;
@@ -1691,21 +1741,34 @@
 
 function TJclMappedTextReader.StringFromPosition(var StartPos: PChar): string;
 var
-  P, StringEnd: PChar;
+  P: PChar;
 begin
   if (StartPos = nil) or (StartPos >= FEnd) then
     Result := ''
   else
   begin
     P := StartPos;
-    while (P < FEnd) and (P^ <> AnsiLineFeed) do
+    while (P < FEnd) and (not (P^ in [AnsiLineFeed, AnsiCarriageReturn])) do
       Inc(P);
-    if (P > FContent) and ((P - 1)^ = AnsiCarriageReturn) then
-      StringEnd := P - 1
-    else
-      StringEnd := P;
-    SetString(Result, StartPos, StringEnd - StartPos);
-    StartPos := P + 1;
+    SetString(Result, StartPos, P - StartPos);
+    if P < FEnd then
+    begin
+      case P^ of
+        AnsiLineFeed :
+          begin
+            Inc(P);
+            if (P < FEnd) and (P^ = AnsiCarriageReturn) then
+              Inc(P);
+          end;
+        AnsiCarriageReturn :
+          begin
+            Inc(P);
+            if (P < FEnd) and (P^ = AnsiLineFeed) then
+              Inc(P);
+          end;   
+      end;
+    end;
+    StartPos := P;
   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: [1839] trunk/jcl/source/common/JclSimpleXml.pas

From: <ou...@us...> - 2006-12-17 11:38:06

Revision: 1839
          http://svn.sourceforge.net/jcl/?rev=1839&view=rev
Author:   outchy
Date:     2006-12-17 03:38:02 -0800 (Sun, 17 Dec 2006)

Log Message:
-----------
generation of RTTI for published properties

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

Modified: trunk/jcl/source/common/JclSimpleXml.pas
===================================================================
--- trunk/jcl/source/common/JclSimpleXml.pas	2006-12-17 00:17:23 UTC (rev 1838)
+++ trunk/jcl/source/common/JclSimpleXml.pas	2006-12-17 11:38:02 UTC (rev 1839)
@@ -53,7 +53,9 @@
   {$ENDIF COMPILER5}
   TJclSimpleXML = class;
   EJclSimpleXMLError = class(Exception);
+  {$M+} // generate RTTI for published properties
   TJclSimpleXMLElem = class;
+  {$M-}
   TJclSimpleXMLElems = class;
   TJclSimpleXMLProps = class;
   TJclSimpleXMLElemComment = class;
@@ -271,6 +273,7 @@
     property Count: Integer read GetCount;
   end;
 
+  {$M+}
   TJclSimpleXMLElem = class(TObject)
   private
     FName: string;
@@ -325,6 +328,7 @@
     property FloatValue: Extended read GetFloatValue write SetFloatValue;
     property Value: string read FValue write FValue;
   end;
+  {$M-}
   TJclSimpleXMLElemClass = class of TJclSimpleXMLElem;
 
   TJclSimpleXMLElemComment = class(TJclSimpleXMLElem)


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: [1838] trunk/jcl/packages/resources.mak

From: <ou...@us...> - 2006-12-17 00:17:24

Revision: 1838
          http://svn.sourceforge.net/jcl/?rev=1838&view=rev
Author:   outchy
Date:     2006-12-16 16:17:23 -0800 (Sat, 16 Dec 2006)

Log Message:
-----------
Generating resources for Kylix

Modified Paths:
--------------
    trunk/jcl/packages/resources.mak

Modified: trunk/jcl/packages/resources.mak
===================================================================
--- trunk/jcl/packages/resources.mak	2006-12-16 23:54:06 UTC (rev 1837)
+++ trunk/jcl/packages/resources.mak	2006-12-17 00:17:23 UTC (rev 1838)
@@ -146,7 +146,9 @@
            d9\JclThreadNameExpert.res               \
            d9\JclVcl.res                            \
            d9\JclVersionControlExpert.res           \
-           d9\JclVersionControlExpertDLL.res
+           d9\JclVersionControlExpertDLL.res        \
+           k3\Jcl.res                               \
+           k3\JclVClx.res
 # ---------------------------------------------------------------------------
 !if !$d(BRCC32)
 BRCC32 = brcc32


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: [1837] trunk/jcl

From: <ou...@us...> - 2006-12-16 23:54:11

Revision: 1837
          http://svn.sourceforge.net/jcl/?rev=1837&view=rev
Author:   outchy
Date:     2006-12-16 15:54:06 -0800 (Sat, 16 Dec 2006)

Log Message:
-----------
Installation and compilation OK for Kylix 3, need tests

Modified Paths:
--------------
    trunk/jcl/install/JclInstall.pas
    trunk/jcl/install/QJediInstaller.dof
    trunk/jcl/install/QJediInstaller.dpr
    trunk/jcl/install/QJediInstaller.kof
    trunk/jcl/install/prototypes/JediGUIReadme.pas
    trunk/jcl/install/prototypes.sh
    trunk/jcl/packages/k3/Jcl.kof
    trunk/jcl/packages/k3/JclVClx.kof
    trunk/jcl/source/common/JclBorlandTools.pas
    trunk/jcl/source/common/JclStreams.pas
    trunk/jcl/source/common/JclStrings.pas
    trunk/jcl/source/common/JclSysUtils.pas
    trunk/jcl/source/jcl.inc

Added Paths:
-----------
    trunk/jcl/packages/k3/Jcl.res
    trunk/jcl/packages/k3/JclVClx.res
    trunk/jcl/packages/k3.dev/JclVClx.res

Property Changed:
----------------
    trunk/jcl/bin/
    trunk/jcl/lib/k3/
    trunk/jcl/lib/k3/debug/
    trunk/jcl/source/


Property changes on: trunk/jcl/bin
___________________________________________________________________
Name: svn:ignore
   - *.exe
*.log
*.ini
*.dll
*.pdb

   + *.exe
*.log
*.ini
*.dll
*.pdb
QJediInstaller


Modified: trunk/jcl/install/JclInstall.pas
===================================================================
--- trunk/jcl/install/JclInstall.pas	2006-12-16 23:28:00 UTC (rev 1836)
+++ trunk/jcl/install/JclInstall.pas	2006-12-16 23:54:06 UTC (rev 1837)
@@ -284,9 +284,9 @@
   JclRegistry,
   JclDebug,
   JclDotNet,
+  JediRegInfo,
   {$ENDIF MSWINDOWS}
-  JclFileUtils, JclStrings,
-  JediRegInfo;
+  JclFileUtils, JclStrings;
 
 resourcestring
 // Names
@@ -583,7 +583,7 @@
   {$ENDIF MSWINDOWS}
   {$IFDEF UNIX}
   BCBObjectPath  = BCBIncludePath;
-  JclSourceDirs: array[0..2] of string = (JclSrcDirCommon, JclSrcDirOS, JclSrcDirVisClx);
+  JclSourceDirs: array[0..2] of string = (JclSrcDirCommon, JclSrcDirUnix, JclSrcDirVisClx);
   {$ENDIF UNIX}
 
   ExceptDlgPath = 'experts' + DirDelimiter + 'debug' + DirDelimiter + 'dialog' + DirDelimiter;
@@ -711,7 +711,7 @@
     FLibObjDir := MakePath(Distribution.FLibObjDirMask);
   FDemoSectionName := Target.Name + ' demos';
   FLogLines := TStringList.Create;
-  FLogFileName := Format('%s%s.log', [PathAddSeparator(ExtractFilePath(ParamStr(0))), TargetName]);
+  FLogFileName := Format('%sbin%s%s.log', [Distribution.JclPath, DirDelimiter, TargetName]);
 end;
 
 destructor TJclInstallation.Destroy;
@@ -815,12 +815,14 @@
     AddOption(joDefMathExtremeValues, [goChecked], Parent);
     if CLRVersion = '' then   // these units are not CLR compliant
     begin
+      {$IFDEF MSWINDOWS}
       AddOption(joDefHookDllExceptions, [goNoAutoCheck], Parent);
       AddOption(joDefDebugNoBinary, [goNoAutoCheck], Parent);
       AddOption(joDefDebugNoTD32, [goNoAutoCheck], Parent);
       AddOption(joDefDebugNoMap, [goNoAutoCheck], Parent);
       AddOption(joDefDebugNoExports, [goNoAutoCheck], Parent);
       AddOption(joDefDebugNoSymbols, [goNoAutoCheck], Parent);
+      {$ENDIF MSWINDOWS}
       AddOption(joDefEDIWeakPackageUnits, [goNoAutoCheck], Parent);
       AddOption(joDefUnitVersioning, [goChecked], Parent);
     end;
@@ -937,12 +939,15 @@
   end;
 
   procedure AddExpertOptions(Parent: TJclOption; RuntimeInstallation: Boolean);
+  {$IFDEF MSWINDOWS}
   var
     ExpertOptions: TJediInstallGUIOptions;
+  {$ENDIF MSWINDOWS}
   begin
     // TODO :
     //  It has been reported that IDE experts don't work under Win98.
     //  Leave these options unchecked for Win9x/WinME until that has been examined.
+    {$IFDEF MSWINDOWS}
     if IsWinNT then
       ExpertOptions := [goChecked]
     else
@@ -975,6 +980,7 @@
     AddOption(joExpertVersionControl, [goNoAutoCheck], joExperts);
     if (Target.RadToolKind <> brBorlandDevStudio) and (Target.VersionNumber <= 6) then
       AddOption(joExpertThreadNames, ExpertOptions, joExperts);
+    {$ENDIF MSWINDOWS}
   end;
 
   procedure AddDemoNodes;
@@ -1129,8 +1135,10 @@
   end;
 
   function CheckDirectories: Boolean;
+  {$IFDEF MSWINDOWS}
   var
     PathEnvVar: string;
+  {$ENDIF MSWINDOWS}
   begin
     Result := not OptionChecked[joPackages];
     if not Result then
@@ -1271,6 +1279,7 @@
       MarkOptionBegin(joMapCreate);
       Target.MapCreate := OptionChecked[joMapCreate];
       MarkOptionEnd(joMapCreate, True);
+      {$IFDEF MSWINDOWS}
       MarkOptionBegin(joJdbgCreate);
       Target.JdbgCreate := OptionChecked[joJdbgCreate];
       MarkOptionEnd(joJdbgCreate, True);
@@ -1280,7 +1289,6 @@
       MarkOptionBegin(joMapDelete);
       Target.MapDelete := OptionChecked[joMapDelete];
       MarkOptionEnd(joMapDelete, True);
-      {$IFDEF MSWINDOWS}
       if Target is TJclBDSInstallation then
       begin
         MarkOptionBegin(joDualPackages);
@@ -2338,7 +2346,7 @@
           MarkOptionEnd(joCopyHppFiles, Result);
         end;
         {$IFDEF KYLIX}
-        Options.Add('-P');   // generate position independent code (PIC)
+        Compiler.Options.Add('-P');   // generate position independent code (PIC)
         WriteLog('');
         WriteLog('Compiling dpu files...');
         Result := Result and CompileUnits;
@@ -2405,9 +2413,9 @@
     ConfigureBpr2Mak(PackageFileName);
     {$IFDEF KYLIX}
     if InstallPackage then
-      Result := Target.InstallPackage(PackageFileName, BplPath, DcpPath)
+      Result := Target.InstallPackage(PackageFileName, GetBplPath, GetDcpPath)
     else
-      Result := Target.CompilePackage(PackageFileName, BplPath, DcpPath);
+      Result := Target.CompilePackage(PackageFileName, GetBplPath, GetDcpPath);
     {$ELSE ~KYLIX}
 
     if Target.RadToolKind = brBorlandDevStudio then
@@ -2870,8 +2878,10 @@
   end;
 var
   Inst: TJclInstallation;
+  {$IFDEF MSWINDOWS}
   Index: Integer;
   CLRVersion: string;
+  {$ENDIF MSWINDOWS}
 begin
   if Supported then
   try
@@ -3033,6 +3043,7 @@
       Exit;
     end;
 
+    {$IFDEF MSWINDOWS}
     if Assigned(GUI) then
     begin
       GUI.Status := 'Initializing JCL installation process';
@@ -3048,6 +3059,7 @@
         end;
       end;
     end;
+    {$ENDIF MSWINDOWS}
 
     FNbEnabled := 0;
     FNbInstalled := 0;

Modified: trunk/jcl/install/QJediInstaller.dof
===================================================================
--- trunk/jcl/install/QJediInstaller.dof	2006-12-16 23:28:00 UTC (rev 1836)
+++ trunk/jcl/install/QJediInstaller.dof	2006-12-16 23:54:06 UTC (rev 1837)
@@ -1,7 +1,7 @@
 [Directories]
 OutputDir=..\bin
 UnitOutputDir=.
-SearchPath=..\source
+SearchPath=
 Conditionals=JCLINSTALL;VisualCLX
 [Version Info Keys]
 CompanyName=Project JEDI

Modified: trunk/jcl/install/QJediInstaller.dpr
===================================================================
--- trunk/jcl/install/QJediInstaller.dpr	2006-12-16 23:28:00 UTC (rev 1836)
+++ trunk/jcl/install/QJediInstaller.dpr	2006-12-16 23:54:06 UTC (rev 1837)
@@ -5,11 +5,11 @@
   JediInstall in 'JediInstall.pas',
   JclInstall in 'JclInstall.pas',
   JediInstallConfigIni in 'JediInstallConfigIni.pas',
-  JclBorlandTools in '..\source\common\JclBorlandTools.pas',
-  JclResources in '..\source\common\JclResources.pas',
-  QJediGUIReadme in 'ClxGui\QJediGUIReadme.pas' {ReadmeFrame: TFrame},
-  QJediGUIInstall in 'ClxGui\QJediGUIInstall.pas' {InstallFrame: TFrame},
-  QJediGUIMain in 'ClxGui\QJediGUIMain.pas' {MainForm};
+  JclResources in '../source/common/JclResources.pas',
+  JclBorlandTools in '../source/common/JclBorlandTools.pas',
+  QJediGUIReadme in 'ClxGui/QJediGUIReadme.pas' {ReadmeFrame: TFrame},
+  QJediGUIInstall in 'ClxGui/QJediGUIInstall.pas' {InstallFrame: TFrame},
+  QJediGUIMain in 'ClxGui/QJediGUIMain.pas' {MainForm};
 
 {$R *.res}
 

Modified: trunk/jcl/install/QJediInstaller.kof
===================================================================
--- trunk/jcl/install/QJediInstaller.kof	2006-12-16 23:28:00 UTC (rev 1836)
+++ trunk/jcl/install/QJediInstaller.kof	2006-12-16 23:54:06 UTC (rev 1837)
@@ -48,7 +48,7 @@
 UnitOutputDir=.
 PackageDLLOutputDir=
 PackageDCPOutputDir=
-SearchPath=../source;$(DELPHI)/lib/debug
+SearchPath=../source;../source/common;$(DELPHI)/lib/debug
 Conditionals=JCLINSTALL
 DebugSourceDirs=
 UsePackages=0

Modified: trunk/jcl/install/prototypes/JediGUIReadme.pas
===================================================================
--- trunk/jcl/install/prototypes/JediGUIReadme.pas	2006-12-16 23:28:00 UTC (rev 1836)
+++ trunk/jcl/install/prototypes/JediGUIReadme.pas	2006-12-16 23:54:06 UTC (rev 1837)
@@ -75,8 +75,10 @@
 {$R *.xfm}
 {$ENDIF ~VCL}
 
+{$IFDEF MSWINDOWS}
 uses
   JclShell;
+{$ENDIF MSWINDOWS}
 
 function TReadmeFrame.GetCaption: string;
 begin
@@ -90,7 +92,10 @@
 
 procedure TReadmeFrame.ReadmePaneDblClick(Sender: TObject);
 begin
+  { TODO: implement for Unix }
+  {$IFDEF MSWINDOWS}
   ShellExecEx(ReadmeFileName);
+  {$ENDIF MSWINDOWS}
 end;
 
 procedure TReadmeFrame.SetCaption(const Value: string);

Modified: trunk/jcl/install/prototypes.sh
===================================================================
--- trunk/jcl/install/prototypes.sh	2006-12-16 23:28:00 UTC (rev 1836)
+++ trunk/jcl/install/prototypes.sh	2006-12-16 23:54:06 UTC (rev 1837)
@@ -9,9 +9,10 @@
 
 JPP=../devtools/jpp
 CLXOPTIONS="-c -dVisualCLX -dHAS_UNIT_TYPES -uDevelop -uVCL -xClxGui/Q"
-VCLOPTIONS="-c -dVCL -dMSWINDOWS -uDevelop -uVisualCLX -uHAS_UNIT_LIBC -uUnix -uLinux -uKYLIX -x-xVclGui/"
-FILES="prototypes\JediGUIInstall.pas prototypes\JediGUIMain.pas prototypes\JediGUIReadme.pas"
+VCLOPTIONS="-c -dVCL -dMSWINDOWS -uDevelop -uVisualCLX -uHAS_UNIT_LIBC -uUnix -uLinux -uKYLIX -xVclGui/"
+FILES="prototypes/JediGUIInstall.pas prototypes/JediGUIMain.pas prototypes/JediGUIReadme.pas"
 
 chmod a+x $JPP >/dev/null 2>/dev/null
 $JPP $CLXOPTIONS $FILES
 $JPP $VCLOPTIONS $FILES
+


Property changes on: trunk/jcl/lib/k3
___________________________________________________________________
Name: svn:ignore
   - *.dcu *.dpu *.dcp

   + *.dcu
*.dpu
*.dcp



Property changes on: trunk/jcl/lib/k3/debug
___________________________________________________________________
Name: svn:ignore
   - *.dcu *.dpu *.dcp

   + *.dcu
*.dpu


Modified: trunk/jcl/packages/k3/Jcl.kof
===================================================================
--- trunk/jcl/packages/k3/Jcl.kof	2006-12-16 23:28:00 UTC (rev 1836)
+++ trunk/jcl/packages/k3/Jcl.kof	2006-12-16 23:54:06 UTC (rev 1837)
@@ -1,3 +1,4 @@
 [Directories]
 UnitOutputDir=../../lib/k3
 SearchPath=../../source:../../source/common:../../source/visclx
+

Added: trunk/jcl/packages/k3/Jcl.res
===================================================================
(Binary files differ)


Property changes on: trunk/jcl/packages/k3/Jcl.res
___________________________________________________________________
Name: svn:mime-type
   + application/octet-stream

Modified: trunk/jcl/packages/k3/JclVClx.kof
===================================================================
--- trunk/jcl/packages/k3/JclVClx.kof	2006-12-16 23:28:00 UTC (rev 1836)
+++ trunk/jcl/packages/k3/JclVClx.kof	2006-12-16 23:54:06 UTC (rev 1837)
@@ -1,3 +1,4 @@
 [Directories]
 UnitOutputDir=../../lib/k3
 SearchPath=../../source:../../source/common:../../source/visclx
+

Added: trunk/jcl/packages/k3/JclVClx.res
===================================================================
(Binary files differ)


Property changes on: trunk/jcl/packages/k3/JclVClx.res
___________________________________________________________________
Name: svn:mime-type
   + application/octet-stream

Added: trunk/jcl/packages/k3.dev/JclVClx.res
===================================================================
(Binary files differ)


Property changes on: trunk/jcl/packages/k3.dev/JclVClx.res
___________________________________________________________________
Name: svn:mime-type
   + application/octet-stream


Property changes on: trunk/jcl/source
___________________________________________________________________
Name: svn:ignore
   - jclc5.inc
jclc6.inc
jcld5.inc
jcld6.inc
jcld7.inc
jclcs1.inc
jcld8.inc
jcld9.inc
jcld9.net.inc
jcld10.inc
jcld10.net.inc

   + jclc5.inc
jclc6.inc
jcld5.inc
jcld6.inc
jcld7.inc
jclcs1.inc
jcld8.inc
jcld9.inc
jcld9.net.inc
jcld10.inc
jcld10.net.inc
jclkd3.inc
jclkc3.inc


Modified: trunk/jcl/source/common/JclBorlandTools.pas
===================================================================
--- trunk/jcl/source/common/JclBorlandTools.pas	2006-12-16 23:28:00 UTC (rev 1836)
+++ trunk/jcl/source/common/JclBorlandTools.pas	2006-12-16 23:54:06 UTC (rev 1837)
@@ -1006,6 +1006,7 @@
   PaletteKeyName             = 'Palette';
   PaletteHiddenTag           = '.Hidden';
 
+  ConfigurationExtension     = '.cfg';
   {$IFDEF MSWINDOWS}
   AsmExeName                 = 'tasm32.exe';
   BCC32ExeName               = 'bcc32.exe';
@@ -1014,7 +1015,6 @@
   Bpr2MakExeName             = 'bpr2mak.exe';
   MakeExeName                = 'make.exe';
   DelphiOptionsFileExtension = '.dof';
-  ConfigurationExtension     = '.cfg';
   {$IFDEF BCB}
   BorRADToolRepositoryFileName = 'bcb.dro';
   {$ELSE BCB}
@@ -2770,15 +2770,17 @@
   FJdbgCreate := False;
   FJdbgInsert := False;
   FMapDelete := False;
-  {$ENDIF ~MSWINDOWS}
   if FileExists(BinFolderName + AsmExeName) then
     Include(FCommandLineTools, clAsm);
+  {$ENDIF ~MSWINDOWS}
   if FileExists(BinFolderName + BCC32ExeName) then
     Include(FCommandLineTools, clBcc32);
   if FileExists(BinFolderName + DCC32ExeName) then
     Include(FCommandLineTools, clDcc32);
+  {$IFDEF MSWINDOWS}
   if FileExists(BinFolderName + DCCILExeName) then
     Include(FCommandLineTools, clDccIL);
+  {$ENDIF ~MSWINDOWS}
   if FileExists(BinFolderName + MakeExeName) then
     Include(FCommandLineTools, clMake);
   if FileExists(BinFolderName + Bpr2MakExeName) then
@@ -3489,9 +3491,11 @@
 end;
 
 function TJclBorRADToolInstallation.ProcessMapFile(const BinaryFileName: string): Boolean;
+{$IFDEF MSWINDOWS}
 var
   MAPFileName, LinkerBugUnit: string;
   MAPFileSize, JclDebugDataSize: Integer;
+{$ENDIF MSWINDOWS}
 begin
   {$IFDEF MSWINDOWS}
   if JdbgCreate then
@@ -3595,6 +3599,19 @@
   Key := ConfigData.FileName;
   {$IFDEF KYLIX}
   ConfigData.ReadSectionValues(GlobalsKeyName, Globals);
+  if Length(Key) >= 3 then
+  begin
+    case Key[Length(Key)-2] of
+      '0' :
+        FVersionNumber := 1;
+      '5' :
+        FVersionNumber := 2;
+      '9' :
+        FVersionNumber := 3;
+    else
+      FVersionNumber := 0;
+    end;
+  end;
   {$ELSE ~KYLIX}
   RegGetValueNamesAndValues(HKEY_LOCAL_MACHINE, Key, Globals);
 
@@ -3608,10 +3625,17 @@
   {$ENDIF ~KYLIX}
 
   case RadToolKind of
+    {$IFDEF KYLIX}
     brDelphi:
+      FVersionNumberStr := Format('kd%d', [VersionNumber]);
+    brCppBuilder:
+      FVersionNumberStr := Format('kc%d', [VersionNumber]);
+    {$ELSE ~KYLIX}
+    brDelphi:
       FVersionNumberStr := Format('d%d', [VersionNumber]);
     brCppBuilder:
       FVersionNumberStr := Format('c%d', [VersionNumber]);
+    {$ENDIF ~KYLIX}
     brBorlandDevStudio:
       if VersionNumber = 1 then
         FVersionNumberStr := 'cs1'

Modified: trunk/jcl/source/common/JclStreams.pas
===================================================================
--- trunk/jcl/source/common/JclStreams.pas	2006-12-16 23:28:00 UTC (rev 1836)
+++ trunk/jcl/source/common/JclStreams.pas	2006-12-16 23:54:06 UTC (rev 1837)
@@ -331,6 +331,11 @@
 uses
   JclBase, JclResources;
 
+{$IFDEF KYLIX}
+function __open(PathName: PChar; Flags: Integer; Mode: Integer): Integer; cdecl;
+  external 'libc.so.6' name 'open';
+{$ENDIF KYLIX}
+
 function StreamSeek(Stream: TStream; const Offset: Int64;
   const Origin: TSeekOrigin): Int64; {$IFDEF SUPPORTS_INLINE}inline;{$ENDIF SUPPORTS_INLINE}
 begin
@@ -445,8 +450,10 @@
 {$ENDIF MSWINDOWS}
 {$IFDEF LINUX}
 function TJclHandleStream.Seek(const Offset: Int64; Origin: TSeekOrigin): Int64;
+const
+  SeekOrigins: array [TSeekOrigin] of Cardinal = ( SEEK_SET {soBeginning}, SEEK_CUR {soCurrent}, SEEK_END {soEnd} );
 begin
-  Result := __lseek(Handle, Offset, Origin);
+  Result := __lseek(Handle, Offset, SeekOrigins[Origin]);
 end;
 {$ENDIF LINUX}
 
@@ -473,12 +480,21 @@
 constructor TJclFileStream.Create(const FileName: string; Mode: Word; Rights: Cardinal);
 var
   H: THandle;
+{$IFDEF KYLIX}
+const
+  INVALID_HANDLE_VALUE = 0;
+{$ENDIF KYLIX}
 begin
   if Mode = fmCreate then
   begin
+    {$IFDEF KYLIX}
+    H := __open(PChar(FileName), O_CREAT or O_RDWR, FileAccessRights);
+    inherited Create(H);
+    {$ELSE ~KYLIX}
     H := CreateFile(PChar(FileName), GENERIC_READ or GENERIC_WRITE,
       0, nil, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
     inherited Create(H);
+    {$ENDIF ~KYLIX}
     if Handle = INVALID_HANDLE_VALUE then
       {$IFDEF CLR}
       raise EJclStreamError.CreateFmt(RsStreamsCreateError, [FileName]);

Modified: trunk/jcl/source/common/JclStrings.pas
===================================================================
--- trunk/jcl/source/common/JclStrings.pas	2006-12-16 23:28:00 UTC (rev 1836)
+++ trunk/jcl/source/common/JclStrings.pas	2006-12-16 23:54:06 UTC (rev 1837)
@@ -67,7 +67,7 @@
   {$ELSE}
   JclWideStrings,
   {$ENDIF CLR}
-  JclBase;
+  JclBase, JclSysUtils;
 
 // Character constants and sets
 
@@ -400,7 +400,7 @@
     FChars: TCharDynArray;
     FLength: Integer;
     FMaxCapacity: Integer;
-    FLock: TRTLCriticalSection;
+    FLock: TJclIntfCriticalSection;
 
     function GetCapacity: Integer;
     procedure SetCapacity(const Value: Integer);
@@ -4591,14 +4591,14 @@
 constructor TStringBuilder.Create(Capacity: Integer; MaxCapacity: Integer);
 begin
   inherited Create;
-  InitializeCriticalSection(FLock);
+  FLock := TJclIntfCriticalSection.Create;
   SetLength(FChars, Capacity);
   FMaxCapacity := MaxCapacity;
 end;
 
 destructor TStringBuilder.Destroy;
 begin
-  DeleteCriticalSection(FLock);
+  FLock.Free;
   inherited Destroy;
 end;
 
@@ -4664,31 +4664,26 @@
 var
   Capacity: Integer;
   IsMultiThreaded: Boolean;
+  LockInterface: IInterface;
 begin
   if (Count > 0) and (RepeatCount > 0) then
   begin
     IsMultiThreaded := IsMultiThread;
     if IsMultiThreaded then
-      EnterCriticalSection(FLock);
-    try
-      repeat
-        Capacity := System.Length(FChars);
-        if Capacity + Count > MaxCapacity then
-          raise ArgumentOutOfRangeException.CreateRes(@RsArgumentOutOfRange);
-        if Capacity < FLength + Count then
-          SetLength(FChars, Capacity * 5 div 3 + Count);
-        if Count = 1 then
-          FChars[FLength] := Value[0]
-        else
-          MoveChar(Value[0], FChars[FLength], Count);
-        Inc(FLength, Count);
-
-        Dec(RepeatCount);
-      until RepeatCount <= 0;
-    finally
-      if IsMultiThreaded then
-        LeaveCriticalSection(FLock);
-    end;
+      LockInterface := FLock; // automatically freed
+    repeat
+      Capacity := System.Length(FChars);
+      if Capacity + Count > MaxCapacity then
+        raise ArgumentOutOfRangeException.CreateRes(@RsArgumentOutOfRange);
+      if Capacity < FLength + Count then
+        SetLength(FChars, Capacity * 5 div 3 + Count);
+      if Count = 1 then
+        FChars[FLength] := Value[0]
+      else
+        MoveChar(Value[0], FChars[FLength], Count);
+      Inc(FLength, Count);
+      Dec(RepeatCount);
+    until RepeatCount <= 0;
   end;
   Result := Self;
 end;
@@ -4698,6 +4693,7 @@
 var
   Capacity: Integer;
   IsMultiThreaded: Boolean;
+  LockInterface: IInterface;
 begin
   if (Index < 0) or (Index > FLength) then
     raise ArgumentOutOfRangeException.CreateRes(@RsArgumentOutOfRange);
@@ -4711,29 +4707,24 @@
   begin
     IsMultiThreaded := IsMultiThread;
     if IsMultiThreaded then
-      EnterCriticalSection(FLock);
-    try
-      repeat
-        Capacity := System.Length(FChars);
-        if Capacity + Count > MaxCapacity then
-          raise ArgumentOutOfRangeException.CreateRes(@RsArgumentOutOfRange);
-        if Capacity < FLength + Count then
-          SetLength(FChars, Capacity * 5 div 3 + Count);
-        MoveChar(FChars[Index], FChars[Index + Count], FLength - Index);
-        if Count = 1 then
-          FChars[Index] := Value[0]
-        else
-          MoveChar(Value[0], FChars[Index], Count);
-        Inc(FLength, Count);
+      LockInterface := FLock; // automatically freed
+    repeat
+      Capacity := System.Length(FChars);
+      if Capacity + Count > MaxCapacity then
+        raise ArgumentOutOfRangeException.CreateRes(@RsArgumentOutOfRange);
+      if Capacity < FLength + Count then
+        SetLength(FChars, Capacity * 5 div 3 + Count);
+      MoveChar(FChars[Index], FChars[Index + Count], FLength - Index);
+      if Count = 1 then
+        FChars[Index] := Value[0]
+      else
+        MoveChar(Value[0], FChars[Index], Count);
+      Inc(FLength, Count);
 
-        Dec(RepeatCount);
+      Dec(RepeatCount);
 
-        Inc(Index, Count); // little optimization
-      until RepeatCount <= 0;
-    finally
-      if IsMultiThreaded then
-        LeaveCriticalSection(FLock);
-    end;
+      Inc(Index, Count); // little optimization
+    until RepeatCount <= 0;
   end;
   Result := Self;
 end;

Modified: trunk/jcl/source/common/JclSysUtils.pas
===================================================================
--- trunk/jcl/source/common/JclSysUtils.pas	2006-12-16 23:28:00 UTC (rev 1836)
+++ trunk/jcl/source/common/JclSysUtils.pas	2006-12-16 23:54:06 UTC (rev 1837)
@@ -59,7 +59,7 @@
   Windows,
   {$ENDIF MSWINDOWS}
   {$ENDIF CLR}
-  SysUtils, Classes, TypInfo,
+  SysUtils, Classes, TypInfo, SyncObjs,
   JclBase;
 
 {$IFNDEF CLR}
@@ -489,7 +489,7 @@
   TJclIntfCriticalSection = class(TObject, IInterface)
   {$IFNDEF CLR}
   private
-    FCriticalSection: TRTLCriticalSection;
+    FCriticalSection: TCriticalSection;
   protected
     function QueryInterface(const IID: TGUID; out Obj): HRESULT; stdcall;
     function _AddRef: Integer; stdcall;
@@ -501,6 +501,7 @@
   end;
 
 {$IFNDEF CLR}
+{$IFDEF MSWINDOWS}
 type
   TJclSimpleLog = class (TObject)
   private
@@ -521,6 +522,7 @@
     property LogFileName: string read FLogFileName;
     property LogOpen: Boolean read GetLogOpen;
   end;
+{$ENDIF MSWINDOWS}
 {$ENDIF ~CLR}
 
 {$IFDEF UNITVERSIONING}
@@ -2986,24 +2988,24 @@
 constructor TJclIntfCriticalSection.Create;
 begin
   inherited Create;
-  InitializeCriticalSection(FCriticalSection);
+  FCriticalSection := TCriticalSection.Create;
 end;
 
 destructor TJclIntfCriticalSection.Destroy;
 begin
-  DeleteCriticalSection(FCriticalSection);
+  FCriticalSection.Free;
   inherited Destroy;
 end;
 
 function TJclIntfCriticalSection._AddRef: Integer;
 begin
-  EnterCriticalSection(FCriticalSection);
+  FCriticalSection.Acquire;
   Result := 0;
 end;
 
 function TJclIntfCriticalSection._Release: Integer;
 begin
-  LeaveCriticalSection(FCriticalSection);
+  FCriticalSection.Release;
   Result := 0;
 end;
 
@@ -3017,6 +3019,8 @@
 
 //=== { TJclSimpleLog } ======================================================
 
+{$IFDEF MSWINDOWS}
+
 procedure TJclSimpleLog.CloseLog;
 begin
   if LogOpen then
@@ -3108,14 +3112,17 @@
   Write(StrRepeat('=', SeparatorLen));
 end;
 
+{$ENDIF MSWINDOWS}
 {$ENDIF ~CLR}
 
 initialization
   {$IFNDEF CLR}
-    {$IFDEF THREADSAFE}
-    if not Assigned(GlobalMMFHandleListCS) then
-      GlobalMMFHandleListCS := TJclIntfCriticalSection.Create;
-    {$ENDIF THREADSAFE}
+  {$IFDEF MSWINDOWS}
+  {$IFDEF THREADSAFE}
+  if not Assigned(GlobalMMFHandleListCS) then
+    GlobalMMFHandleListCS := TJclIntfCriticalSection.Create;
+  {$ENDIF THREADSAFE}
+  {$ENDIF MSWINDOWS}
   {$ENDIF ~CLR}
   {$IFDEF UNITVERSIONING}
   RegisterUnitVersion(HInstance, UnitVersioning);
@@ -3126,9 +3133,11 @@
   UnregisterUnitVersion(HInstance);
   {$ENDIF UNITVERSIONING}
   {$IFNDEF CLR}
+  {$IFDEF MSWINDOWS}
   FinalizeMMFHandleList;
   {$IFDEF THREADSAFE}
   GlobalMMFHandleListCS.Free;
   {$ENDIF THREADSAFE}
+  {$ENDIF MSWINDOWS}
   {$ENDIF ~CLR}
 end.

Modified: trunk/jcl/source/jcl.inc
===================================================================
--- trunk/jcl/source/jcl.inc	2006-12-16 23:28:00 UTC (rev 1836)
+++ trunk/jcl/source/jcl.inc	2006-12-16 23:54:06 UTC (rev 1837)
@@ -62,10 +62,17 @@
     {----------------------------}
     { Kylix                      }
     {----------------------------}
-    {$IFDEF KYLIX3}
-      {$I jclk3.inc}
+    // KYLIX3 is not defined (version numbers comparisons are wrong)
+    // won't fix because of possible bug with floating point comparisons
+    // at compile time
+    {$IFDEF KYLIX}
+      {$IFDEF BCB}
+        {$I jclkc3.inc}
+      {$ELSE ~BCB}
+        {$I jclkd3.inc}
+      {$ENDIF ~BCB}
       {$DEFINE JCL_CONFIGURED}
-    {$ENDIF KYLIX3}
+    {$ENDIF KYLIX}
     {----------------------------}
     { C++Builder                 }
     {----------------------------}


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: [1836] trunk/jcl/lib/k3

From: <ou...@us...> - 2006-12-16 23:28:02

Revision: 1836
          http://svn.sourceforge.net/jcl/?rev=1836&view=rev
Author:   outchy
Date:     2006-12-16 15:28:00 -0800 (Sat, 16 Dec 2006)

Log Message:
-----------
Adding some masks to ignore files for Kylix

Property Changed:
----------------
    trunk/jcl/lib/k3/
    trunk/jcl/lib/k3/debug/
    trunk/jcl/lib/k3/obj/


Property changes on: trunk/jcl/lib/k3
___________________________________________________________________
Name: svn:ignore
   + *.dcu *.dpu *.dcp



Property changes on: trunk/jcl/lib/k3/debug
___________________________________________________________________
Name: svn:ignore
   + *.dcu *.dpu *.dcp



Property changes on: trunk/jcl/lib/k3/obj
___________________________________________________________________
Name: svn:ignore
   + *.o



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: [1835] trunk/jcl/source/windows/zlibh.pas

From: <ah...@us...> - 2006-12-16 22:07:31

Revision: 1835
          http://svn.sourceforge.net/jcl/?rev=1835&view=rev
Author:   ahuser
Date:     2006-12-16 14:07:29 -0800 (Sat, 16 Dec 2006)

Log Message:
-----------
Fixed wrong location for Jedi.inc include

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

Modified: trunk/jcl/source/windows/zlibh.pas
===================================================================
--- trunk/jcl/source/windows/zlibh.pas	2006-12-12 00:17:57 UTC (rev 1834)
+++ trunk/jcl/source/windows/zlibh.pas	2006-12-16 22:07:29 UTC (rev 1835)
@@ -32,8 +32,6 @@
   (zlib format), rfc1951.txt (deflate format) and rfc1952.txt (gzip format).
 }
 
-{$I jedi.inc}
-
 {* Set this DEFINE to allow this unit to be linked against a .SO/.DLL
  * The name "DLL" was used because e.g. the wxWidgets projects also uses
  * this name to refer to dynamic libraries (even on *nix systems).
@@ -58,6 +56,8 @@
 
 unit zlibh;
 
+{$I jedi.inc}
+
 interface
 
 uses


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: [1834] trunk/jcl/source/common/JclSimpleXml.pas

From: <USc...@us...> - 2006-12-12 00:17:59

Revision: 1834
          http://svn.sourceforge.net/jcl/?rev=1834&view=rev
Author:   USchuster
Date:     2006-12-11 16:17:57 -0800 (Mon, 11 Dec 2006)

Log Message:
-----------
fixed mistake in TJclSimpleXMLElem.GetBinaryValue (was shr 4 instead of shl 4)

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

Modified: trunk/jcl/source/common/JclSimpleXml.pas
===================================================================
--- trunk/jcl/source/common/JclSimpleXml.pas	2006-12-11 23:38:34 UTC (rev 1833)
+++ trunk/jcl/source/common/JclSimpleXml.pas	2006-12-12 00:17:57 UTC (rev 1834)
@@ -1303,7 +1303,7 @@
     if (N1 > 15) or (N2 > 15) then
       Buf[J] := 0
     else
-      Buf[J] := N1 shr 4 + N2;
+      Buf[J] := N1 shl 4 + N2;
     Inc(J);
     Inc(I, 2);
   end;


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

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

Flat | Threaded

<< < 1 .. 80 81 82 83 84 .. 92 > >> (Page 82 of 92)