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

Last change on this file since 27 was 27, checked in by alloc, 15 years ago
File size: 2.6 KB
Line 
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.