rpc_test.cxx

Go to the documentation of this file.

/********************************************************************\
 
  Name:         rpc_test.c
  Created by:   Stefan Ritt
 
  Contents:     Mini RPC client for testing purposes
 
                This program connects to a server running the MIDAS
                main server. It calls the routine rpc_test on this
                server, which simply doubles some arguments. By
                receiving the proper results, one can check that the
                parameter passing via MIDAS RPCs works correctly.
 
  $Id$
 
\********************************************************************/
 
#include "midas.h"
#include "mrpc.h"
#include <stdio.h>
 
/*------------------------------------------------------------------*/
 
#ifdef OS_VXWORKS
rpc_test(char *ahost_name)
#else
int main()
#endif
{
   char host_name[256];
   INT status;
   BYTE b;
   WORD w;
   INT i;
   float f;
   double d;
 
#ifdef OS_VXWORKS
   strcpy(host_name, ahost_name);
#else
   printf("Remote host IP address: ");
   ss_gets(host_name, 256);
#endif
 
   status = cm_connect_experiment(host_name, "", "RPC_TEST", NULL);
   if (status != CM_SUCCESS)
      return 1;
 
   f = 3.5f;
   d = 4.5;
 
   /* rpc_test just doubles numbers */
   rpc_call(RPC_TEST, 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 %ld %1.1f %1.1lf\n", b, w, (long int) i, f, d);
 
   printf("\nhit return...");
   b = getchar();
 
   cm_disconnect_experiment();
   return 1;
}