/*
** Source machine generated by the AREXX Interface Designer for EasyREXX
** which is (c) copyrighted 1995 to Ketil Hunn
** Set TAB=2 for best readability
**
*/

#ifndef AREXX_INTERFACE
#define AREXX_INTERFACE

#include <libraries/easyrexx.h>
#include <stdio.h>
struct Library *EasyRexxBase=NULL;

UBYTE helloworld[]="Hello World! :)",
			errormessage[]="Error: Because you asked for it ;)";

#define AREXX_CLEAR				1
#define AREXX_GETVAR			2
#define AREXX_HELP				3
#define AREXX_OPEN				4
#define AREXX_QUIT				5
#define AREXX_ROW					6
#define AREXX_SAVE				7
#define AREXX_TEXT				8
#define AREXX_RX					9
#define AREXX_CAUSEERROR	10

BYTE arexxfuncCLEAR(struct ARexxContext *c);
BYTE arexxfuncGETVAR(struct ARexxContext *c);
BYTE arexxfuncHELP(struct ARexxContext *c);
BYTE arexxfuncOPEN(struct ARexxContext *c);
BYTE arexxfuncQUIT(struct ARexxContext *c);
BYTE arexxfuncROW(struct ARexxContext *c);
BYTE arexxfuncSAVE(struct ARexxContext *c);
BYTE arexxfuncTEXT(struct ARexxContext *c);
BYTE arexxfuncRX(struct ARexxContext *c);
BYTE arexxfuncCAUSEERROR(struct ARexxContext *c);


struct ARexxCommandTable commandTable[]=
{
	AREXX_CLEAR,			"CLEAR",			"FORCE/S",									(APTR)arexxfuncCLEAR,
	AREXX_GETVAR,			"GETVAR",			"HELLOWORLD/S",							(APTR)arexxfuncGETVAR,
	AREXX_HELP,				"HELP",				"AMIGAGUIDE/S,TOPIC/F",			(APTR)arexxfuncHELP,
	AREXX_OPEN,				"OPEN",				"PROJECT/S,TEXT/S,NAME/F",	(APTR)arexxfuncOPEN,
	AREXX_QUIT,				"QUIT",				"",													(APTR)arexxfuncQUIT,
	AREXX_ROW,				"ROW",				"NUMBER/A/N",								(APTR)arexxfuncROW,
	AREXX_SAVE,				"SAVE",				"AS/S,NAME/F",							(APTR)arexxfuncSAVE,
	AREXX_TEXT,				"TEXT",				"TEXT/A/F",									(APTR)arexxfuncTEXT,
	AREXX_RX,					"RX",					"COMMAND/A/F",							(APTR)arexxfuncRX,
	AREXX_CAUSEERROR,	"CAUSEERROR",	"",													(APTR)arexxfuncCAUSEERROR,
	TABLE_END,
};

struct ARexxRetValues
{
	LONG retvalue;
	UBYTE *retstring,
				*error;
} myreturn;

BYTE arexxfuncCLEAR(struct ARexxContext *c)
{
	printf("CLEAR");
	if(ARG(c, 0))
		printf(" FORCE=on");
	return RC_OK;
}

BYTE arexxfuncGETVAR(struct ARexxContext *c)
{
	printf("GETVAR");
	if(ARG(c, 0))
	{
		printf(" HELLOWORLD\n* string returned");
		myreturn.retstring=helloworld;
	}
	return RC_OK;
}

BYTE arexxfuncHELP(struct ARexxContext *c)
{
	printf("HELP");
	if(ARG(c, 0))
		printf(" AMIGAGUIDE");
	if(ARG(c, 1))
		printf(" TOPIC=%s", ARGSTRING(c,1));
	return RC_OK;
}

BYTE arexxfuncOPEN(struct ARexxContext *c)
{
	printf("OPEN");
	if(ARG(c, 1))
		printf(" TEXT");
	else
		printf(" PROJECT");  /* defaults to PROJECT */
	if(ARG(c, 2))
		printf(" '%s'", ARGSTRING(c,2));
	return RC_OK;
}

