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: Steven M. <sr...@us...> - 2005-09-08 07:22:25
|
Update of /cvsroot/instantobjects/Source/Catalogs/XML/D7 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7895/D7 Log Message: Directory /cvsroot/instantobjects/Source/Catalogs/XML/D7 added to the repository |
|
From: Steven M. <sr...@us...> - 2005-09-08 07:22:15
|
Update of /cvsroot/instantobjects/Source/Catalogs/XML/D6 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7851/D6 Log Message: Directory /cvsroot/instantobjects/Source/Catalogs/XML/D6 added to the repository |
|
From: Steven M. <sr...@us...> - 2005-09-08 07:22:02
|
Update of /cvsroot/instantobjects/Source/Catalogs/XML/D5 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7823/D5 Log Message: Directory /cvsroot/instantobjects/Source/Catalogs/XML/D5 added to the repository |
|
From: Steven M. <sr...@us...> - 2005-09-08 07:21:54
|
Update of /cvsroot/instantobjects/Source/Catalogs/XML/D2005 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7809/D2005 Log Message: Directory /cvsroot/instantobjects/Source/Catalogs/XML/D2005 added to the repository |
|
From: Steven M. <sr...@us...> - 2005-09-08 07:21:43
|
Update of /cvsroot/instantobjects/Source/Catalogs/XML In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7753/XML Log Message: Directory /cvsroot/instantobjects/Source/Catalogs/XML added to the repository |
|
From: Steven M. <sr...@us...> - 2005-09-08 07:21:20
|
Update of /cvsroot/instantobjects/Source/Catalogs/NexusDB/D6 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7692/D6 Modified Files: IONexusDBCatalog.dpk Log Message: Changed relative paths to use '\' in Windows dpk files. Index: IONexusDBCatalog.dpk =================================================================== RCS file: /cvsroot/instantobjects/Source/Catalogs/NexusDB/D6/IONexusDBCatalog.dpk,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** IONexusDBCatalog.dpk 10 Aug 2005 06:11:40 -0000 1.1 --- IONexusDBCatalog.dpk 8 Sep 2005 07:21:08 -0000 1.2 *************** *** 1,5 **** package IONexusDBCatalog; ! {$I ../../../InstantVersion.inc} {$ALIGN 8} --- 1,5 ---- package IONexusDBCatalog; ! {$I '..\..\..\InstantVersion.inc'} {$ALIGN 8} |
|
From: Steven M. <sr...@us...> - 2005-09-08 07:21:20
|
Update of /cvsroot/instantobjects/Source/Catalogs/NexusDB/D2005 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7692/D2005 Modified Files: IONexusDBCatalog.dpk Log Message: Changed relative paths to use '\' in Windows dpk files. Index: IONexusDBCatalog.dpk =================================================================== RCS file: /cvsroot/instantobjects/Source/Catalogs/NexusDB/D2005/IONexusDBCatalog.dpk,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** IONexusDBCatalog.dpk 10 Aug 2005 06:11:40 -0000 1.1 --- IONexusDBCatalog.dpk 8 Sep 2005 07:21:07 -0000 1.2 *************** *** 1,5 **** package IONexusDBCatalog; ! {$I ../../../InstantVersion.inc} {$ALIGN 8} --- 1,5 ---- package IONexusDBCatalog; ! {$I '..\..\..\InstantVersion.inc'} {$ALIGN 8} |
|
From: Steven M. <sr...@us...> - 2005-09-08 07:21:20
|
Update of /cvsroot/instantobjects/Source/Catalogs/NexusDB/D5 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7692/D5 Modified Files: IONexusDBCatalog_D5.dpk Log Message: Changed relative paths to use '\' in Windows dpk files. Index: IONexusDBCatalog_D5.dpk =================================================================== RCS file: /cvsroot/instantobjects/Source/Catalogs/NexusDB/D5/IONexusDBCatalog_D5.dpk,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** IONexusDBCatalog_D5.dpk 10 Aug 2005 06:11:40 -0000 1.1 --- IONexusDBCatalog_D5.dpk 8 Sep 2005 07:21:07 -0000 1.2 *************** *** 1,5 **** package IONexusDBCatalog_D5; ! {$I ../../../InstantVersion.inc} {$ALIGN ON} --- 1,5 ---- package IONexusDBCatalog_D5; ! {$I '..\..\..\InstantVersion.inc'} {$ALIGN ON} |
|
From: Steven M. <sr...@us...> - 2005-09-08 07:19:49
|
Update of /cvsroot/instantobjects/Source/Catalogs/MSSql/D7 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7387/D7 Modified Files: IOMSSqlCatalog.dpk Log Message: Changed relative paths to use '\' in Windows dpk files. Index: IOMSSqlCatalog.dpk =================================================================== RCS file: /cvsroot/instantobjects/Source/Catalogs/MSSql/D7/IOMSSqlCatalog.dpk,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** IOMSSqlCatalog.dpk 30 Jul 2005 06:31:48 -0000 1.3 --- IOMSSqlCatalog.dpk 8 Sep 2005 07:19:41 -0000 1.4 *************** *** 1,5 **** package IOMSSqlCatalog; ! {$I ../../../InstantVersion.inc} {$ALIGN 8} --- 1,5 ---- package IOMSSqlCatalog; ! {$I '..\..\..\InstantVersion.inc'} {$ALIGN 8} |
|
From: Steven M. <sr...@us...> - 2005-09-08 07:19:49
|
Update of /cvsroot/instantobjects/Source/Catalogs/MSSql/D6 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7387/D6 Modified Files: IOMSSqlCatalog.dpk Log Message: Changed relative paths to use '\' in Windows dpk files. Index: IOMSSqlCatalog.dpk =================================================================== RCS file: /cvsroot/instantobjects/Source/Catalogs/MSSql/D6/IOMSSqlCatalog.dpk,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** IOMSSqlCatalog.dpk 24 Jul 2005 16:34:53 -0000 1.2 --- IOMSSqlCatalog.dpk 8 Sep 2005 07:19:40 -0000 1.3 *************** *** 1,5 **** package IOMSSqlCatalog; ! {$I '../../../InstantVersion.inc'} {$ALIGN 8} --- 1,5 ---- package IOMSSqlCatalog; ! {$I '..\..\..\InstantVersion.inc'} {$ALIGN 8} |
|
From: Steven M. <sr...@us...> - 2005-09-08 07:19:49
|
Update of /cvsroot/instantobjects/Source/Catalogs/MSSql/D5 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7387/D5 Modified Files: IOMSSqlCatalog_D5.dpk Log Message: Changed relative paths to use '\' in Windows dpk files. Index: IOMSSqlCatalog_D5.dpk =================================================================== RCS file: /cvsroot/instantobjects/Source/Catalogs/MSSql/D5/IOMSSqlCatalog_D5.dpk,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** IOMSSqlCatalog_D5.dpk 4 Aug 2005 11:19:55 -0000 1.3 --- IOMSSqlCatalog_D5.dpk 8 Sep 2005 07:19:40 -0000 1.4 *************** *** 1,5 **** package IOMSSqlCatalog_D5; ! {$I '../../../InstantVersion.inc'} {$ALIGN ON} --- 1,5 ---- package IOMSSqlCatalog_D5; ! {$I '..\..\..\InstantVersion.inc'} {$ALIGN ON} |
|
From: Steven M. <sr...@us...> - 2005-09-07 23:37:31
|
Update of /cvsroot/instantobjects/Source/Catalogs/IBFb/D2005 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24239/D2005 Modified Files: IOIBFbCatalog.dpk Log Message: Changed relative paths to use '\' in Windows dpk files. Index: IOIBFbCatalog.dpk =================================================================== RCS file: /cvsroot/instantobjects/Source/Catalogs/IBFb/D2005/IOIBFbCatalog.dpk,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** IOIBFbCatalog.dpk 30 Jul 2005 06:30:11 -0000 1.1 --- IOIBFbCatalog.dpk 7 Sep 2005 23:37:16 -0000 1.2 *************** *** 1,5 **** package IOIBFbCatalog; ! {$I '../../../InstantVersion.inc'} {$ALIGN 8} --- 1,5 ---- package IOIBFbCatalog; ! {$I '..\..\..\InstantVersion.inc'} {$ALIGN 8} |
|
From: Steven M. <sr...@us...> - 2005-09-07 23:37:31
|
Update of /cvsroot/instantobjects/Source/Catalogs/IBFb/D6 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24239/D6 Modified Files: IOIBFbCatalog.dpk Log Message: Changed relative paths to use '\' in Windows dpk files. Index: IOIBFbCatalog.dpk =================================================================== RCS file: /cvsroot/instantobjects/Source/Catalogs/IBFb/D6/IOIBFbCatalog.dpk,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** IOIBFbCatalog.dpk 24 Jul 2005 16:34:52 -0000 1.2 --- IOIBFbCatalog.dpk 7 Sep 2005 23:37:16 -0000 1.3 *************** *** 1,5 **** package IOIBFbCatalog; ! {$I '../../../InstantVersion.inc'} {$ALIGN 8} --- 1,5 ---- package IOIBFbCatalog; ! {$I '..\..\..\InstantVersion.inc'} {$ALIGN 8} |
|
From: Steven M. <sr...@us...> - 2005-09-07 23:37:30
|
Update of /cvsroot/instantobjects/Source/Catalogs/IBFb/D5 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24239/D5 Modified Files: IOIBFbCatalog_D5.dpk Log Message: Changed relative paths to use '\' in Windows dpk files. Index: IOIBFbCatalog_D5.dpk =================================================================== RCS file: /cvsroot/instantobjects/Source/Catalogs/IBFb/D5/IOIBFbCatalog_D5.dpk,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** IOIBFbCatalog_D5.dpk 4 Aug 2005 11:19:55 -0000 1.3 --- IOIBFbCatalog_D5.dpk 7 Sep 2005 23:37:16 -0000 1.4 *************** *** 1,5 **** package IOIBFbCatalog_D5; ! {$I '../../../InstantVersion.inc'} {$ALIGN ON} --- 1,5 ---- package IOIBFbCatalog_D5; ! {$I '..\..\..\InstantVersion.inc'} {$ALIGN ON} |
|
From: Steven M. <sr...@us...> - 2005-09-07 23:37:30
|
Update of /cvsroot/instantobjects/Source/Catalogs/IBFb/D7 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24239/D7 Modified Files: IOIBFbCatalog.dpk Log Message: Changed relative paths to use '\' in Windows dpk files. Index: IOIBFbCatalog.dpk =================================================================== RCS file: /cvsroot/instantobjects/Source/Catalogs/IBFb/D7/IOIBFbCatalog.dpk,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** IOIBFbCatalog.dpk 30 Jul 2005 06:30:11 -0000 1.3 --- IOIBFbCatalog.dpk 7 Sep 2005 23:37:16 -0000 1.4 *************** *** 1,5 **** package IOIBFbCatalog; ! {$I '../../../InstantVersion.inc'} {$ALIGN 8} --- 1,5 ---- package IOIBFbCatalog; ! {$I '..\..\..\InstantVersion.inc'} {$ALIGN 8} |
|
From: Nando D. <na...@us...> - 2005-09-07 10:52:16
|
Update of /cvsroot/instantobjects/Source/Core In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1638/Core Modified Files: InstantDBBuild.pas InstantDBEvolution.pas InstantPersistence.pas Log Message: Allow for catalogs that don't support reading all metadata (like an XML catalog) Index: InstantDBEvolution.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantDBEvolution.pas,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** InstantDBEvolution.pas 4 Sep 2005 23:15:54 -0000 1.6 --- InstantDBEvolution.pas 7 Sep 2005 10:52:04 -0000 1.7 *************** *** 97,176 **** SourceFieldMetadata, TargetFieldMetadata: TInstantFieldMetadata; SourceIndexMetadata, TargetIndexMetadata: TInstantIndexMetadata; begin ! // Upgrade tables. ! for iTable := 0 to CommandSequence.TargetScheme.TableMetadataCount - 1 do begin ! TargetTableMetadata := CommandSequence.TargetScheme.TableMetadatas[iTable]; ! { TODO : This only works for case-insensitive object names! } ! SourceTableMetadata := ! CommandSequence.SourceScheme.FindTableMetadata(AnsiUpperCase(TargetTableMetadata.Name)); ! if Assigned(SourceTableMetadata) then begin ! // Add missing fields and alter modified fields ! for iField := 0 to TargetTableMetadata.FieldMetadataCount - 1 do begin ! TargetFieldMetadata := TargetTableMetadata.FieldMetadatas[iField]; ! { TODO : This only works for case-insensitive object names! } ! SourceFieldMetadata := SourceTableMetadata.FindFieldMetadata(AnsiUpperCase(TargetFieldMetadata.Name)); ! if Assigned(SourceFieldMetadata) then begin ! if not SourceFieldMetadata.Equals(TargetFieldMetadata) then ! AppendAlterFieldCommand(CommandSequence, SourceFieldMetadata, ! TargetFieldMetadata); ! end ! else ! AppendAddFieldCommand(CommandSequence, TargetFieldMetadata); ! end; ! // Add missing indexes and recreate modified indexes ! for iIndex := 0 to TargetTableMetadata.IndexMetadataCount - 1 do ! begin ! TargetIndexMetadata := TargetTableMetadata.IndexMetadatas[iIndex]; ! if not (ixPrimary in TargetIndexMetadata.Options) then begin ! { TODO : This only works for case-insensitive object names! } ! SourceIndexMetadata := SourceTableMetadata.FindIndexMetadata(AnsiUpperCase(TargetIndexMetadata.Name)); ! if Assigned(SourceIndexMetadata) then begin ! if not SourceIndexMetadata.Equals(TargetIndexMetadata) then ! AppendAlterIndexCommand(CommandSequence, SourceIndexMetadata, ! TargetIndexMetadata); ! end ! else ! AppendAddIndexCommand(CommandSequence, TargetIndexMetadata); end; ! end; ! // Drop deleted indexes ! for iIndex := 0 to SourceTableMetadata.IndexMetadataCount - 1 do ! begin ! SourceIndexMetadata := SourceTableMetadata.IndexMetadatas[iIndex]; ! if not (ixPrimary in SourceIndexMetadata.Options) then begin ! { TODO : This only works for case-insensitive object names! } ! TargetIndexMetadata := TargetTableMetadata.FindIndexMetadata(AnsiUpperCase(SourceIndexMetadata.Name)); ! if not Assigned(TargetIndexMetadata) then ! AppendDropIndexCommand(CommandSequence, SourceIndexMetadata); end; ! end; ! // Drop deleted fields ! for iField := 0 to SourceTableMetadata.FieldMetadataCount - 1 do ! begin ! SourceFieldMetadata := SourceTableMetadata.FieldMetadatas[iField]; ! { TODO : This only works for case-insensitive object names! } ! TargetFieldMetadata := TargetTableMetadata.FindFieldMetadata(AnsiUpperCase(SourceFieldMetadata.Name)); ! if not Assigned(TargetFieldMetadata) then ! AppendDropFieldCommand(CommandSequence, SourceFieldMetadata); ! end; ! end ! else ! AppendAddTableCommand(CommandSequence, TargetTableMetadata); ! end; ! // Drop deleted tables. ! for iTable := 0 to CommandSequence.SourceScheme.TableMetadataCount - 1 do ! begin ! SourceTableMetadata := CommandSequence.SourceScheme.TableMetadatas[iTable]; ! TargetTableMetadata := ! CommandSequence.TargetScheme.FindTableMetadata(SourceTableMetadata.Name); ! if not Assigned(TargetTableMetadata) then ! AppendDropTableCommand(CommandSequence, SourceTableMetadata); end; end; --- 97,207 ---- SourceFieldMetadata, TargetFieldMetadata: TInstantFieldMetadata; SourceIndexMetadata, TargetIndexMetadata: TInstantIndexMetadata; + + function ReadTableInfoSupported: Boolean; + begin + Result := (cfReadTableInfo in CommandSequence.SourceScheme.Catalog.Features) and + (cfReadTableInfo in CommandSequence.TargetScheme.Catalog.Features); + end; + + function ReadColumnInfoSupported: Boolean; + begin + Result := (cfReadColumnInfo in CommandSequence.SourceScheme.Catalog.Features) and + (cfReadColumnInfo in CommandSequence.TargetScheme.Catalog.Features); + end; + + function ReadIndexInfoSupported: Boolean; + begin + Result := (cfReadIndexInfo in CommandSequence.SourceScheme.Catalog.Features) and + (cfReadIndexInfo in CommandSequence.TargetScheme.Catalog.Features); + end; + begin ! if ReadTableInfoSupported then begin ! // Upgrade tables. ! for iTable := 0 to CommandSequence.TargetScheme.TableMetadataCount - 1 do begin ! TargetTableMetadata := CommandSequence.TargetScheme.TableMetadatas[iTable]; ! { TODO : This only works for case-insensitive object names! } ! SourceTableMetadata := ! CommandSequence.SourceScheme.FindTableMetadata(AnsiUpperCase(TargetTableMetadata.Name)); ! if Assigned(SourceTableMetadata) then begin ! if ReadColumnInfoSupported then begin ! // Add missing fields and alter modified fields ! for iField := 0 to TargetTableMetadata.FieldMetadataCount - 1 do ! begin ! TargetFieldMetadata := TargetTableMetadata.FieldMetadatas[iField]; ! { TODO : This only works for case-insensitive object names! } ! SourceFieldMetadata := SourceTableMetadata.FindFieldMetadata(AnsiUpperCase(TargetFieldMetadata.Name)); ! if Assigned(SourceFieldMetadata) then ! begin ! if not SourceFieldMetadata.Equals(TargetFieldMetadata) then ! AppendAlterFieldCommand(CommandSequence, SourceFieldMetadata, ! TargetFieldMetadata); ! end ! else ! AppendAddFieldCommand(CommandSequence, TargetFieldMetadata); ! end; ! end; ! if ReadIndexInfoSupported then begin ! // Add missing indexes and recreate modified indexes ! for iIndex := 0 to TargetTableMetadata.IndexMetadataCount - 1 do begin ! TargetIndexMetadata := TargetTableMetadata.IndexMetadatas[iIndex]; ! if not (ixPrimary in TargetIndexMetadata.Options) then ! begin ! { TODO : This only works for case-insensitive object names! } ! SourceIndexMetadata := SourceTableMetadata.FindIndexMetadata(AnsiUpperCase(TargetIndexMetadata.Name)); ! if Assigned(SourceIndexMetadata) then ! begin ! if not SourceIndexMetadata.Equals(TargetIndexMetadata) then ! AppendAlterIndexCommand(CommandSequence, SourceIndexMetadata, ! TargetIndexMetadata); ! end ! else ! AppendAddIndexCommand(CommandSequence, TargetIndexMetadata); ! end; ! end; ! // Drop deleted indexes ! for iIndex := 0 to SourceTableMetadata.IndexMetadataCount - 1 do ! begin ! SourceIndexMetadata := SourceTableMetadata.IndexMetadatas[iIndex]; ! if not (ixPrimary in SourceIndexMetadata.Options) then ! begin ! { TODO : This only works for case-insensitive object names! } ! TargetIndexMetadata := TargetTableMetadata.FindIndexMetadata(AnsiUpperCase(SourceIndexMetadata.Name)); ! if not Assigned(TargetIndexMetadata) then ! AppendDropIndexCommand(CommandSequence, SourceIndexMetadata); ! end; ! end; end; ! if ReadColumnInfoSupported then begin ! // Drop deleted fields ! for iField := 0 to SourceTableMetadata.FieldMetadataCount - 1 do ! begin ! SourceFieldMetadata := SourceTableMetadata.FieldMetadatas[iField]; ! { TODO : This only works for case-insensitive object names! } ! TargetFieldMetadata := TargetTableMetadata.FindFieldMetadata(AnsiUpperCase(SourceFieldMetadata.Name)); ! if not Assigned(TargetFieldMetadata) then ! AppendDropFieldCommand(CommandSequence, SourceFieldMetadata); ! end; end; ! end ! else ! AppendAddTableCommand(CommandSequence, TargetTableMetadata); ! end; ! // Drop deleted tables. ! for iTable := 0 to CommandSequence.SourceScheme.TableMetadataCount - 1 do ! begin ! SourceTableMetadata := CommandSequence.SourceScheme.TableMetadatas[iTable]; ! TargetTableMetadata := ! CommandSequence.TargetScheme.FindTableMetadata(SourceTableMetadata.Name); ! if not Assigned(TargetTableMetadata) then ! AppendDropTableCommand(CommandSequence, SourceTableMetadata); ! end; end; end; Index: InstantPersistence.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantPersistence.pas,v retrieving revision 1.54 retrieving revision 1.55 diff -C2 -d -r1.54 -r1.55 *** InstantPersistence.pas 4 Sep 2005 23:15:54 -0000 1.54 --- InstantPersistence.pas 7 Sep 2005 10:52:04 -0000 1.55 *************** *** 390,393 **** --- 390,395 ---- end; + TInstantCatalogFeature = (cfReadTableInfo, cfReadColumnInfo, cfReadIndexInfo); + TInstantCatalogFeatures = set of TInstantCatalogFeature; // An object that provides the metadata info used by a TInstantScheme object // to build itself. It abstracts the way the information is fetched and its *************** *** 397,404 **** // Scheme.Catalog := Broker.CreateCatalog(Scheme); // and the object ownership is transferred to Scheme, which is then ! // responsible for destroying the catalog object. TInstantCatalog = class private FScheme: TInstantScheme; public // Creates an instance and binds it to the specified TInstantScheme object. --- 399,408 ---- // Scheme.Catalog := Broker.CreateCatalog(Scheme); // and the object ownership is transferred to Scheme, which is then ! // responsible for destroying the catalog object. TInstantCatalog = class private FScheme: TInstantScheme; + protected + function GetFeatures: TInstantCatalogFeatures; virtual; public // Creates an instance and binds it to the specified TInstantScheme object. *************** *** 411,414 **** --- 415,422 ---- procedure InitTableMetadatas(ATableMetadatas: TInstantTableMetadatas); virtual; abstract; + // Returns a set of supported features. The predefined implementation + // says that the catalog support everything; derived classes might not + // support all features. + property Features: TInstantCatalogFeatures read GetFeatures; end; *************** *** 15333,15336 **** --- 15341,15349 ---- end; + function TInstantCatalog.GetFeatures: TInstantCatalogFeatures; + begin + Result := [cfReadTableInfo, cfReadColumnInfo, cfReadIndexInfo]; + end; + { TInstantSQLBrokerCatalog } Index: InstantDBBuild.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Core/InstantDBBuild.pas,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** InstantDBBuild.pas 4 Sep 2005 23:15:54 -0000 1.8 --- InstantDBBuild.pas 7 Sep 2005 10:52:04 -0000 1.9 *************** *** 591,609 **** begin // Recreate tables. ! for iTable := 0 to CommandSequence.TargetScheme.TableMetadataCount - 1 do begin ! TargetTableMetadata := CommandSequence.TargetScheme.TableMetadatas[iTable]; ! { TODO : This only works for case-insensitive object names! } ! SourceTableMetadata := ! CommandSequence.SourceScheme.FindTableMetadata(AnsiUpperCase(TargetTableMetadata.Name)); ! if Assigned(SourceTableMetadata) then ! AppendDropTableCommand(CommandSequence, TargetTableMetadata); ! AppendAddTableCommand(CommandSequence, TargetTableMetadata); ! // Add missing indexes and recreate modified indexes ! for iIndex := 0 to TargetTableMetadata.IndexMetadataCount - 1 do begin ! TargetIndexMetadata := TargetTableMetadata.IndexMetadatas[iIndex]; ! if not (ixPrimary in TargetIndexMetadata.Options) then ! AppendAddIndexCommand(CommandSequence, TargetIndexMetadata); end; end; --- 591,617 ---- begin // Recreate tables. ! if (cfReadTableInfo in CommandSequence.SourceScheme.Catalog.Features) and ! (cfReadTableInfo in CommandSequence.TargetScheme.Catalog.Features) then begin ! for iTable := 0 to CommandSequence.TargetScheme.TableMetadataCount - 1 do begin ! TargetTableMetadata := CommandSequence.TargetScheme.TableMetadatas[iTable]; ! { TODO : This only works for case-insensitive object names! } ! SourceTableMetadata := ! CommandSequence.SourceScheme.FindTableMetadata(AnsiUpperCase(TargetTableMetadata.Name)); ! if Assigned(SourceTableMetadata) then ! AppendDropTableCommand(CommandSequence, TargetTableMetadata); ! AppendAddTableCommand(CommandSequence, TargetTableMetadata); ! // Recreate indexes ! if (cfReadIndexInfo in CommandSequence.SourceScheme.Catalog.Features) and ! (cfReadIndexInfo in CommandSequence.TargetScheme.Catalog.Features) then ! begin ! for iIndex := 0 to TargetTableMetadata.IndexMetadataCount - 1 do ! begin ! TargetIndexMetadata := TargetTableMetadata.IndexMetadatas[iIndex]; ! if not (ixPrimary in TargetIndexMetadata.Options) then ! AppendAddIndexCommand(CommandSequence, TargetIndexMetadata); ! end; ! end; end; end; |
|
From: Steven M. <sr...@us...> - 2005-09-07 06:56:22
|
Update of /cvsroot/instantobjects/Source/Design In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22929 Modified Files: InstantAttributeEditor.pas InstantAttributeEditor.dfm Log Message: Reversal of previous change for Attribute Editor. An empty Size entry for String and Memo attributes DOES NOT disable the OK button (ie Size is not a required entry). Index: InstantAttributeEditor.dfm =================================================================== RCS file: /cvsroot/instantobjects/Source/Design/InstantAttributeEditor.dfm,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** InstantAttributeEditor.dfm 7 Sep 2005 04:18:58 -0000 1.10 --- InstantAttributeEditor.dfm 7 Sep 2005 06:56:14 -0000 1.11 *************** *** 134,138 **** DataSource = SubjectSource TabOrder = 3 - OnChange = SizeEditChange end object ExternalStorageNameEdit: TDBEdit --- 134,137 ---- Index: InstantAttributeEditor.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Design/InstantAttributeEditor.pas,v retrieving revision 1.20 retrieving revision 1.21 diff -C2 -d -r1.20 -r1.21 *** InstantAttributeEditor.pas 7 Sep 2005 04:18:58 -0000 1.20 --- InstantAttributeEditor.pas 7 Sep 2005 06:56:14 -0000 1.21 *************** *** 115,119 **** procedure StorageNameEditChange(Sender: TObject); procedure AutoExternalStorageNameCheckBoxClick(Sender: TObject); - procedure SizeEditChange(Sender: TObject); private FBaseClassStorageName: string; --- 115,118 ---- *************** *** 498,507 **** var ! HasName, HasSize, HasClass, IsComplex, IsContainer, CanBeExternal, CanHaveStorageName, IsMaskable, IsString, IsValid: Boolean; begin CanBeExternal := False; CanHaveStorageName := True; - HasSize := False; IsComplex := False; IsMaskable := False; --- 497,505 ---- var ! HasName, HasClass, IsComplex, IsContainer, CanBeExternal, CanHaveStorageName, IsMaskable, IsString, IsValid: Boolean; begin CanBeExternal := False; CanHaveStorageName := True; IsComplex := False; IsMaskable := False; *************** *** 516,520 **** if Subject.AttributeType = atPart then Subject.ExternalStorageName := ''; - HasSize := Subject.Metadata.Size > 0; IsComplex := Subject.IsComplex; IsMaskable := Subject.AttributeType in [atString, atMemo, atFloat, --- 514,517 ---- *************** *** 529,534 **** HasClass := ObjectClassEdit.Text <> ''; ! IsValid := HasName and (not IsComplex or HasClass) and ! (not IsString or HasSize); DisableSubControls(DefinitionSheet, Limited); --- 526,530 ---- HasClass := ObjectClassEdit.Text <> ''; ! IsValid := HasName and (not IsComplex or HasClass); DisableSubControls(DefinitionSheet, Limited); *************** *** 627,636 **** end; - procedure TInstantAttributeEditorForm.SizeEditChange(Sender: TObject); - begin - SubjectExposer.AssignFieldValue(SizeEdit.Field, SizeEdit.Text); - UpdateControls; - end; - end. --- 623,626 ---- |
|
From: Steven M. <sr...@us...> - 2005-09-07 04:19:06
|
Update of /cvsroot/instantobjects/Source/Design In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32441 Modified Files: InstantAttributeEditor.dfm InstantClassEditor.pas InstantAttributeEditor.pas Log Message: 1. Fix for bug [ 1242852 ] Attribute Editor access options not stored correctly. The options on the access-tab of the attribute editor are not correctly saved. If you create a new attribute and set e.g. the "Indexed" and "Required" option, it's not stored in the model. You must first save the attribute then you can reopen it and set the options. 2. For Attribute Editor. Correct visibility is now shown when editing existing attributes. 3. For Attribute Editor. An empty Size entry for String and Memo attributes disables the OK button instead of throwing an exception. Index: InstantAttributeEditor.dfm =================================================================== RCS file: /cvsroot/instantobjects/Source/Design/InstantAttributeEditor.dfm,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** InstantAttributeEditor.dfm 15 Aug 2005 06:56:20 -0000 1.9 --- InstantAttributeEditor.dfm 7 Sep 2005 04:18:58 -0000 1.10 *************** *** 134,137 **** --- 134,138 ---- DataSource = SubjectSource TabOrder = 3 + OnChange = SizeEditChange end object ExternalStorageNameEdit: TDBEdit Index: InstantAttributeEditor.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Design/InstantAttributeEditor.pas,v retrieving revision 1.19 retrieving revision 1.20 diff -C2 -d -r1.19 -r1.20 *** InstantAttributeEditor.pas 4 Sep 2005 23:15:54 -0000 1.19 --- InstantAttributeEditor.pas 7 Sep 2005 04:18:58 -0000 1.20 *************** *** 115,118 **** --- 115,119 ---- procedure StorageNameEditChange(Sender: TObject); procedure AutoExternalStorageNameCheckBoxClick(Sender: TObject); + procedure SizeEditChange(Sender: TObject); private FBaseClassStorageName: string; *************** *** 270,273 **** --- 271,275 ---- var I: Integer; + S: String; begin SubjectExposer.GetFieldStrings(VisibilityEdit.Field, VisibilityEdit.Items); *************** *** 275,278 **** --- 277,281 ---- if I <> -1 then VisibilityEdit.Items.Delete(I); + if Assigned(Subject) and Subject.IsContainer then begin *************** *** 281,285 **** VisibilityEdit.Items.Delete(I); end; ! if Assigned(VisibilityEdit.Field) then VisibilityEdit.ItemIndex := VisibilityEdit.Items.IndexOf(VisibilityEdit.Field.AsString); --- 284,296 ---- VisibilityEdit.Items.Delete(I); end; ! ! if Limited then ! begin ! S := GetEnumName(TypeInfo(TInstantCodeVisibility), ! Ord(Subject.FindValueProp.Visibility)); ! VisibilityEdit.ItemIndex := ! VisibilityEdit.Items.IndexOf(Copy(S, 3, length(S))); ! end ! else if Assigned(VisibilityEdit.Field) then VisibilityEdit.ItemIndex := VisibilityEdit.Items.IndexOf(VisibilityEdit.Field.AsString); *************** *** 339,356 **** end; ! if SizeEdit.Enabled and (SizeEdit.Text = '') then ! begin ! ModalResult := mrNone; ! SizeEdit.SetFocus; ! raise Exception.Create('Attribute size not set'); ! end; ! ! if not Assigned(FModel) then ! // Do not do SubjectExposer.PostChanges when called from ! // ModelMaker, otherwise Container Methods settings for a ! // new attribute are cleared. ! SaveData ! else ! inherited; end; --- 350,354 ---- end; ! inherited; end; *************** *** 361,382 **** end; procedure TInstantAttributeEditorForm.SaveData; procedure SaveOptions; begin ! Subject.IsIndexed := OptionIndexedCheckBox.Checked; ! Subject.IsRequired := OptionRequiredCheckBox.Checked; ! Subject.ReadOnly := OptionReadOnlyCheckBox.Checked; ! Subject.IsDefault := OptionDefaultCheckBox.Checked; end; procedure SaveMethods; begin ! Subject.IncludeAddMethod := MethodAddCheckBox.Checked; ! Subject.IncludeRemoveMethod := MethodRemoveCheckBox.Checked; ! Subject.IncludeInsertMethod := MethodInsertCheckBox.Checked; ! Subject.IncludeDeleteMethod := MethodDeleteCheckBox.Checked; ! Subject.IncludeIndexOfMethod := MethodIndexOfCheckBox.Checked; ! Subject.IncludeClearMethod := MethodClearCheckBox.Checked; end; --- 359,392 ---- end; + // Must update SubjectExposer fields in SaveData so that + // SubjectExposer.PostChanges does not overwrite our changes. procedure TInstantAttributeEditorForm.SaveData; procedure SaveOptions; begin ! SubjectExposer.FieldByName('IsIndexed').AsBoolean := ! OptionIndexedCheckBox.Checked; ! SubjectExposer.FieldByName('IsRequired').AsBoolean := ! OptionRequiredCheckBox.Checked; ! SubjectExposer.FieldByName('ReadOnly').AsBoolean := ! OptionReadOnlyCheckBox.Checked; ! SubjectExposer.FieldByName('IsDefault').AsBoolean := ! OptionDefaultCheckBox.Checked; end; procedure SaveMethods; begin ! SubjectExposer.FieldByName('IncludeAddMethod').AsBoolean := ! MethodAddCheckBox.Checked; ! SubjectExposer.FieldByName('IncludeRemoveMethod').AsBoolean := ! MethodRemoveCheckBox.Checked; ! SubjectExposer.FieldByName('IncludeInsertMethod').AsBoolean := ! MethodInsertCheckBox.Checked; ! SubjectExposer.FieldByName('IncludeDeleteMethod').AsBoolean := ! MethodDeleteCheckBox.Checked; ! SubjectExposer.FieldByName('IncludeIndexOfMethod').AsBoolean := ! MethodIndexOfCheckBox.Checked; ! SubjectExposer.FieldByName('IncludeClearMethod').AsBoolean := ! MethodClearCheckBox.Checked; end; *************** *** 488,510 **** var ! HasName, HasClass, IsComplex, IsContainer, CanBeExternal, IsExternal, ! IsMaskable, IsString, IsValid: Boolean; begin ! CanBeExternal := Subject.AttributeType in [atPart, atParts, atReferences]; ! if not CanBeExternal then ! Subject.StorageKind := skEmbedded; ! if Subject.AttributeType = atPart then ! Subject.ExternalStorageName := ''; HasName := NameEdit.Text <> ''; HasClass := ObjectClassEdit.Text <> ''; - IsComplex := Subject.IsComplex; - IsMaskable := Subject.AttributeType in [atString, atMemo, atFloat, atCurrency, - atInteger]; - IsContainer := Subject.IsContainer; ! IsExternal := Subject.StorageKind = skExternal; ! IsString := Subject.AttributeType in [atString, atMemo]; ! IsValid := HasName and (not IsComplex or HasClass); DisableSubControls(DefinitionSheet, Limited); --- 498,534 ---- var ! HasName, HasSize, HasClass, IsComplex, IsContainer, CanBeExternal, ! CanHaveStorageName, IsMaskable, IsString, IsValid: Boolean; begin ! CanBeExternal := False; ! CanHaveStorageName := True; ! HasSize := False; ! IsComplex := False; ! IsMaskable := False; ! IsContainer := False; ! IsString := False; ! ! if Assigned(Subject) then ! begin ! CanBeExternal := Subject.AttributeType in [atPart, atParts, atReferences]; ! if not CanBeExternal then ! Subject.StorageKind := skEmbedded; ! if Subject.AttributeType = atPart then ! Subject.ExternalStorageName := ''; ! HasSize := Subject.Metadata.Size > 0; ! IsComplex := Subject.IsComplex; ! IsMaskable := Subject.AttributeType in [atString, atMemo, atFloat, ! atCurrency, atInteger]; ! IsContainer := Subject.IsContainer; ! CanHaveStorageName := (Subject.StorageKind <> skExternal) or ! (Subject.AttributeType = atPart); ! IsString := Subject.AttributeType in [atString, atMemo]; ! end; HasName := NameEdit.Text <> ''; HasClass := ObjectClassEdit.Text <> ''; ! IsValid := HasName and (not IsComplex or HasClass) and ! (not IsString or HasSize); DisableSubControls(DefinitionSheet, Limited); *************** *** 528,542 **** EnableCtrl(StorageKindLabel, CanBeExternal); end; ! EnableCtrl(StorageNameLabel, not IsExternal or (Subject.AttributeType = ! atPart)); ! EnableCtrl(StorageNameEdit, not IsExternal or (Subject.AttributeType = ! atPart)); ! EnableCtrl(ExternalStorageNameLabel, IsExternal ! and not (Subject.AttributeType = atPart)); ! EnableCtrl(ExternalStorageNameEdit, IsExternal ! and not (Subject.AttributeType = atPart)); ! EnableCtrl(AutoExternalStorageNameCheckBox, ! ExternalStorageNameEdit.Enabled); EnableCtrl(SizeLabel, IsString); --- 552,561 ---- EnableCtrl(StorageKindLabel, CanBeExternal); end; ! EnableCtrl(StorageNameLabel, CanHaveStorageName); ! EnableCtrl(StorageNameEdit, CanHaveStorageName); ! EnableCtrl(ExternalStorageNameLabel, not CanHaveStorageName); ! EnableCtrl(ExternalStorageNameEdit, not CanHaveStorageName); ! EnableCtrl(AutoExternalStorageNameCheckBox, not CanHaveStorageName); EnableCtrl(SizeLabel, IsString); *************** *** 608,611 **** --- 627,636 ---- end; + procedure TInstantAttributeEditorForm.SizeEditChange(Sender: TObject); + begin + SubjectExposer.AssignFieldValue(SizeEdit.Field, SizeEdit.Text); + UpdateControls; + end; + end. Index: InstantClassEditor.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Design/InstantClassEditor.pas,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -d -r1.11 -r1.12 *** InstantClassEditor.pas 4 Sep 2005 23:15:54 -0000 1.11 --- InstantClassEditor.pas 7 Sep 2005 04:18:58 -0000 1.12 *************** *** 316,321 **** Model := Self.Model; BaseClassStorageName := GetClassStorageName; - Subject := Attribute; Limited := Exists; Result := ShowModal = mrOk; if Result then --- 316,321 ---- Model := Self.Model; BaseClassStorageName := GetClassStorageName; Limited := Exists; + Subject := Attribute; Result := ShowModal = mrOk; if Result then |
|
From: Steven M. <sr...@us...> - 2005-09-06 00:44:06
|
Update of /cvsroot/instantobjects/Source/Design In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14091 Modified Files: InstantReg.pas Log Message: Fix: Change '{$I' to '{$R' typos Index: InstantReg.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Design/InstantReg.pas,v retrieving revision 1.12 retrieving revision 1.13 diff -C2 -d -r1.12 -r1.13 *** InstantReg.pas 5 Sep 2005 21:38:20 -0000 1.12 --- InstantReg.pas 6 Sep 2005 00:43:55 -0000 1.13 *************** *** 45,51 **** {$IFDEF LINUX} ! {$I '../iodesimages.res'} {$ELSE} ! {$I '..\iodesimages.res'} {$ENDIF} --- 45,51 ---- {$IFDEF LINUX} ! {$R '../iodesimages.res'} {$ELSE} ! {$R '..\iodesimages.res'} {$ENDIF} |
|
From: Steven M. <sr...@us...> - 2005-09-05 23:02:06
|
Update of /cvsroot/instantobjects/Source/Catalogs/NexusDB/D7 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21501 Modified Files: IONexusDBCatalog.dpk Log Message: Changed relative paths to use '\' in Windows dpk files. Index: IONexusDBCatalog.dpk =================================================================== RCS file: /cvsroot/instantobjects/Source/Catalogs/NexusDB/D7/IONexusDBCatalog.dpk,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** IONexusDBCatalog.dpk 10 Aug 2005 06:11:41 -0000 1.1 --- IONexusDBCatalog.dpk 5 Sep 2005 23:01:56 -0000 1.2 *************** *** 1,5 **** package IONexusDBCatalog; ! {$I '../../../InstantVersion.inc'} {$ALIGN 8} --- 1,5 ---- package IONexusDBCatalog; ! {$I '..\..\..\InstantVersion.inc'} {$ALIGN 8} |
|
From: Steven M. <sr...@us...> - 2005-09-05 21:38:27
|
Update of /cvsroot/instantobjects/Source/Design In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32351 Modified Files: InstantReg.pas Log Message: Added conditional Linux/Windows compiler directives for: {$R ../iodesimages.res} Index: InstantReg.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Design/InstantReg.pas,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -d -r1.11 -r1.12 *** InstantReg.pas 4 Sep 2005 23:15:54 -0000 1.11 --- InstantReg.pas 5 Sep 2005 21:38:20 -0000 1.12 *************** *** 44,48 **** implementation ! {$R ../iodesimages.res} uses --- 44,52 ---- implementation ! {$IFDEF LINUX} ! {$I '../iodesimages.res'} ! {$ELSE} ! {$I '..\iodesimages.res'} ! {$ENDIF} uses |
|
From: Steven M. <sr...@us...> - 2005-09-05 21:35:21
|
Update of /cvsroot/instantobjects/Source/Catalogs/NexusDB In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31703 Modified Files: InstantNexusDBCatalog.pas Log Message: Changed relative paths to consistently use '\' for Windows. Index: InstantNexusDBCatalog.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Catalogs/NexusDB/InstantNexusDBCatalog.pas,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** InstantNexusDBCatalog.pas 4 Sep 2005 23:15:54 -0000 1.3 --- InstantNexusDBCatalog.pas 5 Sep 2005 21:35:12 -0000 1.4 *************** *** 35,39 **** {$ELSE} {$I '..\..\InstantDefines.inc'} ! {$I ..\..\Brokers/NexusDB/InstantNexusDBDefines.inc} {$ENDIF} --- 35,39 ---- {$ELSE} {$I '..\..\InstantDefines.inc'} ! {$I ..\..\Brokers\NexusDB\InstantNexusDBDefines.inc} {$ENDIF} |
|
From: Steven M. <sr...@us...> - 2005-09-05 21:32:53
|
Update of /cvsroot/instantobjects/Source/Brokers/BDE In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31184 Modified Files: InstantBDE.pas Log Message: Fix minor typo in class tag (comment) Index: InstantBDE.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/BDE/InstantBDE.pas,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** InstantBDE.pas 4 Sep 2005 23:15:53 -0000 1.6 --- InstantBDE.pas 5 Sep 2005 21:32:44 -0000 1.7 *************** *** 700,704 **** end; ! { TInstantDBBuildSQLCommand } function TInstantDBBuildBDECommand.GetBroker: TInstantBDEBroker; --- 700,704 ---- end; ! { TInstantDBBuildBDECommand } function TInstantDBBuildBDECommand.GetBroker: TInstantBDEBroker; |
|
From: Steven M. <sr...@us...> - 2005-09-04 23:16:09
|
Update of /cvsroot/instantobjects/Source/Brokers/UIB In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25205/Brokers/UIB Modified Files: InstantUIB.pas InstantUIBConnection.pas InstantUIBConnectionDefEdit.pas InstantUIBReg.pas Log Message: Add conditional compiler directives to include 'InstantDefines.inc' with appropriate '\' or '/' characters in relative paths for Windows or Linux. Index: InstantUIBConnectionDefEdit.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/UIB/InstantUIBConnectionDefEdit.pas,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** InstantUIBConnectionDefEdit.pas 24 Jul 2005 16:34:51 -0000 1.2 --- InstantUIBConnectionDefEdit.pas 4 Sep 2005 23:15:53 -0000 1.3 *************** *** 28,32 **** --- 28,36 ---- unit InstantUIBConnectionDefEdit; + {$IFDEF LINUX} {$I '../../InstantDefines.inc'} + {$ELSE} + {$I '..\..\InstantDefines.inc'} + {$ENDIF} interface Index: InstantUIBConnection.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/UIB/InstantUIBConnection.pas,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** InstantUIBConnection.pas 2 Aug 2005 22:26:45 -0000 1.7 --- InstantUIBConnection.pas 4 Sep 2005 23:15:53 -0000 1.8 *************** *** 28,32 **** --- 28,36 ---- unit InstantUIBConnection; + {$IFDEF LINUX} {$I '../../InstantDefines.inc'} + {$ELSE} + {$I '..\..\InstantDefines.inc'} + {$ENDIF} interface Index: InstantUIB.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/UIB/InstantUIB.pas,v retrieving revision 1.13 retrieving revision 1.14 diff -C2 -d -r1.13 -r1.14 *** InstantUIB.pas 24 Jul 2005 16:34:51 -0000 1.13 --- InstantUIB.pas 4 Sep 2005 23:15:53 -0000 1.14 *************** *** 28,32 **** --- 28,36 ---- unit InstantUIB; + {$IFDEF LINUX} {$I '../../InstantDefines.inc'} + {$ELSE} + {$I '..\..\InstantDefines.inc'} + {$ENDIF} interface Index: InstantUIBReg.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/UIB/InstantUIBReg.pas,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** InstantUIBReg.pas 24 Jul 2005 16:34:51 -0000 1.2 --- InstantUIBReg.pas 4 Sep 2005 23:15:53 -0000 1.3 *************** *** 28,32 **** --- 28,36 ---- unit InstantUIBReg; + {$IFDEF LINUX} {$I '../../InstantDefines.inc'} + {$ELSE} + {$I '..\..\InstantDefines.inc'} + {$ENDIF} interface |
|
From: Steven M. <sr...@us...> - 2005-09-04 23:16:08
|
Update of /cvsroot/instantobjects/Source/Catalogs/MSSql In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25205/Catalogs/MSSql Modified Files: InstantMSSqlCatalog.pas Log Message: Add conditional compiler directives to include 'InstantDefines.inc' with appropriate '\' or '/' characters in relative paths for Windows or Linux. Index: InstantMSSqlCatalog.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Catalogs/MSSql/InstantMSSqlCatalog.pas,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** InstantMSSqlCatalog.pas 24 Jul 2005 16:34:53 -0000 1.3 --- InstantMSSqlCatalog.pas 4 Sep 2005 23:15:54 -0000 1.4 *************** *** 30,34 **** --- 30,38 ---- unit InstantMSSqlCatalog; + {$IFDEF LINUX} {$I '../../InstantDefines.inc'} + {$ELSE} + {$I '..\..\InstantDefines.inc'} + {$ENDIF} interface |
