--- /dev/null
+/* Copyright information is at end of file */
+
+#include "xmlrpc_config.h"
+
+#include <assert.h>
+#include <stddef.h>
+#include <stdarg.h>
+#include <stdio.h>
+#include <string.h>
+
+#include "xmlrpc-c/base.h"
+#include "xmlrpc-c/base_int.h"
+
+#define CRLF "\015\012"
+#define SMALL_BUFFER_SZ (128)
+#define XML_PROLOGUE "<?xml version=\"1.0\" encoding=\"UTF-8\"?>"CRLF
+
+
+/*=========================================================================
+** format_out
+**=========================================================================
+** A lightweight print routine for use with various serialization
+** functions. Only use this routine for printing small objects--it uses
+** a fixed-size internal buffer and returns an error on overflow.
+** In particular, do NOT use this routine to print XML-RPC string values!
+*/
+
+static void
+format_out(xmlrpc_env *env,
+ xmlrpc_mem_block *output,
+ char *format_string,
+ ...) {
+
+ va_list args;
+ char buffer[SMALL_BUFFER_SZ];
+ int count;
+
+ XMLRPC_ASSERT_ENV_OK(env);
+
+ va_start(args, format_string);
+
+ /* We assume that this function is present and works correctly. Right. */
+ count = vsnprintf(buffer, SMALL_BUFFER_SZ, format_string, args);
+
+ /* Old C libraries return -1 if vsnprintf overflows its buffer.
+ ** New C libraries return the number of characters which *would* have
+ ** been printed if the error did not occur. This is impressively vile.
+ ** Thank the C99 committee for this bright idea. But wait! We also
+ ** need to keep track of the trailing NULL. */
+ if (count < 0 || count >= (SMALL_BUFFER_SZ - 1))
+ XMLRPC_FAIL(env, XMLRPC_INTERNAL_ERROR,
+ "format_out overflowed internal buffer");
+
+ /* Append our new data to our output. */
+ XMLRPC_TYPED_MEM_BLOCK_APPEND(char, env, output, buffer, count);
+ XMLRPC_FAIL_IF_FAULT(env);
+
+cleanup:
+ va_end(args);
+}
+
+
+
+static void
+assertValidUtf8(const char * const str ATTR_UNUSED,
+ size_t const len ATTR_UNUSED) {
+/*----------------------------------------------------------------------------
+ Assert that the string 'str' of length 'len' is valid UTF-8.
+-----------------------------------------------------------------------------*/
+#if !defined NDEBUG
+ /* Check the assertion; if it's false, issue a message to
+ Standard Error, but otherwise ignore it.
+ */
+ xmlrpc_env env;
+
+ xmlrpc_env_init(&env);
+ xmlrpc_validate_utf8(&env, str, len);
+ if (env.fault_occurred)
+ fprintf(stderr, "*** xmlrpc-c WARNING ***: %s (%s)\n",
+ "Xmlrpc-c sending corrupted UTF-8 data to network",
+ env.fault_string);
+ xmlrpc_env_clean(&env);
+#endif
+}
+
+
+
+static size_t
+escapedSize(const char * const chars,
+ size_t const len) {
+
+ size_t size;
+ size_t i;
+
+ size = 0;
+ for (i = 0; i < len; ++i) {
+ if (chars[i] == '<')
+ size += 4; /* < */
+ else if (chars[i] == '>')
+ size += 4; /* > */
+ else if (chars[i] == '&')
+ size += 5; /* & */
+ else
+ size += 1;
+ }
+ return size;
+}
+
+
+
+static void
+escapeForXml(xmlrpc_env * const envP,
+ const char * const chars,
+ size_t const len,
+ xmlrpc_mem_block ** const outputPP) {
+/*----------------------------------------------------------------------------
+ Escape & and < in a UTF-8 string so as to make it suitable for the
+ content of an XML element. I.e. turn them into entity references
+ & and <. Also change > to >, even though not required
+ for XML, for symmetry.
+-----------------------------------------------------------------------------*/
+ xmlrpc_mem_block * outputP;
+ size_t outputSize;
+
+ XMLRPC_ASSERT_ENV_OK(envP);
+ XMLRPC_ASSERT(chars != NULL);
+
+ assertValidUtf8(chars, len);
+
+ /* Note that in UTF-8, any byte that has high bit of zero is a
+ character all by itself (every byte of a multi-byte UTF-8 character
+ has the high bit set). Also, the Unicode code points < 128 are
+ identical to the ASCII ones.
+ */
+
+ outputSize = escapedSize(chars, len);
+
+ outputP = XMLRPC_MEMBLOCK_NEW(char, envP, outputSize);
+ if (!envP->fault_occurred) {
+ char * p;
+ size_t i;
+ p = XMLRPC_MEMBLOCK_CONTENTS(char, outputP); /* Start at beginning */
+
+ for (i = 0; i < len; i++) {
+ if (chars[i] == '<') {
+ memcpy(p, "<", 4);
+ p += 4;
+ } else if (chars[i] == '>') {
+ memcpy(p, ">", 4);
+ p += 4;
+ } else if (chars[i] == '&') {
+ memcpy(p, "&", 5);
+ p += 5;
+ } else {
+ *p = chars[i];
+ p += 1;
+ }
+ }
+ *outputPP = outputP;
+ assert(p == XMLRPC_MEMBLOCK_CONTENTS(char, outputP) + outputSize);
+
+ if (envP->fault_occurred)
+ XMLRPC_MEMBLOCK_FREE(char, outputP);
+ }
+}
+
+
+
+static void
+serializeUtf8MemBlock(xmlrpc_env * const envP,
+ xmlrpc_mem_block * const outputP,
+ xmlrpc_mem_block * const inputP) {
+/*----------------------------------------------------------------------------
+ Append the characters in *inputP to the XML stream in *outputP.
+
+ *inputP contains Unicode characters in UTF-8.
+
+ We assume *inputP ends with a NUL character that marks end of
+ string, and we ignore that. (There might also be NUL characters
+ inside the string, though).
+-----------------------------------------------------------------------------*/
+ xmlrpc_mem_block * escapedP;
+
+ XMLRPC_ASSERT_ENV_OK(envP);
+ XMLRPC_ASSERT(outputP != NULL);
+ XMLRPC_ASSERT(inputP != NULL);
+
+ escapeForXml(envP,
+ XMLRPC_MEMBLOCK_CONTENTS(const char, inputP),
+ XMLRPC_MEMBLOCK_SIZE(const char, inputP) - 1,
+ /* -1 is for the terminating NUL */
+ &escapedP);
+ if (!envP->fault_occurred) {
+ const char * const contents =
+ XMLRPC_MEMBLOCK_CONTENTS(const char, escapedP);
+ size_t const size = XMLRPC_MEMBLOCK_SIZE(char, escapedP);
+
+ XMLRPC_MEMBLOCK_APPEND(char, envP, outputP, contents, size);
+
+ XMLRPC_MEMBLOCK_FREE(const char, escapedP);
+ }
+}
+
+
+
+static void
+xmlrpc_serialize_base64_data(xmlrpc_env * const envP,
+ xmlrpc_mem_block * const output,
+ unsigned char * const data,
+ size_t const len) {
+/*----------------------------------------------------------------------------
+ Encode the 'len' bytes at 'data' in base64 ASCII and append the result to
+ 'output'.
+-----------------------------------------------------------------------------*/
+ xmlrpc_mem_block * encoded;
+
+ encoded = xmlrpc_base64_encode(envP, data, len);
+ if (!envP->fault_occurred) {
+ unsigned char * const contents =
+ XMLRPC_MEMBLOCK_CONTENTS(unsigned char, encoded);
+ size_t const size =
+ XMLRPC_MEMBLOCK_SIZE(unsigned char, encoded);
+
+ XMLRPC_MEMBLOCK_APPEND(char, envP, output, contents, size);
+
+ XMLRPC_MEMBLOCK_FREE(char, encoded);
+ }
+}
+
+
+
+/*=========================================================================
+** xmlrpc_serialize_struct
+**=========================================================================
+** Dump the contents of a struct.
+*/
+
+static void
+xmlrpc_serialize_struct(xmlrpc_env *env,
+ xmlrpc_mem_block *output,
+ xmlrpc_value *strct) {
+
+ size_t size;
+ size_t i;
+ xmlrpc_value *key, *value;
+
+ format_out(env, output, "<struct>"CRLF);
+ XMLRPC_FAIL_IF_FAULT(env);
+
+ size = xmlrpc_struct_size(env, strct);
+ XMLRPC_FAIL_IF_FAULT(env);
+ for (i = 0; i < size; i++) {
+ xmlrpc_struct_get_key_and_value(env, strct, i, &key, &value);
+ XMLRPC_FAIL_IF_FAULT(env);
+ format_out(env, output, "<member><name>");
+ XMLRPC_FAIL_IF_FAULT(env);
+ serializeUtf8MemBlock(env, output, &key->_block);
+ XMLRPC_FAIL_IF_FAULT(env);
+ format_out(env, output, "</name>"CRLF);
+ XMLRPC_FAIL_IF_FAULT(env);
+ xmlrpc_serialize_value(env, output, value);
+ XMLRPC_FAIL_IF_FAULT(env);
+ format_out(env, output, "</member>"CRLF);
+ XMLRPC_FAIL_IF_FAULT(env);
+ }
+
+ format_out(env, output, "</struct>");
+ XMLRPC_FAIL_IF_FAULT(env);
+
+cleanup:
+ return;
+}
+
+
+
+/*=========================================================================
+** xmlrpc_serialize_value
+**=========================================================================
+** Dump a value in the appropriate fashion.
+*/
+
+void
+xmlrpc_serialize_value(xmlrpc_env *env,
+ xmlrpc_mem_block *output,
+ xmlrpc_value *value) {
+
+ xmlrpc_value *item;
+ size_t size;
+ unsigned char* contents;
+ size_t i;
+
+ XMLRPC_ASSERT_ENV_OK(env);
+ XMLRPC_ASSERT(output != NULL);
+ XMLRPC_ASSERT_VALUE_OK(value);
+
+ /* Print our ubiquitous header. */
+ format_out(env, output, "<value>");
+ XMLRPC_FAIL_IF_FAULT(env);
+
+ switch (value->_type) {
+
+ case XMLRPC_TYPE_INT:
+ /* XXX - We assume that '%i' is the appropriate format specifier
+ ** for an xmlrpc_int32 value. We should add some test cases to
+ ** make sure this works. */
+ format_out(env, output, "<i4>%i</i4>", value->_value.i);
+ break;
+
+ case XMLRPC_TYPE_BOOL:
+ /* XXX - We assume that '%i' is the appropriate format specifier
+ ** for an xmlrpc_bool value. */
+ format_out(env, output, "<boolean>%i</boolean>",
+ (value->_value.b) ? 1 : 0);
+ break;
+
+ case XMLRPC_TYPE_DOUBLE:
+ /* We must output a number of the form [+-]?\d*.\d*. */
+ format_out(env, output, "<double>%f</double>", value->_value.d);
+ break;
+
+ case XMLRPC_TYPE_STRING:
+ format_out(env, output, "<string>");
+ XMLRPC_FAIL_IF_FAULT(env);
+ serializeUtf8MemBlock(env, output, &value->_block);
+ XMLRPC_FAIL_IF_FAULT(env);
+ format_out(env, output, "</string>");
+ break;
+
+ case XMLRPC_TYPE_ARRAY:
+ format_out(env, output, "<array><data>"CRLF);
+ XMLRPC_FAIL_IF_FAULT(env);
+
+ /* Serialize each item. */
+ size = xmlrpc_array_size(env, value);
+ XMLRPC_FAIL_IF_FAULT(env);
+ for (i = 0; i < size; i++) {
+ item = xmlrpc_array_get_item(env, value, i);
+ XMLRPC_FAIL_IF_FAULT(env);
+ xmlrpc_serialize_value(env, output, item);
+ XMLRPC_FAIL_IF_FAULT(env);
+ format_out(env, output, CRLF);
+ XMLRPC_FAIL_IF_FAULT(env);
+ }
+
+ format_out(env, output, "</data></array>");
+ break;
+
+ case XMLRPC_TYPE_STRUCT:
+ xmlrpc_serialize_struct(env, output, value);
+ break;
+
+ case XMLRPC_TYPE_BASE64:
+ format_out(env, output, "<base64>"CRLF);
+ XMLRPC_FAIL_IF_FAULT(env);
+ contents = XMLRPC_TYPED_MEM_BLOCK_CONTENTS(unsigned char,
+ &value->_block);
+ size = XMLRPC_TYPED_MEM_BLOCK_SIZE(unsigned char, &value->_block);
+ xmlrpc_serialize_base64_data(env, output, contents, size);
+ XMLRPC_FAIL_IF_FAULT(env);
+ format_out(env, output, "</base64>");
+ break;
+
+ case XMLRPC_TYPE_DATETIME:
+ format_out(env, output, "<dateTime.iso8601>");
+ XMLRPC_FAIL_IF_FAULT(env);
+ serializeUtf8MemBlock(env, output, &value->_block);
+ XMLRPC_FAIL_IF_FAULT(env);
+ format_out(env, output, "</dateTime.iso8601>");
+ break;
+
+ case XMLRPC_TYPE_C_PTR:
+ xmlrpc_env_set_fault_formatted(
+ env, XMLRPC_INTERNAL_ERROR,
+ "Tried to serialize a C pointer value.");
+ break;
+
+ case XMLRPC_TYPE_NIL:
+ format_out(env, output, "<nil/>");
+ XMLRPC_FAIL_IF_FAULT(env);
+ break;
+
+ case XMLRPC_TYPE_DEAD:
+ xmlrpc_env_set_fault_formatted(
+ env, XMLRPC_INTERNAL_ERROR,
+ "Tried to serialize a deaad value.");
+ break;
+
+ default:
+ xmlrpc_env_set_fault_formatted(
+ env, XMLRPC_INTERNAL_ERROR,
+ "Invalid xmlrpc_value type: %d", value->_type);
+ }
+ XMLRPC_FAIL_IF_FAULT(env);
+
+ /* Print our ubiquitous footer. */
+ format_out(env, output, "</value>");
+ XMLRPC_FAIL_IF_FAULT(env);
+
+ cleanup:
+ return;
+}
+
+
+
+/*=========================================================================
+** xmlrpc_serialize_params
+**=========================================================================
+** Serialize a list as a set of parameters.
+*/
+
+void
+xmlrpc_serialize_params(xmlrpc_env *env,
+ xmlrpc_mem_block *output,
+ xmlrpc_value *param_array) {
+
+ size_t size, i;
+ xmlrpc_value *item;
+
+ XMLRPC_ASSERT_ENV_OK(env);
+ XMLRPC_ASSERT(output != NULL);
+ XMLRPC_ASSERT_VALUE_OK(param_array);
+
+ format_out(env, output, "<params>"CRLF);
+ XMLRPC_FAIL_IF_FAULT(env);
+
+ /* Dump each parameter. */
+ size = xmlrpc_array_size(env, param_array);
+ XMLRPC_FAIL_IF_FAULT(env);
+ for (i = 0; i < size; i++) {
+ format_out(env, output, "<param>");
+ XMLRPC_FAIL_IF_FAULT(env);
+ item = xmlrpc_array_get_item(env, param_array, i);
+ XMLRPC_FAIL_IF_FAULT(env);
+ xmlrpc_serialize_value(env, output, item);
+ XMLRPC_FAIL_IF_FAULT(env);
+ format_out(env, output, "</param>"CRLF);
+ XMLRPC_FAIL_IF_FAULT(env);
+ }
+
+ format_out(env, output, "</params>"CRLF);
+ XMLRPC_FAIL_IF_FAULT(env);
+
+ cleanup:
+ return;
+}
+
+
+
+/*=========================================================================
+** xmlrpc_serialize_call
+**=========================================================================
+** Serialize an XML-RPC call.
+*/
+
+void
+xmlrpc_serialize_call(xmlrpc_env * const env,
+ xmlrpc_mem_block * const output,
+ const char * const method_name,
+ xmlrpc_value * const param_array) {
+
+ xmlrpc_mem_block * encodedP;
+ char *contents;
+ size_t size;
+
+ XMLRPC_ASSERT_ENV_OK(env);
+ XMLRPC_ASSERT(output != NULL);
+ XMLRPC_ASSERT(method_name != NULL);
+ XMLRPC_ASSERT_VALUE_OK(param_array);
+
+ /* Set up our error-handling preconditions. */
+ encodedP = NULL;
+
+ /* Dump our header. */
+ format_out(env, output, XML_PROLOGUE);
+ XMLRPC_FAIL_IF_FAULT(env);
+ format_out(env, output, "<methodCall>"CRLF"<methodName>");
+ XMLRPC_FAIL_IF_FAULT(env);
+
+ /* Dump the method name. */
+ escapeForXml(env, method_name, strlen(method_name), &encodedP);
+ XMLRPC_FAIL_IF_FAULT(env);
+ contents = XMLRPC_MEMBLOCK_CONTENTS(char, encodedP);
+ size = XMLRPC_MEMBLOCK_SIZE(char, encodedP);
+ XMLRPC_MEMBLOCK_APPEND(char, env, output, contents, size);
+ XMLRPC_FAIL_IF_FAULT(env);
+
+ /* Dump our parameters and footer. */
+ format_out(env, output, "</methodName>"CRLF);
+ XMLRPC_FAIL_IF_FAULT(env);
+ xmlrpc_serialize_params(env, output, param_array);
+ XMLRPC_FAIL_IF_FAULT(env);
+ format_out(env, output, "</methodCall>"CRLF);
+ XMLRPC_FAIL_IF_FAULT(env);
+
+ cleanup:
+ if (encodedP)
+ XMLRPC_MEMBLOCK_FREE(char, encodedP);
+}
+
+
+
+/*=========================================================================
+** xmlrpc_serialize_response
+**=========================================================================
+** Serialize the (non-fault) response to an XML-RPC call.
+*/
+
+void
+xmlrpc_serialize_response (xmlrpc_env *env,
+ xmlrpc_mem_block *output,
+ xmlrpc_value *value) {
+
+ XMLRPC_ASSERT_ENV_OK(env);
+ XMLRPC_ASSERT(output != NULL);
+ XMLRPC_ASSERT_VALUE_OK(value);
+
+ format_out(env, output, XML_PROLOGUE);
+ XMLRPC_FAIL_IF_FAULT(env);
+ format_out(env, output, "<methodResponse>"CRLF"<params>"CRLF"<param>");
+ XMLRPC_FAIL_IF_FAULT(env);
+
+ xmlrpc_serialize_value(env, output, value);
+ XMLRPC_FAIL_IF_FAULT(env);
+
+ format_out(env, output,
+ "</param>"CRLF"</params>"CRLF"</methodResponse>"CRLF);
+ XMLRPC_FAIL_IF_FAULT(env);
+
+ cleanup:
+ return;
+}
+
+
+
+/*=========================================================================
+** xmlrpc_serialize_fault
+**=========================================================================
+** Serialize an XML-RPC fault.
+**
+** If this function fails, it will set up the first env argument. You'll
+** need to take some other drastic action to produce a serialized fault
+** of your own. (This function should only fail in an out-of-memory
+** situation, AFAIK.)
+*/
+
+void
+xmlrpc_serialize_fault(xmlrpc_env *env,
+ xmlrpc_mem_block *output,
+ xmlrpc_env *fault) {
+
+ xmlrpc_value *strct;
+
+ XMLRPC_ASSERT_ENV_OK(env);
+ XMLRPC_ASSERT(output != NULL);
+ XMLRPC_ASSERT(fault != NULL && fault->fault_occurred);
+
+ /* Set up our error-handling preconditions. */
+ strct = NULL;
+
+ /* Build a fault structure. */
+ strct = xmlrpc_build_value(env, "{s:i,s:s}",
+ "faultCode", (xmlrpc_int32) fault->fault_code,
+ "faultString", fault->fault_string);
+ XMLRPC_FAIL_IF_FAULT(env);
+
+ /* Output our header. */
+ format_out(env, output, XML_PROLOGUE);
+ XMLRPC_FAIL_IF_FAULT(env);
+ format_out(env, output, "<methodResponse>"CRLF"<fault>"CRLF);
+ XMLRPC_FAIL_IF_FAULT(env);
+
+ /* Serialize our fault structure. */
+ xmlrpc_serialize_value(env, output, strct);
+ XMLRPC_FAIL_IF_FAULT(env);
+
+ /* Output our footer. */
+ format_out(env, output, CRLF"</fault>"CRLF"</methodResponse>"CRLF);
+ XMLRPC_FAIL_IF_FAULT(env);
+
+ cleanup:
+ if (strct)
+ xmlrpc_DECREF(strct);
+}
+
+
+
+
+/* Copyright (C) 2001 by First Peer, Inc. All rights reserved.
+**
+** Redistribution and use in source and binary forms, with or without
+** modification, are permitted provided that the following conditions
+** are met:
+** 1. Redistributions of source code must retain the above copyright
+** notice, this list of conditions and the following disclaimer.
+** 2. Redistributions in binary form must reproduce the above copyright
+** notice, this list of conditions and the following disclaimer in the
+** documentation and/or other materials provided with the distribution.
+** 3. The name of the author may not be used to endorse or promote products
+** derived from this software without specific prior written permission.
+**
+** THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
+** ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+** IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+** ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
+** FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+** DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+** OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+** HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+** LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+** OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+** SUCH DAMAGE. */