fpc/rtl/java/jdynarrh.inc

{
    This file is part of the Free Pascal run time library.
    Copyright (c) 2011 by Jonas Maebe
    member of the Free Pascal development team.

    This file implements the helper routines for dyn. Arrays in 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
  TJByteArray = array of jbyte;
  TJShortArray = array of jshort;
  TJIntArray = array of jint;
  TJLongArray = array of jlong;
  TJCharArray = array of jchar;
  TJFloatArray = array of jfloat;
  TJDoubleArray = array of jdouble;
  TJObjectArray = array of JLObject;
  TJRecordArray = array of FpcBaseRecordType;
  TJStringArray = array of unicodestring;

const
  FPCJDynArrTypeJByte   = 'B';
  FPCJDynArrTypeJShort  = 'S';
  FPCJDynArrTypeJInt    = 'I';
  FPCJDynArrTypeJLong   = 'J';
  FPCJDynArrTypeJChar   = 'C';
  FPCJDynArrTypeJFloat  = 'F';
  FPCJDynArrTypeJDouble = 'D';
  FPCJDynArrTypeJObject = 'A';
  FPCJDynArrTypeRecord  = 'R';

{ 1-dimensional setlength routines

  Convention: aorg, is the current array, anew: is a newly allocated array of the
    size specified to setlength. The function either returns org if it had the
    right size already, or copies (part of) org in new and returns new.
}
function fpc_setlength_dynarr_jbyte(aorg, anew: TJByteArray; deepcopy: boolean): TJByteArray;
function fpc_setlength_dynarr_jshort(aorg, anew: TJShortArray; deepcopy: boolean): TJShortArray;
function fpc_setlength_dynarr_jint(aorg, anew: TJIntArray; deepcopy: boolean): TJIntArray;
function fpc_setlength_dynarr_jlong(aorg, anew: TJLongArray; deepcopy: boolean): TJLongArray;
function fpc_setlength_dynarr_jchar(aorg, anew: TJCharArray; deepcopy: boolean): TJCharArray;
function fpc_setlength_dynarr_jfloat(aorg, anew: TJFloatArray; deepcopy: boolean): TJFloatArray;
function fpc_setlength_dynarr_jdouble(aorg, anew: TJDoubleArray; deepcopy: boolean): TJDoubleArray;
function fpc_setlength_dynarr_jobject(aorg, anew: TJObjectArray; deepcopy: boolean; docopy : boolean = true): TJObjectArray;
function fpc_setlength_dynarr_jrecord(aorg, anew: TJRecordArray; deepcopy: boolean): TJRecordArray;

{ array copying helpers }

procedure fpc_copy_jbyte_array(src, dst: TJByteArray);
procedure fpc_copy_jshort_array(src, dst: TJShortArray);
procedure fpc_copy_jint_array(src, dst: TJIntArray);
procedure fpc_copy_jlong_array(src, dst: TJLongArray);
procedure fpc_copy_jchar_array(src, dst: TJCharArray);
procedure fpc_copy_jfloat_array(src, dst: TJFloatArray);
procedure fpc_copy_jdouble_array(src, dst: TJDoubleArray);
procedure fpc_copy_jobject_array(src, dst: TJObjectArray);
procedure fpc_copy_jrecord_array(src, dst: TJRecordArray);

{ multi-dimendional setlength routine: all intermediate dimensions are arrays
  of arrays, so that's the same for all array kinds. Only the type of the final
  dimension matters.

  org is the current array, new is a newly allocated array of the
  (multi-demensional) size specified to setlength.

  This routine uses the intermediate levels from the old array if possible so
  that an unchanged array remains in the same place.

  Warning: ndim must be >= 2 when this routine is called.
}
function fpc_setlength_dynarr_multidim(aorg, anew: TJObjectArray; deepcopy: boolean; ndim: longint; eletype: jchar): TJObjectArray;