/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
 * Copyright 1993, University Corporation for Atmospheric Research           *
 * See netcdf/COPYRIGHT file for copying and redistribution conditions.      *
 *                                                                           *
 * Copyright by The HDF Group.                                               *
 * Copyright by the Board of Trustees of the University of Illinois.         *
 * All rights reserved.                                                      *
 *                                                                           *
 * This file is part of HDF.  The full HDF copyright notice, including       *
 * terms governing use, modification, and redistribution, is contained in    *
 * the COPYING file, which can be found at the root of the source code       *
 * distribution tree, or in https://support.hdfgroup.org/ftp/HDF/releases/.  *
 * If you do not have access to either file, you may request a copy from     *
 * help@hdfgroup.org.                                                        *
 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */

#include "nc_priv.h"

/* you may wish to tune this: big on a cray, small on a PC? */
#define NC_SHRT_BUFSIZ 8192
#define NC_NSHRTS_PER  (NC_SHRT_BUFSIZ / 2) /* number of netshorts the buffer holds */

/*
 * internal function, bulk xdr of an even number of shorts, less than NC_NSHRTS_PER
 */
static bool_t
NCxdr_shortsb(XDR *xdrs, short *sp, unsigned nshorts)
{
    unsigned char  buf[NC_SHRT_BUFSIZ];
    unsigned char *cp;
    unsigned int   nbytes = nshorts * 2;

    if (xdrs->x_op == XDR_ENCODE) {
        for (cp = buf; cp < &buf[nbytes]; sp++, cp += 2) {
            *(cp + 1) = *sp % 256;
            *cp       = (*sp >> 8);
        }
    }

    if (!h4_xdr_opaque(xdrs, (char *)buf, nbytes))
        return FALSE;

    if (xdrs->x_op == XDR_DECODE) {
        for (cp = buf; cp < &buf[nbytes]; sp++, cp += 2) {
            *sp = ((*cp & 0x7f) << 8) + *(cp + 1);
            if (*cp & 0x80) {
                /* extern is neg */
                *sp -= 0x8000;
            }
        }
    }

    return TRUE;
}

/*
 * Translate an array of cnt short integers at sp.
 */
bool_t
xdr_shorts(XDR *xdrs, short *sp, unsigned cnt)
{
    int odd; /* 1 if cnt is odd, 0 otherwise */

    if (cnt == 0)
        return TRUE; /* ? */

    odd = cnt % 2;
    if (odd)
        cnt--;
    /* cnt is even, odd is set if apropos */

    while (cnt > NC_NSHRTS_PER) {
        if (!NCxdr_shortsb(xdrs, sp, NC_NSHRTS_PER))
            return FALSE;
        /* else */
        sp += NC_NSHRTS_PER;
        cnt -= NC_NSHRTS_PER;
    }

    /* we know cnt <= NC_NSHRTS_PER at this point */

    if (cnt != 0) {
        if (!NCxdr_shortsb(xdrs, sp, cnt))
            return FALSE;
        /* else */
        sp += cnt;
        cnt = 0;
    }

    if (odd)
        if (!xdr_NCvshort(xdrs, 0, sp))
            return FALSE;

    return TRUE;
}
