mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-01 10:09:31 +01:00
446d91eaab
o support for ansistring constants. It's done via a detour because the
JVM only supports UTF-16 string constants (no array of byte or anything
like that): store every ansicharacter in the lower 8 bits of an
UTF-16 constant string, and at run time copy the characters to an
ansistring. The alternative is to generate code that stores every
character separately to an array.
o the base ansistring support is implemented in a class called
AnsistringClass, and an ansistring is simply an instance of this
class under the hood
o the compiler currently does generate nil pointers as empty
ansistrings unlike for unicodestrings, where we always
explicitly generate an empty string. The reason is that
unicodestrings are the same as JLString and hence common
for Java interoperation, while ansistrings are unlikely to
be used in interaction with external Java code
* fixed indentation
git-svn-id: branches/jvmbackend@18562 -
90 lines
4.7 KiB
PHP
90 lines
4.7 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.
|
|
|
|
**********************************************************************}
|
|
|
|
type
|
|
TAnsiCharArray = array of ansichar;
|
|
AnsistringClass = class sealed
|
|
private
|
|
fdata: TAnsiCharArray;
|
|
public
|
|
constructor Create(const arr: array of ansichar);overload;
|
|
constructor Create(const arr: array of unicodechar);overload;
|
|
constructor Create(const u: unicodestring);overload;
|
|
constructor Create(const a: ansistring);overload;
|
|
constructor Create(ch: ansichar);overload;
|
|
constructor Create(ch: unicodechar);overload;
|
|
class function CreateFromLiteralStringBytes(const u: unicodestring): ansistring; static;
|
|
function charAt(index: jint): ansichar;
|
|
function toUnicodeString: unicodestring;
|
|
function toString: JLString; override;
|
|
// function concat(const a: ansistring): ansistring;
|
|
// function concatmultiple(const arr: array of ansistring): ansistring;
|
|
function length: jint;
|
|
end;
|
|
|
|
Function Pos (Const Substr : Ansistring; Const Source : Ansistring) : SizeInt;
|
|
Function Pos (c : AnsiChar; Const s : Ansistring) : 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 : Ansistring) : Ansistring;
|
|
//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);
|
|
|
|
//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);
|
|
|
|
|