kgsueme/kgsueme/util.pl

package util;

use Storable ();
use Scalar::Util ();

my $staterc = "$ENV{HOME}/.kgsueme";

our $state = -r $staterc ? Storable::retrieve($staterc) : {};

$::config = $state->{config} ||= {};

$::config->{speed} = 0;#d# optimize for speed or memory?
$::config->{conserve_memory} = 0; # try to conserve memory at the expense of speed
$::config->{randomize} = 0; # randomize placement of stones

sub save_config {
   &gtk::save_state;
   Storable::nstore($state, $staterc);
   appwin::status("save_state", "layout saved");
}

1;

Revision:	1.3
Committed:	Sat May 31 13:58:32 2003 UTC (21 years ago) by pcg
Content type:	text/plain
Branch:	MAIN
Changes since 1.2:	+3 -3 lines
Log Message:	* empty log message *
#	User	Rev	Content
1	pcg	1.1	package util;
2
3			use Storable ();
4			use Scalar::Util ();
5
6			my $staterc = "$ENV{HOME}/.kgsueme";
7
8	pcg	1.3	our $state = -r $staterc ? Storable::retrieve($staterc) : {};
9	pcg	1.1
10			$::config = $state->{config} \|\|= {};
11
12	pcg	1.2	$::config->{speed} = 0;#d# optimize for speed or memory?
13	pcg	1.1	$::config->{conserve_memory} = 0; # try to conserve memory at the expense of speed
14			$::config->{randomize} = 0; # randomize placement of stones
15
16			sub save_config {
17	pcg	1.3	&gtk::save_state;
18	pcg	1.1	Storable::nstore($state, $staterc);
19	pcg	1.3	appwin::status("save_state", "layout saved");
20	pcg	1.1	}
21
22			1;
23