* partial fix for mantis #22912 (waiting on clarification from Unicode

consortium for the character.pas unit)

git-svn-id: trunk@22494 -

rtl/objpas/classes/resref.inc

@@ -1,4 +1,16 @@
+{
+    This file is part of the Free Pascal Run Time Library (rtl)
+    Copyright (c) 2007 by Michael Van Canneyt,
+    member of the Free Pascal development team
 
+    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.
+
+ **********************************************************************}
 
 type
   // Quadruple representing an unresolved component property.

rtl/objpas/classes/sllist.inc

@@ -1,3 +1,17 @@
+{
+    This file is part of the Free Pascal Run Time Library (rtl)
+    Copyright (c) 2007 by Michael Van Canneyt,
+    member of the Free Pascal development team
+
+    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.
+
+ **********************************************************************}
+
 Type
   TLinkedListItem = Class
   Public

rtl/objpas/sysutils/intfh.inc

@@ -1,23 +1,15 @@
 {
     *********************************************************************
-    Copyright (C) 2002 Free Pascal Development Team
+    Copyright (C) 2002 Peter Vreman,
+    member of the Free Pascal Development Team
 
-    This program is free software; you can redistribute it and/or modify
+    See the file COPYING.FPC, included in this distribution,
-    it under the terms of the GNU General Public License as published by
+    for details about the copyright.
-    the Free Software Foundation; either version 2 of the License, or
-    (at your option) any later version.
 
     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.  See the
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-    GNU General Public License for more details.
-
-    You should have received a copy of the GNU General Public License
-    along with this program; if not, write to the Free Software
-    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
     *********************************************************************
-
-    System Utilities For Free Pascal
 }
 
 const

rtl/objpas/sysutils/syscodepages.inc

@@ -1,8 +1,16 @@
 {
-  These codepages are taken from the next resources:
+  This file is in the public domain.
+}
+
+{
+  This codepage information is based on what is documented at
     1. http://wiki.whatwg.org/wiki/Web_Encodings
     2. http://msdn.microsoft.com/en-us/library/windows/desktop/dd317756(v=vs.85).aspx
+
+    This file only uses bare facts and API information from the above pages
+    rather than descriptions or code, neither of which are copyrightable.
 }
+
 type
   TCodePageHashEntry = record
     hash: LongWord;

rtl/objpas/sysutils/syscodepagesh.inc

@@ -1,2 +1,16 @@
+{
+    *********************************************************************
+    Copyright (C) 2012 Paul Ishenin,
+    member of the Free Pascal Development Team
+
+    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.
+    *********************************************************************
+}
+
 function CodePageToCodePageName(cp: TSystemCodePage): AnsiString;
 function CodePageNameToCodePage(const cpname: AnsiString): TSystemCodePage;

rtl/objpas/sysutils/sysencoding.inc

@@ -1,3 +1,17 @@
+{
+    *********************************************************************
+    Copyright (C) 2012 Paul Ishenin,
+    member of the Free Pascal Development Team
+
+    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.
+    *********************************************************************
+}
+
 {$ifndef VER2_4}
 { TEncoding }
 

rtl/objpas/sysutils/sysencodingh.inc

@@ -1,3 +1,17 @@
+{
+    *********************************************************************
+    Copyright (C) 2012 Paul Ishenin,
+    member of the Free Pascal Development Team
+
+    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.
+    *********************************************************************
+}
+
 {$ifndef VER2_4}
 type
   EEncodingError = class(Exception);

rtl/objpas/sysutils/sysformt.inc

@@ -1,3 +1,19 @@
+{
+    *********************************************************************
+    Copyright (C) 1997, 1998 Gertjan Schouten
+
+    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.
+
+ **********************************************************************
+
+    System Utilities For Free Pascal
+}
+
 Var ChPos,OldPos,ArgPos,DoArg,Len : SizeInt;
     Hs,ToAdd : TFormatString;
     Index : SizeInt;

rtl/objpas/sysutils/sysstr.inc

