{  (c) Copyright 1998,2000 Bernhard R. Link (2:2476/841.64;brl@gmx.de)
****************************************************************************
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
License as published by the Free Software Foundation; either
version 2.1 of the License, or (at your option) any later version.

This library 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.  See the GNU
Lesser General Public License for more details.

You should have received a copy of the GNU Lesser General Public
License along with this library; if not, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
****************************************************************************}
Unit MKSqIDX;{Squish-IDX-Types}
{$I platform.inc}
{$I mkglobal.inc}
{---------------------------------------------
 Bestandteil des JanPack-Editor-Projects
 ---------------------------------------------}
interface
uses aTypes;

{$IFDEF BIT_16}
Type TIDXNum=uInt2;
{$ELSE}
Type TIDXNum=uInt4;
{$ENDIF}

Type TUMID=Int4;{-1=invalid}

Type SqIdxType = packed Record
  Ofs: TFileOfs; {Offset of frame header}
  UMsgId: TUMID; {Unique message id}
  Hash: uInt4; {Hash of MsgTo name}
  End;

{$IFNDEF BIT_16}
Const SqIdxArraySize= 65535;
//Const SqIdxArraySize= 256000; // This compiles fine under VPascal
{$ELSE}
Const SqIdxArraySize = 5200;
{$ENDIF}

Type SqIdxArrayType = Array[1..SqIdxArraySize] of SqIdxType;

Type SqIdxPtrType = ^SqIdxArrayType;
implementation
end.