instantobjects-cvscommit — Generates a message for every commit made on CVS

[Instantobjects-cvscommit] Source/Core/D7 IOCore.dpk,1.9,1.10

[Steven M. <sr...@us...>]

Update of /cvsroot/instantobjects/Source/Core/D7
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9092/Core/D7

Modified Files:
	IOCore.dpk 
Log Message:
Changed relative paths to use '\' in Windows dpk files.

Index: IOCore.dpk
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/D7/IOCore.dpk,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** IOCore.dpk	26 Jul 2005 02:25:50 -0000	1.9
--- IOCore.dpk	3 Sep 2005 08:03:13 -0000	1.10
***************
*** 1,5 ****
  package IOCore;
  
! {$I '../../InstantVersion.inc'}
  
  {$ALIGN 8}
--- 1,5 ----
  package IOCore;
  
! {$I '..\..\InstantVersion.inc'}
  
  {$ALIGN 8}

[Instantobjects-cvscommit] Source/Brokers/NexusDb/D2005 IONexusDB.dpk,1.1,1.2

[Steven M. <sr...@us...>]

Update of /cvsroot/instantobjects/Source/Brokers/NexusDb/D2005
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24941/D2005

Modified Files:
	IONexusDB.dpk 
Log Message:
Remove NexusDB libraries from package requires clauses.

Index: IONexusDB.dpk
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/NexusDb/D2005/IONexusDB.dpk,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** IONexusDB.dpk	11 Aug 2005 00:34:52 -0000	1.1
--- IONexusDB.dpk	2 Sep 2005 01:06:12 -0000	1.2
***************
*** 36,52 ****
    vcldb,
    IOCore,
!   IONexusDBCatalog,
!   NexusDB201se90,
!   NexusDB201sr90,
!   NexusDB201sq90,
!   NexusDB201re90,
!   NexusDB201tn90,
!   NexusDB201tw90,
!   NexusDB201db90,
!   NexusDB201ch90,
!   NexusDB201ll90,
!   NexusDB201sd90,
!   NexusDB201st90,
!   NexusDB201pt90;
  
  contains
--- 36,40 ----
    vcldb,
    IOCore,
!   IONexusDBCatalog;
  
  contains

[Instantobjects-cvscommit] Source/Brokers/NexusDb/D7 IONexusDB.dpk,1.1,1.2

[Steven M. <sr...@us...>]

Update of /cvsroot/instantobjects/Source/Brokers/NexusDb/D7
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24941/D7

Modified Files:
	IONexusDB.dpk 
Log Message:
Remove NexusDB libraries from package requires clauses.

Index: IONexusDB.dpk
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/NexusDb/D7/IONexusDB.dpk,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** IONexusDB.dpk	11 Aug 2005 00:36:08 -0000	1.1
--- IONexusDB.dpk	2 Sep 2005 01:06:13 -0000	1.2
***************
*** 36,52 ****
    vcldb,
    IOCore,
!   IONexusDBCatalog,
!   NexusDB108ll70,
!   NexusDB1081x70,
!   NexusDB108sr70,
!   NexusDB108sd70,
!   NexusDB108sq70,
!   NexusDB108re70,
!   NexusDB108st70,
!   NexusDB108tn70,
!   NexusDB108pt70,
!   NexusDB108tw70,
!   NexusDB108db70,
!   NexusDB108ch70;
  
  contains
--- 36,40 ----
    vcldb,
    IOCore,
!   IONexusDBCatalog;
  
  contains

[Instantobjects-cvscommit] Source InstantDefines.inc,1.2,1.3

[Nando D. <na...@us...>]

Update of /cvsroot/instantobjects/Source
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25384

Modified Files:
	InstantDefines.inc 
Log Message:
removed $APPTYPE oversight

Index: InstantDefines.inc
===================================================================
RCS file: /cvsroot/instantobjects/Source/InstantDefines.inc,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** InstantDefines.inc	31 Jul 2005 04:47:11 -0000	1.2
--- InstantDefines.inc	1 Sep 2005 23:04:33 -0000	1.3
***************
*** 51,55 ****
  {$MAXSTACKSIZE $00100000}
  {$IMAGEBASE $00400000}
- {$APPTYPE GUI}
  
  {$IFDEF D6+}
--- 51,54 ----

[Instantobjects-cvscommit] Source/Brokers/ADO/D2005 DclIOADO.dpk,1.1,1.2 IOADO.dpk,1.1,1.2

[Steven M. <sr...@us...>]

Update of /cvsroot/instantobjects/Source/Brokers/ADO/D2005
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31296/D2005

Modified Files:
	DclIOADO.dpk IOADO.dpk 
Log Message:
Fixed InstantVersion.inc paths.

Index: IOADO.dpk
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/ADO/D2005/IOADO.dpk,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** IOADO.dpk	17 Jul 2005 22:24:44 -0000	1.1
--- IOADO.dpk	28 Aug 2005 04:25:08 -0000	1.2
***************
*** 1,5 ****
  package IOADO;
  
! {$R *.res}
  {$ALIGN 8}
  {$ASSERTIONS ON}
--- 1,6 ----
  package IOADO;
  
! {$I '../../../InstantVersion.inc'}
! 
  {$ALIGN 8}
  {$ASSERTIONS ON}

Index: DclIOADO.dpk
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/ADO/D2005/DclIOADO.dpk,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** DclIOADO.dpk	17 Jul 2005 22:24:44 -0000	1.1
--- DclIOADO.dpk	28 Aug 2005 04:25:08 -0000	1.2
***************
*** 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}

[Instantobjects-cvscommit] Source/Brokers/ADO/D7 DclIOADO.dpk,1.3,1.4 IOADO.dpk,1.4,1.5

[Steven M. <sr...@us...>]

Update of /cvsroot/instantobjects/Source/Brokers/ADO/D7
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31296/D7

Modified Files:
	DclIOADO.dpk IOADO.dpk 
Log Message:
Fixed InstantVersion.inc paths.

Index: IOADO.dpk
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/ADO/D7/IOADO.dpk,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** IOADO.dpk	24 Jul 2005 16:20:20 -0000	1.4
--- IOADO.dpk	28 Aug 2005 04:25:08 -0000	1.5
***************
*** 1,5 ****
  package IOADO;
  
! {$I '../../InstantVersion.inc'}
  
  {$ALIGN 8}
--- 1,5 ----
  package IOADO;
  
! {$I '../../../InstantVersion.inc'}
  
  {$ALIGN 8}

