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.8 by root, Thu Jul 5 10:15:17 2007 UTC vs.
Revision 1.14 by root, Sun Jul 29 19:32:29 2007 UTC

1=head1 NAME 1=head1 NAME
2 2
3CFPlus::DB - async. database access for cfplus 3CFPlus::DB - async. database and filesystem access for cfplus
4 4
5=head1 SYNOPSIS 5=head1 SYNOPSIS
6 6
7 use CFPlus::DB; 7 use CFPlus::DB;
8 8
… …
16 16
17use strict; 17use strict;
18use utf8; 18use utf8;
19 19
20use Carp (); 20use Carp ();
21use AnyEvent ();
22use Storable (); 21use Storable ();
22use Config;
23use Event ();
23 24
24use CFPlus; 25use CFPlus;
26
27our $DB_HOME = "$Crossfire::VARDIR/cfplus-$BerkeleyDB::db_version-$Config{archname}";
28
29sub path_of_res($) {
30 utf8::downgrade $_[0]; # bug in unpack "H*"
31 "$DB_HOME/res-data-" . unpack "H*", $_[0]
32}
25 33
26sub sync { 34sub sync {
27 # for debugging 35 # for debugging
28 #CFPlus::DB::Server::req (sync => sub { }); 36 #CFPlus::DB::Server::req (sync => sub { });
29 CFPlus::DB::Server::sync (); 37 CFPlus::DB::Server::sync ();
30} 38}
31 39
40sub exists($$$) {
41 CFPlus::DB::Server::req (exists => @_);
42}
43
32sub get($$$) { 44sub get($$$) {
33 CFPlus::DB::Server::req (get => @_); 45 CFPlus::DB::Server::req (get => @_);
34} 46}
35 47
36sub put($$$$) { 48sub put($$$$) {
37 CFPlus::DB::Server::req (put => @_); 49 CFPlus::DB::Server::req (put => @_);
50}
51
52sub unlink($$) {
53 CFPlus::DB::Server::req (unlink => @_);
54}
55
56sub write_file($$$) {
57 CFPlus::DB::Server::req (write_file => @_);
58}
59
60sub prefetch_file($$$) {
61 CFPlus::DB::Server::req (prefetch_file => @_);
38} 62}
39 63
40our $tilemap; 64our $tilemap;
41 65
42sub get_tile_id_sync($) { 66sub get_tile_id_sync($) {
… …
60 84
61use strict; 85use strict;
62 86
63use Fcntl; 87use Fcntl;
64use BerkeleyDB; 88use BerkeleyDB;
65use Config;
66 89
67our $DB_HOME = "$Crossfire::VARDIR/cfplus-$BerkeleyDB::db_version-$Config{archname}";
68our $DB_ENV; 90our $DB_ENV;
69our $DB_STATE; 91our $DB_STATE;
70our %DB_TABLE; 92our %DB_TABLE;
71 93
72sub open_db { 94sub open_db {
… …
103 -Flags => DB_CREATE | DB_UPGRADE, 125 -Flags => DB_CREATE | DB_UPGRADE,
104 or die "unable to create/open database table $_[0]: $BerkeleyDB::Error" 126 or die "unable to create/open database table $_[0]: $BerkeleyDB::Error"
105 } 127 }
106} 128}
107 129
108our $SYNC_INTERVAL = 60;
109
110our %CB; 130our %CB;
111our $FH; 131our $FH;
112our $ID = "aaa0"; 132our $ID = "aaa0";
113our ($fh_r_watcher, $fh_w_watcher); 133our ($fh_r_watcher, $fh_w_watcher);
114our $sync_timer; 134our $sync_timer;
115our $write_buf; 135our $write_buf;
116our $read_buf; 136our $read_buf;
117 137
138our $SYNC = Event->idle (min => 5, max => 60, parked => 1, cb => sub {
139 CFPlus::DB::Server::req (sync => sub { });
140 $_[0]->w->stop;
141});
142
118sub fh_write { 143sub fh_write {
119 my $len = syswrite $FH, $write_buf; 144 my $len = syswrite $FH, $write_buf;
120 145
121 substr $write_buf, 0, $len, ""; 146 substr $write_buf, 0, $len, "";
122 147
123 undef $fh_w_watcher 148 $fh_w_watcher->stop
124 unless length $write_buf; 149 unless length $write_buf;
125} 150}
126 151
127sub fh_read { 152sub fh_read {
128 my $status = sysread $FH, $read_buf, 16384, length $read_buf; 153 my $status = sysread $FH, $read_buf, 16384, length $read_buf;
… …
164 189
165 my $id = ++$ID; 190 my $id = ++$ID;
166 $write_buf .= pack "N/a*", Storable::freeze [$id, $type, @args]; 191 $write_buf .= pack "N/a*", Storable::freeze [$id, $type, @args];
167 $CB{$id} = $cb; 192 $CB{$id} = $cb;
168 193
169 $fh_w_watcher = AnyEvent->io (fh => $FH, poll => 'w', cb => \&fh_write); 194 $fh_w_watcher->start;
170} 195 $SYNC->start;
171
172sub sync_tick {
173 req "sync", sub { };
174 $sync_timer = AnyEvent->timer (after => $SYNC_INTERVAL, cb => \&sync_tick);
175} 196}
176 197
177sub do_sync { 198sub do_sync {
178 $DB_ENV->txn_checkpoint (0, 0, 0); 199 $DB_ENV->txn_checkpoint (0, 0, 0);
179 () 200 ()
201}
202
203sub do_exists {
204 my ($db, $key) = @_;
205
206 utf8::downgrade $key;
207 my $data;
208 (table $db)->db_get ($key, $data) == 0
209 ? length $data
210 : ()
180} 211}
181 212
182sub do_get { 213sub do_get {
183 my ($db, $key) = @_; 214 my ($db, $key) = @_;
184 215
… …
235 } 266 }
236 267
237 die "maximum number of transaction retries reached - database problems?"; 268 die "maximum number of transaction retries reached - database problems?";
238} 269}
239 270
271sub do_unlink {
272 unlink $_[0];
273}
274
275sub do_write_file {
276 my ($file, $data) = @_;
277
278 utf8::downgrade $file;
279 utf8::downgrade $data;
280 open my $fh, ">:raw", $file
281 or return;
282 print $fh $data;
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;
295
296 1
297}
298
240sub run { 299sub run {
241 ($FH, my $fh) = CFPlus::socketpipe; 300 ($FH, my $fh) = CFPlus::socketpipe;
242 301
243 my $oldfh = select $FH; $| = 1; select $oldfh; 302 my $oldfh = select $FH; $| = 1; select $oldfh;
244 my $oldfh = select $fh; $| = 1; select $oldfh; 303 my $oldfh = select $fh; $| = 1; select $oldfh;
… …
288 close $fh; 347 close $fh;
289 CFPlus::fh_nonblocking $FH, 1; 348 CFPlus::fh_nonblocking $FH, 1;
290 349
291 $CB{die} = sub { die shift }; 350 $CB{die} = sub { die shift };
292 351
293 $fh_r_watcher = AnyEvent->io (fh => $FH, poll => 'r', cb => \&fh_read); 352 $fh_r_watcher = Event->io (fd => $FH, poll => 'r', nice => 1, cb => \&fh_read);
294 353 $fh_w_watcher = Event->io (fd => $FH, poll => 'w', nice => -1, parked => 1, cb => \&fh_write);
295 sync_tick; 354 $SYNC->start;
296} 355}
297 356
298sub stop { 357sub stop {
299 close $FH; 358 close $FH;
300} 359}

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines