ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/Deliantra-Client/DC/DB.pm
(Generate patch)

Comparing deliantra/Deliantra-Client/DC/DB.pm (file contents):
Revision 1.10 by root, Fri Jul 13 05:31:31 2007 UTC vs.
Revision 1.11 by root, Sat Jul 14 12:05:53 2007 UTC

24 24
25use CFPlus; 25use CFPlus;
26 26
27our $DB_HOME = "$Crossfire::VARDIR/cfplus-$BerkeleyDB::db_version-$Config{archname}"; 27our $DB_HOME = "$Crossfire::VARDIR/cfplus-$BerkeleyDB::db_version-$Config{archname}";
28 28
29sub path_of($) { 29sub path_of_res($) {
30 "$DB_HOME/res-data-$_[0]" 30 "$DB_HOME/res-data-$_[0]"
31} 31}
32 32
33sub sync { 33sub sync {
34 # for debugging 34 # for debugging
52 CFPlus::DB::Server::req (unlink => @_); 52 CFPlus::DB::Server::req (unlink => @_);
53} 53}
54 54
55sub write_file($$$) { 55sub write_file($$$) {
56 CFPlus::DB::Server::req (write_file => @_); 56 CFPlus::DB::Server::req (write_file => @_);
57}
58
59sub prefetch_file($$$) {
60 CFPlus::DB::Server::req (prefetch_file => @_);
57} 61}
58 62
59our $tilemap; 63our $tilemap;
60 64
61sub get_tile_id_sync($) { 65sub get_tile_id_sync($) {
271sub do_write_file { 275sub do_write_file {
272 my ($file, $data) = @_; 276 my ($file, $data) = @_;
273 277
274 utf8::downgrade $file; 278 utf8::downgrade $file;
275 utf8::downgrade $data; 279 utf8::downgrade $data;
276 open my $fh, ">:raw", CFPlus::DB::path_of $file 280 open my $fh, ">:raw", $file
277 or return; 281 or return;
278 print $fh $data; 282 print $fh $data;
279 close $fh; 283 close $fh;
284
285 1
286}
287
288sub do_prefetch_file {
289 my ($file, $size) = @_;
290
291 utf8::downgrade $file;
292 open my $fh, "<:raw", $file
293 or return;
294 sysread $fh, my $buf, $size;
280 295
281 1 296 1
282} 297}
283 298
284sub run { 299sub run {

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines