paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 17:30:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
consortium for the character.pas unit)

git-svn-id: trunk@22494 -
This commit is contained in:
Jonas Maebe 2012-09-28 07:57:45 +00:00
parent 21e162604c
commit b4971c72d3
14 changed files with 115 additions and 72 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/objpas/classes/resref.inc
View File

@ -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.

14
rtl/objpas/classes/sllist.inc
View File

@ -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

18
rtl/objpas/sysutils/intfh.inc
View File

@ -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
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.
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
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.
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
*********************************************************************
System Utilities For Free Pascal
}
const

10
rtl/objpas/sysutils/syscodepages.inc
View File

@ -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;

14
rtl/objpas/sysutils/syscodepagesh.inc
View File

@ -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;

14
rtl/objpas/sysutils/sysencoding.inc
View File

@ -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 }

14
rtl/objpas/sysutils/sysencodingh.inc
View File

@ -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);

16
rtl/objpas/sysutils/sysformt.inc
View File

@ -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;

5
rtl/objpas/sysutils/sysstr.inc
View File

@ -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.

18
rtl/objpas/sysutils/sysuintf.inc
View File

@ -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
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.
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
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.
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
*********************************************************************
System Utilities For Free Pascal
}
function Supports(const Instance: IInterface; const AClass: TClass; out Obj): Boolean;

13
rtl/objpas/sysutils/sysuni.inc
View File

@ -2,19 +2,12 @@
*********************************************************************
Copyright (C) 2002-2005 by Florian Klaempfl
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.
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
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.
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
*********************************************************************
}

13
rtl/objpas/sysutils/sysunih.inc
View File

@ -2,19 +2,12 @@
*********************************************************************
Copyright (C) 2002 by Florian Klaempfl
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.
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
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.
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
*********************************************************************
}

13
rtl/objpas/sysutils/syswide.inc
View File

@ -2,19 +2,12 @@
*********************************************************************
Copyright (C) 2002-2005 by Florian Klaempfl
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.
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
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.
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
*********************************************************************
}

13
rtl/objpas/sysutils/syswideh.inc
View File

@ -2,19 +2,12 @@
*********************************************************************
Copyright (C) 2002 by Florian Klaempfl
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.
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
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.
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
*********************************************************************
}