src/shared/WADSTRUCT.pas

   1 unit WADSTRUCT;
   2
   3 {$MODE Delphi}
   4
   5 {
   6 -----------------------------------
   7 WADSTRUCT.PAS ВЕРСИЯ ОТ 24.09.06
   8
   9 Поддержка вадов версии 1
  10 -----------------------------------
  11
  12 Структура DFWAD-файла версии 1:
  13  ------------------------------------------
  14  SIGNATURE  | Byte[5]             | 'DFWAD'
  15  VERSION    | Byte                | $01
  16  HEADER     | TWADHeaderRec_1     |
  17  RESRECORD1 | TResourceTableRec_1 |
  18  ...        | ................... |
  19  RESRECORDN | TResourceTableRec_1 |
  20  DATA       | RAW                 |
  21  ------------------------------------------
  22 }
  23
  24 interface
  25
  26 type
  27   Char16 = packed array[0..15] of Char;
  28
  29   TWADHeaderRec_1 = packed record
  30    RecordsCount: Word;
  31   end;
  32
  33   TResourceTableRec_1 = packed record
  34    ResourceName: Char16;
  35    Address:      LongWord;
  36    Length:       LongWord;
  37   end;
  38
  39 const
  40   DFWAD_SIGNATURE = 'DFWAD';
  41   DFWAD_VERSION   = $01;
  42
  43 implementation
  44
  45 end.