/********************************************************************\

  Name:         rpc_clnt.c
  Created by:   Stefan Ritt

  Contents:     Mini RPC client program for test purposes.

  $Id$

\********************************************************************/

#include "midas.h"
#include <stdio.h>

/* user RPC ID's must start after RPC_MIN_ID */
#define RPC_MYTEST RPC_MIN_ID

/* define MYTEST function with some parameters, 
   must match definition on server */
RPC_LIST rpc_list[] = {

   {RPC_MYTEST, "rpc_mytest",
    {{TID_UINT8, RPC_IN}
     ,
     {TID_UINT16, RPC_IN}
     ,
     {TID_INT32, RPC_IN}
     ,
     {TID_FLOAT, RPC_IN}
     ,
     {TID_DOUBLE, RPC_IN}
     ,
     {TID_UINT8, RPC_OUT}
     ,
     {TID_UINT16, RPC_OUT}
     ,
     {TID_INT32, RPC_OUT}
     ,
     {TID_FLOAT, RPC_OUT}
     ,
     {TID_DOUBLE, RPC_OUT}
     ,
     {0}
     }
    }
   ,

   {0}

};

/*------------------------------------------------------------------*/

int main()
{
   char host_name[80];
   HNDLE hConn;
   INT status;
   BYTE b;
   WORD w;
   INT i;
   float f;
   double d;

   printf("Remote host name: ");
   ss_gets(host_name, sizeof(host_name));

   /* register this as an RPC client with rpc_list */
   rpc_register_client("MYCLIENT", rpc_list);

   /* connect to RPC server */
   status = rpc_client_connect(host_name, 1750, "", &hConn);
   if (status != RPC_SUCCESS) {
      printf("Cannot connect to RPC server running on %s at port 1750.\n", host_name);
      return 0;
   }

   f = 3.5f;
   d = 4.5;

   /* rpc_mytest just doubles numbers */
   rpc_client_call(hConn, RPC_MYTEST, 1, 2, 3l, f, d, &b, &w, &i, &f, &d);

   printf("\nResult should be:  2 4 6 7.0 9.0\n");
   printf("Result is:         %d %d %d %1.1f %1.1lf\n", b, w, i, f, d);

   printf("\nhit return...");
   b = getchar();

   /* disconnect this client from server */
   rpc_client_disconnect(hConn, FALSE);
   return 1;
}