mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-30 20:11:29 +01:00
1f96763b9d
jsstringh.inc -> use generic inc/sstrings.inc
* added a bunch of extra {$ifdef FPC_HAS_XXX} protections around
routines in inc/sstrings.inc and implemented those routines for
the JVM target in java/jsstrings.inc
* use the majority of the generic routine in sstrings.inc now also
for the JVM target! Only a few changes were needed:
o in a few places, calls to move() for copying shortstring->shortstring
or shortstring->chararray were replaced with calls to a new inline
helper that calls move() in the version in inc/sstrings.inc, and
JLSystem.arraycopt() in in the version in java/jsstrings.inc
o changed the currency argument to str() for the JVM target to constref
so its address can be taken (has to be typecasted to int64 without
changing the value), and similarly changed the temporary result
inside that routine to an array of 1 elements so the address can be
taken
o don't typecast the real value to a record type in str_real for the
JVM target, but work via an int64 instead to extract sign/mantissa/exp
o everything else compiled and worked as is!!
-> val, str, hexstr/octstr/binstr, delete, pos, insert, setstring and
comparetext now all work for shortstrings on the JVM target
git-svn-id: branches/jvmbackend@18836 -
54 lines
2.2 KiB
PHP
54 lines
2.2 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 (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): TAnsiCharArray; static;
|
|
end;
|
|
|
|
|