BYTE arexxfuncQUIT(struct ARexxContext *c)
{
	printf("QUIT");
	return -1;
}

BYTE arexxfuncROW(struct ARexxContext *c)
{
	printf("ROW");
	if(ARG(c, 0))
		printf(" %ld", ARGNUMBER(c,0));
	return RC_OK;
}

BYTE arexxfuncSAVE(struct ARexxContext *c)
{
	printf("SAVE");
	if(ARG(c, 0))
		printf(" AS");
	if(ARG(c, 1))
		printf(" '%s'", ARGSTRING(c,1));
	return RC_OK;
}

BYTE arexxfuncTEXT(struct ARexxContext *c)
{
	printf("TEXT");
	if(ARG(c, 0))
		printf(" '%s'", ARGSTRING(c,0));
	return RC_OK;
}

BYTE arexxfuncRX(struct ARexxContext *c)
{
	printf(	"RX '%s'\n"
					"* Sending command asynchronously: '%s' to the '%s' port",
					ARGSTRING(c,0),
					ARGSTRING(c,0),
					c->portname);
	SendARexxCommand(ARGSTRING(c,0),
										ER_Port,		c->port,
										ER_Context,	c,
										ER_Asynch,	TRUE,
										TAG_DONE);
	return RC_OK;
}

BYTE arexxfuncCAUSEERROR(struct ARexxContext *c)
{
	printf(	"CAUSEERROR");
	myreturn.error=errormessage;
	return RC_ERROR;
}

BYTE myHandleARexx(struct ARexxContext *c)
{
	BYTE done=FALSE;

	myreturn.retvalue	=RC_OK;
	myreturn.retstring=NULL;
	myreturn.error		=NULL;

	if(GetARexxMsg(c))
	{
		register ULONG i=0L;

		printf("Received: ");
		while(c->table[i].command!=NULL)
		{
			if(c->table[i].id==c->id)
			{
				BYTE (*func)(struct ARexxContext *c);

				if(func=(void *)(c->table[i].userdata))
					done=myreturn.retvalue=func(c);
				break;
			}
			else
				++i;
		}
		ReplyARexxMsg(c,
									ER_ReturnCode, (myreturn.retvalue==-1 ? RC_OK:myreturn.retvalue),
									(myreturn.error ? ER_ErrorMessage:TAG_IGNORE),	myreturn.error,
									(myreturn.retstring ? ER_ResultString:TAG_IGNORE),	myreturn.retstring,
									TAG_DONE);
		printf("\n");
	}
	return (BYTE)(done==-1);
}


void main(void)
{
	BYTE done=FALSE;
	struct ARexxContext *context=NULL;

	if(EasyRexxBase=OpenLibrary(EASYREXXNAME, EASYREXXVERSION))
		context=AllocARexxContext(ER_CommandTable,	commandTable,
															ER_Author,				"Ketil Hunn",
															ER_Copyright,			"© 1995 Ketil Hunn",
															ER_Version,				"2.0",
															ER_Portname,			"EASYREXX_TEST",
															TAG_DONE);
	else
		printf("easyrexx.library not found\n");

	if(context)
	{
		printf(	"Welcome to a small EasyRexx demonstration\n"
						"-----------------------------------------\n"
						"Open another shell and start the small\n"
						"AREXX script: rx test\n"
						"or doubleclick on the test.rexx icon.\n");

		while(done==FALSE | ER_SAFETOQUIT(context)==FALSE)
		{
			ULONG signals=Wait(ER_SIGNAL(context));
			ER_SETSIGNALS(context, signals);

			if(signals & ER_SIGNAL(context))
				done=myHandleARexx(context);
		}
	}
	if(EasyRexxBase)
	{
		FreeARexxContext(context);
		CloseLibrary(EasyRexxBase);
	}
}

#endif