Index: DclIOADO.dpk
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/ADO/D7/DclIOADO.dpk,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** DclIOADO.dpk	24 Jul 2005 16:20:20 -0000	1.3
--- DclIOADO.dpk	28 Aug 2005 04:25:08 -0000	1.4
***************
*** 1,5 ****
  package DclIOADO;
  
! {$I '../../InstantVersion.inc'}
  
  {$R '../InstantADO.dcr'}
--- 1,5 ----
  package DclIOADO;
  
! {$I '../../../InstantVersion.inc'}
  
  {$R '../InstantADO.dcr'}

[Instantobjects-cvscommit] Source/Brokers/ADO InstantADO.pas,1.12,1.13

[Steven M. <sr...@us...>]

Update of /cvsroot/instantobjects/Source/Brokers/ADO
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31146

Modified Files:
	InstantADO.pas 
Log Message:
Took out component registration code.

Index: InstantADO.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/ADO/InstantADO.pas,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** InstantADO.pas	24 Jul 2005 16:20:20 -0000	1.12
--- InstantADO.pas	28 Aug 2005 04:23:38 -0000	1.13
***************
*** 182,187 ****
    end;
  
- procedure Register;
- 
  implementation
  
--- 182,185 ----
***************
*** 194,202 ****
    ADOLinkPrefix = 'FILE NAME=';
  
- procedure Register;
- begin
-   RegisterComponents('InstantObjects', [TInstantADOConnector]);
- end;
- 
  procedure AssignParameters(Params: TParams; Parameters: TParameters);
  var
--- 192,195 ----

[Instantobjects-cvscommit] Source/Brokers/BDE/D2005 IOBDE.dpk,1.2,1.3

[Steven M. <sr...@us...>]

Update of /cvsroot/instantobjects/Source/Brokers/BDE/D2005
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26345/Brokers/BDE/D2005

Modified Files:
	IOBDE.dpk 
Log Message:
Added BDE catalog and updated BDE broker. Still not a SQL broker so
no external Part(s), etc allowed. Only tested with Paradox database type.

Index: IOBDE.dpk
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/BDE/D2005/IOBDE.dpk,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** IOBDE.dpk	30 Jul 2005 06:18:28 -0000	1.2
--- IOBDE.dpk	26 Aug 2005 07:15:54 -0000	1.3
***************
*** 33,37 ****
    vcldb,
    bdertl,
!   IOCore;
  
  contains
--- 33,38 ----
    vcldb,
    bdertl,
!   IOCore,
!   IOBDECatalog;
  
  contains

[Instantobjects-cvscommit] Source/Catalogs/BDE InstantBDECatalog.pas,NONE,1.1

[Steven M. <sr...@us...>]

Update of /cvsroot/instantobjects/Source/Catalogs/BDE
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26345/Catalogs/BDE

Added Files:
	InstantBDECatalog.pas 
Log Message:
Added BDE catalog and updated BDE broker. Still not a SQL broker so
no external Part(s), etc allowed. Only tested with Paradox database type.

--- NEW FILE: InstantBDECatalog.pas ---
(*
 *   InstantObjects DBEvolver Support
 *   BDE Catalog
 *)

(* ***** BEGIN LICENSE BLOCK *****
 * Version: MPL 1.1
 *
 * The contents of this file are subject to the Mozilla Public License Version
 * 1.1 (the "License"); you may not use this file except in compliance with
 * the License. You may obtain a copy of the License at
 * http://www.mozilla.org/MPL/
 *
 * Software distributed under the License is distributed on an "AS IS" basis,
 * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
 * for the specific language governing rights and limitations under the
 * License.
 *
 * The Original Code is: InstantObjects DBEvolver Support/BDE Catalog
 *
 * The Initial Developer of the Original Code is: Steven Mitchell
 *
 * Portions created by the Initial Developer are Copyright (C) 2005
 * the Initial Developer. All Rights Reserved.
 *
 * Contributor(s):
 *
 * ***** END LICENSE BLOCK ***** *)

unit InstantBDECatalog;

{$I ../../InstantDefines.inc}

interface

uses
  InstantPersistence, DB, DBTables;

type
  // A TInstantCatalog that reads catalog information from a BDE
  // database. Can be used with a BDE broker.
  TInstantBDECatalog = class(TInstantBrokerCatalog)
  private
    procedure AddFieldMetadatas(TableMetadata: TInstantTableMetadata);
    procedure AddIndexMetadatas(TableMetadata: TInstantTableMetadata);
    procedure AddTableMetadatas(TableMetadatas: TInstantTableMetadatas);
    function ColumnTypeToDataType(const ColumnType: TFieldType): TInstantDataType;
  public
    procedure InitTableMetadatas(ATableMetadatas: TInstantTableMetadatas);
      override;
  end;

implementation

uses
  SysUtils, Classes, TypInfo, Dialogs, InstantConsts;
  
procedure TInstantBDECatalog.AddFieldMetadatas(
  TableMetadata: TInstantTableMetadata);
var
  vTable: TTable;
  FieldMetadata: TInstantFieldMetadata;
  i: Integer;
begin
  vTable := TTable.Create(nil);
  try
    vTable.DatabaseName := Broker.Connector.DatabaseName;
    vTable.TableName := TableMetadata.Name;
    vTable.FieldDefs.Update;
    for i := 0 to Pred(vTable.FieldDefs.Count) do
    begin
      FieldMetadata := TableMetadata.FieldMetadatas.Add;
      FieldMetadata.Name := Trim(vTable.FieldDefs[i].Name);
      FieldMetadata.DataType := ColumnTypeToDataType(vTable.FieldDefs[i].DataType);
      FieldMetadata.Options := [];
      if vTable.FieldDefs[i].Required then
        FieldMetadata.Options := FieldMetadata.Options + [foRequired];
      if TableMetadata.IndexMetadatas.IsFieldIndexed(FieldMetadata) then
        FieldMetadata.Options := FieldMetadata.Options + [foIndexed];
      { TODO : support ExternalTableName? }
      if FieldMetadata.DataType in [dtString, dtMemo] then
        FieldMetadata.Size := vTable.FieldDefs[i].Size;
    end;
  finally
    vTable.Free;
  end;
end;

{ TInstantBDECatalog }

procedure TInstantBDECatalog.AddIndexMetadatas(
  TableMetadata: TInstantTableMetadata);
var
  vTable: TTable;
  IndexMetadata: TInstantIndexMetadata;
  i: Integer;
