Lines Matching full:os2
1 package OS2::PrfDB;
19 XSLoader::load 'OS2::PrfDB', $VERSION;
24 new_from_int OS2::PrfDB::Hini OS2::Prf::System(0),
29 new_from_int OS2::PrfDB::Hini OS2::Prf::System(1), 'User settings database', 1;
33 new_from_int OS2::PrfDB::Hini OS2::Prf::System(2),'System settings database',1;
39 die "Usage: tie %arr, OS2::PrfDB, filename\n" unless @_ == 2;
41 my $hini = ref $file eq 'OS2::PrfDB::Hini' ? $file
42 : new OS2::PrfDB::Hini $file;
53 tie %sub, 'OS2::PrfDB::Sub', $self->[0], $key;
61 tie %sub, 'OS2::PrfDB::Sub', $self->[0], $key;
69 tie %sub, 'OS2::PrfDB::Sub', $self->[0], $key;
78 return OS2::Prf::GetLength($self->[0]->[0], $key, undef) >= 0;
83 my $keys = OS2::Prf::Get($self->[0]->[0], undef, undef);
90 # OS2::Prf::Get($self->[0]->[0], $self->[2], $self->[3]->[0]));
98 return $key; #, OS2::Prf::Get($self->[0]->[0], $self->[2], $key));
101 package OS2::PrfDB::Hini;
104 die "Usage: new OS2::PrfDB::Hini filename\n" unless @_ == 2;
107 my $hini = OS2::Prf::Open($file);
122 OS2::Prf::Close($hini) or die "Error closing profile `$self->[1]': $!";
126 package OS2::PrfDB::Sub;
136 die "Usage: tie %arr, OS2::PrfDB::Sub, filename, appname\n" unless @_ == 3;
138 my $hini = ref $file eq 'OS2::PrfDB::Hini' ? $file
139 : new OS2::PrfDB::Hini $file;
148 OS2::Prf::Set($self->[0]->[0], $self->[3], $key, $val);
154 OS2::Prf::Get($self->[0]->[0], $self->[3], $key);
160 OS2::Prf::Set($self->[0]->[0], $self->[3], $key, undef);
168 return OS2::Prf::GetLength($self->[0]->[0], $self->[3], $key) >= 0;
173 my $keys = OS2::Prf::Get($self->[0]->[0], $self->[3], undef);
180 # OS2::Prf::Get($self->[0]->[0], $self->[2], $self->[3]->[0]));
188 return $key; #, OS2::Prf::Get($self->[0]->[0], $self->[2], $key));
199 OS2::PrfDB - Perl extension for access to OS/2 setting database.
203 use OS2::PrfDB;
204 tie %settings, OS2::PrfDB, 'my.ini';
205 tie %subsettings, OS2::PrfDB::Sub, 'my.ini', 'mykey';
210 tie %system, OS2::PrfDB, SystemIni;
222 C<OS2::PrfDB> and C<OS2::PrfDB::Sub>. First one supports one argument,
227 tie %settings, OS2::PrfDB, 'my.ini';
228 tie %subsettings, OS2::PrfDB::Sub, 'my.ini', 'mykey';
238 Low-level access functions reside in the package C<OS2::Prf>. They are
289 the package C<OS2::Prf::Hini>: