amigaos4: add Amiga::ARexx and Amiga::Exec

ext seems more natural than dist since these are low-level OS glue
modules (cf the VMS::* and Win32CORE), and these are not in CPAN.

2 files changed, 60 insertions, 0 deletions

diff --git a/ext/Amiga-ARexx/__examples/simplecommand.pl b/ext/Amiga-ARexx/__examples/simplecommand.pl
new file mode 100644
index 0000000000..85d447bb8a
--- /dev/null
+++ b/ext/Amiga-ARexx/__examples/simplecommand.pl
@@ -0,0 +1,14 @@
+#!perl
+
+use strict;
+use warnings;
+
+use Amiga::ARexx qw(DoRexx);
+
+my ($result,$rc,$rc2) = DoRexx("WORKBENCH","HELP");
+
+print $result , "\n" , $rc, "\n", $rc2 , "\n";
+
+($result,$rc,$rc2) = DoRexx("WORKBENCH","NOHELP");
+
+print $result , "\n" , $rc, "\n", $rc2 , "\n";
diff --git a/ext/Amiga-ARexx/__examples/simplehost.pl b/ext/Amiga-ARexx/__examples/simplehost.pl
new file mode 100644
index 0000000000..df5ecd2ff4
--- /dev/null
+++ b/ext/Amiga-ARexx/__examples/simplehost.pl
@@ -0,0 +1,46 @@
+#!perl
+
+# Simple ARExx Host
+
+use strict;
+use Amiga::ARexx;
+use feature "switch";
+
+my $host = Amiga::ARexx->new('HostName' => "TESTSCRIPT");
+
+my $alive = 1;
+
+while ($alive)
+{
+	$host->wait();
+    my $msg = $host->getmsg();
+	while($msg)
+	{
+		my $rc = 0;
+		my $rc2 = 0;
+		my $result = "";
+
+		print $msg->message . "\n";
+		given($msg->message)
+		{
+			when ("QUIT")
+			{
+				$alive = 0;
+				$result = "quitting!";
+			}
+			when ("SHOUT")
+			{
+				$result = "HEEELLLLOOOO!";
+			}
+			default {
+				$rc = 10;
+				$rc2 = 22;
+			}
+		}
+		$msg->reply($rc,$rc2,$result);
+
+		$msg = $host->getmsg();
+	}
+
+}
+