/*
** rexxhost.library - ARexx host management support library
**
** Copyright © 1990-1992 by Olaf `Olsen' Barthel
**    All Rights Reserved
*/

   /* Main system includes. */

#include <dos/dosextens.h>
#include <exec/execbase.h>
#include <exec/memory.h>
#include <exec/alerts.h>
#include <rexx/rxslib.h>

#include <clib/rexxsyslib_protos.h>
#include <clib/exec_protos.h>
#include <clib/dos_protos.h>
#include <pragmas/rexxsyslib_lib.h>

   /* BCPL 'NULL'. */

#define ZERO 0L
#undef NULL
#define NULL 0L
   /* Global library base IDs. */

extern struct RxsLib *RexxSysBase;
extern struct ExecBase  *SysBase;

   /* rexxsyslib.library pragmas. */
/*
#pragma libcall RexxSysBase CreateArgstring 7e 802
#pragma libcall RexxSysBase DeleteArgstring 84 801
#pragma libcall RexxSysBase CreateRexxMsg 90 9803
#pragma libcall RexxSysBase DeleteRexxMsg 96 801
#pragma libcall RexxSysBase FindRsrcNode b4 9803
*/
   /* The rexx host library base. */

#ifdef REXXHOST
struct RexxHostBase
{
   struct Library  ml_Lib;
   long ml_SegList;
   struct RxsLib  *RexxSysBase;
};
#endif
   /* A rexx host, somewhat more than a simple MsgPort. */

struct RexxHost
{
   struct MsgPort rh_Port;
   UWORD    rh_Pad;

   ULONG    rh_SpecialID;
   ULONG    rh_Reserved[4];
};

   /* Prototypes for all library functions. */
/*
struct RexxHost * __saveds __asm CreateRexxHost(register __a0 STRPTR HostName);
VOID * __saveds __asm         DeleteRexxHost(register __a0 struct RexxHost *RexxHost);
LONG __saveds __asm        SendRexxCommand(register __a0 struct RexxHost *HostPort,register __a1 STRPTR CommandString,register __a2 STRPTR FileExtension,register __a3 STRPTR HostName);
VOID __saveds __asm        FreeRexxCommand(register __a0 struct RexxMsg *RexxMessage);
VOID __saveds __asm        ReplyRexxCommand(register __a0 struct RexxMsg *RexxMessage,register __d0 LONG Primary,register __d1 LONG Secondary,register __a1 STRPTR Result);
STRPTR __saveds __asm         GetRexxCommand(register __a0 struct RexxMsg *RexxMessage);
STRPTR __saveds __asm         GetRexxArg(register __a0 struct RexxMsg *RexxMessage);
LONG __saveds __asm        GetRexxResult1(register __a0 struct RexxMsg *RexxMessage);
LONG __saveds __asm        GetRexxResult2(register __a0 struct RexxMsg *RexxMessage);
STATIC BYTE __regargs         IsSpace(UBYTE c);
STRPTR __saveds __asm         GetToken(register __a0 STRPTR String,register __a1 LONG *StartChar,register __a2 STRPTR AuxBuff,register __d0 LONG MaxLength);
LONG __saveds __asm        GetStringValue(register __a0 STRPTR String);
STRPTR __saveds __asm         BuildValueString(register __d0 LONG Value,register __a0 STRPTR String);
LONG __saveds __asm        RexxStrCmp(register __a0 STRPTR Source,register __a1 STRPTR Target);
struct RexxMsg * __saveds __asm     GetRexxMsg(register __a0 struct RexxHost *RexxHost,register __d0 LONG Wait);
ULONG __saveds __asm       SendRexxMsg(register __a0 STRPTR HostName,register __a1 STRPTR *MsgList,register __a2 STRPTR SingleMsg,register __d0 LONG GetResult);
VOID __saveds __asm        GetRexxString(register __d0 STRPTR SourceString,register __d1 STRPTR DestString);
LONG __saveds __asm        GetRexxClip(register __a0 UBYTE *Name,register __d0 LONG WhichArg);
*/