sfs and wad code refactoring: part 1

[d2df-sdl.git] / src / unused / WADEDITOR_full.pas

diff --git a/src/shared/WADEDITOR_full.pas b/src/unused/WADEDITOR_full.pas
similarity index 96%
rename from src/shared/WADEDITOR_full.pas
rename to src/unused/WADEDITOR_full.pas
index 8212992fa2b2dc3c174a45b9ae89778aca2cdf08..cec3571c4e7f146b8fcc145699d15f899167999c 100644 (file)
--- a/src/shared/WADEDITOR_full.pas
+++ b/src/unused/WADEDITOR_full.pas
@@ -8,12 +8,40 @@ WADEDITOR.PAS 
 -----------------------------------
 }
 
-interface
+{
+-----------------------------------
+WADSTRUCT.PAS ÂÅÐÑÈß ÎÒ 24.09.06
+
+Ïîääåðæêà âàäîâ âåðñèè 1
+-----------------------------------
 
-uses WADSTRUCT;
+Ñòðóêòóðà DFWAD-ôàéëà âåðñèè 1:
+ ------------------------------------------
+ SIGNATURE  | Byte[5]             | 'DFWAD'
+ VERSION    | Byte                | $01
+ HEADER     | TWADHeaderRec_1     |
+ RESRECORD1 | TResourceTableRec_1 |
+ ...        | ................... |
+ RESRECORDN | TResourceTableRec_1 |
+ DATA       | RAW                 |
+ ------------------------------------------
+}
+
+interface
 
 type
   SArray = array of ShortString;
+  Char16 = packed array[0..15] of Char;
+
+  TWADHeaderRec_1 = packed record
+   RecordsCount: Word;
+  end;
+
+  TResourceTableRec_1 = packed record
+   ResourceName: Char16;
+   Address:      LongWord;
+   Length:       LongWord;
+  end;
 
   TWADEditor_1 = class(TObject)
    private
@@ -55,6 +83,10 @@ type
     property GetVersion: Byte read FVersion;
   end;
 
+const
+  DFWAD_SIGNATURE = 'DFWAD';
+  DFWAD_VERSION   = $01;
+
 const
   DFWAD_NOERROR                = 0;
   DFWAD_ERROR_WADNOTFOUND      = -1;