c2d.c

/*
 * C2D - VM/370 Version
 */

#include "lstring.h"

/* ------------------- Lc2d ------------------------- */
void __CDECL
Lc2d(const PLstr to, const PLstr from, long n) {
    int i;
    bool negative;
    long num;

    L2STR(from);

    if (!LLEN(*from) || !n) {
        Licpy(to, 0);
        return;
    }
    if (n < 1 || n > sizeof(long)) n = sizeof(long);

    Lstrcpy(to, from);
    Lreverse(to);

    if (n <= LLEN(*to))
        negative = LSTR(*to)[n - 1] & 0x80;  /* msb = 1 */
    else
        negative = FALSE;

    n = MIN(n, LLEN(*from));
    num = 0;
    for (i = n - 1; i >= 0; i--)
        num = (num << 8) | ((byte) (LSTR(*to)[i]) & 0xFF);
    if (negative) {
        if (n == sizeof(long))
            num = -(~num + 1);
        else
            num = num - (1L << (n * 8));
    }
    Licpy(to, num);
} /* Lc2d */