@@ -2,11 +2,6 @@
     *********************************************************************
     Copyright (C) 1997, 1998 Gertjan Schouten
 
-    This program is free software; you can redistribute it and/or modify
-    it under the terms of the GNU General Public License as published by
-    the Free Software Foundation; either version 2 of the License, or
-    (at your option) any later version.
-
     See the file COPYING.FPC, included in this distribution,
     for details about the copyright.
 

rtl/objpas/sysutils/sysuintf.inc

@@ -1,23 +1,15 @@
 {
     *********************************************************************
-    Copyright (C) 2002 Free Pascal Development Team
+    Copyright (C) 2002 Peter Vreman,
+    member of the Free Pascal Development Team
 
-    This program is free software; you can redistribute it and/or modify
+    See the file COPYING.FPC, included in this distribution,
-    it under the terms of the GNU General Public License as published by
+    for details about the copyright.
-    the Free Software Foundation; either version 2 of the License, or
-    (at your option) any later version.
 
     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.  See the
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-    GNU General Public License for more details.
-
-    You should have received a copy of the GNU General Public License
-    along with this program; if not, write to the Free Software
-    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
     *********************************************************************
-
-    System Utilities For Free Pascal
 }
 
 function Supports(const Instance: IInterface; const AClass: TClass; out Obj): Boolean;

rtl/objpas/sysutils/sysuni.inc

@@ -2,19 +2,12 @@
     *********************************************************************
     Copyright (C) 2002-2005 by Florian Klaempfl
 
-    This program is free software; you can redistribute it and/or modify
+    See the file COPYING.FPC, included in this distribution,
-    it under the terms of the GNU General Public License as published by
+    for details about the copyright.
-    the Free Software Foundation; either version 2 of the License, or
-    (at your option) any later version.
 
     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.  See the
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-    GNU General Public License for more details.
-
-    You should have received a copy of the GNU General Public License
-    along with this program; if not, write to the Free Software
-    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
     *********************************************************************
 }
 

rtl/objpas/sysutils/sysunih.inc

@@ -2,19 +2,12 @@
     *********************************************************************
     Copyright (C) 2002 by Florian Klaempfl
 
-    This program is free software; you can redistribute it and/or modify
+    See the file COPYING.FPC, included in this distribution,
-    it under the terms of the GNU General Public License as published by
+    for details about the copyright.
-    the Free Software Foundation; either version 2 of the License, or
-    (at your option) any later version.
 
     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.  See the
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-    GNU General Public License for more details.
-
-    You should have received a copy of the GNU General Public License
-    along with this program; if not, write to the Free Software
-    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
     *********************************************************************
 }
 

rtl/objpas/sysutils/syswide.inc

@@ -2,19 +2,12 @@
     *********************************************************************
     Copyright (C) 2002-2005 by Florian Klaempfl
 
-    This program is free software; you can redistribute it and/or modify
+    See the file COPYING.FPC, included in this distribution,
-    it under the terms of the GNU General Public License as published by
+    for details about the copyright.
-    the Free Software Foundation; either version 2 of the License, or
-    (at your option) any later version.
 
     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.  See the
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-    GNU General Public License for more details.
-
-    You should have received a copy of the GNU General Public License
-    along with this program; if not, write to the Free Software
-    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
     *********************************************************************
 }
 

rtl/objpas/sysutils/syswideh.inc

@@ -2,19 +2,12 @@
     *********************************************************************
     Copyright (C) 2002 by Florian Klaempfl
 
-    This program is free software; you can redistribute it and/or modify
+    See the file COPYING.FPC, included in this distribution,
-    it under the terms of the GNU General Public License as published by
+    for details about the copyright.
-    the Free Software Foundation; either version 2 of the License, or
-    (at your option) any later version.
 
     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.  See the
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-    GNU General Public License for more details.
-
-    You should have received a copy of the GNU General Public License
-    along with this program; if not, write to the Free Software
-    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
     *********************************************************************
 }