mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-31 23:30:39 +01:00
109 lines
5.8 KiB
PHP
109 lines
5.8 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 Shortstrings 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
|
|
TAnsiCharArray = array of ansichar;
|
|
ShortstringClass = class sealed (JLCloneable)
|
|
public
|
|
{ "length byte" }
|
|
curlen: byte;
|
|
{ length is always the maximum length of the string (so that even reads
|
|
past the current length of the shortstring work, just like in regular
|
|
shortstrings }
|
|
fdata: TAnsiCharArray;
|
|
public
|
|
constructor Create(const arr: array of ansichar; maxlen: byte);overload;
|
|
constructor Create(const arr: array of unicodechar; maxlen: byte);overload;
|
|
constructor Create(const u: unicodestring; maxlen: byte);overload;
|
|
constructor Create(const a: ansistring; maxlen: byte);overload;
|
|
constructor Create(const s: shortstring; maxlen: byte);overload;
|
|
constructor Create(ch: ansichar; maxlen: byte);overload;
|
|
constructor Create(ch: unicodechar; maxlen: byte);overload;
|
|
class function CreateEmpty(maxlen: byte): ShortstringClass; static;
|
|
class function CreateFromLiteralStringBytes(const u: unicodestring): shortstring; static;
|
|
procedure FpcDeepCopy(dest: ShortstringClass);
|
|
procedure setChar(index: jint; char: ansichar);
|
|
function charAt(index: jint): ansichar;
|
|
function toUnicodeString: unicodestring;
|
|
function toAnsistring: ansistring;
|
|
function toString: JLString; override;
|
|
function clone: JLObject; override;
|
|
// function concat(const a: shortstring): shortstring;
|
|
// function concatmultiple(const arr: array of shortstring): shortstring;
|
|
function length: jint;
|
|
end;
|
|
|
|
AnsiCharArrayClass = class sealed
|
|
class function CreateFromLiteralStringBytes(const u: unicodestring; maxlen: byte): TAnsiCharArray; static;
|
|
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 Pos (c : AnsiChar; Const s : Shortstring) : SizeInt;
|
|
Function Pos (const substr : ShortString; Const source : Shortstring) : SizeInt;
|
|
//Function Pos (c : char; Const s : UnicodeString) : SizeInt;
|
|
|
|
Function UpCase(const s : shortstring) : shortstring;
|
|
Function LowerCase(const s : shortstring) : shortstring;
|
|
//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);
|
|
|
|
|