人工智能/神经网络

开发平台：
C/C++

params.c：源码内容
							/*----------------------------------------------------------------------
  File    : params.c
  Contents: command line parameter retrieval
  Author  : Christian Borgelt
  History : 05.06.2003 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() */

						