/*
 * CDE - Common Desktop Environment
 *
 * Copyright (c) 1993-2012, The Open Group. All rights reserved.
 *
 * These libraries and programs are free software; you can
 * redistribute them and/or modify them under the terms of the GNU
 * Lesser General Public License as published by the Free Software
 * Foundation; either version 2 of the License, or (at your option)
 * any later version.
 *
 * These libraries and programs are distributed in the hope that
 * they will be useful, but WITHOUT ANY WARRANTY; without even the
 * implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
 * PURPOSE. See the GNU Lesser General Public License for more
 * details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with these libraries and programs; if not, write
 * to the Free Software Foundation, Inc., 51 Franklin Street, Fifth
 * Floor, Boston, MA 02110-1301 USA
 */
//%%  (c) Copyright 1993, 1994 Hewlett-Packard Company
//%%  (c) Copyright 1993, 1994 International Business Machines Corp.
//%%  (c) Copyright 1993, 1994 Sun Microsystems, Inc.
//%%  (c) Copyright 1993, 1994 Novell, Inc.
//%%  $XConsortium: tt_xdr_utils.C /main/6 1996/08/29 18:08:20 drk $
/*
 *
 * tt_xdr_utils.cc
 *
 * Copyright (c) 1990 by Sun Microsystems, Inc.
 */
#include <stdint.h>
#include <rpc/rpc.h>
#include <util/tt_xdr_utils.h>
#include <memory.h>
#include "tt_options.h"

#if defined(__OpenBSD__)
#define XDR __rpc_xdr
#endif

typedef bool_t (*local_xdrproc_t)(XDR *, caddr_t *);

#ifndef OPT_XDR_LONG_TYPE
#if defined(OPT_CONST_CORRECT)
# define OPT_XDR_LONG_TYPE	const long
#else
# define OPT_XDR_LONG_TYPE	long
#endif
#endif
static bool_t
tt_x_putlong(XDR *xp, OPT_XDR_LONG_TYPE *)
{
    xp->x_handy += 4;
    return TRUE;
}

static bool_t
/* The second argument is caddr_t and not void * in both SUN, DEC headers
 * files.
 * The third agrument is also wrong. Both SUN and DEC system header files
 * expect int instead of u_int.
 */
#if defined(CSRG_BASED) || defined(__linux__)
#if defined(OPT_CONST_CORRECT)
tt_x_putbytes(XDR *xp, const char *, unsigned int len)
#else
tt_x_putbytes(XDR *xp, caddr_t, unsigned int len)
#endif
#else
tt_x_putbytes(XDR *xp, caddr_t, int len)
#endif
{
    xp->x_handy += RNDUP (len);
    return TRUE;
}

#if defined(CSRG_BASED) || defined(__linux__)
static int32_t*
#else
static long *
#endif
#if defined(CSRG_BASED) || defined(__linux__)
tt_x_inline(XDR *xp, unsigned int len)
#else
tt_x_inline(XDR *xp, int len)
#endif
{
	/* Be paranoid -- some code really expects inline to
	 * always succeed, so we keep a small buffer around
	 * just in case.  Not too paranoid, though -- it's
	 * legal to not support inline!
	 */
    /* It is better to promote len to caddr_t than demote x_base to
       int for 64 bit arch.
    */
    if (len > 0 && (caddr_t) (intptr_t) len < xp->x_base) {
	xp->x_handy += RNDUP (len);

#if defined(CSRG_BASED) || defined(__linux__)
	return (int32_t *) xp->x_private;
#else
	return (long *) xp->x_private;
#endif
    } else
	return 0;
}


unsigned long
_tt_xdr_sizeof(xdrproc_t f, void *data)
{
	_Tt_xdr_size_stream x;

	if ((*(local_xdrproc_t)f) ((XDR *)x, (caddr_t *)data) == TRUE) {
		return x.getsize();
	} else {
		return 0;
	}
}

_Tt_xdr_size_stream::
_Tt_xdr_size_stream() {
	memset (&ops, 0, sizeof ops);
#if defined(OPT_BUG_SUNOS_4) || defined(OPT_BUG_HPUX)
	ops.x_putlong = (int (*)(...))tt_x_putlong;
	ops.x_putbytes = (int (*)(...))tt_x_putbytes;
	ops.x_inline = (long *(*)(...))tt_x_inline;
#elif defined(OPT_BUG_AIX)
	ops.x_putlong = (int (*)(XDR *, long *))tt_x_putlong;
	ops.x_putbytes = (int (*)(XDR *, caddr_t, u_int))tt_x_putbytes;
	ops.x_inline = (long *(*)(XDR *, u_int))tt_x_inline;
#elif defined(OPT_BUG_SUNOS_5)
	ops.x_putlong = tt_x_putlong;
	ops.x_putbytes = (bool_t (*)(XDR *, caddr_t, int))tt_x_putbytes;
	ops.x_inline = tt_x_inline;
#elif defined(CRAY)
	ops.x_putlong = tt_x_putlong;
	ops.x_putbytes = tt_x_putbytes;
	ops.x_inline = (inline_t *(*)(...))tt_x_inline;
#else
	ops.x_putlong = tt_x_putlong;
	ops.x_putbytes = tt_x_putbytes;
	ops.x_inline = tt_x_inline;
#endif
	xdrstream.x_op = XDR_ENCODE;
	xdrstream.x_ops = &ops;
	xdrstream.x_handy = 0;
	xdrstream.x_private = (caddr_t) buf;
	xdrstream.x_base = (caddr_t) sizeof buf;
}

_Tt_xdr_size_stream::
operator XDR *() {
	return(&xdrstream);
}