begin
  vTable := TTable.Create(nil);
  try
    vTable.DatabaseName := Broker.Connector.DatabaseName;
    vTable.TableName := TableMetadata.Name;
    vTable.IndexDefs.Update;

    for i := 0 to Pred(vTable.IndexDefs.Count) do
    begin
      IndexMetadata := TableMetadata.IndexMetadatas.Add;
      if ixPrimary in vTable.IndexDefs[i].Options then
        IndexMetadata.Name := Trim(vTable.IndexDefs[i].Name)
      else
        IndexMetadata.Name := ChangeFileExt(vTable.TableName, '')
                + Trim(vTable.IndexDefs[i].Name);
      IndexMetadata.Fields := vTable.IndexDefs[i].Fields;
      IndexMetadata.Options := vTable.IndexDefs[i].Options;
    end;
  finally
    vTable.Free;
  end;
end;

procedure TInstantBDECatalog.AddTableMetadatas(
  TableMetadatas: TInstantTableMetadatas);
var
  vDatabaseName: String;
  vTableName: String;
  i: integer;
  TableMetadata: TInstantTableMetadata;
  vTables: TStringList;
begin
  vTables := TStringList.Create;
  try
    vDatabaseName := Broker.Connector.DatabaseName;
    Session.GetTableNames(vDatabaseName, '*.*', true, false, vTables);
    for i := 0 to Pred(vTables.Count) do
    begin
      vTableName := ExtractFileName(Trim(vTables.Strings[i]));
      TableMetadata := TableMetadatas.Add;
      TableMetadata.Name := vTableName;
      // Call AddIndexMetadatas first, so that AddFieldMetadatas can see what
      // indexes are defined to correctly set the foIndexed option.
      AddIndexMetadatas(TableMetadata);
      AddFieldMetadatas(TableMetadata);
      TableMetadata.Name := ChangeFileExt(vTableName, '');
    end;
  finally
    vTables.Free;
  end;
end;

function TInstantBDECatalog.ColumnTypeToDataType(const ColumnType: TFieldType):
    TInstantDataType;
begin
  case ColumnType of
    ftString:       Result := dtString;
    ftSmallint,
    ftInteger:      Result := dtInteger;
    ftBoolean:      Result := dtBoolean;
    ftFloat:        Result := dtFloat;
    ftCurrency:     Result := dtCurrency;
    ftDate,
    ftTime,
    ftDateTime:     Result := dtDateTime;
    ftAutoInc:      Result := dtInteger;
    ftBlob,
    ftGraphic:      Result := dtBlob;
    ftMemo:         Result := dtMemo;
  else
    raise Exception.CreateFmt(SUnsupportedColumnType,
            [GetEnumName(TypeInfo(TFieldType), Ord(ColumnType))]);
  end;
end;

procedure TInstantBDECatalog.InitTableMetadatas(
  ATableMetadatas: TInstantTableMetadatas);
begin
  ATableMetadatas.Clear;
  AddTableMetadatas(ATableMetadatas);
end;

end.

[Instantobjects-cvscommit] Source/Brokers/BDE/D7 IOBDE.dpk,1.4,1.5

[Steven M. <sr...@us...>]

Update of /cvsroot/instantobjects/Source/Brokers/BDE/D7
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26345/Brokers/BDE/D7

Modified Files:
	IOBDE.dpk 
Log Message:
Added BDE catalog and updated BDE broker. Still not a SQL broker so
no external Part(s), etc allowed. Only tested with Paradox database type.

Index: IOBDE.dpk
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/BDE/D7/IOBDE.dpk,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** IOBDE.dpk	30 Jul 2005 06:20:17 -0000	1.4
--- IOBDE.dpk	26 Aug 2005 07:15:54 -0000	1.5
***************
*** 33,36 ****
--- 33,37 ----
    vcldb,
    bdertl,
+   IOBDECatalog,
    IOCore;
  

[Instantobjects-cvscommit] Source/Catalogs/BDE/D7 IOBDECatalog.dpk,NONE,1.1

[Steven M. <sr...@us...>]

Update of /cvsroot/instantobjects/Source/Catalogs/BDE/D7
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26345/Catalogs/BDE/D7

Added Files:
	IOBDECatalog.dpk 
Log Message:
Added BDE catalog and updated BDE broker. Still not a SQL broker so
no external Part(s), etc allowed. Only tested with Paradox database type.

--- NEW FILE: IOBDECatalog.dpk ---
package IOBDECatalog;

{$I '../../../InstantVersion.inc'}

