Home
last modified time | relevance | path

Searched full:os2 (Results 1 – 25 of 317) sorted by relevance

12345678910>>...13

/openbsd-src/gnu/usr.bin/perl/os2/OS2/OS2-PrfDB/
H A DPrfDB.pm1 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;
[all …]
/openbsd-src/gnu/usr.bin/perl/os2/OS2/OS2-REXX/
H A DREXX.pm1 package OS2::REXX;
5 require OS2::DLL;
16 # We cannot just put OS2::DLL in @ISA, since some scripts would use
19 *_call = \&OS2::DLL::_call;
20 *load = \&OS2::DLL::load;
21 *find = \&OS2::DLL::find;
23 XSLoader::load 'OS2::REXX';
46 &OS2::REXX::_drop(@_);
53 &OS2::REXX::_drop(@_); # Try to drop them all.
57 OS2::REXX::_fetch('DUMMY'); # reset REXX's first/next iterator
[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';
25 #my ($fd1, $action) = OS2::open $pname, 0x2042 or warn $^E; # ERROR,SHARE,RDWR
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';
[all …]
H A DChanges64 OS2::PrfDB exports symbols as documented;
112 OS2::REXX->loads looks in the OS/2-ish fashion too.
117 ./os2.c being RO could stop cp.
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
[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 DMakefile.SHs65 libperl_override.imp: os2/os2add.sym miniperl imp_version
66 ./miniperl -wnle 'print "$$_\t$(PERL_DLL_BASE)\t$$_\t?"' os2/os2add.sym > $@
136 perl.linkexp: perl.exports perl.map os2/os2.sym
137 cat perl.exports os2/os2.sym perl.map | sort | uniq -d | sed -e 's/\w\+/ "\0"/' > perl.linkexp
149 depend: os2ish.h dlfcn.h os2thread.h os2.c
152 os2$(OBJ_EXT) : os2.c
154 os2.c: os2/os2.c os2ish.h
157 dl_os2.c: os2/dl_os2.c os2ish.h
160 os2ish.h: os2/os2ish.h
163 os2thread.h: os2/os2thread.h
[all …]
H A Dos2.c8 /* These 3 are needed for compile if os2.h includes os2tk.h, not os2emx.h */
12 #include <os2.h>
555 nm I:\emx\lib\os2.a | fgrep -f API-list | grep = > API-list-entries
1261 ? "c:/os2/cmd.exe" in do_spawn_ve()
1893 Perl_croak(aTHX_ "Usage: OS2::replaceModule(target [, source [, backup]])"); in XS()
1949 …Perl_croak(aTHX_ "Usage: OS2::perfSysCall(ulCommand = CMD_KI_RDCNT, ulParm1= 0, ulParm2= 0, ulParm… in XS()
2088 int number = SvTRUE(get_sv("OS2::nsyserror", GV_ADD)); in os2error()
2603 Perl_croak_nocontext("Usage: OS2::Error(harderr, exception)"); in XS()
2626 Perl_croak_nocontext("Usage: OS2::Errors2Drive(drive)"); in XS()
2636 Perl_croak_nocontext("Non-char argument '%c' to OS2::Errors2Drive()", drive); in XS()
[all …]
/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-REXX/DLL/
H A DDLL.pm1 package OS2::DLL;
26 my @packs = $INC{'OS2/REXX.pm'} ? qw(OS2::DLL::dll OS2::REXX) : 'OS2::DLL::dll';
27 my $p = "OS2::DLL::dll::$file";
29 *{"$p\::AUTOLOAD"} = \&OS2::DLL::dll::AUTOLOAD;
47 confess 'Usage: OS2::DLL->new( <file> [<dirs>] )' unless @_ >= 2;
52 confess 'Usage: OS2::DLL->module( <file> [<dirs>] )' unless @_ >= 2;
57 confess 'Usage: load OS2::DLL <file> [<dirs>]' unless $#_ >= 1;
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
[all …]
/openbsd-src/gnu/usr.bin/perl/os2/OS2/OS2-REXX/t/
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_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_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
/openbsd-src/gnu/usr.bin/perl/os2/OS2/OS2-Process/t/
H A Dos2_process.t28 use OS2::Process;
37 my @l = OS2::Process::process_entry();
46 #use OS2::Process qw(WM_SYSCOMMAND WM_DBCSLAST FID_CLIENT HWND_DESKTOP);
47 use OS2::Process qw(WM_SYSCOMMAND WM_DBCSLAST HWND_DESKTOP);
62 my $newt = "test OS2::Process $$";
71 $newt = "test OS2::Process both-$$";
79 $newt = "test OS2::Process win-$$";
87 $newt = "test OS2::Process sw-$$";
95 $newt = "test OS2::Process again-$$";
122 { my $force_PM = OS2::localMorphPM->new(0);
[all …]
H A Dos2_clipboard.t5 BEGIN {use_ok 'OS2::Process', qw(:DEFAULT CFI_POINTER CF_TEXT)}
19 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;
[all …]
/openbsd-src/gnu/usr.bin/perl/hints/
H A Dos2.sh2 # hints/os2.sh
9 # (see in README.os2)
48 libemx="`./UU/loc os2.a /emx/lib $libemx`"
153 aout_archobjs="os2.o dl_os2.o"
155 aout_extra_static_ext="OS2::DLL"
222 archobjs="os2$obj_ext dl_os2$obj_ext"
327 if test -s ./os2/diff.configure; then
328 if ! grep "^#OS2-PATCH-APPLIED" ./Configure > /dev/null; then
345 !!! patch it manually from ./os2/diff.configure.
371 !!! I can create Configure.cmd and patch it from ./os2/diff.configure with the command
[all …]
/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
H A DExtAttr.pm1 package OS2::ExtAttr;
7 XSLoader::load 'OS2::ExtAttr', $VERSION;
117 OS2::ExtAttr - Perl access to extended attributes.
121 use OS2::ExtAttr;
122 tie %ea, 'OS2::ExtAttr', 'my.file';
/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;
24 XSLoader::load('OS2::Process', $VERSION);
227 die "Your vendor has not defined OS2::Process macro $constname, used at $file line $line.
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);
[all …]
H A DMakefile.PL8 'NAME' => 'OS2::Process',
30 system $^X, "-I$src_dir/lib", "$src_dir/utils/h2xs", '-fn', 'OS2::Process::Const',
34 # Most useful for OS2::Process:
40 rename 'OS2/Process/Const', 'Process_constants'
/openbsd-src/gnu/usr.bin/perl/dist/IO/t/
H A Dio_unix.t20 elsif ($^O eq 'os2') {
48 if ($^O eq 'os2') { # Can't create sockets with relative path...
56 if (-e $PATH or not open(TEST, '>', $PATH) and $^O ne 'os2') {
61 unlink($PATH) or $^O eq 'os2' or die "Can't unlink $PATH: $!";
103 unlink($PATH) || $^O eq 'os2' || warn "Can't unlink $PATH: $!";
/openbsd-src/gnu/lib/libstdc++/libstdc++/testsuite/27_io/
H A Dostream_inserter_arith.cc281 ostringstream os2; in test02() local
282 os2.precision(3); in test02()
283 os2.setf(ios::fixed); in test02()
284 os2 << val2; in test02()
289 cout << "result: " << os2.str() << endl; in test02()
291 VERIFY(os2 && os2.str() == largebuf); in test02()
295 os2.imbue(loc2); in test02()
296 os2 << fixed << setprecision(3) << val2 << endl; in test02()
297 os2 << endl; in test02()
298 os2 << fixed << setprecision(1) << val2 << endl; in test02()
/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';

12345678910>>...13