Menu
▾
▴
instantobjects-cvscommit — Generates a message for every commit made on CVS
You can subscribe to this list here.
| 2004 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
(13) |
Sep
(25) |
Oct
(10) |
Nov
(19) |
Dec
(20) |
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2005 |
Jan
|
Feb
(206) |
Mar
(43) |
Apr
(25) |
May
(20) |
Jun
(69) |
Jul
(121) |
Aug
(95) |
Sep
(122) |
Oct
(213) |
Nov
(46) |
Dec
(39) |
| 2006 |
Jan
(28) |
Feb
(57) |
Mar
(21) |
Apr
(7) |
May
(11) |
Jun
(2) |
Jul
(8) |
Aug
(13) |
Sep
(2) |
Oct
(2) |
Nov
(20) |
Dec
(16) |
| 2007 |
Jan
(9) |
Feb
(15) |
Mar
|
Apr
(4) |
May
(1) |
Jun
|
Jul
|
Aug
|
Sep
(1) |
Oct
|
Nov
|
Dec
|
| 2008 |
Jan
|
Feb
(2) |
Mar
|
Apr
|
May
|
Jun
|
Jul
(3) |
Aug
(1) |
Sep
(9) |
Oct
|
Nov
(1) |
Dec
|
| 2009 |
Jan
|
Feb
|
Mar
(8) |
Apr
(1) |
May
|
Jun
|
Jul
(11) |
Aug
(57) |
Sep
(2) |
Oct
(6) |
Nov
|
Dec
(7) |
| 2010 |
Jan
(11) |
Feb
(1) |
Mar
|
Apr
(1) |
May
|
Jun
|
Jul
(1) |
Aug
(2) |
Sep
(27) |
Oct
(3) |
Nov
(7) |
Dec
(1) |
| 2011 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
(10) |
Oct
|
Nov
|
Dec
|
| 2012 |
Jan
(8) |
Feb
(1) |
Mar
|
Apr
|
May
|
Jun
|
Jul
(1) |
Aug
|
Sep
|
Oct
(3) |
Nov
(1) |
Dec
(1) |
| 2013 |
Jan
|
Feb
|
Mar
(1) |
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2014 |
Jan
|
Feb
|
Mar
|
Apr
|
May
(3) |
Jun
|
Jul
|
Aug
|
Sep
(1) |
Oct
|
Nov
(4) |
Dec
|
| 2015 |
Jan
|
Feb
|
Mar
(1) |
Apr
|
May
|
Jun
(1) |
Jul
|
Aug
(1) |
Sep
(1) |
Oct
|
Nov
|
Dec
|
| 2016 |
Jan
|
Feb
|
Mar
|
Apr
|
May
(3) |
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2017 |
Jan
|
Feb
|
Mar
(1) |
Apr
(4) |
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2018 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
(1) |
Sep
(3) |
Oct
|
Nov
(4) |
Dec
|
| 2022 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
(1) |
|
From: Nando D. <na...@us...> - 2005-07-24 16:20:28
|
Update of /cvsroot/instantobjects/Source/Brokers/ADO/D6 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21562/Brokers/ADO/D6 Modified Files: DclIOADO.dpk IOADO.dpk Log Message: removal of package cfg, dof and res files from CVS (D6 and D7 only) Index: IOADO.dpk =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/ADO/D6/IOADO.dpk,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** IOADO.dpk 20 Jul 2004 16:22:54 -0000 1.1 --- IOADO.dpk 24 Jul 2005 16:20:20 -0000 1.2 *************** *** 1,5 **** package IOADO; ! {$R *.res} {$ALIGN 8} {$ASSERTIONS ON} --- 1,6 ---- package IOADO; ! {$I '../../../InstantVersion.inc'} ! {$ALIGN 8} {$ASSERTIONS ON} *************** *** 32,36 **** vcldb, adortl, ! IOCore; contains --- 33,38 ---- vcldb, adortl, ! IOCore, ! IOMSSqlCatalog; contains Index: DclIOADO.dpk =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/ADO/D6/DclIOADO.dpk,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** DclIOADO.dpk 18 Feb 2005 14:51:17 -0000 1.2 --- DclIOADO.dpk 24 Jul 2005 16:20:20 -0000 1.3 *************** *** 1,6 **** package DclIOADO; ! {$R *.res} ! {$R '..\InstantADO.dcr'} {$ALIGN 8} {$ASSERTIONS ON} --- 1,7 ---- package DclIOADO; ! {$I '../../../InstantVersion.inc'} ! ! {$R '../InstantADO.dcr'} {$ALIGN 8} {$ASSERTIONS ON} |
Update of /cvsroot/instantobjects/Source/Brokers/XML/D2005 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23565/D2005 Added Files: DclIOXML.bdsproj DclIOXML.cfg DclIOXML.dpk DclIOXML.res IOXML.bdsproj IOXML.cfg IOXML.dpk IOXML.res Log Message: Add D2005 folder and files --- NEW FILE: DclIOXML.res --- (This appears to be a binary file; contents omitted.) --- NEW FILE: DclIOXML.dpk --- package DclIOXML; {$R *.res} {$R '..\InstantXML.dcr'} {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} {$DEBUGINFO ON} {$EXTENDEDSYNTAX ON} {$IMPORTEDDATA ON} {$IOCHECKS ON} {$LOCALSYMBOLS ON} {$LONGSTRINGS ON} {$OPENSTRINGS ON} {$OPTIMIZATION ON} {$OVERFLOWCHECKS OFF} {$RANGECHECKS OFF} {$REFERENCEINFO ON} {$SAFEDIVIDE OFF} {$STACKFRAMES OFF} {$TYPEDADDRESS ON} {$VARSTRINGCHECKS ON} {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} {$DESCRIPTION 'InstantObjects XML Designtime Support (Delphi 2005)'} {$LIBSUFFIX '_D9'} {$DESIGNONLY} {$IMPLICITBUILD OFF} requires vcl, rtl, dbrtl, IOXML, vclx; contains InstantXMLReg in '..\InstantXMLReg.pas'; end. --- NEW FILE: DclIOXML.cfg --- -$A8 -$B- -$C+ -$D+ -$E- -$F- -$G+ -$H+ -$I+ -$J- -$K- -$L+ -$M- -$N+ -$O+ -$P+ -$Q- -$R- -$S- -$T+ -$U- -$V+ -$W- -$X+ -$YD -$Z1 -cg -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -H+ -W+ -M -$M16384,1048576 -K$00400000 -LE"D:\D\Delphi2005 Projects\Bpl" -LN"D:\D\Delphi2005 Projects\Bpl" -Z -w-UNSAFE_TYPE -w-UNSAFE_CODE -w-UNSAFE_CAST --- NEW FILE: IOXML.res --- (This appears to be a binary file; contents omitted.) --- NEW FILE: IOXML.cfg --- -$A8 -$B- -$C+ -$D+ -$E- -$F- -$G+ -$H+ -$I+ -$J- -$K- -$L+ -$M- -$N+ -$O+ -$P+ -$Q- -$R- -$S- -$T+ -$U- -$V+ -$W- -$X+ -$YD -$Z1 -cg -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -H+ -W+ -M -$M16384,1048576 -K$00400000 -LE"D:\D\Delphi2005 Projects\Bpl" -LN"D:\D\Delphi2005 Projects\Bpl" -Z -w-UNSAFE_TYPE -w-UNSAFE_CODE -w-UNSAFE_CAST --- NEW FILE: IOXML.dpk --- package IOXML; {$R *.res} {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} {$DEBUGINFO ON} {$EXTENDEDSYNTAX ON} {$IMPORTEDDATA ON} {$IOCHECKS ON} {$LOCALSYMBOLS ON} {$LONGSTRINGS ON} {$OPENSTRINGS ON} {$OPTIMIZATION ON} {$OVERFLOWCHECKS OFF} {$RANGECHECKS OFF} {$REFERENCEINFO ON} {$SAFEDIVIDE OFF} {$STACKFRAMES OFF} {$TYPEDADDRESS ON} {$VARSTRINGCHECKS ON} {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} {$DESCRIPTION 'InstantObjects XML Runtime Support (Delphi 2005)'} {$LIBSUFFIX '_D9'} {$RUNONLY} {$IMPLICITBUILD OFF} requires vcl, rtl, dbrtl, IOCore, vclx; contains InstantXMLConnectionDefEdit in '..\InstantXMLConnectionDefEdit.pas' {InstantXMLConnectionDefEditForm}, InstantXML in '..\InstantXML.pas'; end. --- NEW FILE: IOXML.bdsproj --- <?xml version="1.0" encoding="utf-8"?> <BorlandProject> <PersonalityInfo> <Option> <Option Name="Personality">Delphi.Personality</Option> <Option Name="ProjectType">VCLApplication</Option> <Option Name="Version">1.0</Option> <Option Name="GUID">{A743BFA6-D686-4AB6-9984-A8AF63476700}</Option> </Option> </PersonalityInfo> <Delphi.Personality> <Source> <Source Name="MainSource">IOXML.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">1</Compiler> <Compiler Name="D">1</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">0</Compiler> <Compiler Name="K">0</Compiler> <Compiler Name="L">1</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">0</Compiler> <Compiler Name="S">0</Compiler> <Compiler Name="T">1</Compiler> <Compiler Name="U">0</Compiler> <Compiler Name="V">1</Compiler> <Compiler Name="W">0</Compiler> <Compiler Name="X">1</Compiler> <Compiler Name="Y">1</Compiler> <Compiler Name="Z">1</Compiler> <Compiler Name="ShowHints">True</Compiler> <Compiler Name="ShowWarnings">True</Compiler> <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</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">False</Compiler> <Compiler Name="UnsafeCode">False</Compiler> <Compiler Name="UnsafeCast">False</Compiler> <Compiler Name="OptionTruncated">True</Compiler> <Compiler Name="WideCharReduced">True</Compiler> <Compiler Name="DuplicatesIgnored">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">4194304</Linker> <Linker Name="ExeDescription">InstantObjects XML Runtime Support (Delphi 2005)</Linker> </Linker> <Directories> <Directories Name="OutputDir"></Directories> <Directories Name="UnitOutputDir"></Directories> <Directories Name="PackageDLLOutputDir"></Directories> <Directories Name="PackageDCPOutputDir"></Directories> <Directories Name="SearchPath"></Directories> <Directories Name="Packages"></Directories> <Directories Name="Conditionals"></Directories> <Directories Name="DebugSourceDirs"></Directories> <Directories Name="UsePackages">False</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> <VersionInfo> <VersionInfo Name="IncludeVerInfo">True</VersionInfo> <VersionInfo Name="AutoIncBuild">False</VersionInfo> <VersionInfo Name="MajorVer">2</VersionInfo> <VersionInfo Name="MinorVer">0</VersionInfo> <VersionInfo Name="Release">0</VersionInfo> <VersionInfo Name="Build">0</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">1033</VersionInfo> <VersionInfo Name="CodePage">1252</VersionInfo> </VersionInfo> <VersionInfoKeys> <VersionInfoKeys Name="CompanyName">InstantObjects.org</VersionInfoKeys> <VersionInfoKeys Name="FileDescription">InstantObjects XML Runtime Support (Delphi 2005)</VersionInfoKeys> <VersionInfoKeys Name="FileVersion">2.0.0.0</VersionInfoKeys> <VersionInfoKeys Name="InternalName"></VersionInfoKeys> <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys> <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys> <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys> <VersionInfoKeys Name="ProductName">InstantObjects</VersionInfoKeys> <VersionInfoKeys Name="ProductVersion">2.0</VersionInfoKeys> <VersionInfoKeys Name="Comments"></VersionInfoKeys> </VersionInfoKeys> </Delphi.Personality> </BorlandProject> --- NEW FILE: DclIOXML.bdsproj --- (This appears to be a binary file; contents omitted.) |
|
From: Steven M. <sr...@us...> - 2005-07-21 00:10:39
|
Update of /cvsroot/instantobjects/Source/Brokers/XML/D2005 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23277/D2005 Log Message: Directory /cvsroot/instantobjects/Source/Brokers/XML/D2005 added to the repository |
|
From: Steven M. <sr...@us...> - 2005-07-17 22:48:55
|
Update of /cvsroot/instantobjects/Source/Design/D9 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11322/D9 Removed Files: DclIOCore.bdsproj DclIOCore.bdsproj.local DclIOCore.cfg DclIOCore.dpk Log Message: Remove D9 folder files and add D2005 folder and files --- DclIOCore.dpk DELETED --- --- DclIOCore.bdsproj DELETED --- --- DclIOCore.cfg DELETED --- --- DclIOCore.bdsproj.local DELETED --- |
|
From: Steven M. <sr...@us...> - 2005-07-17 22:48:55
|
Update of /cvsroot/instantobjects/Source/Design/D2005 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11322/D2005 Added Files: DclIOCore.bdsproj DclIOCore.cfg DclIOCore.dpk Log Message: Remove D9 folder files and add D2005 folder and files --- NEW FILE: DclIOCore.dpk --- package DclIOCore; {$R *.res} {$R '..\..\Core\InstantPresentation.dcr'} {$R '..\..\Core\InstantExplorer.dcr'} {$R '..\..\Core\InstantPersistence.dcr'} {$R '..\..\Core\InstantConnectionManager.dcr'} {$R '..\..\Core\InstantPump.dcr'} {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} {$DEBUGINFO ON} {$EXTENDEDSYNTAX ON} {$IMPORTEDDATA ON} {$IOCHECKS ON} {$LOCALSYMBOLS ON} {$LONGSTRINGS ON} {$OPENSTRINGS ON} {$OPTIMIZATION ON} {$OVERFLOWCHECKS OFF} {$RANGECHECKS OFF} {$REFERENCEINFO ON} {$SAFEDIVIDE OFF} {$STACKFRAMES OFF} {$TYPEDADDRESS ON} {$VARSTRINGCHECKS ON} {$WRITEABLECONST ON} {$MINENUMSIZE 1} {$IMAGEBASE $400000} {$DESCRIPTION 'InstantObjects Design-Time Package (Delphi 2005)'} {$LIBSUFFIX '_D9'} {$DESIGNONLY} {$IMPLICITBUILD OFF} requires designide, vcldb, rtl, vcl, dbrtl, IOCore; contains InstantWizard in '..\InstantWizard.pas', InstantClassEditor in '..\InstantClassEditor.pas' {InstantClassEditorForm: TIOBaseForm}, InstantCommandEditor in '..\InstantCommandEditor.pas' {InstantCommandEditorForm}, InstantDesignResources in '..\InstantDesignResources.pas' {InstantDesignResourceModule: TDataModule}, InstantDesignTools in '..\InstantDesignTools.pas', InstantDesignUtils in '..\InstantDesignUtils.pas', InstantDialog in '..\InstantDialog.pas' {InstantDialogForm}, InstantDualList in '..\InstantDualList.pas' {InstantDualListForm}, InstantEdit in '..\InstantEdit.pas' {InstantEditForm}, InstantModelExpert in '..\InstantModelExpert.pas', InstantModelExplorer in '..\InstantModelExplorer.pas' {InstantModelExplorerForm}, InstantOTA in '..\InstantOTA.pas', InstantReg in '..\InstantReg.pas', InstantUnitSelect in '..\InstantUnitSelect.pas' {InstantUnitSelectForm}, InstantAttributeEditor in '..\InstantAttributeEditor.pas' {InstantAttributeEditorForm}, InstantAbout in '..\InstantAbout.pas' {InstantAboutForm}; end. --- NEW FILE: DclIOCore.bdsproj --- (This appears to be a binary file; contents omitted.) --- NEW FILE: DclIOCore.cfg --- -$A8 -$B- -$C+ -$D+ -$E- -$F- -$G+ -$H+ -$I+ -$J+ -$K- -$L+ -$M- -$N+ -$O+ -$P+ -$Q- -$R- -$S- -$T+ -$U- -$V+ -$W- -$X+ -$YD -$Z1 -cg -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -H+ -W+ -M -$M16384,1048576 -K$00400000 -LE"C:\Documents and Settings\Ron\My Documents\Borland Studio Projects\Bpl" -LN"C:\Documents and Settings\Ron\My Documents\Borland Studio Projects\Bpl" -Z -w-UNSAFE_TYPE -w-UNSAFE_CODE -w-UNSAFE_CAST |
|
From: Steven M. <sr...@us...> - 2005-07-17 22:47:27
|
Update of /cvsroot/instantobjects/Source/Design/D2005 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11082/D2005 Log Message: Directory /cvsroot/instantobjects/Source/Design/D2005 added to the repository |
|
From: Steven M. <sr...@us...> - 2005-07-17 22:45:51
|
Update of /cvsroot/instantobjects/Source/Core/D2005 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10672/D2005 Added Files: IOCore.bdsproj IOCore.cfg IOCore.dpk IOCore.res Log Message: Remove D9 folder add D2005 folder and files --- NEW FILE: IOCore.bdsproj --- (This appears to be a binary file; contents omitted.) --- NEW FILE: IOCore.dpk --- package IOCore; {$R *.res} {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} {$DEBUGINFO ON} {$EXTENDEDSYNTAX ON} {$IMPORTEDDATA ON} {$IOCHECKS ON} {$LOCALSYMBOLS ON} {$LONGSTRINGS ON} {$OPENSTRINGS ON} {$OPTIMIZATION ON} {$OVERFLOWCHECKS OFF} {$RANGECHECKS OFF} {$REFERENCEINFO ON} {$SAFEDIVIDE OFF} {$STACKFRAMES OFF} {$TYPEDADDRESS ON} {$VARSTRINGCHECKS ON} {$WRITEABLECONST ON} {$MINENUMSIZE 1} {$IMAGEBASE $400000} {$DESCRIPTION 'InstantObjects Run-Time Package (Delphi 2005)'} {$LIBSUFFIX '_D9'} {$RUNONLY} {$IMPLICITBUILD OFF} requires vcl, vcldb, rtl; contains InstantUtils in '..\InstantUtils.pas', InstantClasses in '..\InstantClasses.pas', InstantConsts in '..\InstantConsts.pas', InstantRtti in '..\InstantRtti.pas', InstantCommand in '..\InstantCommand.pas', InstantPersistence in '..\InstantPersistence.pas', InstantExplorer in '..\InstantExplorer.pas', InstantDesignHook in '..\InstantDesignHook.pas', InstantCode in '..\InstantCode.pas', InstantTextFiler in '..\InstantTextFiler.pas', InstantPresentation in '..\InstantPresentation.pas', InstantAccessors in '..\InstantAccessors.pas', InstantConnectionManagerForm in '..\InstantConnectionManagerForm.pas' {InstantConnectionManagerForm}, InstantConnectionManager in '..\InstantConnectionManager.pas', InstantImageUtils in '..\InstantImageUtils.pas', InstantPump in '..\InstantPump.pas'; end. --- NEW FILE: IOCore.cfg --- -$A8 -$B- -$C+ -$D+ -$E- -$F- -$G+ -$H+ -$I+ -$J+ -$K- -$L+ -$M- -$N+ -$O+ -$P+ -$Q- -$R- -$S- -$T+ -$U- -$V+ -$W- -$X+ -$YD -$Z1 -cg -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -H+ -W+ -M -$M16384,1048576 -K$00400000 -LE"C:\Documents and Settings\Ron\My Documents\Borland Studio Projects\Bpl" -LN"C:\Documents and Settings\Ron\My Documents\Borland Studio Projects\Bpl" -Z -w-UNSAFE_TYPE -w-UNSAFE_CODE -w-UNSAFE_CAST --- NEW FILE: IOCore.res --- (This appears to be a binary file; contents omitted.) |
|
From: Steven M. <sr...@us...> - 2005-07-17 22:45:51
|
Update of /cvsroot/instantobjects/Source/Core/D7 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10672/D7 Modified Files: IOCore.res Log Message: Remove D9 folder add D2005 folder and files Index: IOCore.res =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/D7/IOCore.res,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 Binary files /tmp/cvsTHsMsm and /tmp/cvs4Yb1KH differ |
|
From: Steven M. <sr...@us...> - 2005-07-17 22:42:54
|
Update of /cvsroot/instantobjects/Source/Core/D9 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10082 Removed Files: IOCore.bdsproj IOCore.bdsproj.local IOCore.cfg IOCore.dpk IOCore.res Log Message: Remove D9 folder files --- IOCore.bdsproj.local DELETED --- --- IOCore.bdsproj DELETED --- --- IOCore.dpk DELETED --- --- IOCore.cfg DELETED --- --- IOCore.res DELETED --- |
|
From: Steven M. <sr...@us...> - 2005-07-17 22:37:45
|
Update of /cvsroot/instantobjects/Source/Core/D2005 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9144/D2005 Log Message: Directory /cvsroot/instantobjects/Source/Core/D2005 added to the repository |
|
From: Steven M. <sr...@us...> - 2005-07-17 22:34:20
|
Update of /cvsroot/instantobjects/Source/Brokers/BDE/D2005 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8519/D2005 Added Files: DclIOBDE.bdsproj DclIOBDE.cfg DclIOBDE.dpk IOBDE.bdsproj IOBDE.cfg IOBDE.dpk Log Message: Remove D9 folder --- NEW FILE: DclIOBDE.bdsproj --- (This appears to be a binary file; contents omitted.) --- NEW FILE: IOBDE.cfg --- -$A8 -$B- -$C+ -$D+ -$E- -$F- -$G+ -$H+ -$I+ -$J+ -$K- -$L+ -$M- -$N+ -$O+ -$P+ -$Q- -$R- -$S- -$T- -$U- -$V+ -$W- -$X+ -$YD -$Z1 -cg -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -H+ -W+ -M -$M16384,1048576 -K$00400000 -LE"C:\Documents and Settings\Ron\My Documents\Borland Studio Projects\Bpl" -LN"C:\Documents and Settings\Ron\My Documents\Borland Studio Projects\Bpl" -Z -w-UNSAFE_TYPE -w-UNSAFE_CODE -w-UNSAFE_CAST --- NEW FILE: IOBDE.dpk --- package IOBDE; {$R *.res} {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} {$DEBUGINFO ON} {$EXTENDEDSYNTAX ON} {$IMPORTEDDATA ON} {$IOCHECKS ON} {$LOCALSYMBOLS ON} {$LONGSTRINGS ON} {$OPENSTRINGS ON} {$OPTIMIZATION ON} {$OVERFLOWCHECKS OFF} {$RANGECHECKS OFF} {$REFERENCEINFO ON} {$SAFEDIVIDE OFF} {$STACKFRAMES OFF} {$TYPEDADDRESS OFF} {$VARSTRINGCHECKS ON} {$WRITEABLECONST ON} {$MINENUMSIZE 1} {$IMAGEBASE $400000} {$DESCRIPTION 'InstantObjects BDE Run-Time Support (Delphi 2005)'} {$LIBSUFFIX '_D9'} {$RUNONLY} {$IMPLICITBUILD OFF} requires vcl, vcldb, bdertl, IOCore; contains InstantBDEConnectionDefEdit in '..\InstantBDEConnectionDefEdit.pas' {InstantBDEConnectionDefEditForm}, InstantBDE in '..\InstantBDE.pas'; end. --- NEW FILE: IOBDE.bdsproj --- (This appears to be a binary file; contents omitted.) --- NEW FILE: DclIOBDE.dpk --- package DclIOBDE; {$R *.res} {$R '..\InstantBDE.dcr'} {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} {$DEBUGINFO ON} {$EXTENDEDSYNTAX ON} {$IMPORTEDDATA ON} {$IOCHECKS ON} {$LOCALSYMBOLS ON} {$LONGSTRINGS ON} {$OPENSTRINGS ON} {$OPTIMIZATION ON} {$OVERFLOWCHECKS OFF} {$RANGECHECKS OFF} {$REFERENCEINFO ON} {$SAFEDIVIDE OFF} {$STACKFRAMES OFF} {$TYPEDADDRESS OFF} {$VARSTRINGCHECKS ON} {$WRITEABLECONST ON} {$MINENUMSIZE 1} {$IMAGEBASE $400000} {$DESCRIPTION 'InstantObjects BDE Design-Time Support (Delphi 2005)'} {$LIBSUFFIX '_D9'} {$DESIGNONLY} {$IMPLICITBUILD OFF} requires vcl, vcldb, bdertl, IOCore, IOBDE; contains InstantBDEReg in '..\InstantBDEReg.pas'; end. --- NEW FILE: DclIOBDE.cfg --- -$A8 -$B- -$C+ -$D+ -$E- -$F- -$G+ -$H+ -$I+ -$J+ -$K- -$L+ -$M- -$N+ -$O+ -$P+ -$Q- -$R- -$S- -$T- -$U- -$V+ -$W- -$X+ -$YD -$Z1 -cg -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -H+ -W+ -M -$M16384,1048576 -K$00400000 -LE"C:\Documents and Settings\Ron\My Documents\Borland Studio Projects\Bpl" -LN"C:\Documents and Settings\Ron\My Documents\Borland Studio Projects\Bpl" -Z -w-UNSAFE_TYPE -w-UNSAFE_CODE -w-UNSAFE_CAST |
|
From: Steven M. <sr...@us...> - 2005-07-17 22:32:19
|
Update of /cvsroot/instantobjects/Source/Brokers/BDE/D9 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8103 Removed Files: DclIOBDE.bdsproj DclIOBDE.cfg DclIOBDE.dpk IOBDE.bdsproj IOBDE.cfg IOBDE.dpk Log Message: Remove D9 folder files --- DclIOBDE.bdsproj DELETED --- --- IOBDE.cfg DELETED --- --- IOBDE.dpk DELETED --- --- IOBDE.bdsproj DELETED --- --- DclIOBDE.dpk DELETED --- --- DclIOBDE.cfg DELETED --- |
|
From: Steven M. <sr...@us...> - 2005-07-17 22:28:31
|
Update of /cvsroot/instantobjects/Source/Brokers/BDE/D2005 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7322/D2005 Log Message: Directory /cvsroot/instantobjects/Source/Brokers/BDE/D2005 added to the repository |
|
From: Steven M. <sr...@us...> - 2005-07-17 22:24:52
|
Update of /cvsroot/instantobjects/Source/Brokers/ADO/D2005 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6605/D2005 Added Files: DclIOADO.bdsproj DclIOADO.cfg DclIOADO.dpk IOADO.bdsproj IOADO.cfg IOADO.dpk Log Message: Remove D9 folder --- NEW FILE: IOADO.dpk --- package IOADO; {$R *.res} {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} {$DEBUGINFO ON} {$EXTENDEDSYNTAX ON} {$IMPORTEDDATA ON} {$IOCHECKS ON} {$LOCALSYMBOLS ON} {$LONGSTRINGS ON} {$OPENSTRINGS ON} {$OPTIMIZATION ON} {$OVERFLOWCHECKS OFF} {$RANGECHECKS OFF} {$REFERENCEINFO ON} {$SAFEDIVIDE OFF} {$STACKFRAMES OFF} {$TYPEDADDRESS OFF} {$VARSTRINGCHECKS ON} {$WRITEABLECONST ON} {$MINENUMSIZE 1} {$IMAGEBASE $400000} {$DESCRIPTION 'InstantObjects ADO Run-Time Support (Delphi 2005)'} {$LIBSUFFIX '_D9'} {$RUNONLY} {$IMPLICITBUILD OFF} requires vcl, vcldb, adortl, IOCore; contains InstantADOX in '..\InstantADOX.pas', InstantADOJRO in '..\InstantADOJRO.pas', InstantADOTools in '..\InstantADOTools.pas', InstantADOConnectionDefEdit in '..\InstantADOConnectionDefEdit.pas' {InstantADOConnectionDefEditForm}, InstantADO in '..\InstantADO.pas'; end. --- NEW FILE: DclIOADO.dpk --- package DclIOADO; {$R *.res} {$R '..\InstantADO.dcr'} {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} {$DEBUGINFO ON} {$EXTENDEDSYNTAX ON} {$IMPORTEDDATA ON} {$IOCHECKS ON} {$LOCALSYMBOLS ON} {$LONGSTRINGS ON} {$OPENSTRINGS ON} {$OPTIMIZATION ON} {$OVERFLOWCHECKS ON} {$RANGECHECKS ON} {$REFERENCEINFO ON} {$SAFEDIVIDE OFF} {$STACKFRAMES OFF} {$TYPEDADDRESS OFF} {$VARSTRINGCHECKS ON} {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} {$DESCRIPTION 'InstantObjects ADO Design-Time Support (Delphi 2005)'} {$LIBSUFFIX '_D9'} {$DESIGNONLY} {$IMPLICITBUILD OFF} requires rtl, IOADO; contains InstantADOReg in '..\InstantADOReg.pas'; end. --- NEW FILE: IOADO.cfg --- -$A8 -$B- -$C+ -$D+ -$E- -$F- -$G+ -$H+ -$I+ -$J+ -$K- -$L+ -$M- -$N+ -$O+ -$P+ -$Q- -$R- -$S- -$T- -$U- -$V+ -$W- -$X+ -$YD -$Z1 -cg -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -H+ -W+ -M -$M16384,1048576 -K$00400000 -LE"C:\Documents and Settings\Ron\My Documents\Borland Studio Projects\Bpl" -LN"C:\Documents and Settings\Ron\My Documents\Borland Studio Projects\Bpl" -Z -w-UNSAFE_TYPE -w-UNSAFE_CODE -w-UNSAFE_CAST --- NEW FILE: DclIOADO.bdsproj --- (This appears to be a binary file; contents omitted.) --- NEW FILE: DclIOADO.cfg --- -$A8 -$B- -$C+ -$D+ -$E- -$F- -$G+ -$H+ -$I+ -$J- -$K- -$L+ -$M- -$N+ -$O+ -$P+ -$Q+ -$R+ -$S- -$T- -$U- -$V+ -$W- -$X+ -$YD -$Z1 -cg -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -H+ -W+ -M -$M16384,1048576 -K$00400000 -LE"C:\Documents and Settings\Ron\My Documents\Borland Studio Projects\Bpl" -LN"C:\Documents and Settings\Ron\My Documents\Borland Studio Projects\Bpl" -Z -w-UNSAFE_TYPE -w-UNSAFE_CODE -w-UNSAFE_CAST --- NEW FILE: IOADO.bdsproj --- (This appears to be a binary file; contents omitted.) |
|
From: Steven M. <sr...@us...> - 2005-07-17 22:21:42
|
Update of /cvsroot/instantobjects/Source/Brokers/ADO/D9 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5848 Removed Files: DclIOADO.bdsproj DclIOADO.cfg DclIOADO.dpk IOADO.bdsproj IOADO.cfg IOADO.dpk Log Message: Remove D9 folder files --- IOADO.dpk DELETED --- --- DclIOADO.dpk DELETED --- --- IOADO.cfg DELETED --- --- DclIOADO.bdsproj DELETED --- --- DclIOADO.cfg DELETED --- --- IOADO.bdsproj DELETED --- |
|
From: Steven M. <sr...@us...> - 2005-07-17 22:16:58
|
Update of /cvsroot/instantobjects/Source/Brokers/ADO/D2005 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4927/D2005 Log Message: Directory /cvsroot/instantobjects/Source/Brokers/ADO/D2005 added to the repository |
|
From: Nando D. <na...@us...> - 2005-07-15 10:32:55
|
Update of /cvsroot/instantobjects/Source/Tests In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28186/Tests Modified Files: TestInstantFieldMetadata.pas Log Message: refactored scheme building and field metadata classes Index: TestInstantFieldMetadata.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Tests/TestInstantFieldMetadata.pas,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** TestInstantFieldMetadata.pas 28 Jun 2005 03:45:51 -0000 1.4 --- TestInstantFieldMetadata.pas 15 Jul 2005 10:32:35 -0000 1.5 *************** *** 48,54 **** procedure TestCollection; procedure TestDataType; - procedure TestExternalTableName; procedure TestOptions; - procedure TestOriginalAttributeType; procedure TestSize; end; --- 48,52 ---- *************** *** 78,85 **** FInstantFieldMetadata := TInstantFieldMetadata.Create(FCollection); FInstantFieldMetadata.DataType := dtInteger; - FInstantFieldMetadata.ExternalTableName := 'ExternalTableName'; FInstantFieldMetadata.Size := 10; FInstantFieldMetadata.Options := [foRequired]; - FInstantFieldMetadata.OriginalAttributeType := atInteger; end; --- 76,81 ---- *************** *** 107,115 **** end; - procedure TestTInstantFieldMetadata.TestExternalTableName; - begin - AssertEquals('ExternalTableName', FInstantFieldMetadata.ExternalTableName); - end; - procedure TestTInstantFieldMetadata.TestOptions; begin --- 103,106 ---- *************** *** 117,129 **** end; - procedure TestTInstantFieldMetadata.TestOriginalAttributeType; - var - vStr: string; - begin - vStr := GetEnumName(TypeInfo(TInstantAttributeType), - Ord(FInstantFieldMetadata.OriginalAttributeType)); - AssertEquals('atInteger', vStr); - end; - procedure TestTInstantFieldMetadata.TestSize; begin --- 108,111 ---- *************** *** 158,164 **** procedure TestTInstantFieldMetadatas.TestAddFieldMetadata; var - vExternalTableName: string; vOptions: TInstantFieldOptions; - vOriginalAttributeType: TInstantAttributeType; vSize: Integer; vDataType: TInstantDataType; --- 140,144 ---- *************** *** 170,178 **** vDataType := dtInteger; vSize := 10; - vOriginalAttributeType := atInteger; vOptions := [foRequired]; ! vExternalTableName := 'ExternalTableName'; ! FInstantFieldMetadatas.AddFieldMetadata(vName, vDataType, vSize, ! vOriginalAttributeType, vOptions, vExternalTableName); AssertEquals(1, FInstantFieldMetadatas.Count); --- 150,155 ---- vDataType := dtInteger; vSize := 10; vOptions := [foRequired]; ! FInstantFieldMetadatas.AddFieldMetadata(vName, vDataType, vSize, vOptions); AssertEquals(1, FInstantFieldMetadatas.Count); *************** *** 181,192 **** AssertEquals(vName, vInstantFieldMetadata.Name); AssertEquals(10, vInstantFieldMetadata.Size); - vStr := GetEnumName(TypeInfo(TInstantAttributeType), - Ord(vInstantFieldMetadata.OriginalAttributeType)); - AssertEquals('atInteger', vStr); AssertTrue(foRequired in vInstantFieldMetadata.Options); vStr := GetEnumName(TypeInfo(TInstantDataType), Ord(vInstantFieldMetadata.DataType)); AssertEquals('dtInteger', vStr); - AssertEquals('ExternalTableName', vInstantFieldMetadata.ExternalTableName); end; --- 158,165 ---- |
|
From: Nando D. <na...@us...> - 2005-07-15 10:32:05
|
Update of /cvsroot/instantobjects/Source/Core In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28051/Core Modified Files: InstantPersistence.pas Log Message: refactored scheme building and field metadata classes; removed obsolete code for external storage Index: InstantPersistence.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantPersistence.pas,v retrieving revision 1.47 retrieving revision 1.48 diff -C2 -d -r1.47 -r1.48 *** InstantPersistence.pas 14 Jul 2005 07:38:35 -0000 1.47 --- InstantPersistence.pas 15 Jul 2005 10:31:49 -0000 1.48 *************** *** 280,285 **** FOptions: TInstantFieldOptions; FSize: Integer; - FExternalTableName: string; - FOriginalAttributeType: TInstantAttributeType; FAlternateDataTypes: TInstantDataTypes; function GetCollection: TInstantFieldMetadatas; --- 280,283 ---- *************** *** 304,312 **** read FAlternateDataTypes write FAlternateDataTypes; property Options: TInstantFieldOptions read FOptions write FOptions; - property ExternalTableName: string read FExternalTableName write FExternalTableName; property Size: Integer read FSize write FSize; property TableMetadata: TInstantTableMetadata read GetTableMetadata; - property OriginalAttributeType: TInstantAttributeType - read FOriginalAttributeType write FOriginalAttributeType default atUnknown; end; --- 302,307 ---- *************** *** 318,323 **** constructor Create(AOwner: TInstantTableMetadata); procedure AddFieldMetadata(const AName: string; ADataType: TInstantDataType; ! ASize: Integer; AOriginalAttributeType: TInstantAttributeType; ! AOptions: TInstantFieldOptions = []; AExternalTableName: string = ''); function Add: TInstantFieldMetadata; function Find(const AName: string): TInstantFieldMetadata; --- 313,317 ---- constructor Create(AOwner: TInstantTableMetadata); procedure AddFieldMetadata(const AName: string; ADataType: TInstantDataType; ! ASize: Integer; AOptions: TInstantFieldOptions = []); function Add: TInstantFieldMetadata; function Find(const AName: string): TInstantFieldMetadata; *************** *** 2268,2272 **** function InternalGenerateCreateIndexSQL(Metadata: TInstantIndexMetadata): string; virtual; function InternalGenerateCreateTableSQL(Metadata: TInstantTableMetadata): string; virtual; - function InternalGenerateCreateExternalTableSQL(TableName: string): string; virtual; function InternalGenerateDeleteConcurrentSQL(Map: TInstantAttributeMap): string; virtual; function InternalGenerateDeleteSQL(Map: TInstantAttributeMap): string; virtual; --- 2262,2265 ---- *************** *** 2275,2279 **** function InternalGenerateDropIndexSQL(Metadata: TInstantIndexMetadata): string; virtual; function InternalGenerateDropTableSQL(Metadata: TInstantTableMetadata): string; virtual; - function InternalGenerateDropExternalTableSQL(TableName: string): string; virtual; function InternalGenerateInsertSQL(Map: TInstantAttributeMap): string; virtual; function InternalGenerateInsertExternalSQL(Map: TInstantAttributeMap): string; virtual; --- 2268,2271 ---- *************** *** 2292,2296 **** function GenerateCreateIndexSQL(Metadata: TInstantIndexMetadata): string; function GenerateCreateTableSQL(Metadata: TInstantTableMetadata): string; - function GenerateCreateExternalTableSQL(TableName: string): string; function GenerateDeleteConcurrentSQL(Map: TInstantAttributeMap): string; function GenerateDeleteSQL(Map: TInstantAttributeMap): string; --- 2284,2287 ---- *************** *** 2299,2303 **** function GenerateDropIndexSQL(Metadata: TInstantIndexMetadata): string; function GenerateDropTableSQL(Metadata: TInstantTableMetadata): string; - function GenerateDropExternalTableSQL(TableName: string): string; function GenerateInsertSQL(Map: TInstantAttributeMap): string; function GenerateInsertExternalSQL(Map: TInstantAttributeMap): string; --- 2290,2293 ---- *************** *** 3747,3751 **** begin inherited Create(ACollection); - FOriginalAttributeType := atUnknown; end; --- 3737,3740 ---- *************** *** 3787,3792 **** procedure TInstantFieldMetadatas.AddFieldMetadata(const AName: string; ! ADataType: TInstantDataType; ASize: Integer; AOriginalAttributeType: TInstantAttributeType; ! AOptions: TInstantFieldOptions = []; AExternalTableName: string = ''); begin with Add do --- 3776,3781 ---- procedure TInstantFieldMetadatas.AddFieldMetadata(const AName: string; ! ADataType: TInstantDataType; ASize: Integer; ! AOptions: TInstantFieldOptions = []); begin with Add do *************** *** 3795,3801 **** DataType := ADataType; Size := ASize; - OriginalAttributeType := AOriginalAttributeType; Options := AOptions; - ExternalTableName := AExternalTableName; end; end; --- 3784,3788 ---- *************** *** 12778,12787 **** end; - function TInstantSQLGenerator.GenerateCreateExternalTableSQL( - TableName: string): string; - begin - Result := InternalGenerateCreateExternalTableSQL(TableName); - end; - function TInstantSQLGenerator.GenerateCreateIndexSQL( Metadata: TInstantIndexMetadata): string; --- 12765,12768 ---- *************** *** 12814,12823 **** end; - function TInstantSQLGenerator.GenerateDropExternalTableSQL( - TableName: string): string; - begin - Result := InternalGenerateDropExternalTableSQL(TableName); - end; - function TInstantSQLGenerator.GenerateDropFieldSQL( Metadata: TInstantFieldMetadata): string; --- 12795,12798 ---- *************** *** 12909,12933 **** end; - function TInstantSQLGenerator.InternalGenerateCreateExternalTableSQL( - TableName: string): string; - var - Columns: string; - begin - Columns := EmbraceField(InstantIdFieldName) + ' ' + - Broker.DataTypeToColumnType(Broker.Connector.IdDataType, Broker.Connector.IdSize) + ' NOT NULL'; - Columns := Columns + ', ' + EmbraceField(InstantParentClassFieldName) + ' ' + - Broker.DataTypeToColumnType(dtString, InstantDefaultFieldSize); - Columns := Columns + ', ' + EmbraceField(InstantParentIdFieldName) + ' ' + - Broker.DataTypeToColumnType(Broker.Connector.IdDataType, Broker.Connector.IdSize); - Columns := Columns + ', ' + EmbraceField(InstantChildClassFieldName) + ' ' + - Broker.DataTypeToColumnType(dtString, InstantDefaultFieldSize); - Columns := Columns + ', ' + EmbraceField(InstantChildIdFieldName) + ' ' + - Broker.DataTypeToColumnType(Broker.Connector.IdDataType, Broker.Connector.IdSize); - Columns := Columns + ', ' + EmbraceField(InstantSequenceNoFieldName) + ' ' + - Broker.DataTypeToColumnType(dtInteger, InstantDefaultFieldSize); - Columns := Columns + ', PRIMARY KEY (' + EmbraceField(InstantIdFieldName) + ')'; - Result := Format('CREATE TABLE %s (%s)', [EmbraceTable(TableName), Columns] ); - end; - function TInstantSQLGenerator.InternalGenerateCreateIndexSQL( Metadata: TInstantIndexMetadata): string; --- 12884,12887 ---- *************** *** 12960,12972 **** FieldMetadata := FieldMetadatas[I]; with FieldMetadata do ! // Not an "external" field ! if ExternalTableName = '' then ! begin ! if I > 0 then ! Columns := Columns + ', '; ! Columns := Columns + EmbraceField(Name) + ' ' + Broker.DataTypeToColumnType(DataType, Size); ! if foRequired in Options then ! Columns := Columns + ' NOT NULL'; ! end; end; PrimaryKey := ''; --- 12914,12924 ---- FieldMetadata := FieldMetadatas[I]; with FieldMetadata do ! begin ! if I > 0 then ! Columns := Columns + ', '; ! Columns := Columns + EmbraceField(Name) + ' ' + Broker.DataTypeToColumnType(DataType, Size); ! if foRequired in Options then ! Columns := Columns + ' NOT NULL'; ! end; end; PrimaryKey := ''; *************** *** 13012,13021 **** end; - function TInstantSQLGenerator.InternalGenerateDropExternalTableSQL( - TableName: string): string; - begin - Result := Format('DROP TABLE %s', [EmbraceTable(TableName)]); - end; - function TInstantSQLGenerator.InternalGenerateDropFieldSQL( Metadata: TInstantFieldMetadata): string; --- 12964,12967 ---- *************** *** 13242,13250 **** TableMetadata: TInstantTableMetadata; IndexMetadata: TInstantIndexMetadata; - FieldMetadata: TInstantFieldMetadata; begin if not Assigned(Scheme) then Exit; with Scheme do for I := 0 to Pred(TableMetadataCount) do begin --- 13188,13196 ---- TableMetadata: TInstantTableMetadata; IndexMetadata: TInstantIndexMetadata; begin if not Assigned(Scheme) then Exit; with Scheme do + begin for I := 0 to Pred(TableMetadataCount) do begin *************** *** 13254,13277 **** except end; - for J := 0 to Pred(TableMetadata.FieldMetadatas.Count) do - begin - FieldMetadata := TableMetadata.FieldMetadatas[J]; - if FieldMetadata.ExternalTableName <> '' then - begin - try - Execute(Generator.GenerateDropExternalTableSQL(FieldMetadata.ExternalTableName)); - except - end; - end; - end; - Execute(Generator.GenerateCreateTableSQL(TableMetadata)); - for J := 0 to Pred(TableMetadata.FieldMetadatas.Count) do - begin - FieldMetadata := TableMetadata.FieldMetadatas[J]; - if FieldMetadata.ExternalTableName <> '' then - Execute(Generator.GenerateCreateExternalTableSQL(FieldMetadata.ExternalTableName)); - end; with TableMetadata do for J := 0 to Pred(IndexMetadatas.Count) do begin --- 13200,13206 ---- except end; Execute(Generator.GenerateCreateTableSQL(TableMetadata)); with TableMetadata do + begin for J := 0 to Pred(IndexMetadatas.Count) do begin *************** *** 13280,13284 **** --- 13209,13215 ---- Execute(Generator.GenerateCreateIndexSQL(IndexMetadata)); end; + end; end; + end; end; *************** *** 15265,15269 **** --- 15196,15230 ---- I: Integer; TableMetadata: TInstantTableMetadata; + AttributeMetadata: TInstantAttributeMetadata; Options: TInstantFieldOptions; + + // Adds a table metadata definition matching AttributeMetadata, which + // must have StorageKind = skEmbedded. + procedure AddExternalTableMetadata; + var + TableMetadata: TInstantTableMetadata; + begin + TableMetadata := ATableMetadatas.Add; + with TableMetadata do + begin + Name := AttributeMetadata.ExternalStorageName; + // The structure of an external table is fixed. + FieldMetadatas.AddFieldMetadata(InstantIdFieldName, Scheme.IdDataType, + Scheme.IdSize, [foRequired, foIndexed]); + FieldMetadatas.AddFieldMetadata(InstantParentClassFieldName, dtString, + InstantDefaultFieldSize); + FieldMetadatas.AddFieldMetadata(InstantParentIdFieldName, Scheme.IdDataType, + Scheme.IdSize); + FieldMetadatas.AddFieldMetadata(InstantChildClassFieldName, dtString, + InstantDefaultFieldSize); + FieldMetadatas.AddFieldMetadata(InstantChildIdFieldName, Scheme.IdDataType, + Scheme.IdSize); + FieldMetadatas.AddFieldMetadata(InstantSequenceNoFieldName, dtInteger, + InstantDefaultFieldSize); + IndexMetadatas.AddIndexMetadata('', InstantIdFieldName, + [ixPrimary, ixUnique]); + end; + end; + begin TableMetadata := ATableMetadatas.Add; *************** *** 15272,15337 **** Name := Map.Name; ! { Class + Id + UpdateCount} FieldMetadatas.AddFieldMetadata(InstantClassFieldName, dtString, ! InstantDefaultFieldSize, atUnknown, [foRequired, foIndexed]); FieldMetadatas.AddFieldMetadata(InstantIdFieldName, Scheme.IdDataType, ! Scheme.IdSize, atUnknown, [foRequired, foIndexed]); ! FieldMetadatas.AddFieldMetadata(InstantUpdateCountFieldName, dtInteger, 0, ! atUnknown); IndexMetadatas.AddIndexMetadata('', InstantIndexFieldNames, [ixPrimary, ixUnique]); ! { Other } for I := 0 to Pred(Map.Count) do ! with Map[I] do begin ! if AttributeType = atReference then ! begin ! FieldMetadatas.AddFieldMetadata(FieldName + InstantClassFieldName, ! Scheme.AttributeTypeToDataType(atString), InstantDefaultFieldSize, ! AttributeType); ! FieldMetadatas.AddFieldMetadata(FieldName + InstantIdFieldName, ! Scheme.IdDataType, Scheme.IdSize, AttributeType); ! end ! else if AttributeType = atPart then begin ! if StorageKind = skEmbedded then ! FieldMetadatas.AddFieldMetadata(FieldName, ! Scheme.AttributeTypeToDataType(AttributeType), ! Size, AttributeType, []) ! else if StorageKind = skExternal then ! begin ! FieldMetadatas.AddFieldMetadata(FieldName + InstantClassFieldName, ! Scheme.AttributeTypeToDataType(atString), InstantDefaultFieldSize, ! AttributeType); ! FieldMetadatas.AddFieldMetadata(FieldName + InstantIdFieldName, ! Scheme.IdDataType, Scheme.IdSize, AttributeType); ! end; ! end ! else if AttributeType in [atParts, atReferences] then begin ! if StorageKind = skEmbedded then ! FieldMetadatas.AddFieldMetadata(FieldName, ! Scheme.AttributeTypeToDataType(AttributeType), Size, ! AttributeType, []) ! else if StorageKind = skExternal then ! FieldMetadatas.AddFieldMetadata(FieldName, ! Scheme.AttributeTypeToDataType(AttributeType), ! Size, AttributeType, [], ExternalStorageName) end else ! begin ! if IsIndexed then ! begin ! IndexMetadatas.AddIndexMetadata(Map.Name + FieldName, FieldName, []); ! Options := [foIndexed]; ! end ! else ! Options := []; ! FieldMetadatas.AddFieldMetadata(FieldName, ! Scheme.AttributeTypeToDataType(AttributeType), ! Size, AttributeType, Options); ! end; end; end; end; --- 15233,15294 ---- Name := Map.Name; ! // Class + Id + UpdateCount. FieldMetadatas.AddFieldMetadata(InstantClassFieldName, dtString, ! InstantDefaultFieldSize, [foRequired, foIndexed]); FieldMetadatas.AddFieldMetadata(InstantIdFieldName, Scheme.IdDataType, ! Scheme.IdSize, [foRequired, foIndexed]); ! FieldMetadatas.AddFieldMetadata(InstantUpdateCountFieldName, dtInteger, 0); IndexMetadatas.AddIndexMetadata('', InstantIndexFieldNames, [ixPrimary, ixUnique]); ! // Other. for I := 0 to Pred(Map.Count) do ! begin ! AttributeMetadata := Map[I]; ! if AttributeMetadata.AttributeType = atReference then begin ! FieldMetadatas.AddFieldMetadata(AttributeMetadata.FieldName + InstantClassFieldName, ! Scheme.AttributeTypeToDataType(atString), InstantDefaultFieldSize); ! FieldMetadatas.AddFieldMetadata(AttributeMetadata.FieldName + InstantIdFieldName, ! Scheme.IdDataType, Scheme.IdSize); ! end ! else if AttributeMetadata.AttributeType = atPart then ! begin ! if AttributeMetadata.StorageKind = skEmbedded then ! FieldMetadatas.AddFieldMetadata(AttributeMetadata.FieldName, ! Scheme.AttributeTypeToDataType(AttributeMetadata.AttributeType), ! AttributeMetadata.Size) ! else if AttributeMetadata.StorageKind = skExternal then begin ! FieldMetadatas.AddFieldMetadata(AttributeMetadata.FieldName + InstantClassFieldName, ! Scheme.AttributeTypeToDataType(atString), InstantDefaultFieldSize); ! FieldMetadatas.AddFieldMetadata(AttributeMetadata.FieldName + InstantIdFieldName, ! Scheme.IdDataType, Scheme.IdSize); ! end; ! end ! else if AttributeMetadata.AttributeType in [atParts, atReferences] then ! begin ! if AttributeMetadata.StorageKind = skEmbedded then ! FieldMetadatas.AddFieldMetadata(AttributeMetadata.FieldName, ! Scheme.AttributeTypeToDataType(AttributeMetadata.AttributeType), ! AttributeMetadata.Size) ! else if AttributeMetadata.StorageKind = skExternal then ! AddExternalTableMetadata; ! end ! else ! begin ! if AttributeMetadata.IsIndexed then begin ! IndexMetadatas.AddIndexMetadata(Map.Name + ! AttributeMetadata.FieldName, AttributeMetadata.FieldName, []); ! Options := [foIndexed]; end else ! Options := []; ! FieldMetadatas.AddFieldMetadata(AttributeMetadata.FieldName, ! Scheme.AttributeTypeToDataType(AttributeMetadata.AttributeType), ! AttributeMetadata.Size, Options); end; + end; end; end; |
|
From: Nando D. <na...@us...> - 2005-07-15 10:26:25
|
Update of /cvsroot/instantobjects/Source/Catalogs/MSSql In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27257/Catalogs/MSSql Modified Files: InstantMSSqlCatalog.pas Log Message: minor cleanup Index: InstantMSSqlCatalog.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Catalogs/MSSql/InstantMSSqlCatalog.pas,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** InstantMSSqlCatalog.pas 1 Jul 2005 23:29:23 -0000 1.1 --- InstantMSSqlCatalog.pas 15 Jul 2005 10:26:15 -0000 1.2 *************** *** 24,28 **** * the Initial Developer. All Rights Reserved. * ! * Contributor(s): * * ***** END LICENSE BLOCK ***** *) --- 24,28 ---- * the Initial Developer. All Rights Reserved. * ! * Contributor(s): Nando Dessena * * ***** END LICENSE BLOCK ***** *) *************** *** 154,162 **** if TableMetadata.IndexMetadatas.IsFieldIndexed(FieldMetadata) then FieldMetadata.Options := FieldMetadata.Options + [foIndexed]; ! { TODO : support ExternalTableName? } ! if FieldMetadata.DataType = dtString then ! FieldMetadata.Size := Fields.FieldByName('COLUMN_LENGTH').AsInteger ! else ! FieldMetadata.Size := Fields.FieldByName('COLUMN_LENGTH').AsInteger; Fields.Next; end; --- 154,158 ---- if TableMetadata.IndexMetadatas.IsFieldIndexed(FieldMetadata) then FieldMetadata.Options := FieldMetadata.Options + [foIndexed]; ! FieldMetadata.Size := Fields.FieldByName('COLUMN_LENGTH').AsInteger; Fields.Next; end; |
|
From: Nando D. <na...@us...> - 2005-07-15 10:25:12
|
Update of /cvsroot/instantobjects/Source/Catalogs/IBFb In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27085/Catalogs/IBFb Modified Files: InstantIBFbCatalog.pas Log Message: obsolete comment removed Index: InstantIBFbCatalog.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Catalogs/IBFb/InstantIBFbCatalog.pas,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** InstantIBFbCatalog.pas 13 Jul 2005 09:47:50 -0000 1.3 --- InstantIBFbCatalog.pas 15 Jul 2005 10:25:03 -0000 1.4 *************** *** 125,129 **** if TableMetadata.IndexMetadatas.IsFieldIndexed(FieldMetadata) then FieldMetadata.Options := FieldMetadata.Options + [foIndexed]; - { TODO : support ExternalTableName? } if FieldMetadata.DataType = dtString then FieldMetadata.Size := Fields.FieldByName('RDB$CHARACTER_LENGTH').AsInteger --- 125,128 ---- |
|
From: Nando D. <na...@us...> - 2005-07-15 10:24:24
|
Update of /cvsroot/instantobjects/Source/Brokers/DBX In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26968/Brokers/DBX Modified Files: InstantDBX.pas Log Message: support for altering indexes in database evolution Index: InstantDBX.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/DBX/InstantDBX.pas,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** InstantDBX.pas 1 Jul 2005 23:29:22 -0000 1.7 --- InstantDBX.pas 15 Jul 2005 10:24:14 -0000 1.8 *************** *** 417,420 **** --- 417,422 ---- else if CommandType = ctAddIndex then Result := TInstantDBBuildAddIndexSQLCommand.Create(CommandType, Connector) + else if CommandType = ctAlterIndex then + Result := TInstantDBBuildAlterIndexSQLCommand.Create(CommandType, Connector) else if CommandType = ctDropIndex then Result := TInstantDBBuildDropIndexSQLCommand.Create(CommandType, Connector) |
|
From: Steven M. <sr...@us...> - 2005-07-14 07:38:44
|
Update of /cvsroot/instantobjects/Source/Core In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3107 Modified Files: InstantPersistence.pas Log Message: Revise code for InstantElement.DetachObject. Index: InstantPersistence.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantPersistence.pas,v retrieving revision 1.46 retrieving revision 1.47 diff -C2 -d -r1.46 -r1.47 *** InstantPersistence.pas 13 Jul 2005 09:49:12 -0000 1.46 --- InstantPersistence.pas 14 Jul 2005 07:38:35 -0000 1.47 *************** *** 5894,5903 **** function TInstantElement.DetachObject(AObject: TInstantObject): Boolean; begin ! if Value = AObject then ! begin Value := nil; - Result := True; - end else - Result := False; end; --- 5894,5900 ---- function TInstantElement.DetachObject(AObject: TInstantObject): Boolean; begin ! Result := Value = AObject; ! if Result then Value := nil; end; |
|
From: Steven M. <sr...@us...> - 2005-07-14 07:36:48
|
Update of /cvsroot/instantobjects/Source/Catalogs/MSSql/D7 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2859 Removed Files: IOMSSqlCatalog_D5.dpk Log Message: no message --- IOMSSqlCatalog_D5.dpk DELETED --- |
|
From: Steven M. <sr...@us...> - 2005-07-14 07:35:56
|
Update of /cvsroot/instantobjects/Source/Catalogs/IBFb/D6 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2693 Removed Files: IOIBFbCatalog_D5.dpk Log Message: no message --- IOIBFbCatalog_D5.dpk DELETED --- |
|
From: Joao M. <jcm...@us...> - 2005-07-13 23:18:44
|
Update of /cvsroot/instantobjects/Source/Core In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20827/Core Modified Files: InstantPresentation.pas Log Message: IsChanged property implementation for TInstantCustomExposer and decendants. Index: InstantPresentation.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantPresentation.pas,v retrieving revision 1.18 retrieving revision 1.19 diff -C2 -d -r1.18 -r1.19 *** InstantPresentation.pas 5 Jun 2005 20:30:00 -0000 1.18 --- InstantPresentation.pas 13 Jul 2005 23:18:29 -0000 1.19 *************** *** 196,200 **** FFieldOptions: TInstantFieldOptions; FFilterBuffer: PChar; - FIsChanged: Boolean; FIsOpen: Boolean; FLimited: Boolean; --- 196,199 ---- *************** *** 307,310 **** --- 306,310 ---- function GetCurrentObject: TObject; virtual; function GetFieldOffset(const Field: TField): Integer; + function GetIsChanged: Boolean; virtual; function GetRecNo: Integer; override; function GetRecord(Buffer: PChar; GetMode: TGetMode; *************** *** 416,420 **** property CurrentObject: TObject read GetCurrentObject; property HasSubject: Boolean read GetHasSubject; ! property IsChanged: Boolean read FIsChanged; property ObjectCount: Integer read GetObjectCount; property Objects[Index: Integer]: TObject read GetObjects; --- 416,420 ---- property CurrentObject: TObject read GetCurrentObject; property HasSubject: Boolean read GetHasSubject; ! property IsChanged: Boolean read GetIsChanged; property ObjectCount: Integer read GetObjectCount; property Objects[Index: Integer]: TObject read GetObjects; *************** *** 495,498 **** --- 495,499 ---- protected procedure DataEvent(Event: TDataEvent; Info: Longint); override; + function GetIsChanged: Boolean; override; function GetSubject: TObject; override; procedure MasterChanged(Sender: TObject); *************** *** 567,570 **** --- 568,572 ---- function CanAutoOpen: Boolean; procedure DefineProperties(Filer: TFiler); override; + function GetIsChanged: Boolean; override; function GetSubject: TObject; override; function HasCommand: Boolean; *************** *** 2258,2261 **** --- 2260,2268 ---- end; + function TInstantCustomExposer.GetIsChanged: Boolean; + begin + Result := False; + end; + function TInstantCustomExposer.GetLimited: Boolean; begin *************** *** 2624,2627 **** --- 2631,2636 ---- InternalRemoveObject(FNewObject); end; + if (State = dsEdit) and (CurrentObject is TInstantObject) then + TInstantObject(CurrentObject).IsChanged := False; if ObjectCount = 0 then ClearRecord(ActiveBuffer); *************** *** 3654,3657 **** --- 3663,3674 ---- end; + function TInstantExposer.GetIsChanged: Boolean; + begin + if HasSubject and (Subject is TInstantObject) then + Result := TInstantObject(Subject).IsChanged + else + Result := False; + end; + function TInstantExposer.GetSubject: TObject; begin *************** *** 3930,3933 **** --- 3947,3965 ---- end; + function TInstantSelector.GetIsChanged: Boolean; + var + I: Integer; + begin + Result := False; + for I := 0 to Pred(Query.ObjectCount) do + if Query.Objects[I] is TInstantObject then + begin + Result := TInstantObject(Query.Objects[I]).IsChanged; + if Result then + Break; + end; + { TODO : Implement check of deleted records after patch bug #1232576 } + end; + function TInstantSelector.GetSubject: TObject; begin |
