neg.c

/*
 * $Id: neg.c,v 1.4 2008/07/15 07:40:54 bnv Exp $
 * $Log: neg.c,v $
 * Revision 1.4  2008/07/15 07:40:54  bnv
 * #include changed from <> to ""
 *
 * Revision 1.3  2002/06/11 12:37:15  bnv
 * Added: CDECL
 *
 * Revision 1.2  2001/06/25 18:49:48  bnv
 * Header changed to Id
 *
 * Revision 1.1  1998/07/02 17:18:00  bnv
 * Initial Version
 *
 */

#include "lstring.h"

/* ------------------- Lneg ------------------ */
void __CDECL
Lneg(const PLstr to, const PLstr num) {
    L2NUM(num);

    if (LTYPE(*num) == LINTEGER_TY) {
        LINT(*to) = -LINT(*num);
        LTYPE(*to) = LINTEGER_TY;
        LLEN(*to) = sizeof(long);
    } else {
        LREAL(*to) = -LREAL(*num);
        LTYPE(*to) = LREAL_TY;
        LLEN(*to) = sizeof(double);
    }
} /* Lneg */

/* ------------------- Lneg ------------------ */
void __CDECL
Lplus(const PLstr to, const PLstr num) {
    L2NUM(num);

    if (LTYPE(*num) == LINTEGER_TY) {
        LINT(*to) = LINT(*num);
        LTYPE(*to) = LINTEGER_TY;
        LLEN(*to) = sizeof(long);
    } else {
        LREAL(*to) = LREAL(*num);
        LTYPE(*to) = LREAL_TY;
        LLEN(*to) = sizeof(double);
    }
} /* Lpos */