mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-31 21:29:41 +01:00
8a95a04e16
in the system unit for easier debugging)
* disabled a bunch more feature flags by default for the JVM target
* incorporate modified version of inc/systemh.inc (split into two parts:
jsystemh_types.inc and jsystemh.inc, because some of the types are
required for the declaration of the shortstring/ansistring/set/...
classes, which in turn are required for the routine declarations) and
inc/system.inc (as jsystem.inc)
o moved some routines around from old to new locations based on where
they appear in the common files
o added a number of defines that allow skipping more common implementations
in case a platform-specific one is already available
* all base classes (AnsistringClass etc) are now descendants of
JLObject rather than TObject, because their declaration is now parsed
before TObject is known (and there's no need for them to inherit from
TObject)
* incorporate modified version of inc/system.inc
* use the common version of generic.inc, currh.inc, gencurr.inc and
genmath.inc (with small modification to those files)
+ addition of quite a bit of system unit functionality (halt, runerror,
random, round, str() for integer types, abs, odd, endian swapping helpers,
bit scanning, trigonometric functions, ln, exp, ...)
o round()/trunc() for comp-types has been renamed trunc_comp() on the
JVM target because their JVM signature conflicts with trunc(currency)
o the unsigned versions of swapendian() and other endian helpers are not
available on the JVM target because of JVM signature conflicts
git-svn-id: branches/jvmbackend@18746 -
82 lines
4.3 KiB
PHP
82 lines
4.3 KiB
PHP
{
|
|
This file is part of the Free Pascal run time library.
|
|
Copyright (c) 1999-2005 by Florian Klaempfl,
|
|
member of the Free Pascal development team.
|
|
|
|
This file implements support routines for UnicodeStrings with FPC
|
|
|
|
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 Pos (Const Substr : UnicodeString; Const Source : UnicodeString) : SizeInt;
|
|
Function Pos (c : Char; Const s : UnicodeString) : SizeInt;
|
|
//Function Pos (c : UnicodeChar; Const s : UnicodeString) : SizeInt;
|
|
//Function Pos (c : AnsiString; Const s : UnicodeString) : SizeInt;
|
|
//Function Pos (c : UnicodeString; Const s : AnsiString) : SizeInt;
|
|
//Function Pos (c : ShortString; Const s : UnicodeString) : SizeInt;
|
|
|
|
Function UpCase(const s : UnicodeString) : UnicodeString;
|
|
Function UpCase(c:UnicodeChar):UnicodeChar;
|
|
|
|
//Procedure Insert (Const Source : UnicodeString; Var S : UnicodeString; Index : SizeInt);
|
|
//Procedure Delete (Var S : UnicodeString; Index,Size: SizeInt);
|
|
//Procedure SetString (Out S : UnicodeString; Buf : PUnicodeChar; Len : SizeInt);
|
|
//Procedure SetString (Out S : UnicodeString; Buf : PChar; Len : SizeInt);
|
|
//
|
|
//function WideCharToString(S : PWideChar) : AnsiString;
|
|
//function StringToWideChar(const Src : AnsiString;Dest : PWideChar;DestSize : SizeInt) : PWideChar;
|
|
//function WideCharLenToString(S : PWideChar;Len : SizeInt) : AnsiString;
|
|
//procedure WideCharLenToStrVar(Src : PWideChar;Len : SizeInt;out Dest : AnsiString);
|
|
//procedure WideCharToStrVar(S : PWideChar;out Dest : AnsiString);
|
|
//
|
|
//function UnicodeCharToString(S : PUnicodeChar) : AnsiString;
|
|
//function StringToUnicodeChar(const Src : AnsiString;Dest : PUnicodeChar;DestSize : SizeInt) : PUnicodeChar;
|
|
//function UnicodeCharLenToString(S : PUnicodeChar;Len : SizeInt) : AnsiString;
|
|
//procedure UnicodeCharLenToStrVar(Src : PUnicodeChar;Len : SizeInt;out Dest : AnsiString);
|
|
//procedure UnicodeCharToStrVar(S : PUnicodeChar;out Dest : AnsiString);
|
|
//
|
|
//procedure DefaultUnicode2AnsiMove(source:punicodechar;var dest:ansistring;len:SizeInt);
|
|
//procedure DefaultAnsi2UnicodeMove(source:pchar;var dest:unicodestring;len:SizeInt);
|
|
|
|
Type
|
|
{ hooks for internationalization
|
|
please add new procedures at the end, it makes it easier to detect new procedures }
|
|
TUnicodeStringManager = class(JLObject)
|
|
collator: JTCollator;
|
|
constructor create;
|
|
end;
|
|
|
|
var
|
|
widestringmanager : TUnicodeStringManager;
|
|
|
|
//function UnicodeToUtf8(Dest: PChar; Source: PUnicodeChar; MaxBytes: SizeInt): SizeInt;{$ifdef SYSTEMINLINE}inline;{$endif}
|
|
//function UnicodeToUtf8(Dest: PChar; MaxDestBytes: SizeUInt; Source: PUnicodeChar; SourceChars: SizeUInt): SizeUInt;
|
|
//function Utf8ToUnicode(Dest: PUnicodeChar; Source: PChar; MaxChars: SizeInt): SizeInt;{$ifdef SYSTEMINLINE}inline;{$endif}
|
|
//function Utf8ToUnicode(Dest: PUnicodeChar; MaxDestChars: SizeUInt; Source: PChar; SourceBytes: SizeUInt): SizeUInt;
|
|
//function UTF8Encode(const s : Ansistring) : UTF8String; inline;
|
|
//function UTF8Encode(const s : UnicodeString) : UTF8String;
|
|
//function UTF8Decode(const s : UTF8String): UnicodeString;
|
|
//function AnsiToUtf8(const s : ansistring): UTF8String;{$ifdef SYSTEMINLINE}inline;{$endif}
|
|
//function Utf8ToAnsi(const s : UTF8String) : ansistring;{$ifdef SYSTEMINLINE}inline;{$endif}
|
|
//function UnicodeStringToUCS4String(const s : UnicodeString) : UCS4String;
|
|
//function UCS4StringToUnicodeString(const s : UCS4String) : UnicodeString;
|
|
//function WideStringToUCS4String(const s : WideString) : UCS4String;
|
|
//function UCS4StringToWideString(const s : UCS4String) : WideString;
|
|
|
|
//Procedure GetWideStringManager (Var Manager : TUnicodeStringManager);
|
|
//Procedure SetWideStringManager (Const New : TUnicodeStringManager);
|
|
//Procedure SetWideStringManager (Const New : TUnicodeStringManager; Var Old: TUnicodeStringManager);
|
|
|
|
//Procedure GetUnicodeStringManager (Var Manager : TUnicodeStringManager);
|
|
//Procedure SetUnicodeStringManager (Const New : TUnicodeStringManager);
|
|
//Procedure SetUnicodeStringManager (Const New : TUnicodeStringManager; Var Old: TUnicodeStringManager);
|
|
|
|
|