/*----------------------------------------------------------------------
  File    : params.c
  Contents: command line parameter retrieval
  Author  : Christian Borgelt
  History : 2003.06.05 file created
----------------------------------------------------------------------*/
#include <stdarg.h>
#include <stdlib.h>
#include <assert.h>
#include "params.h"

/*----------------------------------------------------------------------
  Functions
----------------------------------------------------------------------*/

int getints (char *s, char **end, int n, ...)
{                               /* --- get integer parameters */
  va_list args;                 /* list of variable arguments */
  int     k = 0, t;             /* parameter counter, buffer */

  assert(s && end && (n > 0));  /* check the function arguments */
  va_start(args, n);            /* get variable arguments */
  while (k < n) {               /* traverse the arguments */
    t = (int)strtol(s, end,10); /* get the next parameter and */
    if (*end == s) break;       /* check for an empty parameter */
    *(va_arg(args, int*)) = t;  /* store the parameter */
    k++;                        /* and count it */
    s = *end; if (*s++ != ':') break;
  }                             /* check for a colon */
  va_end(args);                 /* end argument evaluation */
  return k;                     /* return the number of parameters */
}  /* getints() */

/*--------------------------------------------------------------------*/

int getdbls (char *s, char **end, int n, ...)
{                               /* --- get double parameters */
  va_list args;                 /* list of variable arguments */
  int     k = 0;                /* parameter counter */
  double  t;                    /* temporary buffer */

  assert(s && end && (n > 0));  /* check the function arguments */
  va_start(args, n);            /* get variable arguments */
  while (k < n) {               /* traverse the arguments */
    t = strtod(s, end);         /* get the next parameter and */
    if (*end == s) break;       /* check for an empty parameter */
    *(va_arg(args, double*)) = t;  /* store the parameter */
    k++;                           /* and count it */
    s = *end; if (*s++ != ':') break;
  }                             /* check for a colon */
  va_end(args);                 /* end argument evaluation */
  return k;                     /* return the number of parameters */
}  /* getdbls() */

/*--------------------------------------------------------------------*/

int getintvec (char *s, char **end, int n, int *p)
{                               /* --- get integer parameter vector */
  int k = 0, t;                 /* parameter counter, buffer */

  assert(s && end && (n > 0));  /* check the function arguments */
  while (k < n) {               /* traverse the arguments */
    t = (int)strtol(s, end,10); /* get the next parameter and */
    if (*end == s) break;       /* check for an empty parameter */
    p[k++] = t;                 /* store and count the parameter */
    s = *end; if (*s++ != ':') break;
  }                             /* check for a colon */
  return k;                     /* return the number of parameters */
}  /* getintvec() */

/*--------------------------------------------------------------------*/

int getdblvec (char *s, char **end, int n, double *p)
{                               /* --- get double parameter vector */
  int     k = 0;                /* parameter counter */
  double  t;                    /* temporary buffer */

  assert(s && end && (n > 0));  /* check the function arguments */
  while (k < n) {               /* traverse the arguments */
    t = strtod(s, end);         /* get the next parameter and */
    if (*end == s) break;       /* check for an empty parameter */
    p[k++] = t;                 /* store and count the parameter */
    s = *end; if (*s++ != ':') break;
  }                             /* check for a colon */
  return k;                     /* return the number of parameters */
}  /* getdblvec() */