LRset.c

Go to the documentation of this file.

/*
 * Copyright    2019    R.K. Owen, Ph.D.
 * License      see lgpl.md (Gnu Lesser General Public License)
 */
#ifdef __cplusplus
extern "C" {
#endif

#include <stdarg.h>     /* va_arg */
#include <string.h>     /* memcpy */
#include "libran.h"

int LR_vset(LR_obj *o, char *x, va_list ap) {
        LR_val  t;
        int     i;
        float   f;
        char    x1;
        int     ret = 0;

        while (x1 = *x++) {
                switch (x1) {
                case    'k':
                        i = va_arg(ap, int);
                        (void) memcpy(&(o->k), &i, sizeof(int));
                        break;
                case    'n':
                        i = va_arg(ap, int);
                        (void) memcpy(&(o->n), &i, sizeof(int));
                        break;
                case    'p':
                        f = va_arg(ap, double);
                        (void) memcpy(&(o->p), &f, sizeof(float));
                        break;
                case    'q':
                        f = va_arg(ap, double);
                        (void) memcpy(&(o->q), &f, sizeof(float));
                        break;
                default: /* rest are dependent on LR_type */
                        switch (o->d) {
                        case LR_int:
                                t.i = va_arg(ap, int);
                                break;
                        case LR_long:
                                t.l = va_arg(ap, long);
                                break;
                        case LR_float:
                                /* floats are promoted to double in ... */
                                t.f = va_arg(ap, double);
                                break;
                        case LR_double:
                                t.d = va_arg(ap, double);
                                break;
                        default:
                        /* should not get here unless a new type was added */
                                return o->errno = LRerr_BadDataType;
                        }
                }
                switch (x1) {
                case    'd':
                        (void) memcpy(&(o->d), &t, sizeof(LR_val));
                        break;
                case    'a':
                        (void) memcpy(&(o->a), &t, sizeof(LR_val));
                        break;
                case    'b':
                        (void) memcpy(&(o->b), &t, sizeof(LR_val));
                        break;
                case    'm':
                        (void) memcpy(&(o->m), &t, sizeof(LR_val));
                        break;
                case    's':
                        (void) memcpy(&(o->s), &t, sizeof(LR_val));
                        break;
                case    'x':
                        (void) memcpy(&(o->x), &t, sizeof(LR_val));
                        break;
                case    'k':
                case    'n':
                case    'p':
                case    'q':
                        break;
                default:
                        /* it is an error to include non-object attributes */
                        /* but continue on and process remaining */
                        ret++;
                }
        }
        return -ret;
}

int LR_set(LR_obj *o, char x, ...) {
        va_list ap;
        int ret = 0;
        char xx[2] = "0";

        va_start(ap, x);

        xx[0] = x;
        ret = LR_vset(o, xx, ap);

        va_end(ap);

        return ret;
}

int LR_set_all(LR_obj *o, char *x, ...) {
        va_list ap;
        int ret = 0, val;

        va_start(ap, x);

        val = LR_vset(o, x, ap);
        if (val < 0)
                ret += val;
        va_end(ap);

        return ret;
}

#ifdef __cplusplus
}
#endif