source: oup/releases/0.28a/Unit3_data.pas@ 333

Last change on this file since 333 was 27, checked in by alloc, 18 years ago
File size: 2.6 KB
RevLine 
[27]1UNIT Unit3_data;
2INTERFACE
3USES Classes;
4
5CONST
6 version:String='v0.28a';
7 dbversion:String='0.2';
8 CrLf:String[2]=#13+#10;
9
10TYPE
11 Tdata=Array OF Byte;
12 Theader=PACKED RECORD
13 Ident:Array[0..$13] OF Byte;
14 Files:LongWord;
15 NamedFiles:LongWord;
16 Extensions:LongWord;
17 DataAddr:LongWord;
18 DataSize:LongWord;
19 NamesAddr:LongWord;
20 NamesSize:LongWord;
21 Ident2:Array[0..$F] OF Byte;
22 END;
23 Tfilesmap=Array OF PACKED RECORD
24 Extension:Array[0..$3] OF Char;
25 DataAddr:LongWord;
26 NameAddr:LongWord;
27 FileSize:LongWord;
28 FileType:LongWord;
29 END;
30 TFileInfo=PACKED RECORD
31 ID:LongWord;
32 FileName:String;
33 Extension:String[4];
34 Name:String;
35 Size:LongWord;
36 FileType:LongWord;
37 DatAddr:LongWord;
38 opened:Boolean;
39 END;
40 Tfiles=Array OF TFileInfo;
41
42 Tnamedfilesmap=Array OF PACKED RECORD
43 FileNumber:LongWord;
44 blubb:LongWord;
45 END;
46 Textensionsmap=Array OF PACKED RECORD
47 Ident:Array[0..$7] OF Byte;
48 Extension:Array[0..$3] OF Char;
49 ExtCount:LongWord;
50 END;
51
52 TAppSettings=RECORD
53 DatPath:String[250];
54 ExtractPath:String[250];
55 END;
56
57 TExportHandlers=RECORD
58 Ext:String[4];
59 needed:Boolean;
60 Handler:Function(fileid:LongWord; filename:String; convert:Boolean):Integer;
61 END;
62
63 TStringList=Array OF String;
64 TExtList=Array OF RECORD
65 Ext:String;
66 count:LongWord;
67 END;
68
69 TRawInfo=RECORD
70 src_id:LongWord;
71 src_offset:LongWord;
72 raw_addr:LongWord;
73 raw_size:LongWord;
74 loc_sep:Boolean;
75 END;
76 TRawList=Array OF TRawInfo;
77
78VAR
79 opened_state:Byte=0;
80 dat_filename:String='';
81 raw_filename:String='';
82 dat_os_mac:Boolean=False;
83 dat_header:Theader;
84 dat_filesmap:Tfilesmap;
85 dat_files:Tfiles;
86 dat_namedfilesmap:Tnamedfilesmap;
87 dat_extensionsmap:Textensionsmap;
88 AppSettings:TAppSettings;
89 AppSettingsFile:File OF TAppSettings;
90
91 database_level:LongWord;
92 database_ident:Array[0..$13] OF Byte;
93
94CONST
95 header_ident1_pc:Array[0..$13] OF Byte=
96 ($1F,$27,$DC,$33,$DF,$BC,$03,$00,$31,$33,$52,$56,$40,$00,$14,$00,$10,$00,$08,$00);
97 header_ident1_mac:Array[0..$13] OF Byte=
98 ($61,$30,$C1,$23,$DF,$BC,$03,$00,$31,$33,$52,$56,$40,$00,$14,$00,$10,$00,$08,$00);
99 header_ident2:Array[0..$F] OF Byte=
100 ($99,$CF,$40,$00,$90,$4F,$63,$00,$F4,$55,$5F,$00,$90,$4F,$63,$00);
101
102 export_noerror:Integer=0;
103 export_nohandler:Integer=1;
104 export_handlererror:Integer=2;
105 export_error:Integer=3;
106
107 opened_nothing:Byte=0;
108 opened_dat:Byte=1;
109 opened_db:Byte=2;
110
111IMPLEMENTATION
112
113END.
114
Note: See TracBrowser for help on using the repository browser.