1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
|
/* 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 * const envP) {
if (envP->fault_occurred) {
fprintf(stderr, "XML-RPC Fault: %s (%d)\n",
envP->fault_string, envP->fault_code);
exit(1);
}
}
#define ORIG
int
main(int const argc,
const char ** const argv ATTR_UNUSED) {
xmlrpc_env env;
xmlrpc_value *resultP;
xmlrpc_client *rpc_client;
const char *stateName;
int val;
static int count = 8;
/* Start up our XML-RPC client library.
*/
xmlrpc_client_init(XMLRPC_CLIENT_NO_FLAGS, NAME, VERSION);
while (count < 2000) {
xmlrpc_client_setup_global_const (&env);
xmlrpc_client_create (&env, XMLRPC_CLIENT_NO_FLAGS, "client", "v1.0",
NULL, 0, &rpc_client);
xmlrpc_env_init(&env); /* init our error-handling env */
/* call the server */
#ifdef ORIG
resultP = xmlrpc_client_call(&env, "http://tucana.tuc.noao.edu:3000/RPC2",
"ping", "(i)", (xmlrpc_int32) count);
die_if_fault_occurred (&env);
#else
{
xmlrpc_server_info *info =
xmlrpc_server_info_new (&env, "http://tucana.tuc.noao.edu:3000/RPC2");
xmlrpc_value *param = xmlrpc_array_new (&env);
xmlrpc_value *v = xmlrpc_int_new (&env, count);
xmlrpc_array_append_item (&env, param, v);
fprintf (stderr, "4\n");
xmlrpc_env_init(&env);
/*
xmlrpc_client_call2 (&env, rpc_client, info, "ping", param, &resultP);
die_if_fault_occurred (&env);
*/
fprintf (stderr, "5\n");
xmlrpc_DECREF (v);
}
#endif
/* Read return value. */
fprintf (stderr, "6 0x%x\n", (int) resultP);
xmlrpc_read_int (&env, resultP, &val);
die_if_fault_occurred (&env);
printf ("%d %d\n", val, count++);
fprintf (stderr, "7\n");
/* Dispose of our result value. */
xmlrpc_DECREF (resultP);
/* Clean up our error-handling environment. */
xmlrpc_env_clean (&env);
die_if_fault_occurred (&env);
xmlrpc_env_init(&env);
/*
*/
xmlrpc_client_destroy (rpc_client);
die_if_fault_occurred (&env);
xmlrpc_client_teardown_global_const ();
die_if_fault_occurred (&env);
}
/* Shutdown our XML-RPC client library. */
xmlrpc_client_cleanup();
return 0;
}
|
