Blame src/set_str.c

Packit Service 2e9770
/* mpc_set_str -- Convert a string into a complex number.
Packit Service 2e9770
Packit Service 2e9770
Copyright (C) 2009, 2010, 2011 INRIA
Packit Service 2e9770
Packit Service 2e9770
This file is part of GNU MPC.
Packit Service 2e9770
Packit Service 2e9770
GNU MPC is free software; you can redistribute it and/or modify it under
Packit Service 2e9770
the terms of the GNU Lesser General Public License as published by the
Packit Service 2e9770
Free Software Foundation; either version 3 of the License, or (at your
Packit Service 2e9770
option) any later version.
Packit Service 2e9770
Packit Service 2e9770
GNU MPC is distributed in the hope that it will be useful, but WITHOUT ANY
Packit Service 2e9770
WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
Packit Service 2e9770
FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for
Packit Service 2e9770
more details.
Packit Service 2e9770
Packit Service 2e9770
You should have received a copy of the GNU Lesser General Public License
Packit Service 2e9770
along with this program. If not, see http://www.gnu.org/licenses/ .
Packit Service 2e9770
*/
Packit Service 2e9770
Packit Service 2e9770
#include <ctype.h>
Packit Service 2e9770
#include "mpc-impl.h"
Packit Service 2e9770
Packit Service 2e9770
int
Packit Service 2e9770
mpc_set_str (mpc_t z, const char *str, int base, mpc_rnd_t rnd)
Packit Service 2e9770
{
Packit Service 2e9770
  char *p;
Packit Service 2e9770
  int inex;
Packit Service 2e9770
Packit Service 2e9770
  inex = mpc_strtoc (z, str, &p, base, rnd);
Packit Service 2e9770
Packit Service 2e9770
  if (inex != -1){
Packit Service 2e9770
     while (isspace ((unsigned char) (*p)))
Packit Service 2e9770
        p++;
Packit Service 2e9770
     if (*p == '\0')
Packit Service 2e9770
        return inex;
Packit Service 2e9770
  }
Packit Service 2e9770
Packit Service 2e9770
  mpfr_set_nan (mpc_realref (z));
Packit Service 2e9770
  mpfr_set_nan (mpc_imagref (z));
Packit Service 2e9770
  return -1;
Packit Service 2e9770
}