Home
last modified time | relevance | path

Searched refs:OS2 (Results 1 – 25 of 106) sorted by relevance

12345

/openbsd-src/gnu/usr.bin/perl/os2/OS2/OS2-REXX/
H A DREXX.pm1 package OS2::REXX;
5 require OS2::DLL;
19 *_call = \&OS2::DLL::_call;
20 *load = \&OS2::DLL::load;
21 *find = \&OS2::DLL::find;
46 &OS2::REXX::_drop(@_);
53 &OS2::REXX::_drop(@_); # Try to drop them all.
57 OS2::REXX::_fetch('DUMMY'); # reset REXX's first/next iterator
58 while (($name) = OS2::REXX::_next($_)) {
59 OS2::REXX::_drop($_ . $name);
[all …]
/openbsd-src/gnu/usr.bin/perl/os2/
H A Dos2_pipe.t14 ok !eval {OS2::pipe $pname, 'wait'}, 'wait for non-existing pipe fails';
16 ok my $server_pipe = OS2::pipe($pname, 'rw'), 'create pipe, no connect';
18 is +(OS2::pipeCntl($server_pipe, 'readstate'))[0], 2, 'is listening';
19 is OS2::pipeCntl($server_pipe, 'state') & 0xFF, 1, 'max count=1';
21 ok 0 > OS2::pipeCntl($server_pipe, 'connect', !'wait'), 'connect nowait';
26 is +(OS2::pipeCntl($server_pipe, 'readstate'))[0], 3, 'is connected';
27 ok 0 < OS2::pipeCntl($server_pipe, 'connect', !'wait'), 'connect nowait';
28 ok OS2::pipeCntl($server_pipe, 'connect', 'wait'), 'connect wait';
35 is OS2::pipeCntl($server_pipe, 'peek'), "another string\n", 'peeking is fine';
36 my ($st, $bytesAvail, $bytesInMess) = OS2::pipeCntl($server_pipe, 'readstate');
[all …]
H A Dos2_base.t35 if (uc OS2::DLLname() eq uc $^X) { # Static build
37 is(uc OS2::DLLname(1), uc $short);
38 is(uc OS2::DLLname, uc $^X ); # automatically
41 is(uc OS2::DLLname(1), uc $Config{dll_name});
42 like(OS2::DLLname, qr#\Q/$Config{dll_name}\E\.dll$#i );
44 like(OS2::DLLname, qr#^\Q$root_cwd\E(/t)?\Q/$Config{dll_name}\E\.dll#i );
46 is(OS2::DLLname, OS2::DLLname(2));
47 like(OS2::DLLname(0), qr#^(\d+)$# );
50 is(OS2::DLLname($_), OS2::DLLname($_, \&Cwd::extLibpath) ) for 0..2;
51 ok(not defined eval { OS2::DLLname $_, \&Cwd::cwd; 1 } ) for 0..2;
[all …]
H A DChanges64 OS2::PrfDB exports symbols as documented;
112 OS2::REXX->loads looks in the OS/2-ish fashion too.
133 Updated OS2::Process (v0.2) included.
173 Variable $OS2::emx_rev implemented (string and numeric values
175 Variable $OS2::emx_env implemented (same as C variable _emx_env).
176 Variable $OS2::os_ver implemented (_osmajor + 0.001 * _osminor).
187 New function OS2::Error(do_harderror,do_exception). Returns
194 New function OS2::Errors2Drive(drive). Returns undef if it was
200 to the file POPUPLOG.OS2 at the root directory of the
201 specified drive. Overrides OS2::Error() specified by
[all …]
/openbsd-src/gnu/usr.bin/perl/os2/OS2/OS2-PrfDB/
H A DPrfDB.pm1 package OS2::PrfDB;
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;
42 : new OS2::PrfDB::Hini $file;
78 return OS2::Prf::GetLength($self->[0]->[0], $key, undef) >= 0;
83 my $keys = OS2::Prf::Get($self->[0]->[0], undef, undef);
101 package OS2::PrfDB::Hini;
107 my $hini = OS2::Prf::Open($file);
122 OS2::Prf::Close($hini) or die "Error closing profile `$self->[1]': $!";
[all …]
H A DChanges1 Revision history for Perl extension OS2::PrfDB.
5 0.02: Field do-not-close added to OS2::Prf::Hini.
/openbsd-src/gnu/usr.bin/perl/os2/OS2/OS2-PrfDB/t/
H A Dos2_prfdb.t21 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);
[all …]
/openbsd-src/gnu/usr.bin/perl/os2/OS2/OS2-Process/
H A DProcess.pm1 package OS2::localMorphPM;
6 OS2::MorphPM($f);
12 OS2::UnMorphPM(shift->[0])
15 package OS2::Process;
236 require OS2::Process::Const;
238 my ($err, $val) = OS2::Process::Const::constant($sym);
244 require OS2::Process::Const;
284 my $h = OS2::localMorphPM->new(0);
295 my $h = OS2::localMorphPM->new(0);
408 my $hm = OS2::localMorphPM->new(0);
[all …]
/openbsd-src/gnu/usr.bin/perl/os2/OS2/OS2-REXX/DLL/
H A DDLL.pm1 package OS2::DLL;
29 *{"$p\::AUTOLOAD"} = \&OS2::DLL::dll::AUTOLOAD;
64 push @path, split /;/, OS2::extLibpath if $flags & 0x1; # BEGIN
65 push @path, split /;/, OS2::libPath if $flags & 0x2;
66 push @path, split /;/, OS2::extLibpath(1) if $flags & 0x4; # END
76 package OS2::DLL::dll;
101 OS2::DLL::_call($name, $addr, $queue, @_);
121 sub fullname { OS2::DLLname(0x202, shift->handle) }
/openbsd-src/gnu/usr.bin/perl/os2/OS2/OS2-Process/t/
H A Dos2_clipboard.t19 my $h = OS2::localClipbrd->new;
56 my $h = OS2::localClipbrd->new;
65 my $h = OS2::localClipbrd->new;
91 my $h = OS2::localClipbrd->new;
99 my $h = OS2::localClipbrd->new;
113 my $h = OS2::localClipbrd->new;
149 my $h = OS2::localClipbrd->new;
157 my $h = OS2::localClipbrd->new;
181 my $h = OS2::localClipbrd->new;
187 my $h = OS2::localClipbrd->new;
H A Dos2_process.t28 use OS2::Process;
37 my @l = OS2::Process::process_entry();
122 { my $force_PM = OS2::localMorphPM->new(0);
139 my $force_PM = OS2::localMorphPM->new(0);
155 { my $force_PM = OS2::localMorphPM->new(0);
169 my $force_PM = OS2::localMorphPM->new(0);
204 { my $force_PM = OS2::localMorphPM->new(0);
228 { my $force_PM = OS2::localMorphPM->new(0);
251 { my $force_PM = OS2::localMorphPM->new(0);
296 { my $force_PM = OS2::localMorphPM->new(0);
[all …]
/openbsd-src/gnu/usr.bin/perl/os2/OS2/OS2-REXX/t/
H A Drx_varset.t11 use OS2::REXX;
16 OS2::REXX::_set("X" => sqrt(2)) and print "ok 1\n";
17 $x = OS2::REXX::_fetch("X") and print "ok 2\n";
21 OS2::REXX::_set("Y" => sqrt(3)) and print "ok 4\n";
24 while (($name, $value) = OS2::REXX::_next("")) {
37 OS2::REXX::_drop("X") and print "ok 8\n";
38 $x = OS2::REXX::_fetch("X") or print "ok 9\n";
H A Drx_sql.test11 use OS2::REXX;
24 OS2::REXX::_fetch("SQLCA.SQLCODE");
29 OS2::REXX::_fetch("SQLCA.SQLSTATE");
35 return 0 if OS2::REXX::_call("sqlexec", $sqlexec, "", $stmt);
42 return 0 if OS2::REXX::_call("sqldbs", $sqldbs, "", $stmt);
51 my $msg = OS2::REXX::_fetch("MSG");
65 OS2::REXX::_set("STMT" => stmt(<<));
83 print "Table name is ", OS2::REXX::_fetch("NAME"), "\n";
H A Drx_vrexx.t6 print "1..0 # skipped: OS2::REXX not built\n";
15 use OS2::REXX;
41 $result = OS2::REXX::_call("VInit", $vinit) or die "VInit";
45 OS2::REXX::_set("MBOX.0" => 4,
53 $result = OS2::REXX::_call("VGetVersion", $vversion) or die "VMsgBox";
57 $result = OS2::REXX::_call("VMsgBox", $vmsgbox, "", "Perl", "MBOX", 1) or die "VMsgBox";
61 OS2::REXX::_call("VExit", $vexit);
H A Drx_tievar.t11 use OS2::REXX;
16 load OS2::REXX "rxu"
27 tie $s, OS2::REXX, "TEST";
38 tie %all, OS2::REXX, ""; # all REXX vars
60 tie %h, OS2::REXX, "TEST.";
80 OS2::REXX::dropall("TEST.");
H A Drx_emxrv.t13 require OS2::DLL;
15 $emx_dll = OS2::DLL->load('emx');
26 $emx_fullname = OS2::DLLname 0x202, $emx_dll->{Handle}; # Handle ==> fullname
28 $emx_dll1 = OS2::DLL->module($emx_fullname);
53 $emx_dll2 = OS2::DLL->new($emx_fullname1);
H A Drx_tieydb.t11 use OS2::REXX;
12 $rx = load OS2::REXX "RXU" # from RXU1a.ZIP
21 tie @pib, OS2::REXX, "IB.P"; # bind array to REXX stem variable
23 tie %tib, OS2::REXX, "IB.T."; # bind associative array to REXX stem var
H A Drx_objcall.t11 use OS2::REXX;
16 $rxu = load OS2::REXX "rxu"
H A Drx_dllld.t11 use OS2::REXX;
30 $result = OS2::REXX::_call("RxProcId", $address) or die "not ok 3\n# REXX";
/openbsd-src/gnu/usr.bin/perl/os2/OS2/OS2-ExtAttr/
H A DExtAttr.xs34 MODULE = OS2::ExtAttr PACKAGE = OS2::ExtAttr PREFIX = my_ead
59 MODULE = OS2::ExtAttr PACKAGE = OS2::ExtAttr PREFIX = _ea
86 MODULE = OS2::ExtAttr PACKAGE = OS2::ExtAttr PREFIX = _ead
/openbsd-src/gnu/usr.bin/texinfo/intl/
H A Dlocalcharset.c50 # define OS2 macro
65 #if defined OS2
276 #if !(defined WIN32 || defined OS2) in locale_charset()
321 #elif defined OS2 in locale_charset()
/openbsd-src/gnu/gcc/intl/
H A Dlocalcharset.c50 # define OS2 macro
65 #if defined OS2
276 #if !(defined WIN32 || defined OS2) in locale_charset()
321 #elif defined OS2 in locale_charset()
/openbsd-src/gnu/usr.bin/perl/os2/OS2/OS2-ExtAttr/t/
H A Dos2_ea.t21 use OS2::ExtAttr;
36 tie %a, 'OS2::ExtAttr', 't.out';
53 tie %a, 'OS2::ExtAttr', 't.out';
70 tie %a, 'OS2::ExtAttr', 't.out';
/openbsd-src/gnu/usr.bin/perl/dist/ExtUtils-CBuilder/t/
H A D02-link.t60 my $old = OS2::extLibpath(); # [builtin function]
63 OS2::extLibpath_set(".\\$old");
/openbsd-src/gnu/usr.bin/perl/
H A Dnostdio.h80 # ifndef OS2
97 # ifndef OS2
126 # ifndef OS2

12345