mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-13 09:39:25 +02:00
91 lines
4.8 KiB
PHP
91 lines
4.8 KiB
PHP
{
|
|
This file is part of the Free Pascal run time library.
|
|
Copyright (c) 1999-2005,2011 by Florian Klaempfl and Jonas Maebe,
|
|
members of the Free Pascal development team.
|
|
|
|
This file implements support routines for AnsiStrings with FPC/JVM
|
|
|
|
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
|
|
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(const s: shortstring);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 toShortstring(maxlen: byte): shortstring;
|
|
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);
|
|
|
|
|