Lines Matching full:amiga
1 package Amiga::ARexx;
14 # This allows declaration use Amiga::Classes::ARexx ':all';
29 XSLoader::load('Amiga::ARexx', $VERSION);
49 $self->{'__host'} = Amiga::ARexx::Host_init($self->{'__hostname'});
70 Amiga::ARexx::Host_wait($self->{'__host'},$timeout);
77 return Amiga::ARexx::Host_signal($self->{'__host'});
88 $msg = Amiga::ARexx::Host_getmsg($self->{'__host'});
91 $msgobj = Amiga::ARexx::Msg->new('Message' => $msg);
102 Amiga::ARexx::Host_delete($self->{'__host'});
112 my $result = Amiga::ARexx::_DoRexx($port,$command,$rc,$rc2);
116 package Amiga::ARexx::Msg;
139 $self->{'__message'} = Amiga::ARexx::Msg_argstr($self->{'__msg'});
154 Amiga::ARexx::Msg_reply($self->{'__msg'},$rc,$rc2,$result);
163 Amiga::ARexx::Msg_setvar($self->{'__msg'},$varname,$value);
172 return Amiga::ARexx::Msg_getvar($self->{'__msg'},$varname);
181 Amiga::ARexx::Msg_delete($self->{'__msg'});
196 Amiga::ARexx - Perl extension for ARexx support
208 use Amiga::ARexx;
209 my $host = Amiga::ARexx->new('HostName' => "PERLREXX" );
249 my ($rc,$rc2,$result) = Amiga::ARexx->DoRexx($port,$command);
258 =head1 Amiga::ARexx METHODS
262 my $host = Amiga::ARexx->new( HostName => "PERLREXX");
289 Fetch an ARexx message from the host port. Returns an objrct of class Amiga::ARexx::Msg
295 Retrieve the signal mask for the host port for use with Amiga::Exec Wait()
303 =head1 Amiga::ARexx::Msg METHODS