libnsl/rpc/xdr_stdio.c

/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License, Version 1.0 only
 * (the "License").  You may not use this file except in compliance
 * with the License.
 *
 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
 * or http://www.opensolaris.org/os/licensing.
 * See the License for the specific language governing permissions
 * and limitations under the License.
 *
 * When distributing Covered Code, include this CDDL HEADER in each
 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
 * If applicable, add the following below this CDDL HEADER, with the
 * fields enclosed by brackets "[]" replaced with your own identifying
 * information: Portions Copyright [yyyy] [name of copyright owner]
 *
 * CDDL HEADER END
 */

/*
 * Copyright 2005 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 */
/* Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989 AT&T */
/* All Rights Reserved */
/*
 * Portions of this source code were derived from Berkeley
 * 4.3 BSD under license from the Regents of the University of
 * California.
 */

#pragma ident   "%Z%%M% %I% %E% SMI"

/*
 * xdr_stdio.c, XDR implementation on standard i/o file.
 *
 * This set of routines implements a XDR on a stdio stream.
 * XDR_ENCODE serializes onto the stream, XDR_DECODE de-serializes
 * from the stream.
 */

#include "mt.h"
#include "rpc_mt.h"
#include <rpc/types.h>
#include <stdio.h>
#include <rpc/xdr.h>
#include <sys/types.h>
#include <inttypes.h>

static struct xdr_ops *xdrstdio_ops(void);

/*
 * Initialize a stdio xdr stream.
 * Sets the xdr stream handle xdrs for use on the stream file.
 * Operation flag is set to op.
 */
void
xdrstdio_create(XDR *xdrs, FILE *file, const enum xdr_op op)
{
    xdrs->x_op = op;
    xdrs->x_ops = xdrstdio_ops();
    xdrs->x_private = (caddr_t)file;
    xdrs->x_handy = 0;
    xdrs->x_base = 0;
}

/*
 * Destroy a stdio xdr stream.
 * Cleans up the xdr stream handle xdrs previously set up by xdrstdio_create.
 */
static void
xdrstdio_destroy(XDR *xdrs)
{
    /* LINTED pointer cast */
    (void) fflush((FILE *)xdrs->x_private);
    /* xx should we close the file ?? */
}


static bool_t
xdrstdio_getint32(XDR *xdrs, int32_t *lp)
{
    if (fread((caddr_t)lp, sizeof (int32_t), 1,
            /* LINTED pointer cast */
            (FILE *)xdrs->x_private) != 1)
        return (FALSE);
    *lp = ntohl(*lp);
    return (TRUE);
}

static bool_t
xdrstdio_putint32(XDR *xdrs, int32_t *lp)
{

    int32_t mycopy = htonl(*lp);
    lp = &mycopy;

    if (fwrite((caddr_t)lp, sizeof (int32_t), 1,
            /* LINTED pointer cast */
            (FILE *)xdrs->x_private) != 1)
        return (FALSE);
    return (TRUE);
}

static bool_t
xdrstdio_getlong(XDR *xdrs, long *lp)
{
    int32_t i;

    if (!xdrstdio_getint32(xdrs, &i))
        return (FALSE);
    *lp = (long)i;
    return (TRUE);
}

static bool_t
xdrstdio_putlong(XDR *xdrs, long *lp)
{
    int32_t i;

#if defined(_LP64)
    if ((*lp > INT32_MAX) || (*lp < INT32_MIN))
        return (FALSE);
#endif
    i = (int32_t)*lp;

    return (xdrstdio_putint32(xdrs, &i));
}

static bool_t
xdrstdio_getbytes(XDR *xdrs, caddr_t addr, int len)
{
    if ((len != 0) &&
        /* LINTED pointer cast */
        (fread(addr, (int)len, 1, (FILE *)xdrs->x_private) != 1))
        return (FALSE);
    return (TRUE);
}

static bool_t
xdrstdio_putbytes(XDR *xdrs, caddr_t addr, int len)
{
    if ((len != 0) &&
        /* LINTED pointer cast */
        (fwrite(addr, (int)len, 1, (FILE *)xdrs->x_private) != 1))
        return (FALSE);
    return (TRUE);
}

static uint_t
xdrstdio_getpos(XDR *xdrs)
{
    /* LINTED pointer cast */
    return ((uint_t)ftell((FILE *)xdrs->x_private));
}

static bool_t
xdrstdio_setpos(XDR *xdrs, uint_t pos)
{
    /* LINTED pointer cast */
    return ((fseek((FILE *)xdrs->x_private,
            (int)pos, 0) < 0) ? FALSE : TRUE);
}

/* ARGSUSED */
static rpc_inline_t *
xdrstdio_inline(XDR *xdrs, int len)
{
    /*
     * Must do some work to implement this: must insure
     * enough data in the underlying stdio buffer,
     * that the buffer is aligned so that we can indirect through a
     * long *, and stuff this pointer in xdrs->x_buf.  Doing
     * a fread or fwrite to a scratch buffer would defeat
     * most of the gains to be had here and require storage
     * management on this buffer, so we don't do this.
     */
    return (NULL);
}

/* ARGSUSED */
static bool_t
xdrstdio_control(XDR *xdrs, int request, void *info)
{
    return (FALSE);
}

static struct xdr_ops *
xdrstdio_ops(void)
{
    static struct xdr_ops ops;
    extern mutex_t  ops_lock;

/* VARIABLES PROTECTED BY ops_lock: ops */

    (void) mutex_lock(&ops_lock);
    if (ops.x_getlong == NULL) {
        ops.x_getlong = xdrstdio_getlong;
        ops.x_putlong = xdrstdio_putlong;
        ops.x_getbytes = xdrstdio_getbytes;
        ops.x_putbytes = xdrstdio_putbytes;
        ops.x_getpostn = xdrstdio_getpos;
        ops.x_setpostn = xdrstdio_setpos;
        ops.x_inline = xdrstdio_inline;
        ops.x_destroy = xdrstdio_destroy;
        ops.x_control = xdrstdio_control;
#if defined(_LP64)
        ops.x_getint32 = xdrstdio_getint32;
        ops.x_putint32 = xdrstdio_putint32;
#endif
    }
    (void) mutex_unlock(&ops_lock);
    return (&ops);
}