Gecko [ www.blackthorn-inc.com ]

Name	Size	Permission	Date
OS2	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
Changes	34.57 KB	-r--r--r--	2014-12-27 11:48
Makefile.SHs	16.44 KB	-r--r--r--	2014-12-27 11:48
diff.configure	0 B	-r--r--r--	2014-12-27 11:48
dl_os2.c	3.9 KB	-r--r--r--	2014-12-27 11:48
dlfcn.h	137 B	-r--r--r--	2014-12-27 11:48
os2.c	142.54 KB	-r--r--r--	2014-12-27 11:49
os2.sym	601 B	-r--r--r--	2014-12-27 11:48
os2_base.t	1.25 KB	-r--r--r--	2014-12-27 11:48
os2_pipe.t	7.31 KB	-r--r--r--	2014-12-27 11:48
os2add.sym	64 B	-r--r--r--	2014-12-27 11:48
os2ish.h	37.64 KB	-r--r--r--	2014-12-27 11:48
os2thread.h	523 B	-r--r--r--	2014-12-27 11:48
perl2cmd.pl	1.5 KB	-r--r--r--	2014-12-27 11:48
perlrexx.c	7.93 KB	-r--r--r--	2014-12-27 11:48
perlrexx.cmd	1.95 KB	-r--r--r--	2014-12-27 11:48

Rename

/* Test PERLREXX.DLL */
/* Example:
   perlrexx.cmd BEGIN {push @INC, 'lib'} use OS2::REXX; REXX_eval "address cmd\n'copyy'";
 */

call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
call SysLoadFuncs

parse arg args
retval = runperl(args)
say 'retval = "'retval'"'
exit 0

addperl: procedure
  parse arg perlf
  pathname='perlrexx'
  r = RxFuncAdd(perlf, pathname, perlf)
  say "RxFuncAdd("perlf","pathname") -> "r
  return

runperl1: procedure
  parse arg perlarg
  call addperl('PERL')
  call addperl('PERLTERM')
  call addperl('PERLEXIT')
  call addperl('PERLEVAL')
  call addperl('PERLLASTERROR')
  signal on syntax name runperl_error
/*  signal on error name runperl_error
  signal on failure name runperl_error */
  say "doing PERLEVAL("perlarg")"
  tmp = PERLEVAL(perlarg)
  say "PERLEVAL -> '"tmp"'"
  signal off syntax
  call RxFuncDrop 'PERL'
  call RxFuncDrop 'PERLLASTERROR'
  call RxFuncDrop 'PERLTERM'
  call RxFuncDrop 'PERLEVAL'
  call PERLEXIT
  call RxFuncDrop 'PERLEXIT'
  return pathname ': PERLEVAL('perlarg') =' tmp

runperl: procedure
  parse arg perlarg
  pathname='perlrexx'
  r = RxFuncAdd("PerlExportAll", pathname, "PERLEXPORTALL")
  say "RxFuncAdd("'PerlExportAll'","pathname") -> "r
  r = PerlExportAll()
  say "PerlExportAll() -> "r
  signal on syntax name runperl_error
/*  signal on error name runperl_error
  signal on failure name runperl_error */
  say "doing PERLEVAL("perlarg")"
  tmp = PERLEVAL(perlarg)
  say "PERLEVAL -> '"tmp"'"
  address evalperl perlarg
  say "Did address evalperl "perlarg
  signal off syntax
  r = PerlDropAllExit()
  /* The following line is not reached...  Why? */
  say "PerlDropAllExit() -> "r
  return pathname ': PERLEVAL('perlarg') =' tmp

runperl_error:
  return pathname ': REXX->Perl interface not available; rc="'rc'", .rs="'.rs'", errstr="'errortext(rc)'", perlerr="'PERLLASTERROR()'"'

/*  return pathname ': REXX->Perl interface not available; rc="'rc'", .rs="'.rs'", errstr="'errortext(rc)'", perlerr="???"' */