fpc/rtl/java/sstringh.inc

{
    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 (JLObject,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 (JLObject)
   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);