src/parsec/disk-image/parsec/parsec-benchmark/pkgs/tools/cmake/src/Utilities/cmxmlrpc/synch_client.c

/* A simple synchronous XML-RPC client written in C. */

#include <stdio.h>
#include <stdlib.h>

#include <xmlrpc.h>
#include <xmlrpc_client.h>

#define NAME "XML-RPC C Test Client"
#define VERSION "0.1"

static void die_if_fault_occurred (xmlrpc_env *env)
{
    if (env->fault_occurred) {
        fprintf(stderr, "XML-RPC Fault: %s (%d)\n",
                env->fault_string, env->fault_code);
        exit(1);
    }
}



int 
main(int           const argc, 
     const char ** const argv ATTR_UNUSED) {

    xmlrpc_env env;
    char *state_name;
    int cc;

    if (argc-1 > 0) {
        fprintf(stderr, "No arguments");
        exit(0);
    }

    /* Start up our XML-RPC client library. */
    xmlrpc_client_init(XMLRPC_CLIENT_NO_FLAGS, NAME, VERSION);

    /* Initialize our error-handling environment. */
    xmlrpc_env_init(&env);

    /* Call the famous server at UserLand. */
    for ( cc = 30; cc < 35; cc ++ )
      {
      xmlrpc_value *result;
      result = xmlrpc_client_call(&env, "http://betty.userland.com/RPC2",
        "examples.getStateName",
        "(i)", (xmlrpc_int32) cc);
      die_if_fault_occurred(&env);

      /* Get our state name and print it out. */
      xmlrpc_parse_value(&env, result, "s", &state_name);
      die_if_fault_occurred(&env);
      printf("%d: %s\n", cc, state_name);

      /* Dispose of our result value. */
      xmlrpc_DECREF(result);

      }
    
    /* Clean up our error-handling environment. */
    xmlrpc_env_clean(&env);
  
    /* Shutdown our XML-RPC client library. */
    xmlrpc_client_cleanup();

    return 0;
}