source: oup/releases/0.14a/Unit3_data.pas@ 409

Last change on this file since 409 was 21, checked in by alloc, 18 years ago
File size: 1.9 KB
Line 
1UNIT Unit3_data;
2INTERFACE
3USES Classes;
4
5CONST
6 version:String='v0.14a';
7 CrLf:String[2]=#13+#10;
8
9TYPE
10 Tdata=Array OF Byte;
11 Theader=PACKED RECORD
12 Ident:Array[0..$13] OF Byte;
13 Files:LongWord;
14 NamedFiles:LongWord;
15 Extensions:LongWord;
16 DataAddr:LongWord;
17 DataSize:LongWord;
18 NamesAddr:LongWord;
19 NamesSize:LongWord;
20 Ident2:Array[0..$F] OF Byte;
21 END;
22 Tfilesmap=Array OF PACKED RECORD
23 Extension:Array[0..$3] OF Char;
24 DataAddr:LongWord;
25 NameAddr:LongWord;
26 FileSize:LongWord;
27 FileType:LongWord;
28 END;
29 Tfiles=Array OF PACKED RECORD
30 FileName:String;
31 Extension:String[4];
32 Name:String;
33 Size:LongWord;
34 FileType:LongWord;
35 DatAddr:LongWord;
36 END;
37
38 Tnamedfilesmap=Array OF PACKED RECORD
39 FileNumber:LongWord;
40 blubb:LongWord;
41 END;
42 Textensionsmap=Array OF PACKED RECORD
43 Ident:Array[0..$7] OF Byte;
44 Extension:Array[0..$3] OF Char;
45 ExtCount:LongWord;
46 END;
47
48 TAppSettings=RECORD
49 DatPath:String[250];
50 ExtractPath:String[250];
51 END;
52
53 TExportHandlers=RECORD
54 Ext:String[4];
55 needed:Boolean;
56 Handler:Function(fileid:LongWord; convert:Boolean):Integer;
57 END;
58
59VAR
60 dat_filename:String='';
61 raw_filename:String='';
62 dat_header:Theader;
63 dat_filesmap:Tfilesmap;
64 dat_files:Tfiles;
65 dat_namedfilesmap:Tnamedfilesmap;
66 dat_extensionsmap:Textensionsmap;
67 AppSettings:TAppSettings;
68 AppSettingsFile:File OF TAppSettings;
69
70CONST
71 header_ident1:Array[0..$13] OF Byte=
72 ($1F,$27,$DC,$33,$DF,$BC,$03,$00,$31,$33,$52,$56,$40,$00,$14,$00,$10,$00,$08,$00);
73 header_ident2:Array[0..$F] OF Byte=
74 ($99,$CF,$40,$00,$90,$4F,$63,$00,$F4,$55,$5F,$00,$90,$4F,$63,$00);
75
76 export_noerror:Integer=0;
77 export_nohandler:Integer=1;
78 export_handlererror:Integer=2;
79 export_error:Integer=3;
80
81IMPLEMENTATION
82
83END.
84
Note: See TracBrowser for help on using the repository browser.