SCOUG-Programming Mailing List Archives

<< Previous Message << >> Next Message >>

Date:	Sun, 25 Apr 1999 14:23:48 PST8PDT
From:	"Gregory W. Smith" <gsmith@well.com >
Reply-To:	scoug-programming@scoug.com
To:	< "scoug-programming@scoug.com" > scoug-programming@scoug.com >
Subject:	SCOUG-Programming: Any PERL...

Content Type: text/plain

-----BEGIN PGP SIGNED MESSAGE-----

The script ran fine for me also under 4os2. In fact, when I modified
it to go after REXXUTIL, it loaded the DLL and died at the next
command. My setup for 4os2 is:

[C:\work]set|grep -i perl
PERL5LIB=C:/emx/perl5/lib
.PL=perl5

My executables and DLL's are located at:

c:/emx/bin/perl5.exe
c:/emx/bin/perl5x.exe
c:/emx/bin/perlglob.exe
c:/emx/dll/perl5.dll

The modified script is

[C:\work]type testt.pl
print "spot 1\n" ;
require DynaLoader;
print "spot 2\n" ;
require OS2::REXX;
print "spot 3\n" ;
$module = DynaLoader::dl_load_file("c:/OS2/DLL/REXXUTIL.DLL") or die
"load";
print "spot 4\n" ;
$address = DynaLoader::dl_find_symbol($module, "RXPROCID") or die
"find";
print "spot 5\n" ;
$result = OS2::REXX::_call("RxProcId", $address) or die "REXX";
print "spot 6\n" ;
($pid, $ppid, $ssid) = split(/\s+/, $result);
print "spot 7\n" ;
print "pid=$pid, ppid=$ppid, ssid=$ssid\n";
print "spot 8\n" ;

And the output is

[C:\work]testt
spot 1
spot 2
spot 3
spot 4
find at C:\work\testt.pl line 13.

===============================================================
Gregory W. Smith (WD9GAY) gsmith@well.com
finger gsmith@well.com for PGP public key
-----BEGIN PGP SIGNATURE-----
Version: 2.6.2

iQCVAwUBNyPPNTtML4mvizAhAQE1pwP/QMPLxLveHKvBrbcObD0kcaFKPRpJ6xYN
6RrFcRPVKhX62H1YT4dCRApHOYzv3KzNAZ72rggEgEthL0ust8WEQ2/qVHQwQW4z
4UMd86Eqe/6+F7p3IJoQpUxY3OWOZgKK3s2+Hn2L5+uI20KIjXU6yXuXnff5SKR8
4gxTcYP746E=
=VC6a
-----END PGP SIGNATURE-----

=====================================================

To unsubscribe from this list, send an email message
to "steward@scoug.com". In the body of the message,
put the command "unsubscribe scoug-programming".

For problems, contact the list owner at
"rollin@scoug.com".

=====================================================

Return to [ 25 | April | 1999 ]

SCOUG, Warp Expo West, and Warpfest are trademarks of the Southern California OS/2 User Group. OS/2, Workplace Shell, and IBM are registered trademarks of International Business Machines Corporation. All other trademarks remain the property of their respective owners.