freepascal.compiler/packages/fcl-res/src/externaltypes.pp

{
    This file is part of the Free Pascal run time library.
    Copyright (c) 2008 by Giulio Bernardi

    Types and constants used by external resource reader and writer

    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.

 **********************************************************************}

{$IFNDEF FPC_DOTTEDUNITS}
unit externaltypes;
{$ENDIF FPC_DOTTEDUNITS}

{$MODE OBJFPC} {$H+}

interface

type
  TExternalResMagic = array[1..6] of AnsiChar;

type
  TExtHeader = packed record
    magic : TExternalResMagic;  //'FPCRES'
    version : byte;             //EXT_CURRENT_VERSION
    endianess : byte;           //EXT_ENDIAN_BIG or EXT_ENDIAN_LITTLE
    count : longword;           //resource count
    nodesize : longword;        //size of header (up to string table, excluded)
    hdrsize  : longword;        //size of header (up to string table, included)
    reserved1 : longword;
    reserved2 : longword;
    reserved3 : longword;
  end;

  TResInfoNode = packed record
    nameid : longword;          //name offset / integer ID / languageID
    ncount : longword;          //named sub-entries count
    idcountsize : longword;     //id sub-entries count / resource size
    subptr : longword;          //first sub-entry offset
  end;

const
  EXTERNAL_RESMAGIC : TExternalResMagic = 'FPCRES';
  
  EXT_CURRENT_VERSION = 1;
  
  EXT_ENDIAN_BIG = 1;
  EXT_ENDIAN_LITTLE = 2;


implementation

end.