src/shared/WADSTRUCT.pas

   1 unit WADSTRUCT;
   2
   3 {
   4 -----------------------------------
   5 WADSTRUCT.PAS ÂÅÐÑÈß ÎÒ 24.09.06
   6
   7 Ïîääåðæêà âàäîâ âåðñèè 1
   8 -----------------------------------
   9
  10 Ñòðóêòóðà DFWAD-ôàéëà âåðñèè 1:
  11  ------------------------------------------
  12  SIGNATURE  | Byte[5]             | 'DFWAD'
  13  VERSION    | Byte                | $01
  14  HEADER     | TWADHeaderRec_1     |
  15  RESRECORD1 | TResourceTableRec_1 |
  16  ...        | ................... |
  17  RESRECORDN | TResourceTableRec_1 |
  18  DATA       | RAW                 |
  19  ------------------------------------------
  20 }
  21
  22 interface
  23
  24 type
  25   Char16 = packed array[0..15] of Char;
  26
  27   TWADHeaderRec_1 = packed record
  28    RecordsCount: Word;
  29   end;
  30
  31   TResourceTableRec_1 = packed record
  32    ResourceName: Char16;
  33    Address:      LongWord;
  34    Length:       LongWord;
  35   end;
  36
  37 const
  38   DFWAD_SIGNATURE = 'DFWAD';
  39   DFWAD_VERSION   = $01;
  40
  41 implementation
  42
  43 end.