OS2/OS2-REXX/REXX.pm

1 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
58       while (($name) = OS2::REXX::_next($_)) {
59 	OS2::REXX::_drop($_ . $name);
69 	return bless \$name, OS2::REXX::_SCALAR;
76 	return bless [$name, 0], OS2::REXX::_ARRAY;
83 	return bless {Stem => $name}, OS2::REXX::_HASH;
87 package OS2::REXX::_SCALAR;
91 	return OS2::REXX::_fetch(${$_[0]});
96 	return OS2::REXX::_set(${$_[0]}, $_[1]);
101 	return OS2::REXX::_drop(${$_[0]});
105 package OS2::REXX::_ARRAY;
110 	return OS2::REXX::_fetch($_[0]->[0].'.'.(0+$_[1]));
116 	return OS2::REXX::_set($_[0]->[0].'.'.(0+$_[1]), $_[2]);
120 package OS2::REXX::_HASH;
134 	OS2::REXX::_fetch('DUMMY'); # reset REXX's first/next iterator
135 	while (($name) = OS2::REXX::_next($stem)) {
151 	return defined OS2::REXX::_fetch($_[0]->{Stem}.$_[1]);
156 	return OS2::REXX::_fetch($_[0]->{Stem}.$_[1]);
161 	return OS2::REXX::_set($_[0]->{Stem}.$_[1], $_[2]);
166 	OS2::REXX::_drop($_[0]->{Stem}.$_[1]);
170 package OS2::REXX;
177 OS2::REXX - access to DLLs with REXX calling convention and REXX runtime.
188 	use OS2::REXX;
189 	$ydb = load OS2::REXX "ydbautil" or die "Cannot load: $!";
192 	  tie $s, OS2::REXX, "TEST";
200 	$dll = load OS2::REXX NAME [, WHERE];
222 		$dll = load OS2::REXX "RexxBase";
228 		$dll = load OS2::REXX "RexxBase";
284 	use OS2::REXX 'register';
298 	tie $var, OS2::REXX, "NAME";
302 	tie @var, OS2::REXX, "NAME.";
309 	tie %var, OS2::REXX, "NAME.";
323 	OS2::REXX::drop("NAME" [, "NAME" [, ...]]);
327 	OS2::REXX::dropall("STEM" [, "STEM" [, ...]]);
331 	OS2::REXX::register("NAME" [, "NAME" [, ...]]);
435  use OS2::REXX;
439  $vrexx = OS2::REXX->load('VREXX');
452    tie %pos, 'OS2::REXX', 'POS.' or die;
482 L<OS2::DLL>.