{$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 Catalog for BDE (Delphi 7)'}
{$LIBSUFFIX '_D7'}
{$RUNONLY}
{$IMPLICITBUILD OFF}

requires
  rtl,
  bdertl,
  IOCore;

contains
  InstantBDECatalog in '..\InstantBDECatalog.pas';

end.

[Instantobjects-cvscommit] Source/Brokers/BDE InstantBDE.pas,1.4,1.5 InstantBDEConnectionDefEdit.dfm,1.4,1.5 InstantBDEConnectionDefEdit.pas,1.3,1.4

[Steven M. <sr...@us...>]

Update of /cvsroot/instantobjects/Source/Brokers/BDE
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26345/Brokers/BDE

Modified Files:
	InstantBDE.pas InstantBDEConnectionDefEdit.dfm 
	InstantBDEConnectionDefEdit.pas 
Log Message:
Added BDE catalog and updated BDE broker. Still not a SQL broker so
no external Part(s), etc allowed. Only tested with Paradox database type.

Index: InstantBDEConnectionDefEdit.dfm
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/BDE/InstantBDEConnectionDefEdit.dfm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** InstantBDEConnectionDefEdit.dfm	24 Jul 2005 16:34:49 -0000	1.4
--- InstantBDEConnectionDefEdit.dfm	26 Aug 2005 07:15:53 -0000	1.5
***************
*** 1,8 ****
  object InstantBDEConnectionDefEditForm: TInstantBDEConnectionDefEditForm
!   Left = 207
!   Top = 248
    BorderStyle = bsDialog
    Caption = 'BDE Connection'
!   ClientHeight = 351
    ClientWidth = 392
    Color = clBtnFace
--- 1,8 ----
  object InstantBDEConnectionDefEditForm: TInstantBDEConnectionDefEditForm
!   Left = 89
!   Top = 439
    BorderStyle = bsDialog
    Caption = 'BDE Connection'
!   ClientHeight = 369
    ClientWidth = 392
    Color = clBtnFace
***************
*** 19,23 ****
    object BottomBevel: TBevel
      Left = 0
!     Top = 314
      Width = 392
      Height = 2
--- 19,23 ----
    object BottomBevel: TBevel
      Left = 0
!     Top = 332
      Width = 392
      Height = 2
***************
*** 29,33 ****
      Top = 0
      Width = 392
!     Height = 314
      Align = alClient
      BevelOuter = bvNone
--- 29,33 ----
      Top = 0
      Width = 392
!     Height = 332
      Align = alClient
      BevelOuter = bvNone
***************
*** 42,46 ****
      end
      object DriverLabel: TLabel
!       Left = 163
        Top = 12
        Width = 28
--- 42,46 ----
      end
      object DriverLabel: TLabel
!       Left = 164
        Top = 12
        Width = 28
***************
*** 51,55 ****
      object ParametersLabel: TLabel
        Left = 12
!       Top = 56
        Width = 53
        Height = 13
--- 51,55 ----
      object ParametersLabel: TLabel
        Left = 12
!       Top = 60
        Width = 53
        Height = 13
***************
*** 58,63 ****
      end
      object StreamFormatLabel: TLabel
!       Left = 172
!       Top = 288
        Width = 53
        Height = 13
--- 58,63 ----
      end
      object StreamFormatLabel: TLabel
!       Left = 12
!       Top = 285
        Width = 53
        Height = 13
***************
*** 65,68 ****
--- 65,84 ----
        FocusControl = StreamFormatComboBox
      end
+     object Label1: TLabel
+       Left = 148
+       Top = 285
+       Width = 62
+       Height = 13
+       Caption = 'Id Data Type'
+       FocusControl = IdDataTypeComboBox
+     end
+     object Label2: TLabel
+       Left = 287
+       Top = 285
+       Width = 32
+       Height = 13
+       Caption = 'Id Size'
+       FocusControl = IdDataTypeComboBox
+     end
      object AliasComboBox: TComboBox
        Left = 12
***************
*** 78,84 ****
      end
      object DriverComboBox: TComboBox
!       Left = 163
        Top = 28
!       Width = 222
        Height = 21
        Style = csDropDownList
--- 94,100 ----
      end
      object DriverComboBox: TComboBox
!       Left = 164
        Top = 28
!       Width = 213
        Height = 21
        Style = csDropDownList
***************
*** 91,95 ****
      object ParametersEdit: TMemo
        Left = 12
!       Top = 72
        Width = 365
        Height = 201
--- 107,111 ----
      object ParametersEdit: TMemo
        Left = 12
!       Top = 76
        Width = 365
        Height = 201
***************
*** 100,106 ****
      end
      object StreamFormatComboBox: TComboBox
!       Left = 232
!       Top = 284
!       Width = 145
        Height = 21
        Style = csDropDownList
--- 116,122 ----
      end
      object StreamFormatComboBox: TComboBox
!       Left = 12
!       Top = 301
!       Width = 120
        Height = 21
        Style = csDropDownList
***************
*** 112,126 ****
      end
      object LoginPromptCheckBox: TCheckBox
!       Left = 16
!       Top = 286
!       Width = 142
        Height = 17
        Caption = '&Login Prompt'
        TabOrder = 3
      end
    end
    object BottomPanel: TPanel
      Left = 0
!     Top = 316
      Width = 392
      Height = 35
--- 128,158 ----
      end
      object LoginPromptCheckBox: TCheckBox
!       Left = 272
!       Top = 54
!       Width = 105
        Height = 17
        Caption = '&Login Prompt'
        TabOrder = 3
      end
+     object IdDataTypeComboBox: TComboBox
+       Left = 148
+       Top = 301
+       Width = 120
+       Height = 21
+       Style = csDropDownList
+       ItemHeight = 13
+       TabOrder = 5
+     end
+     object IdSizeEdit: TEdit
+       Left = 287
+       Top = 301
+       Width = 90
+       Height = 21
+       TabOrder = 6
+     end
    end
    object BottomPanel: TPanel
      Left = 0
!     Top = 334
      Width = 392
      Height = 35

Index: InstantBDEConnectionDefEdit.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/BDE/InstantBDEConnectionDefEdit.pas,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** InstantBDEConnectionDefEdit.pas	24 Jul 2005 16:34:49 -0000	1.3
--- InstantBDEConnectionDefEdit.pas	26 Aug 2005 07:15:53 -0000	1.4
***************
*** 25,29 ****
   *
   * Contributor(s):
!  * Carlo Barazzetta, Nando Dessena
   *
   * ***** END LICENSE BLOCK ***** *)
--- 25,29 ----
   *
   * Contributor(s):
!  * Carlo Barazzetta, Nando Dessena, Steven Mitchell
   *
   * ***** END LICENSE BLOCK ***** *)
***************
*** 55,58 ****
--- 55,62 ----
      StreamFormatComboBox: TComboBox;
      LoginPromptCheckBox: TCheckBox;
+     IdDataTypeComboBox: TComboBox;
+     IdSizeEdit: TEdit;
+     Label1: TLabel;
+     Label2: TLabel;
      procedure AliasComboBoxChange(Sender: TObject);
      procedure DriverComboBoxChange(Sender: TObject);
***************
*** 77,81 ****
  
  uses
!   DbTables, InstantPersistence, InstantClasses;
  
  const
--- 81,85 ----
  
  uses
!   DbTables, InstantPersistence, InstantClasses, InstantConsts;
  
  const
***************
*** 125,129 ****
      ItemIndex := 0;
    end;
!   AssignInstantStreamFormat(StreamFormatComboBox.Items); //CB
  end;
  
--- 129,137 ----
      ItemIndex := 0;
    end;
!   AssignInstantStreamFormat(StreamFormatComboBox.Items); 
!   AssignInstantDataTypeStrings(IdDataTypeComboBox.Items);
!   IdDataTypeComboBox.ItemIndex := Ord(dtString);
!   IdSizeEdit.Text := IntToStr(InstantDefaultFieldSize);
!   UpdateControls;
  end;
  
***************
*** 203,211 ****
      else
        AliasName := Alias;
!     //CB  
      BlobStreamFormat := TInstantStreamFormat(StreamFormatComboBox.ItemIndex);
      LoginPrompt := LoginPromptCheckBox.Checked;
- 
      Parameters := ParametersEdit.Text;
    end;
  end;
--- 211,220 ----
      else
        AliasName := Alias;
!       
      BlobStreamFormat := TInstantStreamFormat(StreamFormatComboBox.ItemIndex);
      LoginPrompt := LoginPromptCheckBox.Checked;
      Parameters := ParametersEdit.Text;
+     IdDataType := TInstantDataType(IdDataTypeComboBox.ItemIndex);
+     IdSize := StrToInt(IdSizeEdit.Text);
    end;
  end;

Index: InstantBDE.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/BDE/InstantBDE.pas,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** InstantBDE.pas	24 Jul 2005 16:34:49 -0000	1.4
--- InstantBDE.pas	26 Aug 2005 07:15:53 -0000	1.5
***************
*** 25,29 ****
   *
   * Contributor(s):
!  * Carlo Barazzetta, Nando Dessena
   *
   * ***** END LICENSE BLOCK ***** *)
--- 25,29 ----
   *
   * Contributor(s):
!  * Carlo Barazzetta, Nando Dessena, Steven Mitchell
   *
   * ***** END LICENSE BLOCK ***** *)
***************
*** 34,38 ****
  
  {$IFDEF D6+}
! {$WARN SYMBOL_PLATFORM OFF}
  {$ENDIF}
  
--- 34,38 ----
  
  {$IFDEF D6+}
!   {$WARN SYMBOL_PLATFORM OFF}
  {$ENDIF}
  
***************
*** 40,44 ****
  
  uses
!   Classes, Db, DBTables, SysUtils, InstantPersistence, InstantCommand;
  
  type
--- 40,45 ----
  
  uses
!   Classes, Db, DBTables, SysUtils, InstantPersistence, InstantCommand,
!   InstantConsts;
  
  type
***************
*** 75,78 ****
--- 76,80 ----
      function GetDatabaseName: string; override;
      function GetDBMSName: string; override;
+     function GetDDLTransactionSupported: Boolean; override;
      procedure InternalBuildDatabase(Scheme: TInstantScheme); override;
      procedure InternalCommitTransaction; override;
***************
*** 87,97 ****
    end;
  
!   TInstantBDEBroker = class(TInstantRelationalBroker)
    private
      function GetConnector: TInstantBDEConnector;
    protected
      function CreateResolver(const TableName: string): TInstantResolver; override;
      function InternalCreateQuery: TInstantQuery; override;
    public
      property Connector: TInstantBDEConnector read GetConnector;
    end;
--- 89,103 ----
    end;
  
!   TInstantBDEBroker = class(TInstantNavigationalBroker)
    private
      function GetConnector: TInstantBDEConnector;
    protected
+     function CreateCatalog(const AScheme: TInstantScheme): TInstantCatalog;
+         override;
      function CreateResolver(const TableName: string): TInstantResolver; override;
      function InternalCreateQuery: TInstantQuery; override;
    public
+     function CreateDBBuildCommand(const CommandType: TInstantDBBuildCommandType):
+         TInstantDBBuildCommand; override;
      property Connector: TInstantBDEConnector read GetConnector;
    end;
***************
*** 128,132 ****
    end;
  
!   TInstantBDEQuery = class(TInstantRelationalQuery)
    private
      FQuery: TQuery;
--- 134,138 ----
    end;
  
!   TInstantBDEQuery = class(TInstantNavigationalQuery)
    private
      FQuery: TQuery;
***************
*** 147,155 ****
    end;
  
  procedure Register;
  implementation
  
  uses
!   Bde, InstantConsts, InstantBDEConnectionDefEdit, Controls;
  
  procedure Register;
--- 153,221 ----
    end;
  
+   // Base class for all steps that work by executing one or more commands
+   // (that is, a script) each.
+   TInstantDBBuildBDECommand = class(TInstantDBBuildCommand)
+   private
+     function GetConnector: TInstantBDEConnector;
+     function GetBroker: TInstantBDEBroker;
+   protected
+     // Returns The number of statements that compound this script. The
+     // predefined implementation returns 1.
+     function GetCommandCount: Integer; virtual;
+     // Returns the nth command that is part of this script. Valid values
+     // are in the range 0 to Pred(GetCommandCount). The default
+     // implementation, which should always be called through inherited at the
+     // beginning of the overridden version, just returns '', or raises an
+     // exception if Index is not in the allowed range.
+     function GetCommand(const Index: Integer): string; virtual;
+   public
+     property Connector: TInstantBDEConnector read GetConnector;
+     property Broker: TInstantBDEBroker read GetBroker;
+   end;
+ 
+   TInstantDBBuildBDEAddTableCommand = class(TInstantDBBuildBDECommand)
+   private
+     function GetTableMetadata: TInstantTableMetadata;
+   protected
+     procedure InternalExecute; override;
+   public
+     property TableMetadata: TInstantTableMetadata read GetTableMetadata;
+   end;
+ 
+   TInstantDBBuildBDEDropTableCommand = class(TInstantDBBuildBDECommand)
+   private
+     function GetTableMetadata: TInstantTableMetadata;
+   protected
+     procedure InternalExecute; override;
+   public
+     property TableMetadata: TInstantTableMetadata read GetTableMetadata;
+   end;
+ 
+   TInstantDBBuildBDEAddIndexCommand = class(TInstantDBBuildBDECommand)
+   private
+     function GetIndexMetadata: TInstantIndexMetadata;
+   protected
+     procedure InternalExecute; override;
+   public
+     property IndexMetadata: TInstantIndexMetadata read GetIndexMetadata;
+   end;
+ 
+   TInstantDBBuildBDEDropIndexCommand = class(TInstantDBBuildBDECommand)
+   private
+     function GetIndexMetadata: TInstantIndexMetadata;
+   protected
+     procedure InternalExecute; override;
+   public
+     property IndexMetadata: TInstantIndexMetadata read GetIndexMetadata;
+   end;
+ 
  procedure Register;
  implementation
  
  uses
!   Bde, Controls, InstantBDEConnectionDefEdit, InstantBDECatalog;
! 
! resourcestring
!   SCommandIndexOutOfBounds = 'Command index out of bounds.';
  
  procedure Register;
***************
*** 282,285 ****
--- 348,356 ----
  end;
  
+ function TInstantBDEConnector.GetDDLTransactionSupported: Boolean;
+ begin
+   Result := False;
+ end;
+ 
  function TInstantBDEConnector.GetDriverType: TInstantBDEDriverType;
  begin
***************
*** 373,376 ****
--- 444,468 ----
  end;
  
+ function TInstantBDEBroker.CreateCatalog(const AScheme: TInstantScheme):
+     TInstantCatalog;
+ begin
+   Result := TInstantBDECatalog.Create(AScheme, Self);
+ end;
+ 
+ function TInstantBDEBroker.CreateDBBuildCommand(const CommandType:
+     TInstantDBBuildCommandType): TInstantDBBuildCommand;
+ begin
+   if CommandType = ctAddTable then
+     Result := TInstantDBBuildBDEAddTableCommand.Create(CommandType, Connector)
+   else if CommandType = ctDropTable then
+     Result := TInstantDBBuildBDEDropTableCommand.Create(CommandType, Connector)
+   else if CommandType = ctAddIndex then
+     Result := TInstantDBBuildBDEAddIndexCommand.Create(CommandType, Connector)
+   else if CommandType = ctDropIndex then
+     Result := TInstantDBBuildBDEDropIndexCommand.Create(CommandType, Connector)
+   else
+     Result := inherited CreateDBBuildCommand(CommandType);
+ end;
+ 
  { TInstantBDEBroker }
  
***************
*** 604,607 ****
--- 696,864 ----
  end;
  
+ { TInstantDBBuildSQLCommand }
+ 
+ function TInstantDBBuildBDECommand.GetBroker: TInstantBDEBroker;
+ begin
+   Result := Connector.Broker as TInstantBDEBroker;
+ end;
+ 
+ function TInstantDBBuildBDECommand.GetConnector: TInstantBDEConnector;
+ begin
+   Result := inherited Connector as TInstantBDEConnector;
+ end;
+ 
+ function TInstantDBBuildBDECommand.GetCommand(const Index: Integer): string;
+ begin
+   if (Index < 0) or (Index >= GetCommandCount) then
+     raise EInstantDBBuildError.CreateFmt(SCommandIndexOutOfBounds,
+       [Index]);
+   Result := '';
+ end;
+ 
+ function TInstantDBBuildBDECommand.GetCommandCount: Integer;
+ begin
+   Result := 1;
+ end;
+ 
+ function TInstantDBBuildBDEAddTableCommand.GetTableMetadata:
+     TInstantTableMetadata;
+ begin
+   Result := NewMetadata as TInstantTableMetadata;
+ end;
+ 
+ procedure TInstantDBBuildBDEAddTableCommand.InternalExecute;
+ const
+   FieldTypes: array[TInstantDataType] of TFieldType =
+     (ftInteger, ftFloat, ftCurrency, ftBoolean, ftString, ftMemo, ftDateTime, ftBlob);
+ var
+   I: Integer;
+   Table: TTable;
+   IndexName: string;
+ begin
+   Table := TTable.Create(nil);
+   try
+     Table.TableName := TableMetadata.Name;
+     Table.DatabaseName := Connector.Connection.DatabaseName;
+     with TableMetadata do
+     begin
+       for I := 0 to Pred(FieldMetadatas.Count) do
+         with FieldMetadatas[I] do
+           if FieldTypes[DataType] in [ftString, ftMemo, ftBlob] then
+             Table.FieldDefs.Add(Name, FieldTypes[DataType], Size,
+                     foRequired in Options)
+           else
+             Table.FieldDefs.Add(Name, FieldTypes[DataType], 0,
+                     foRequired in Options);
+ 
+       Table.IndexDefs.Clear;
+       for I := 0 to Pred(IndexMetadatas.Count) do
+         // Only add the primary index here
+         if ixPrimary in IndexMetadatas[I].Options then
+         begin
+           IndexName := IndexMetadatas[I].Name;
+           if IndexName = '' then
+             IndexName := Table.TableName + '_' + 'ID';
+           with Table.IndexDefs.AddIndexDef do
+           begin
+             Name := IndexName;
+             Fields := IndexMetadatas[I].Fields;
+             Options := IndexMetadatas[I].Options;
+           end;
+       end;
+     end;
+     Table.CreateTable;
+   finally
+     Table.Free;
+   end;
+ end;
+ 
+ function TInstantDBBuildBDEDropTableCommand.GetTableMetadata:
+     TInstantTableMetadata;
+ begin
+   Result := OldMetadata as TInstantTableMetadata;
+ end;
+ 
+ procedure TInstantDBBuildBDEDropTableCommand.InternalExecute;
+ var
+   Table: TTable;
+ begin
+   Table := TTable.Create(nil);
+   try
+     Table.TableName := TableMetadata.Name;
+     Table.DatabaseName := Connector.Connection.DatabaseName;
+     Table.Close;
+     Table.DeleteTable;
+   finally
+     Table.Free;
+   end;
+ end;
+ 
+ { TInstantDBBuildAddIndexSQLCommand }
+ 
+ function TInstantDBBuildBDEAddIndexCommand.GetIndexMetadata:
+     TInstantIndexMetadata;
+ begin
+   Result := NewMetadata as TInstantIndexMetadata;
+ end;
+ 
+ procedure TInstantDBBuildBDEAddIndexCommand.InternalExecute;
+ var
+   Table: TTable;
+ begin
+   Table := TTable.Create(nil);
+   try
+     Table.TableName := IndexMetadata.TableMetadata.Name;
+     Table.DatabaseName := Connector.Connection.DatabaseName;
+     with IndexMetadata do
+     begin
+       if not (ixPrimary in Options) then
+       begin
+         if (Connector.DriverType = dtStandard) and (Pos(';', Fields) = 0) then
+           // Name of a non-composite index must the be field name for Paradox.
+           Name := Fields;  
+         Table.AddIndex(Name, Fields, Options);
+       end;
+     end;
+   finally
+     Table.Free;
+   end;
+ end;
+ 
+ { TInstantDBBuildAddIndexSQLCommand }
+ 
+ function TInstantDBBuildBDEDropIndexCommand.GetIndexMetadata:
+     TInstantIndexMetadata;
+ begin
+   Result := OldMetadata as TInstantIndexMetadata;
+ end;
+ 
+ procedure TInstantDBBuildBDEDropIndexCommand.InternalExecute;
+ var
+   Table: TTable;
+ 
+   function RemoveTableNamePrefix(const AName, ATableName: String): String;
+   begin
+     Result := AName;
+     if Pos(ATableName, Result) = 1 then
+       Result := Copy(Result, 1 + Length(ATableName), Length(Result));
+   end;
+ begin
+   Table := TTable.Create(nil);
+   try
+     Table.TableName := IndexMetadata.TableMetadata.Name;
+     Table.DatabaseName := Connector.Connection.DatabaseName;
+     Table.Exclusive := True;
+     Table.Open;
+     with IndexMetadata do
+       if not (ixPrimary in Options) then
+         Table.DeleteIndex(
+                 RemoveTableNamePrefix(Name, IndexMetadata.TableMetadata.Name));
+     Table.Close;
+   finally
+     Table.Free;
+   end;
+ end;
+ 
+ 
  initialization
    RegisterClass(TInstantBDEConnectionDef);

[Instantobjects-cvscommit] Source/Catalogs/BDE/D5 IOBDECatalog_D5.dpk,NONE,1.1

[Steven M. <sr...@us...>]

Update of /cvsroot/instantobjects/Source/Catalogs/BDE/D5
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26345/Catalogs/BDE/D5

Added Files:
	IOBDECatalog_D5.dpk 
Log Message:
Added BDE catalog and updated BDE broker. Still not a SQL broker so
no external Part(s), etc allowed. Only tested with Paradox database type.

--- NEW FILE: IOBDECatalog_D5.dpk ---
package IOBDECatalog_D5;

{$I ../../../InstantVersion.inc}

{$ALIGN ON}
{$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 Catalog for BDE (Delphi 5)'}
{$RUNONLY}
{$IMPLICITBUILD OFF}

requires
  IOCore;

contains
  InstantBDECatalog in '..\InstantBDECatalog.pas';

end.

[Instantobjects-cvscommit] Source/Brokers/BDE/D5 DclIOBDE_D5.dpk,1.3,1.4 Iobde_D5.dpk,1.3,1.4

[Steven M. <sr...@us...>]

Update of /cvsroot/instantobjects/Source/Brokers/BDE/D5
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26345/Brokers/BDE/D5

Modified Files:
	DclIOBDE_D5.dpk Iobde_D5.dpk 
Log Message:
Added BDE catalog and updated BDE broker. Still not a SQL broker so
no external Part(s), etc allowed. Only tested with Paradox database type.

Index: DclIOBDE_D5.dpk
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/BDE/D5/DclIOBDE_D5.dpk,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** DclIOBDE_D5.dpk	2 Aug 2005 22:16:11 -0000	1.3
--- DclIOBDE_D5.dpk	26 Aug 2005 07:15:54 -0000	1.4
***************
*** 1,8 ****
  package DclIOBDE_D5;
  
- 
  {$I '../../../InstantVersion.inc'}
  
! {$R '..\InstantBDE.dcr'}
  {$ALIGN ON}
  {$ASSERTIONS ON}
--- 1,7 ----
  package DclIOBDE_D5;
  
  {$I '../../../InstantVersion.inc'}
  
! {$R '../InstantBDE.dcr'}
  {$ALIGN ON}
  {$ASSERTIONS ON}

Index: Iobde_D5.dpk
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/BDE/D5/Iobde_D5.dpk,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** Iobde_D5.dpk	2 Aug 2005 22:16:11 -0000	1.3
--- Iobde_D5.dpk	26 Aug 2005 07:15:54 -0000	1.4
***************
*** 29,32 ****
--- 29,33 ----
  
  requires
+   IOBDECatalog,
    IOCore,
    VCLBDE50;

[Instantobjects-cvscommit] Source/Catalogs/BDE/D2005 IOBDECatalog.dpk,NONE,1.1

[Steven M. <sr...@us...>]

Update of /cvsroot/instantobjects/Source/Catalogs/BDE/D2005
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26345/Catalogs/BDE/D2005

Added Files:
	IOBDECatalog.dpk 
Log Message:
Added BDE catalog and updated BDE broker. Still not a SQL broker so
no external Part(s), etc allowed. Only tested with Paradox database type.

--- NEW FILE: IOBDECatalog.dpk ---
package IOBDECatalog;

{$I '../../../InstantVersion.inc'}

{$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 Catalog for BDE (Delphi 2005)'}
{$LIBSUFFIX '_D9'}
{$RUNONLY}
{$IMPLICITBUILD OFF}

requires
  rtl,
  bdertl,
  IOCore;

contains
  InstantBDECatalog in '..\InstantBDECatalog.pas';

end.

[Instantobjects-cvscommit] Source/Brokers/BDE/D6 IOBDE.dpk,1.2,1.3

[Steven M. <sr...@us...>]

Update of /cvsroot/instantobjects/Source/Brokers/BDE/D6
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26345/Brokers/BDE/D6

Modified Files:
	IOBDE.dpk 
Log Message:
Added BDE catalog and updated BDE broker. Still not a SQL broker so
no external Part(s), etc allowed. Only tested with Paradox database type.

Index: IOBDE.dpk
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/BDE/D6/IOBDE.dpk,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** IOBDE.dpk	24 Jul 2005 16:34:48 -0000	1.2
--- IOBDE.dpk	26 Aug 2005 07:15:54 -0000	1.3
***************
*** 33,36 ****
--- 33,37 ----
    vcldb,
    bdertl,
+   IOBDECatalog,
    IOCore;
  

[Instantobjects-cvscommit] Source/Catalogs/BDE/D6 IOBDECatalog.dpk,NONE,1.1

[Steven M. <sr...@us...>]

Update of /cvsroot/instantobjects/Source/Catalogs/BDE/D6
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26345/Catalogs/BDE/D6

Added Files:
	IOBDECatalog.dpk 
Log Message:
Added BDE catalog and updated BDE broker. Still not a SQL broker so
no external Part(s), etc allowed. Only tested with Paradox database type.

--- NEW FILE: IOBDECatalog.dpk ---
package IOBDECatalog;

{$I ../../../InstantVersion.inc}

{$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 Catalog for BDE (Delphi 6)'}
{$LIBSUFFIX '_D6'}
{$RUNONLY}
{$IMPLICITBUILD OFF}

requires
  rtl,
  bdertl,
  IOCore;

contains
  InstantBDECatalog in '..\InstantBDECatalog.pas';

end.

[Instantobjects-cvscommit] Source/Core InstantPersistence.pas,1.52,1.53

[Steven M. <sr...@us...>]

Update of /cvsroot/instantobjects/Source/Core
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24573

Modified Files:
	InstantPersistence.pas 
Log Message:
Fix (from David Taylor) for "Scheme is not being updated with the values 
of IdDataType and IdSize specified on the connector".

Index: InstantPersistence.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantPersistence.pas,v
retrieving revision 1.52
retrieving revision 1.53
diff -C2 -d -r1.52 -r1.53
*** InstantPersistence.pas	2 Aug 2005 04:50:56 -0000	1.52
--- InstantPersistence.pas	26 Aug 2005 07:08:35 -0000	1.53
***************
*** 26,30 ****
   * Contributor(s):
   * Carlo Barazzetta, Andrea Petrelli, Nando Dessena, Steven Mitchell,
!  * Joao Morais, Cesar Coll, Uberto Barbini
   *
   * ***** END LICENSE BLOCK ***** *)
--- 26,30 ----
   * Contributor(s):
   * Carlo Barazzetta, Andrea Petrelli, Nando Dessena, Steven Mitchell,
!  * Joao Morais, Cesar Coll, Uberto Barbini, David Taylor
   *
   * ***** END LICENSE BLOCK ***** *)
***************
*** 10426,10429 ****
--- 10426,10431 ----
  begin
    Result := TInstantScheme.Create;
+   Result.IdDataType := IdDataType;
+   Result.IdSize     := IdSize;      
    Result.Catalog := TInstantModelCatalog.Create(Result, Model);
  end;

[Instantobjects-cvscommit] Source/Core InstantConsts.pas,1.15,1.16

[Steven M. <sr...@us...>]

Update of /cvsroot/instantobjects/Source/Core
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22000

Modified Files:
	InstantConsts.pas 
Log Message:
Change of resource strings to keep alphabetical order.

Index: InstantConsts.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantConsts.pas,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
*** InstantConsts.pas	24 Jul 2005 16:34:55 -0000	1.15
--- InstantConsts.pas	26 Aug 2005 07:01:23 -0000	1.16
***************
*** 25,29 ****
   *
   * Contributor(s):
!  * Nando Dessena
   *
   * ***** END LICENSE BLOCK ***** *)
