Home
last modified time | relevance | path

Searched refs:REXX (Results 1 – 25 of 604) sorted by relevance

12345678910>>...25

/dports/lang/perl5.34/perl-5.34.0/os2/OS2/OS2-REXX/
H A DREXX.pm1 package OS2::REXX;
46 &OS2::REXX::_drop(@_);
59 OS2::REXX::_drop($_ . $name);
69 return bless \$name, OS2::REXX::_SCALAR;
87 package OS2::REXX::_SCALAR;
91 return OS2::REXX::_fetch(${$_[0]});
101 return OS2::REXX::_drop(${$_[0]});
105 package OS2::REXX::_ARRAY;
120 package OS2::REXX::_HASH;
166 OS2::REXX::_drop($_[0]->{Stem}.$_[1]);
[all …]
/dports/lang/perl5.30/perl-5.30.3/os2/OS2/OS2-REXX/
H A DREXX.pm1 package OS2::REXX;
46 &OS2::REXX::_drop(@_);
59 OS2::REXX::_drop($_ . $name);
69 return bless \$name, OS2::REXX::_SCALAR;
87 package OS2::REXX::_SCALAR;
91 return OS2::REXX::_fetch(${$_[0]});
101 return OS2::REXX::_drop(${$_[0]});
105 package OS2::REXX::_ARRAY;
120 package OS2::REXX::_HASH;
166 OS2::REXX::_drop($_[0]->{Stem}.$_[1]);
[all …]
/dports/lang/perl5-devel/perl5-5.35.4-102-ge43d289c7c/os2/OS2/OS2-REXX/
H A DREXX.pm1 package OS2::REXX;
46 &OS2::REXX::_drop(@_);
59 OS2::REXX::_drop($_ . $name);
69 return bless \$name, OS2::REXX::_SCALAR;
87 package OS2::REXX::_SCALAR;
91 return OS2::REXX::_fetch(${$_[0]});
101 return OS2::REXX::_drop(${$_[0]});
105 package OS2::REXX::_ARRAY;
120 package OS2::REXX::_HASH;
166 OS2::REXX::_drop($_[0]->{Stem}.$_[1]);
[all …]
/dports/lang/perl5.32/perl-5.32.1/os2/OS2/OS2-REXX/
H A DREXX.pm1 package OS2::REXX;
46 &OS2::REXX::_drop(@_);
59 OS2::REXX::_drop($_ . $name);
69 return bless \$name, OS2::REXX::_SCALAR;
87 package OS2::REXX::_SCALAR;
91 return OS2::REXX::_fetch(${$_[0]});
101 return OS2::REXX::_drop(${$_[0]});
105 package OS2::REXX::_ARRAY;
120 package OS2::REXX::_HASH;
166 OS2::REXX::_drop($_[0]->{Stem}.$_[1]);
[all …]
/dports/lang/perl5-devel/perl5-5.35.4-102-ge43d289c7c/os2/OS2/OS2-REXX/t/
H A Drx_tieydb.t5 if (-d 'lib' and $Config{'extensions'} !~ /\bOS2(::|\/)REXX\b/) {
11 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
26 $rx->GetInfoBlocks("IB."); # call REXX function
H A Drx_tievar.t5 if (-d 'lib' and $Config{'extensions'} !~ /\bOS2(::|\/)REXX\b/) {
11 use OS2::REXX;
16 load OS2::REXX "rxu"
27 tie $s, OS2::REXX, "TEST";
38 tie %all, OS2::REXX, ""; # all REXX vars
42 # show all REXX vars
51 # check all REXX vars
60 tie %h, OS2::REXX, "TEST.";
80 OS2::REXX::dropall("TEST.");
H A Drx_varset.t5 if (-d 'lib' and $Config{'extensions'} !~ /\bOS2(::|\/)REXX\b/) {
11 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.test5 if ($Config{'extensions'} !~ /\bOS2(::|\/)REXX\b/) {
11 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";
/dports/lang/perl5.30/perl-5.30.3/os2/OS2/OS2-REXX/t/
H A Drx_tieydb.t5 if (-d 'lib' and $Config{'extensions'} !~ /\bOS2(::|\/)REXX\b/) {
11 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
26 $rx->GetInfoBlocks("IB."); # call REXX function
H A Drx_tievar.t5 if (-d 'lib' and $Config{'extensions'} !~ /\bOS2(::|\/)REXX\b/) {
11 use OS2::REXX;
16 load OS2::REXX "rxu"
27 tie $s, OS2::REXX, "TEST";
38 tie %all, OS2::REXX, ""; # all REXX vars
42 # show all REXX vars
51 # check all REXX vars
60 tie %h, OS2::REXX, "TEST.";
80 OS2::REXX::dropall("TEST.");
H A Drx_varset.t5 if (-d 'lib' and $Config{'extensions'} !~ /\bOS2(::|\/)REXX\b/) {
11 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.test5 if ($Config{'extensions'} !~ /\bOS2(::|\/)REXX\b/) {
11 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.t5 if (-d 'lib' and $Config{'extensions'} !~ /\bOS2(::|\/)REXX\b/) {
6 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);
/dports/lang/perl5.32/perl-5.32.1/os2/OS2/OS2-REXX/t/
H A Drx_tieydb.t5 if (-d 'lib' and $Config{'extensions'} !~ /\bOS2(::|\/)REXX\b/) {
11 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
26 $rx->GetInfoBlocks("IB."); # call REXX function
H A Drx_tievar.t5 if (-d 'lib' and $Config{'extensions'} !~ /\bOS2(::|\/)REXX\b/) {
11 use OS2::REXX;
16 load OS2::REXX "rxu"
27 tie $s, OS2::REXX, "TEST";
38 tie %all, OS2::REXX, ""; # all REXX vars
42 # show all REXX vars
51 # check all REXX vars
60 tie %h, OS2::REXX, "TEST.";
80 OS2::REXX::dropall("TEST.");
H A Drx_varset.t5 if (-d 'lib' and $Config{'extensions'} !~ /\bOS2(::|\/)REXX\b/) {
11 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.test5 if ($Config{'extensions'} !~ /\bOS2(::|\/)REXX\b/) {
11 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";
/dports/lang/perl5.34/perl-5.34.0/os2/OS2/OS2-REXX/t/
H A Drx_tieydb.t5 if (-d 'lib' and $Config{'extensions'} !~ /\bOS2(::|\/)REXX\b/) {
11 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
26 $rx->GetInfoBlocks("IB."); # call REXX function
H A Drx_tievar.t5 if (-d 'lib' and $Config{'extensions'} !~ /\bOS2(::|\/)REXX\b/) {
11 use OS2::REXX;
16 load OS2::REXX "rxu"
27 tie $s, OS2::REXX, "TEST";
38 tie %all, OS2::REXX, ""; # all REXX vars
42 # show all REXX vars
51 # check all REXX vars
60 tie %h, OS2::REXX, "TEST.";
80 OS2::REXX::dropall("TEST.");
H A Drx_varset.t5 if (-d 'lib' and $Config{'extensions'} !~ /\bOS2(::|\/)REXX\b/) {
11 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.test5 if ($Config{'extensions'} !~ /\bOS2(::|\/)REXX\b/) {
11 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.t5 if (-d 'lib' and $Config{'extensions'} !~ /\bOS2(::|\/)REXX\b/) {
6 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);
/dports/lang/rexx-regina/regina-rexx-3.9.3/debian/
H A Dcontrol14 Description: The Regina REXX interpreter, run-time library
15 Regina is an ANSI compliant REXX interpreter for multiple platforms.
17 REXX is a procedural language that allows programs and algorithms
29 Description: The Regina REXX interpreter, development files
30 Regina is an ANSI compliant REXX interpreter for multiple platforms.
32 REXX is a procedural language that allows programs and algorithms
42 Description: The Regina REXX interpreter
43 Regina is an ANSI compliant REXX interpreter for multiple platforms.
45 REXX is a procedural language that allows programs and algorithms
49 Contains the Regina REXX interpreter (regina and rexx), external queue
/dports/math/rexx-regmath/math/
H A Drxxmath.doc1 RXXMATH v1.3 -- Arbitrary Precision Math Functions for REXX
6 an external routine from REXX or invoked from the command line. RXXMATH
7 is true to the spirit of REXX math in that it will calculate results to
10 REXX. (RXXMATH was originally written for VM/CMS, but the author has
14 or even used as a interactive "REXX shell".
67 When called as a function from REXX, RXXMATH has the format:
96 3. From within REXX, print the base 10 log of 5 to 40 places:
102 4. From REXX, print the base 10 log of 5 to 9 places:
120 7. Enter interactive REXX calculator mode (a "REXX shell"):
218 interactive REXX calculator mode ("REXX shell"). From there you can
[all …]
/dports/archivers/unzip/unzip60/os2/
H A DContents10 rexxapi.c interface to integrate UnZip DLL in REXX API
11 rexxapi.def OS/2 linker definition file for REXX API DLL
12 rexxhelp.c help function for UnZip's REXX API DLL
13 rexxtest.cmd REXX script for testing UnZip's REXX API DLL
16 zip2exe.cmd REXX script for creating self-extracting archives
17 zipgrep.cmd really cool REXX script to search for strings in a zipfile
18 zgrepapi.cmd new version of zipgrep.cmd; takes advantage of REXX API DLL

12345678910>>...25