DBPF文件描述翻译完成，翻译求指正

UFD

RT。http://old-wiki.scunited.net/index.php?title=DBPF

lrdcq

不错不错……虽然对于会写程序的人，完全没有翻译的必要……另外，为毛我的手机点不开评分了==

lrdcq

话说……源码的话，有一段perl源码可以传上去……我写的lua版的读写码库就是参考那个写的……毕竟perl天生看起来简洁，抄起来很方便

lrdcq

对了对了，还有个java版的…打包成jar库用的……考虑到java的跨平台性，把那个拉出来也不错

UFD

原帖由 lrdcq 于 2012-7-4 13:08 发表
不错不错……虽然对于会写程序的人，完全没有翻译的必要……另外，为毛我的手机点不开评分了==

原帖由 lrdcq 于 2012-7-4 13:15 发表
话说……源码的话，有一段perl源码可以传上去……我写的lua版的读写码库就是参考那个写的……毕竟perl天生看起来简洁，抄起来很方便

原帖由 lrdcq 于 2012-7-4 13:18 发表
对了对了，还有个java版的…打包成jar库用的……考虑到java的跨平台性，把那个拉出来也不错

（分了那么多楼 = =）

多谢提醒~~~~~~~~以及可能的话能否帮忙提供一下Perl及Java版的源码？感激不尽

（以及翻译成中文只是因为密集外语恐惧症而已 = =）

UFD

加上了代码高亮的PHP源码

http://old-wiki.scunited.net/index.php?title=DBPF/PHP%D4%B4%C2%EB

lrdcq

PERL那段手上倒有

1. #
   
2. #  Parse a DBPF (Sims etc) file
   
3. #
   
4. 
   
5. use strict;
   
6. 
   
7. my $i;
   
8. my @cparray;
   
9. 
   
10. if (@ARGV!=1) {
    
11.   print <<"EOD";
    
12. usage: sdat [whatever.package or whatever]
    
13. 
    
14. Parses the given DBPF file, and says stuff about it.
    
15. EOD
    
16.   exit 100;
    
17. }
    
18. 
    
19. my $fn = $ARGV[0];
    
20. 
    
21. print "Reading $fn.\n";
    
22. 
    
23. open FH, "<$fn" or die "Error opening $fn; $!";
    
24. binmode FH;
    
25. 
    
26. my $fs = (stat FH)[7];
    
27. 
    
28. print "$fn is $fs long.\n";
    
29. 
    
30. my $data;
    
31. 
    
32. my $dbpf;
    
33. read FH,$dbpf,4;
    
34. 
    
35. print qq#Magic number is "$dbpf".\n#;
    
36. 
    
37. if ($dbpf ne "DBPF") {
    
38.   print "  This is probably not a Maxis DBPF file.\n";
    
39.   exit 29;
    
40. } else {
    
41.   print "  This is correct.\n";
    
42. }
    
43. 
    
44. read FH,$data,4;
    
45. my $versionmajor = unpack "V", $data;
    
46. print "Major version is: $versionmajor \n";
    
47. 
    
48. read FH,$data,4;
    
49. my $versionminor = unpack "V", $data;
    
50. print "Minor version is: $versionminor \n";
    
51. 
    
52. print "Unused: ";
    
53. for (1..3) {
    
54.   read FH,$data,4;
    
55.   my $v = unpack "V", $data;
    
56.   printf "%08x ", $v;
    
57. }
    
58. print "\n";
    
59. 
    
60. read FH,$data,4;
    
61. my $created = unpack "V", $data;
    
62. printf "Created: %08x \n", $created;
    
63. 
    
64. read FH,$data,4;
    
65. my $modified = unpack "V", $data;
    
66. printf "Modified: %08x \n", $modified;
    
67. 
    
68. read FH,$data,4;
    
69. my $iversion = unpack "V", $data;
    
70. printf "Index version: %08x \n", $iversion;
    
71. 
    
72. read FH,$data,4;
    
73. my $ientries = unpack "V", $data;
    
74. printf "Index entries: %08x \n", $ientries;
    
75. 
    
76. read FH,$data,4;
    
77. my $ioffset = unpack "V", $data;
    
78. printf "Index offset: %08x \n", $ioffset;
    
79. 
    
80. read FH,$data,4;
    
81. my $isize = unpack "V", $data;
    
82. printf "Index length: %08x \n", $isize;
    
83. 
    
84. my $ientrylength = $isize / $ientries;
    
85. printf "Index entry length: $ientrylength \n";
    
86. 
    
87. read FH,$data,4;
    
88. my $hrentries = unpack "V", $data;
    
89. printf "Hold record entries: %08x \n", $hrentries;
    
90. 
    
91. read FH,$data,4;
    
92. my $hroffset = unpack "V", $data;
    
93. printf "Hole record offset: %08x \n", $hroffset;
    
94. 
    
95. read FH,$data,4;
    
96. my $hrsize = unpack "V", $data;
    
97. printf "Hole record length: %08x \n", $hrsize;
    
98. 
    
99. #my $hrentrylength = $hrsize / $hrentries;
    
100. #printf "Hole record entry length: $hrentrylength \n";
     
101. 
     
102. read FH,$data,4;
     
103. my $unk = unpack "V", $data;
     
104. printf "Unknown: %08x \n", $unk;
     
105. 
     
106. print "Unused: ";
     
107. for (1..32) {
     
108.   read FH,$data,1;
     
109.   my $v = unpack "c", $data;
     
110.   printf "%02x ", $v;
     
111. }
     
112. print "\n";
     
113. 
     
114. seek FH,$ioffset,0;
     
115. 
     
116. for (1..$ientries) {
     
117.   printf "Index entry %08x: \n",$_;
     
118.   my $typename;
     
119.   my $typestring;
     
120.   if ($ientrylength==24) {
     
121.     read FH,$data,4;
     
122.     $typename = unpack "V", $data;
     
123.     $typestring = $data;
     
124.   }
     
125.   read FH,$data,4;
     
126.   my $typeid = unpack "V", $data;
     
127.   read FH,$data,4;
     
128.   my $groupid = unpack "V", $data;
     
129.   read FH,$data,4;
     
130.   my $instid = unpack "V", $data;
     
131.   if ($ientrylength==24) {
     
132.     printf "  Type/group/instance IDs: %08x (%s) / %08x / %08x / %08x \n", $typename,$typestring,$typeid,$groupid,$instid;
     
133.   } else {
     
134.     printf "  Type/group/instance IDs: %08x / %08x / %08x / %08x \n", $typeid,$groupid,$instid;
     
135.   }
     
136. 
     
137.   read FH,$data,4;
     
138.   my $offset = unpack "V", $data;
     
139.   printf "  Offset: %08x \n", $offset;
     
140.   read FH,$data,4;
     
141.   my $size = unpack "V", $data;
     
142.   printf "  Size: %08x \n", $size;
     
143. 
     
144.   my $savepointer = tell FH;
     
145.   my $decompressed_data;
     
146.   seek FH,$offset,0;
     
147.   read FH,$data,4;
     
148.   my $bytes = unpack "N", $data;
     
149.   printf "    First four bytes at offset: %08x \n", $bytes;
     
150.   my $dword = unpack "V", $data;
     
151.   if ($dword==$size) {
     
152.     printf "    Probably a compressed file.\n";
     
153.     print  "    Next five bytes: ";
     
154.     for (1..5) {
     
155.       read FH,$data,1;
     
156.       my $v = unpack "C", $data;
     
157.       printf "%02x ", $v;
     
158.     }
     
159.     print "\n";
     
160.     $decompressed_data = try_decompress($dword-9);
     
161.   } else {
     
162.     printf "    Probably NOT a compressed file.\n";
     
163.     $decompressed_data = $data;
     
164.     read FH,$data,$size-4;
     
165.     $decompressed_data .= $data;
     
166.   }
     
167.   open FHOUT,">f:\".$_.".out" or die "Failed to open output.";
     
168.   binmode FHOUT;
     
169.   print FHOUT $decompressed_data;
     
170.   close FHOUT;
     
171.   process_file($typeid,$decompressed_data,$ientrylength);
     
172.   seek FH,$savepointer,0;
     
173. }
     
174. 
     
