Lines Matching full:os2
21 use OS2::PrfDB;
37 my $ini = OS2::Prf::Open($inifile);
40 print( (OS2::Prf::GetLength($ini,'aaa', 'bbb') != -1) ?
44 print( OS2::Prf::Set($ini,'aaa', 'bbb','xyz') ? "ok 4\n" :
47 my $len = OS2::Prf::GetLength($ini,'aaa', 'bbb');
50 my $val = OS2::Prf::Get($ini,'aaa', 'bbb');
53 $val = OS2::Prf::Get($ini,'aaa', undef);
56 $val = OS2::Prf::Get($ini, undef, undef);
59 my $res = OS2::Prf::Set($ini,'aaa', 'bbb',undef);
62 $val = OS2::Prf::Get($ini, undef, undef);
65 $val = OS2::Prf::Get($ini,'aaa', undef);
68 print((OS2::Prf::Close($ini) ? "" : "not ") . "ok 12\n");
70 my $files = OS2::Prf::Profiles();
75 $ini = OS2::Prf::Open($inifile);
79 print( OS2::Prf::Set($ini,'aaa', 'ccc','xyz') ? "ok 16\n" :
82 print( OS2::Prf::Set($ini,'aaa', 'ddd','123') ? "ok 17\n" :
85 print( OS2::Prf::Set($ini,'bbb', 'xxx','abc') ? "ok 18\n" :
88 print( OS2::Prf::Set($ini,'bbb', 'yyy','456') ? "ok 19\n" :
91 OS2::Prf::Close($ini);
95 tie %hash1, 'OS2::PrfDB::Sub', $inifile, 'aaa';
96 $OS2::PrfDB::Sub::debug = 1;
126 tie %hash1, 'OS2::PrfDB::Sub', $inifile, 'aaa';
149 tie %hash, 'OS2::PrfDB', $inifile;
184 tie %hash2, 'OS2::PrfDB', $inifile;