+ Added copyright header

fcl/db/createds.pp

@@ -1,3 +1,19 @@
+{
+    $Id$
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 1999 by Michael Van Canneyt, member of the 
+    Free Pascal development team
+
+    Creates a flat datafile for use with testds.
+    
+    See the file COPYING.FPC, included in this distribution,
+    for details about the copyright.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ **********************************************************************}
 program createds;
 
 uses ddg_rec,sysutils;
@@ -37,3 +53,9 @@ begin
     Write(L,I);
   Close(L);  
 end.
+{
+  $Log$
+  Revision 1.2  1999-10-24 17:07:54  michael
+  + Added copyright header
+
+}

fcl/db/database.inc

@@ -1,3 +1,19 @@
+{
+    $Id$
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 1999 by Michael Van Canneyt, member of the 
+    Free Pascal development team
+
+    TDatabase and related objects implementation
+    
+    See the file COPYING.FPC, included in this distribution,
+    for details about the copyright.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ **********************************************************************}
 
 { ---------------------------------------------------------------------
     TDatabase
@@ -155,4 +171,11 @@ begin
       Value.RegisterDataset(Self);
     FDatabase:=Value; 
     end;
-end;  
+end;  
+
+{
+  $Log$
+  Revision 1.2  1999-10-24 17:07:54  michael
+  + Added copyright header
+
+}

fcl/db/dataset.inc

@@ -1,3 +1,19 @@
+{
+    $Id$
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 1999 by Michael Van Canneyt, member of the 
+    Free Pascal development team
+
+    Dataset implementation
+    
+    See the file COPYING.FPC, included in this distribution,
+    for details about the copyright.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ **********************************************************************}
 { ---------------------------------------------------------------------
     TDataSet
   ---------------------------------------------------------------------}
@@ -1265,3 +1281,10 @@ begin
     FreeMem(temp);
   end;
 end;
+
+{
+  $Log$
+  Revision 1.2  1999-10-24 17:07:54  michael
+  + Added copyright header
+
+}

fcl/db/db.pp

@@ -1,3 +1,20 @@
+{
+    $Id$
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 1999 by Michael Van Canneyt, member of the 
+    Free Pascal development team
+
+
+    DB header file with interface section.
+    
+    See the file COPYING.FPC, included in this distribution,
+    for details about the copyright.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ **********************************************************************}
 unit db;
 
 {$mode objfpc}
@@ -1235,4 +1252,11 @@ end;
 {$i fields.inc}
 {$i database.inc}
 
-end.
+end.
+
+{
+  $Log$
+  Revision 1.2  1999-10-24 17:07:54  michael
+  + Added copyright header
+
+}

fcl/db/dbs.inc

@@ -1,3 +1,20 @@
+{
+    $Id$
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 1999 by Michael Van Canneyt, member of the
+    Free Pascal development team
+
+    Constants used for displaying messages in DB unit
+    
+    See the file COPYING.FPC, included in this distribution,
+    for details about the copyright.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ **********************************************************************}
+
 Const
   SUnknownFieldType = 'Unknown field type : %s';
   SUnknownField = 'No field named "%s" was found in dataset "%s"';
@@ -22,4 +39,11 @@ Const
   SNoDatasetRegistered = 'No such dataset registered : "%s"';
   SNotConnected = 'Operation cannot be performed on an disconnected database';
   SConnected = 'Operation cannot be performed on an connected database';
-  SNoSuchRecord = 'Could not find the requested record.';  
+  SNoSuchRecord = 'Could not find the requested record.';  
+
+{
+  $Log$
+  Revision 1.2  1999-10-24 17:07:54  michael
+  + Added copyright header
+
+}  

fcl/db/fields.inc

@@ -1,3 +1,19 @@
+{
+    $Id$
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 1999 by Michael Van Canneyt, member of the 
+    Free Pascal development team
+
+    TFields and related components implementations.
+    
+    See the file COPYING.FPC, included in this distribution,
+    for details about the copyright.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ **********************************************************************}
 PRocedure DumpMem (P : Pointer;Size : Longint);
 
 Type PByte = ^Byte;
@@ -1716,3 +1732,9 @@ begin
     FFieldList.Delete(I); 
 end;
 
+{
+  $Log$
+  Revision 1.2  1999-10-24 17:07:54  michael
+  + Added copyright header
+
+}

fcl/db/mtest.pp

@@ -1,4 +1,19 @@
-program testds;
+{
+    $Id$
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 1998 by the Free Pascal development team
+
+    <What does this file>
+    
+    See the file COPYING.FPC, included in this distribution,
+    for details about the copyright.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ **********************************************************************}
+program mtest;
 
 uses db,sysutils,mysqldb;
 
@@ -163,4 +178,11 @@ begin
     Log('End.');
     Free;
     end;    
-end.
+end.
+
+{
+   $Log$
+   Revision 1.2  1999-10-24 17:07:54  michael
+   + Added copyright header
+
+}

fcl/db/testds.pp

@@ -1,3 +1,19 @@
+{
+    $Id$
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 1999 by Michael Van Canneyt, member of the 
+    Free Pascal development team
+
+    Tests the TDDGDataset component.
+    
+    See the file COPYING.FPC, included in this distribution,
+    for details about the copyright.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ **********************************************************************}
 program testds;
 
 uses db,ddg_ds,sysutils;
@@ -157,4 +173,10 @@ begin
     Log('End.');
     Free;
     end;    
-end.
+end.
+{
+  $Log$
+  Revision 1.2  1999-10-24 17:07:54  michael
+  + Added copyright header
+
+}