/dports/lang/perl5.34/perl-5.34.0/os2/OS2/OS2-REXX/ |
H A D | REXX.pm | 1 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 D | REXX.pm | 1 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 D | REXX.pm | 1 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 D | REXX.pm | 1 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 D | rx_tieydb.t | 5 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 D | rx_tievar.t | 5 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 D | rx_varset.t | 5 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 D | rx_sql.test | 5 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 D | rx_tieydb.t | 5 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 D | rx_tievar.t | 5 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 D | rx_varset.t | 5 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 D | rx_sql.test | 5 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 D | rx_vrexx.t | 5 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 D | rx_tieydb.t | 5 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 D | rx_tievar.t | 5 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 D | rx_varset.t | 5 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 D | rx_sql.test | 5 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 D | rx_tieydb.t | 5 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 D | rx_tievar.t | 5 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 D | rx_varset.t | 5 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 D | rx_sql.test | 5 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 D | rx_vrexx.t | 5 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 D | control | 14 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 D | rxxmath.doc | 1 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 D | Contents | 10 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
|