--- 25,29 ----
   *
   * Contributor(s):
!  * Nando Dessena, Steven Mitchell
   *
   * ***** END LICENSE BLOCK ***** *)
***************
*** 166,169 ****
--- 166,170 ----
    SUnknownAttributeClass = 'Unknown attribute class for attribute %s(''%s'')';
    SUnspecifiedCommand = 'Command is not specified';
+   SUnsupportedColumnType = 'ColumnType %s not supported';
    SUnsupportedDataType = 'Unsupported datatype: %s';
    SUnsupportedGraphicClass = 'Unsupported graphic class';
***************
*** 172,176 ****
    SUnsupportedType = 'Unsupported type: %s';
    SUpdateConflict = 'Object %s(''%s'') was updated by another session';
-   SUnsupportedColumnType = 'ColumnType %s not supported';
  
  implementation
--- 173,176 ----

[Instantobjects-cvscommit] Source/Catalogs/NexusDB InstantNexusDBCatalog.pas,1.1,1.2

[Steven M. <sr...@us...>]

Update of /cvsroot/instantobjects/Source/Catalogs/NexusDB
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21472

Modified Files:
	InstantNexusDBCatalog.pas 
Log Message:
Added MPL header.

Index: InstantNexusDBCatalog.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Catalogs/NexusDB/InstantNexusDBCatalog.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** InstantNexusDBCatalog.pas	10 Aug 2005 06:11:40 -0000	1.1
--- InstantNexusDBCatalog.pas	26 Aug 2005 06:59:47 -0000	1.2
***************
*** 1,2 ****
--- 1,31 ----
+ (*
+  *   InstantObjects DBEvolver Support
+  *   NexusDB Catalog
+  *)
+ 
+ (* ***** BEGIN LICENSE BLOCK *****
+  * Version: MPL 1.1
+  *
+  * The contents of this file are subject to the Mozilla Public License Version
+  * 1.1 (the "License"); you may not use this file except in compliance with
+  * the License. You may obtain a copy of the License at
+  * http://www.mozilla.org/MPL/
+  *
+  * Software distributed under the License is distributed on an "AS IS" basis,
+  * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
+  * for the specific language governing rights and limitations under the
+  * License.
+  *
+  * The Original Code is: InstantObjects DBEvolver Support/NexusDB Catalog
+  *
+  * The Initial Developer of the Original Code is: Steven Mitchell
+  *
+  * Portions created by the Initial Developer are Copyright (C) 2005
+  * the Initial Developer. All Rights Reserved.
+  *
+  * Contributor(s):
+  *
+  * ***** END LICENSE BLOCK ***** *)
+ 
  unit InstantNexusDBCatalog;
  

[Instantobjects-cvscommit] Source/Brokers/NexusDb InstantNexusDBDefines.inc,1.1,1.2

[Steven M. <sr...@us...>]

Update of /cvsroot/instantobjects/Source/Brokers/NexusDb
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21047

Modified Files:
	InstantNexusDBDefines.inc 
Log Message:
Minor change to turn off platform warnings (NexusDB is MS Windows only).

Index: InstantNexusDBDefines.inc
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/NexusDb/InstantNexusDBDefines.inc,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** InstantNexusDBDefines.inc	11 Aug 2005 00:34:51 -0000	1.1
--- InstantNexusDBDefines.inc	26 Aug 2005 06:57:14 -0000	1.2
***************
*** 1,4 ****
--- 1,9 ----
  { InstantNexusDBDefines.inc }
  
+ {$IFDEF D6+}
+   {$WARN SYMBOL_PLATFORM OFF}
+   {$WARN UNIT_PLATFORM OFF}
+ {$ENDIF}
+ 
  // Enable this compiler condition to
  // build the broker for use with NexusDB V1

[Instantobjects-cvscommit] Source/Catalogs/BDE/D7 - New directory

[Steven M. <sr...@us...>]

Update of /cvsroot/instantobjects/Source/Catalogs/BDE/D7
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20414/D7

Log Message:
Directory /cvsroot/instantobjects/Source/Catalogs/BDE/D7 added to the repository

[Instantobjects-cvscommit] Source/Catalogs/BDE/D6 - New directory

[Steven M. <sr...@us...>]

Update of /cvsroot/instantobjects/Source/Catalogs/BDE/D6
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20380/D6

Log Message:
Directory /cvsroot/instantobjects/Source/Catalogs/BDE/D6 added to the repository

[Instantobjects-cvscommit] Source/Catalogs/BDE/D5 - New directory

[Steven M. <sr...@us...>]

Update of /cvsroot/instantobjects/Source/Catalogs/BDE/D5
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20361/D5

Log Message:
Directory /cvsroot/instantobjects/Source/Catalogs/BDE/D5 added to the repository

[Instantobjects-cvscommit] Source/Catalogs/BDE/D2005 - New directory

[Steven M. <sr...@us...>]

Update of /cvsroot/instantobjects/Source/Catalogs/BDE/D2005
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20267/D2005

Log Message:
Directory /cvsroot/instantobjects/Source/Catalogs/BDE/D2005 added to the repository