initial load of upstream version 1.06.32

[xmlrpc-c] / examples / synch_client.c

diff --git a/examples/synch_client.c b/examples/synch_client.c
new file mode 100644 (file)
index 0000000..bf6889a
--- /dev/null
+++ b/examples/synch_client.c
@@ -0,0 +1,66 @@
+/* A simple synchronous XML-RPC client written in C. */
+
+#include <stdlib.h>
+#include <stdio.h>
+
+#include <xmlrpc-c/base.h>
+#include <xmlrpc-c/client.h>
+
+#include "config.h"  /* information about this build environment */
+
+#define NAME "XML-RPC C Test Client synch_client"
+#define VERSION "1.0"
+
+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;
+    xmlrpc_value * resultP;
+    const char * state_name;
+
+    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. */
+    resultP = xmlrpc_client_call(&env, "http://betty.userland.com/RPC2",
+                                 "examples.getStateName",
+                                 "(i)", (xmlrpc_int32) 41);
+    die_if_fault_occurred(&env);
+    
+    /* Get our state name and print it out. */
+    xmlrpc_read_string(&env, resultP, &state_name);
+    die_if_fault_occurred(&env);
+    printf("%s\n", state_name);
+    free((char*)state_name);
+   
+    /* Dispose of our result value. */
+    xmlrpc_DECREF(resultP);
+
+    /* Clean up our error-handling environment. */
+    xmlrpc_env_clean(&env);
+    
+    /* Shutdown our XML-RPC client library. */
+    xmlrpc_client_cleanup();
+
+    return 0;
+}