175. sub process_file {
     
176.   my $ftype = shift;
     
177.   my $indata = shift;
     
178.   my $magicnumber = shift;
     
179.   my $offsetbump = ($magicnumber==24) ? 20 : 16;
     
180.   if ($ftype == 0xe86b1eef) {
     
181.     print "      DIR file \n";
     
182.     for (my $offset=0;$offset<length($indata);$offset+=$offsetbump) {
     
183.       printf "      > Type ID: %08x\n",unpack "V",substr($indata,$offset);
     
184.       printf "        Group ID: %08x\n",unpack "V",substr($indata,$offset+4);
     
185.       printf "        Instance ID: %08x\n",unpack "V",substr($indata,$offset+8);
     
186.       if ($magicnumber==24) {
     
187.         printf "        Unknown ID: %08x\n",unpack "V",substr($indata,$offset+12);
     
188.         printf "        Size: %08x\n",unpack "V",substr($indata,$offset+16);
     
189.       } else {
     
190.         printf "        Size: %08x\n",unpack "V",substr($indata,$offset+12);
     
191.       }
     
192.     }
     
193.   }
     
194. }
     
195. 
     
196. sub try_decompress {
     
197.   my $len = shift;
     
198.   my $buf;
     
199.   my $answer = "";
     
200.   my $answerlen = 0;
     
201.   my ($numplain,$numcopy,$offset);
     
202. 
     
203.   my $sp = tell FH;
     
204.   for (;$len>0;) {
     
205.     read FH,$buf,1;
     
206.     $len -= 1;
     
207.     my $cc = unpack "C", $buf;
     
208. #    printf "      Control char is %02x, len remaining is %08x. \n",$cc,$len;
     
209.     if ($cc >= 0xfc) {
     
210.       $numplain = $cc & 0x03;
     
211.       $numplain = $len if ($numplain > $len);
     
212.       $numcopy = 0;
     
213.       $offset = 0;
     
214.     } elsif ($cc >= 0xe0) {
     
215.       $numplain = ($cc - 0xdf) << 2;
     
216.       $numcopy = 0;
     
217.       $offset = 0;
     
218.     } elsif ($cc >= 0xc0) {
     
219.       $len -= 3;
     
220.       read FH,$buf,1;
     
221.       my $byte1 = unpack "C", $buf;
     
222.       read FH,$buf,1;
     
223.       my $byte2 = unpack "C", $buf;
     
224.       read FH,$buf,1;
     
225.       my $byte3 = unpack "C", $buf;
     
226.       $numplain = $cc & 0x03;
     
227.       $numcopy = (($cc & 0x0c) <<6) + 5 + $byte3;
     
228.       $offset = (($cc & 0x10) << 12 ) + ($byte1 << 8) + $byte2;
     
229.     } elsif ($cc>=0x80) {
     
230.       $len -= 2;
     
231.       read FH,$buf,1;
     
232.       my $byte1 = unpack "C", $buf;
     
233.       read FH,$buf,1;
     
234.       my $byte2 = unpack "C", $buf;
     
235.       $numplain = ($byte1 & 0xc0) >> 6;
     
236.       $numcopy = ($cc & 0x3f) + 4;
     
237.       $offset = (($byte1 & 0x3f) << 8) + $byte2;
     
238.     } else {
     
239.       read FH,$buf,1;
     
240.       $len -= 1;
     
241.       my $byte1 = unpack "C", $buf;
     
242.       $numplain = ($cc & 0x03);
     
243.       $numcopy = (($cc & 0x1c) >> 2) + 3;
     
244.       $offset = (($cc & 0x60) << 3) + $byte1;
     
245.     }
     
246. #    printf "      plain, copy, offset: $numplain, $numcopy, $offset \n";
     
247.     $len -= $numplain;
     
248.     read FH,$buf,$numplain;
     
249.     $answer = $answer.$buf;
     
250.     my $fromoffset = length($answer) - ($offset + 1);  # 0 == last char
     
251.     for ($i=0;$i<$numcopy;$i++) {
     
252.       $answer = $answer.substr($answer,$fromoffset+$i,1);
     
253.     }
     
254.     $answerlen += $numplain;
     
255.     $answerlen += $numcopy;
     
256.     if ($len<0) { printf "      UNDERFLOW \n"; }
     
257.   }
     
258.   printf "      Answer length is %08x (%08x). \n",$answerlen,length($answer);
     
259. 
     
260.   seek FH,$sp,0;
     
261.   return $answer;
     
262. }

复制代码